Changeset 15

Timestamp:

Jan 31, 2008, 11:58:11 AM (16 years ago)

Author:

g7moreau

Message:

• Rename globale variable switch_port_count -> SWITCH_PORT_COUNT

File:

• trunk/klask (modified) (4 diffs)

trunk/klask

@@ -29 +29 @@
 @SWITCH = sort { $switch_level{$b->{hostname}} <=> $switch_level{$a->{hostname}} } @{$KLASK_CFG->{switch}};  
 
-my %switch_port_count = ();
+my %SWITCH_PORT_COUNT = ();
 
 my %CMD_DB = (
@@ -310 +310 @@
 
    for my $sw (@SWITCH) {
-      $switch_port_count{$sw->{hostname}} = {} if not exists $switch_port_count{$sw->{hostname}};
+      $SWITCH_PORT_COUNT{$sw->{hostname}} = {} if not exists $SWITCH_PORT_COUNT{$sw->{hostname}};
       }
 
@@ -331 +331 @@
          $ret->{$sw->{hostname}}{port}        = get_human_readable_port($sw->{hostname}, $swport);
 
-         $switch_port_count{$sw->{hostname}}->{$swport}++;
+         $SWITCH_PORT_COUNT{$sw->{hostname}}->{$swport}++;
          }
 
@@ -801 +801 @@
       for my $switch_detected ( keys %{$where{$ip}} ) {
 
-         next DETECTED_SWITCH if not exists $switch_port_count{ $db_switch_ip_hostname{$ip}};
+         next DETECTED_SWITCH if not exists $SWITCH_PORT_COUNT{ $db_switch_ip_hostname{$ip}};
 
          my $switch = $where{$ip}->{$switch_detected};