| version 1.6, 2005/11/17 00:40:06 |
version 1.7, 2005/11/17 20:09:45 |
|
|
| #!/usr/bin/perl
|
#!/usr/bin/perl
|
| # $RedRiver: update_trango.pl,v 1.5 2005/11/16 21:39:51 andrew Exp $
|
# $RedRiver: update_trango.pl,v 1.6 2005/11/17 00:40:06 andrew Exp $
|
| ########################################################################
|
########################################################################
|
| # update_trango.pl *** Updates trango foxes with a new firmware
|
# update_trango.pl *** Updates trango foxes with a new firmware
|
| #
|
#
|
|
|
| next if /^#/;
|
next if /^#/;
|
| next if /^$/;
|
next if /^$/;
|
| if ($in_ip_list) {
|
if ($in_ip_list) {
|
| push @{ $conf{'ips'} }, $_;
|
if (/^(\d{1,3}\.\d{1,3}\.\d{1,3}\.)(\d{1,3})-(\d{1,3})/) {
|
| |
push @{ $conf{'ips'} }, $1 . $_ for ($2..$3);
|
| |
} else {
|
| |
push @{ $conf{'ips'} }, $_;
|
| |
}
|
| } else {
|
} else {
|
| my ($key, $val) = split /\s+/, $_, 2;
|
my ($key, $val) = split /\s+/, $_, 2;
|
|
|
|
|
|
| if (not exists $conf{$_});
|
if (not exists $conf{$_});
|
| }
|
}
|
|
|
|
| |
#print Dump \%conf;
|
| |
#exit;
|
| return \%conf;
|
return \%conf;
|
| }
|
}
|
|
|
|
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to update_trango.pl CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / trango / Net-Telnet-Trango / scripts