perl tes.pl
Content-type: text/html
<html><head><title>Simple CGI Test</title></head><body>
<center>
The Simple Test script .
icmp ping requires root privilege at tes.pl line 9
^^^^^^^^^^^^^^^^^^^^^^^
harus ngeroot padahal kalo di web khan nobody...
On Sat, 16 Dec 2000, Ronald Sihombing wrote:
> 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]
>
--------------------------------------------------------------------------------
Utk berhenti langganan, kirim email ke [EMAIL PROTECTED]
Informasi arsip di http://www.linux.or.id/milis.php3
Pengelola dapat dihubungi lewat [EMAIL PROTECTED]
