use CGI;
my $q = new CGI;
$q->import_names('IN');
it gets the values from the web form.
{e}
Gibbs Tanton - tgibbs wrote:
>
> I was looking more for something like
>
> $UsrPass = <>;
>
> or something like that...where do you assign to the variable IN::UsrPass?
>
> -----Original Message-----
> From: Etienne Marcotte
> To: Gibbs Tanton - tgibbs
> Cc: '[EMAIL PROTECTED] '
> Sent: 11/16/2001 12:10 PM
> Subject: Re: Need help with an error
>
> 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
--
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]
