Subversion Repositories sysadmin_scripts

Rev

Rev 133 | Rev 136 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 133 Rev 134
Line 353... Line 353...
353 
 
 353 
 
354 
# Get configuration file into $config
 354 
# Get configuration file into $config
355 
my $config = &loadConfig( $CONFIGFILE );
 355 
my $config = &loadConfig( $CONFIGFILE );
356 
print Dumper( $config ) if $DEBUG > 1;
 356 
print Dumper( $config ) if $DEBUG > 1;
357 
 
 357 
 
- 
 
 358 
die if $DEBUG > 4;
- 
 
 359 
 
358 
my $switchInfo = {}; # stores information about switches
 360 
my $switchInfo = {}; # stores information about switches
359 
my $macList = {}; # a list of all MAC addresses
 361 
my $macList = {}; # a list of all MAC addresses
360 
 
 362 
 
361 
# load the information for the switches into $switchInfo.
 363 
# load the information for the switches into $switchInfo.
362 
foreach my $switch ( keys %{$config->{'switches'}} ) {
 364 
foreach my $switch ( keys %{$config->{'switches'}} ) {