Hi!
I'm having serious trouble with my (first) cgi script.
It's a login script for a member's area which retrieves the password
from a database (mysql).
While using several subs, I have not found a possibility to return the
values extracted from the database to another sub.... it's always an
empty string I receive.
sub get_pw {
($dbh etc exist)
while ( ( @data ) = $get_pw->fetchrow ) {
[HTML interface to enter password}
}
return @data;
}
sub pageone {
my pass = param('password');
if ( @data[-1] eq $pass ){ [HTML] } !!!! and here is the
problem. I only get an empty string ("NULL"
!!!! value. Pressing
enter gets me into the members area, anything
!!!!!else the errorroutine.
...
else {&errorroutine}
This problem is killing me. I've spend the last 2 days trying to figure
out what to do....
I'd be really happy for any help....
regards,
Sven
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
