RE: Server Errors
Your script is erroring out for some reason, and it might be because you never defined $my_addr. $p->bind($my_addr) Sets the source address from which pings will be sent. This must be the address of one of the interfaces on the local host. $my_addr may be specified as a hostname or as a text IP address such as "192.168.1.1". Try the above, and if that doesn't work, run the script from the command line and copy and paste the error message you get. Also, you may want to add this line somewhere near the top of your script since you are running it as a CGI: Print "Content-type: text/plain\n\n"; Steven Kreuzer Linux Systems Administrator Etagon, Inc W: 646.728.0656 F: 646.728.0607 E: [EMAIL PROTECTED] -Original Message- From: Mr. W. A. Khushil Dep [mailto:[EMAIL PROTECTED] Sent: Monday, December 15, 2003 10:35 AM To: [EMAIL PROTECTED] Subject: Server Errors 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 #!/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>
RE: Get Terminal Width and Height, Pure Perl
>> You might be able to get away with something as simple as querying the >> LINES and COLUMNS environment variables. Or use the output from 'tput >> lines' and 'tput columns'. It all depends on your platform... Actually, its tput cols Steven Kreuzer Linux Systems Administrator Etagon, Inc W: 646.728.0656 F: 646.728.0607 E: [EMAIL PROTECTED] -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
RE: Users executing perl scripts
Create symlinks to the perl scripts and place the links into a directory in their $PATH Example: $ ln -s /usr/bin/scripts/somescript.pl /bin/somescript Steven Kreuzer Linux Systems Administrator Etagon, Inc W: 646.728.0656 F: 646.728.0607 E: [EMAIL PROTECTED] -Original Message- From: Hemond, Steve [mailto:[EMAIL PROTECTED] Sent: Wednesday, December 17, 2003 9:11 AM To: [EMAIL PROTECTED] Subject: Users executing perl scripts Hi people, I have finished some little perl scripts that gives basic infos to my users. I want to make these perl scripts available to all users (so I would probably put them in /usr/local/bin). However, my perl scripts has the .pl extension, and I would like them to keep this extension for finding purposes (like if I need to find all .pl files are in /usr/local for example). The users are used to enter a command without having to type the extension (ls, who, etc.) so that wouldn't be a good idea for them to call my perl script with the extension. What would be the best thing to do if I don't wanna lose the .pl extension? ** I personnaly think it wouldn`t be a good idea to include aliases in the users .profile, because each time I would finish a new script I would have to modify their .profile each time. Thanks in advance for your help, Best regards, Steve Hemond Programmeur Analyste / Analyst Programmer Smurfit-Stone, Ressources Forestieres La Tuque, P.Q. Tel.: (819) 676-8100 X2833 [EMAIL PROTECTED] -- 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>
RE: Hi & a question
Why not just make DIR1, DIR2, IPADDR AND IPPORT global variables within the script, rather then requiring user to set env variables, which can become a pain in the ass. Your best bet would be to set them to some default variable, and then if the user needs to, she can override the default values by passing the new values as parameters. Hope that helps. Steven Kreuzer Linux Systems Administrator Etagon, Inc W: 646.728.0656 F: 646.728.0607 E: [EMAIL PROTECTED] -Original Message- From: John McKown [mailto:[EMAIL PROTECTED] Sent: Friday, December 26, 2003 12:38 PM To: Perl Beginners Mailing List Subject: Hi & a question I'm new here and a very novice Perl coder. And I have a question, of course . Is it more "Perl-like" to get information from the shell via UNIX Environment Variables or via the command line? For an example, I have writing a Perl program which reacts to messages sent to it. It has four input parameters. The current program gets this information, which is two distinct subdirectories, a port number, and an IP address, via four different environment variables. My question is should I do it that way or should I pass this information in via the command line. E.g. export DIR1=... export DIR2=... export IPADDR=... export IPPORT=... perl-script.perl or perl-script.perl DIR1 DIR2 IPADDR IPPORT Although my current code uses the first way, I'm beginning to think that the second is preferrable because it would be more portable to non-UNIX environments. I hope everybody is having a good holiday. -- Maranatha! John McKown -- 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>
RE: Newbie problems with > in a string
Try changing $title = $query->param("Title"); to $title = $query->param('Title'); and do the same thing for the owner param Also, if you have an if statement that only executes one line of code when the statement evaluates true, you can do this: $Meta = "\n" if ($title ne ""); IMHO, this is much "cleaner", just thought I would throw that in there. Steven Kreuzer Linux Systems Administrator Etagon, Inc W: 646.728.0656 F: 646.728.0607 E: [EMAIL PROTECTED] -Original Message- From: Albert Browne [mailto:[EMAIL PROTECTED] Sent: Friday, December 26, 2003 11:16 AM To: [EMAIL PROTECTED] Subject: Newbie problems with > in a string I am using the code below in part of a subroutine. It displays ok later in the routine within a block. But when I try to use $Meta elsewhere the string appears to be empty. Further investigation shows the string is ok until it gets to the > in the string. The string looks like this and does in the TEXTAREA block which is correct. I have tried printing the string a bit at a time it is ok until it gets to the >. The string then appears to be empty. What am I missing? Regards Albert $title = $query->param("Title"); if ($title ne "") {$Meta = "\n"} ; $Owner = $query->param("Owner"); if ($Author ne "") {$Meta .= "\n"} ; -- [EMAIL PROTECTED] http://www.allroadsleadhere.co.uk -- 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>