sub LocalTest { my $returnval=0; my $msg=SetMessage(); use Socket; use Sys::Hostname; my $host = hostname(); SendMessage( $host, $msg); print "Did your rescive the message?(y/n): "; $key=<STDIN>; chomp $key; if ( $key eq y || $key eq Y ){ <b>return $returnval;</b> } else { $returnval=1; return $returnval; } }
20050505 Janitored by Corion: Put code in between code tags
BadMojo
mford@badmojo.biz
www.badmojo.biz
!=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-!
When something works but shouldn't thats BADMOJO baby.
In reply to Something is wrong by BadMojo
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |