Changeset 15


Ignore:
Timestamp:
Jan 31, 2008, 11:58:11 AM (13 years ago)
Author:
g7moreau
Message:
  • Rename globale variable switch_port_count -> SWITCH_PORT_COUNT
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/klask

    r14 r15  
    2929@SWITCH = sort { $switch_level{$b->{hostname}} <=> $switch_level{$a->{hostname}} } @{$KLASK_CFG->{switch}}; 
    3030
    31 my %switch_port_count = ();
     31my %SWITCH_PORT_COUNT = ();
    3232
    3333my %CMD_DB = (
     
    310310
    311311   for my $sw (@SWITCH) {
    312       $switch_port_count{$sw->{hostname}} = {} if not exists $switch_port_count{$sw->{hostname}};
     312      $SWITCH_PORT_COUNT{$sw->{hostname}} = {} if not exists $SWITCH_PORT_COUNT{$sw->{hostname}};
    313313      }
    314314
     
    331331         $ret->{$sw->{hostname}}{port}        = get_human_readable_port($sw->{hostname}, $swport);
    332332
    333          $switch_port_count{$sw->{hostname}}->{$swport}++;
     333         $SWITCH_PORT_COUNT{$sw->{hostname}}->{$swport}++;
    334334         }
    335335
     
    801801      for my $switch_detected ( keys %{$where{$ip}} ) {
    802802
    803          next DETECTED_SWITCH if not exists $switch_port_count{ $db_switch_ip_hostname{$ip}};
     803         next DETECTED_SWITCH if not exists $SWITCH_PORT_COUNT{ $db_switch_ip_hostname{$ip}};
    804804
    805805         my $switch = $where{$ip}->{$switch_detected};
Note: See TracChangeset for help on using the changeset viewer.