haloo mau tanya nih saya kok ping pake fungsi ping() enggak bisa ditampilin
di browser yaa ? padahal perl-nya sudah di add di ISAPI-nya webserver apa
fungsi NET::ping enggak support ISAPI ??
ato formatnya yang salah? begini nih script-nya.:
#!/usr/local/bin/perl5
print "Content-type: text/html\n\n";
print "<html><head><title>Simple CGI Test</title></head><body>\n";
print "<center>\n";
print "The Simple Test script .\n";
use Net::Ping;
$p = Net::Ping->new("icmp");
@host_array=("118.16.3.120","118.16.3.130","118.16.3.25","118.16.3.19");
foreach $host (@host_array)
{
sleep(1);
print "$host is ";
print "NOT " unless $p->ping($host, 2);
print "reachable.\n";
};
$p->close();
print "</center>\n</body></html>";
nah hasilnya yang keluar hanya "The Simple Test Script" aja tapi yang
"118.16.3.120 is NOT reachable"-nya enggak keluar
ada yang bisa kasih petunjuk enggak yaa ??
thank's
-ron-
______________________________________________
FREE Personalized Email at Mail.com
Sign up at http://www.mail.com/?sr=signup
--------------------------------------------------------------------------------
Utk berhenti langganan, kirim email ke [EMAIL PROTECTED]
Informasi arsip di http://www.linux.or.id/milis.php3
Pengelola dapat dihubungi lewat [EMAIL PROTECTED]
