sub auth_user{
my ($dbh,$user,$pass) = @_;
my $sth = $dbh->prepare("SELECT usrID, usrPass, usrDjID, usrAcc from
users where usrNick like ?");
$sth->execute($user);
my ($dbid, $dbpass, $dbusrid, $dbacc) = $sth->fetchrow_array;
$sth->finish;
($pass eq $dbpass) ? return ($dbid, $dbusrid, $dbacc) : return 0;
}
I printed the values of $dbh, $user, $pass once in the sub, they are ok.
I checked the return values of the sub, they are ok also.. The script
works fine, But I get this error.
{e}
Gibbs Tanton - tgibbs wrote:
>
> I guess the major question is does IN::UsrPass ever get anything assigned to
> it? I see where you pass it in, but where does it get assigned?
>
> -----Original Message-----
> From: Etienne Marcotte
> To: [EMAIL PROTECTED]
> Sent: 11/16/2001 11:56 AM
> Subject: Need help with an error
>
> [Fri Nov 16 12:37:44 2001] [error] [client 127.0.0.1] Name "IN::UsrPass"
> used only once: possible typo at
> c:\PROGRA~1\APACHE~1\apache\cgi-bin\USER_H~1.PL line 18.
>
> 17 sub auth_user{
> 18 my ($usrID,$usrDjID,$usrAcc) =
> inc::db::auth_user($dbh,$IN::UsrNick,$IN::UsrPass);
> 19 ($usrID) ? main_page($IN::UsrNick,$usrID,$usrAcc,$usrDjID) :
> inc::lib::login_screen("Can't auth user.");
> 20 }
>
> the script still works and auth the user, even if it's written error and
> not warning
>
> I am sending the $IN::UsrPass to the sub to check against DB value, but
> I don't need that value anymore after...
>
> {e}
>
> --
> Etienne Marcotte
> Specifications Management - Quality Control
> Imperial Tobacco Ltd. - Montreal (Qc) Canada
> 514.932.6161 x.4001
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
--
Etienne Marcotte
Specifications Management - Quality Control
Imperial Tobacco Ltd. - Montreal (Qc) Canada
514.932.6161 x.4001
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
