version 1.23, 2007/02/01 18:44:30 |
version 1.24, 2007/02/02 16:29:58 |
|
|
#!/usr/bin/perl |
#!/usr/bin/perl |
# $RedRiver: update_trango.pl,v 1.22 2007/02/01 17:58:33 andrew Exp $ |
# $RedRiver: update_trango.pl,v 1.23 2007/02/01 18:44:30 andrew Exp $ |
######################################################################## |
######################################################################## |
# update_trango.pl *** Updates trango foxes with a new firmware |
# update_trango.pl *** Updates trango foxes with a new firmware |
# |
# |
|
|
'10.100.1.2', |
'10.100.1.2', |
'10.100.2.2', |
'10.100.2.2', |
'10.100.3.2', |
'10.100.3.2', |
|
'10.100.3.3', |
|
'10.100.3.4', |
|
'10.100.3.8', |
'10.100.4.2', |
'10.100.4.2', |
|
'10.100.60.5', |
|
'10.100.80.5', |
|
'10.100.150.5', |
|
'10.100.5.2', |
|
'10.100.6.2', |
|
'10.100.7.2', |
|
'10.100.8.2', |
|
'10.100.9.2', |
|
'10.100.21.2', |
|
'10.100.22.2', |
|
'10.100.23.2', |
|
'10.100.32.2', |
|
'10.100.33.2', |
|
'10.100.41.2', |
|
'10.100.51.2', |
|
'10.100.52.2', |
|
'10.100.53.2', |
|
'10.100.54.2', |
|
'10.100.61.2', |
|
'10.100.62.2', |
); |
); |
|
|
foreach my $fox (@foxes) { |
foreach my $fox (@foxes) { |
|
|
$conf->{$firmware_type}->{$host_type}->{$k} ||= $conf->{general}->{$k}; |
$conf->{$firmware_type}->{$host_type}->{$k} ||= $conf->{general}->{$k}; |
} |
} |
$conf->{$firmware_type}->{$host_type}->{firmware_type} ||= $firmware_type; |
$conf->{$firmware_type}->{$host_type}->{firmware_type} ||= $firmware_type; |
$conf->{$firmware_type}->{$host_type}->{type} ||= $host_type; |
$conf->{$firmware_type}->{$host_type}->{type} = $host_type; |
|
|
$l->sp("$host_type $firmware_type"); |
$l->sp("$host_type $firmware_type"); |
$l->p("Sending commands"); |
$l->p("Sending commands"); |
|
|
} |
} |
$l->p("File length matches . . . "); |
$l->p("File length matches . . . "); |
|
|
if ( uc($results->{'File Name'}) ne uc($conf->{'file_name'}) ) { |
if ( uc($results->{'File Name'}) ne uc($file) ) { |
$l->sp( |
$l->sp( |
"File name '" . $results->{'File Name'} . |
"File name '" . $results->{'File Name'} . |
"' does not match config file '" . $conf->{'file_name'} . "'!" |
"' does not match config file '" . $file . "'!" |
); |
); |
next; |
next; |
} |
} |