Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris
 
PerlMonks  

Problem setting cookie using CGI::Cookie

by kutsu (Priest)
on Jun 04, 2003 at 22:22 UTC ( [id://263167] : perlquestion . print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -wT
    
    use strict;
    ...
    &url if $pword_entd =~ /[^0-9a-z]/;
    &url if $pword_entd eq "";
    $good_pass = $pword_entd;
    
  2. or download this
    open (USERFILE, $pword_file) || die "File cannot open";
    while (<USERFILE>)
    ...
    &url;
    #&url prints a header and checks to see if $itis eq "good"
    #print one message if it is another if it isn't