username and password question

2002-03-06 Thread steve silvers 

I have a small script that when called gives a username and password text 
box and a submit button.


html
titletest/title
link rel=\stylesheet\ type=text/css href=\../frame/global.css\
head
/head
body bgcolor=\#ee\
center
table width=\242\ height=\25\ border=\0\
trtdbTest/b/td/tr
form action=\test.pl\ method=\post\
trtdUsername:/td/tr
trtdinput type=\text\ name=\user\/td/tr
trtdPassword:/td/tr
trtdinput type=\password\ name=\pass\/td/tr
input type=\hidden\ name=\auth\ value=\pass\
trtdinput 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.

Steve


_
Get your FREE download of MSN Explorer at http://explorer.msn.com/intl.asp.

___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

RE: username and password question

2002-03-06 Thread Rubinow, Larry 

steve silvers wrote:

 I have a small script that when called gives a username and 
 password text 
 box and a submit button.
 
 
 html
   titletest/title
   link rel=\stylesheet\ type=text/css 
 href=\../frame/global.css\
   head
   /head
   body bgcolor=\#ee\
   center
   table width=\242\ height=\25\ border=\0\
   trtdbTest/b/td/tr
   form action=\test.pl\ method=\post\
   trtdUsername:/td/tr
   trtdinput type=\text\ name=\user\/td/tr
   trtdPassword:/td/tr
   trtdinput type=\password\ name=\pass\/td/tr
   input type=\hidden\ name=\auth\ value=\pass\
   trtdinput 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