steve silvers wrote:
> I have a small script that when called gives a username and
> password text
> box and a submit button.
>
>
> <html>
> <title>test</title>
> <link rel=\"stylesheet\" type=text/css
> href=\"../frame/global.css\">
> <head>
> </head>
> <body bgcolor=\"#eeeeee\">
> <center>
> <table width=\"242\" height=\"25\" border=\"0\">
> <tr><td><b>Test</b></td></tr>
> <form action=\"test.pl\" method=\"post\">
> <tr><td>Username:</td></tr>
> <tr><td><input type=\"text\" name=\"user\"></td></tr>
> <tr><td>Password:</td></tr>
> <tr><td><input type=\"password\" name=\"pass\"></td></tr>
> <input type=\"hidden\" name=\"auth\" value=\"pass\">
> <tr><td><input class=formButton type=\"submit\"
> value=\"Enter\"></td></tr>
> </center>
> </form>
> </table>
> </body>
> </html>
>
> I predefien the username and password in my script like so.
>
> unless($query->param('user') =~ /letmein/) {
> print qq(Invalid User Name);
>
> exit(1);
> }
>
> This works great if I type in "letmein" but if I type in
> "letmeinasfafd" it
> stall lets me in?
>
> Any suggestions on how to make this work for the exact user and pass.
> Thanks in advance.
Try
unless($query->param('user') =~ /^letmein$/) {
_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
