Changeset 290

Timestamp:

Sep 26, 2017, 3:17:19 PM (7 years ago)

Author:

g7moreau

Message:

• Remove end space

File:

• trunk/klask (modified) (7 diffs)

trunk/klask

@@ -791 +791 @@
       my ($oid_current) = $snmp_session->var_bind_names;
       last LOOP_ON_OID_PORT if  not Net::SNMP::oid_base_match($oid_search_ix, $oid_current);
-      
+
       my $port_ifIndex = $snmp_session->var_bind_list->{$oid_current};
       my ($port_ix) = reverse split /\./, $oid_current; # last number
@@ -798 +798 @@
       # prepare next loop item
       @args = (-varbindlist => [$oid_current]);
-      
+
       my $oid_search_ifName = $OID_NUMBER{'ifName'} .'.'. $port_ifIndex;
       my $result = $snmp_session->get_request(-varbindlist => [$oid_search_ifName]);
       next LOOP_ON_OID_PORT if not defined $result;
-      
+
       my $current_port_hr = normalize_port_human_readable($result->{$oid_search_ifName});
       printf "PORT2: $oid_search_ifName => $current_port_hr\n" if $verbose;
       if ($current_port_hr eq $swport_hr) {
          print "PORT3: $current_port_hr <-> $port_ix\n" if $verbose;
-         
+
          # return port number ifIndex need by OID portUpDown
          $swport_id = $port_ifIndex; # other possible value could be $port_ix
@@ -1547 +1547 @@
          # Link to uplink switch
          next LOOP_ON_OUTPUT_SWITCH;
-         
+
          # Do not print anymore
          my $mac_address  = $db_switch{$db_switch_parent{$sw}->{'switch'}}->{'mac_address'};
@@ -2127 +2127 @@
       my %vlandb = snmp_get_vlan_list($session);
       $session->close;
-      
+
       print "VLAN_ID - VLAN_NAME # $sw_name\n";
       for my $vlan_id (keys %vlandb) {
@@ -2815 +2815 @@
       $db_building{$building}->{$location} ||= {};
       $db_building{$building}->{$location}{ $sw->{'hostname'} } = 'y';
-      
+
       $db_switch_line{$sw} = 0;
       }
@@ -2878 +2878 @@
                print "\"$sw:$port_connect\" [label=\"".format_aggregator4dot($port_connect)."\", color=black, fillcolor=plum, peripheries=$peripheries, style=filled];\n";
                print "\"$sw:$port_connect\" -> \"$sw\" [len=2, style=bold, color=$color, arrowhead=normal, arrowtail=inv];\n";
-               
+
                #$db_switch_line{$sw}++;
                #if ($db_switch_line{$sw} % 9 == 0) {
@@ -3099 +3099 @@
 This means that an C<fping> command is done at the beginning on all the IP of the network
 and the computers that was not detected in this pass, but where their Klask entry is less than one week,
-will have an C<arping> 
+will have an C<arping>
 (some OS do not respond to C<ping> but a computer have to respond to C<arping> if it want to interact with other).
 In the scan mode C<passive>, no C<fping> and no C<arping> are done.