> -----Original Message----- > From: John W. Krahn [mailto:[EMAIL PROTECTED] > Sent: Wednesday, February 23, 2005 2:50 PM > To: Perl Beginners > Subject: Re: printing output of ping command -- New question > at bottom. > > Tyson Sommer wrote: > > > > This might be a question for beginners-cgi, but since it > was mentioned > > here... > > > > I tried to use Net::Ping in a CGI script and it said I didn't have > > permissions to run ping. I can execute the section of the > CGI script with > > the call to Net::Ping just fine from the cmd line as a > regular user. If I > > use backticks instead, the script runs just fine via the CGI. Any > > suggestions? I'm still somewhat novice on a *nix box, so I > don't know what > > to change to allow ping to be run from Net::Ping via the > CGI interface (via > > Apache). > > > > Assume warnings, strictures, and that a new CGI has been > called (everything > > else in the script works fine), blah, blah: > > > > my $pinger = Net::Ping->new("icmp") || die; > > my $device = $q->param('device'); > > > > if( $pinger->ping($host,2) ){ > > print "$host is online\n"; > > } > > else{ > > print "$host is offline\n"; > > } > > > > This gets me an error in my browser saying I don't have > permission to run > > ping (yes, using CGI::Carp... As well for troubleshooting). > > > perldoc Net::Ping > [snip] > If the "icmp" protocol is specified, the ping() > method sends an icmp > echo message to the remote host, which is what the > UNIX ping program > does. If the echoed message is received from the > remote host and the > echoed information is correct, the remote host is > considered reachable. > Specifying the "icmp" protocol requires that the > program be run as root > or that the program be setuid to root. > > > Your web server does not run as root so you have to use > either TCP or UDP > instead of ICMP.
That worked. Note to self: RTFM...B (Better) Thanks, Tyson -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
