| Rev 1 |
|
Rev 2 |
| Line 1... |
|
Line 1... |
#!/usr/bin/perl |
|
#!/usr/bin/perl |
# |
|
# |
# Petr Simandl, www.simandl.cz |
|
# Petr Simandl, www.simandl.cz |
| |
|
|
$adresa = "$ENV{'REMOTE_ADDR'}"; |
|
$adresa = "$ENV{'REMOTE_ADDR'}"; |
$domena = "$ENV{'REMOTE_HOST'}"; |
|
$domena = "$ENV{'REMOTE_HOST'}"; |
$parametr = "$ENV{'QUERY_STRING'}"; |
|
$parametr = "$ENV{'QUERY_STRING'}"; |
$page = "$ENV{'HTTP_REFERER'}"; |
|
$page = "$ENV{'HTTP_REFERER'}"; |
$agent = "$ENV{'HTTP_USER_AGENT'}"; |
|
$agent = "$ENV{'HTTP_USER_AGENT'}"; |
| Line 22... |
|
Line 23... |
{ |
|
{ |
$arpn = `wget http://10.33.0.$i/cgi-bin/arpn.cgi -T 1 -q -O - | grep -i $mac`; |
|
$arpn = `wget http://10.33.0.$i/cgi-bin/arpn.cgi -T 1 -q -O - | grep -i $mac`; |
print "$arpn"; |
|
print "$arpn"; |
} |
|
} |
} |
|
} |
|
|
|
|
|
|
