Changeset 272

Timestamp:

Sep 15, 2017, 10:41:37 PM (7 years ago)

Author:

g7moreau

Message:

• Some few last 'port' -> 'port_id'

File:

• trunk/klask (modified) (4 diffs)

trunk/klask

@@ -597 +597 @@
          $ret->{$sw->{'hostname'}}{'hostname'}    = $sw->{'hostname'};
          $ret->{$sw->{'hostname'}}{'description'} = $sw->{'description'};
-         $ret->{$sw->{'hostname'}}{'port'}        = $swport_id;
+         $ret->{$sw->{'hostname'}}{'port_id'}     = $swport_id;
          $ret->{$sw->{'hostname'}}{'port_hr'}     = $swport_hr;
          }
@@ -2537 +2537 @@
          my $switch = $where{$ip_router}->{$switch_detected};
 
-         next ALL_SWITCH_CONNECTED if $switch->{'port'} eq '0';
+         next ALL_SWITCH_CONNECTED if $switch->{'port_id'} eq '0';
 
          $db_switch_output_port{$switch->{'hostname'}} = $switch->{'port_hr'};
@@ -2610 +2610 @@
          print "VERBOSE_6: $db_switch_ip_hostnamefq{$ip} -> $switch->{'hostname'} : $switch->{'port_hr'}\n" if $verbose;
 
-         next if $switch->{'port'}     eq '0';
+         next if $switch->{'port_id'}  eq '0';
          next if $switch->{'port_hr'}  eq $db_switch_output_port{$switch->{'hostname'}};
          next if $switch->{'hostname'} eq $db_switch_ip_hostnamefq{$ip}; # $computerdb->{$ip}{'hostname'};
@@ -2867 +2867 @@
    for my $sw (sort keys %db_switch_output_port) {
       if (exists $db_switch_parent{$sw}) {
-#         printf "   \"%s:%s\" -> \"%s:%s\"\n", $sw, $db_switch_output_port{$sw}, $db_switch_parent{$sw}->{'switch'}, $db_switch_parent{$sw}->{'port'};
+#         printf "   \"%s:%s\" -> \"%s:%s\"\n", $sw, $db_switch_output_port{$sw}, $db_switch_parent{$sw}->{'switch'}, $db_switch_parent{$sw}->{'port_id'};
          }
       else {