version 1.1, 2006/08/14 19:53:02
|
version 1.2, 2006/10/17 15:00:07
|
Line 9 while(my $line=<HOST>) {
|
Line 9 while(my $line=<HOST>) {
|
if (!$host || exists($done{$host})) { next; } |
if (!$host || exists($done{$host})) { next; } |
$done{$host}=1; |
$done{$host}=1; |
print($host." -> "); |
print($host." -> "); |
my $ver=`curl --connect-timeout 5 -s http://$host/adm/roles | grep -- -200 | tr ">" "\n" | tail -1 `; |
my $ver=`curl --max-time 15 --connect-timeout 5 -s http://$host/adm/login | grep -- -200 | tr ">" "\n" | tail -1 `; |
$ver=~s/ //g; |
$ver=~s/ //g; |
$ver=~s/ //g; |
$ver=~s/ //g; |
if ($ver eq "") { print("\n"); } |
if ($ver eq "") { print("\n"); } |