> I've got the below script saved on my server - but every time
> I use it I get an Internel Server Error! I've set the
> permission to 755 but still no luck. Any ideas folks?
>
> www.klconsulting.co.uk/cgi-bin/cssc.pl
>
>
If you run it in abrowser:
1) is it execuatbale?
2) is apache(or whatever webserever) configured to execute .pl files ac cgi
3) therer is no Content-type header
4) what do the logs say?
5) What happens when you execute it via cli?
6) icmp is , as far as I know, only doable as root. I remember using tcp,
maybe udp also but I don't do this very often.
HTH
DMuey
> #!/usr/bin/perl
> use Net::Ping;
>
> @host_array =
> ("192.153.1.10","192.153.0.18","212.241.168.197","212.241.168.
> 138","212.
> 241.167.11","194.153.21.68","194.153.20.100","194.153.20.51","
> 194.153.20
> .52","194.153.20.53","515.35.226.5","212.241.160.12","194.153.
> 1.19","194
> .153.1.18","212.35.224.125","212.35.224.126");
>
> $p = Net::Ping->new("icmp");
>
> $p->bind($my_addr);
>
> foreach $host (@host_array)
> {
> print "$host is ";
> print "NOT " unless $p->ping($host, 2);
> print "reachable.\n";
> sleep(1);
> }
>
> $p->close();
>
>
>
> ========================================
> W. A. Khushil Dep
> Technical Support Agent
> PIPEX Communications Plc ========================================
> Phone : 0845 077 83 24
> Fax : 08702 434440
> WWW : www.pipex.net/support
> ========================================
>
> The information transmitted is intended only for the person
> or entity to which it is addressed and may contain
> confidential and/or privileged material. Any review,
> retransmission, dissemination or other use of, or taking of
> any action in reliance upon, this information by persons or
> entities other than the intended recipient is prohibited. If
> you received this in error, please contact the sender and
> delete the material from any computer. Although PIPEX
> Internet Limited operates anti-virus programs, it does not
> accept responsibility for any damage whatsoever that is
> caused by viruses being passed. If you suspect that the
> message may have been intercepted or amended, please call the sender.
>
> -----Original Message-----
> From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On
> Behalf Of zentara
> Sent: 15 December 2003 15:16
> To: [EMAIL PROTECTED]
> Subject: Re: pass vars to sub via TK/Button
>
> On Mon, 15 Dec 2003 12:27:34 +0100, [EMAIL PROTECTED] (Oliver
> Schaedlich) wrote:
>
> >Greetings,
> >
> >I'd like to know how to pass variables fetched by TK/entry to a
> >subroutine by using a Button. The Button/-command line in
> the following
> >script is obviously wrong, but should suffice to illustrate
> what I want
> >it to do.
> >
> >I'd be happy if someone could tell me how to do this properly.
>
> #!/usr/bin/perl
> use strict;
> use Tk;
>
> my $main = MainWindow->new;
>
> my $var1 = $main -> Entry( -width => 30 );
> $var1 -> pack;
> my $var2 = $main -> Entry( -width => 30 );
> $var2 -> pack;
>
> $main -> Button
> ( -text => 'Add',
> -command => sub{\&add_item($var1,$var2)}
> ) -> pack;
>
> MainLoop;
>
> sub add_item {
> my (@widgets) = @_;
> print "@widgets\n";
> my $entry1 = $_[0]->get();
> my $entry2 = $_[1]->get();
> print "Added->$entry1 + $entry2 = ",$entry1+$entry2,"\n";
> return; } __END__
>
> --
> When life conspires against you, and no longer floats your
> boat, Don't waste your time with crying, just get on your
> back and float.
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/>
<http://learn.perl.org/first-response>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
