I apoligize. Here is the subroutine that is causing the problem. If I add
a return statement prior to the "tie..." I get a return. If I place the
return after the tie statement, it never gets to it. There is nothing in
the httpd-error.log and nothing in the mysql.log that I have enabled. I'm
assuming it does not find the Tie::DBI.pm or I'd at least see an attempt in
the mysal.log. I run it from perl -d snippet.pm and it workd fine.
sub authenticate {
my ($self, $user, $passwd) = @_;
my ($table, $userfield, $passwdfield, $permfield) =
split ':', $self->{TicketTable};
my ($dbuser, $dbpass) = split ':', $self->{TicketDBAuth};
tie my %DB,'Tie::DBI',{db => 'mysql:its', 'table' => 'passwd','key'
=> 'username',user' => $dbuser
, 'password' => $dbpass,};
my $saved_passwd = $DB{$user}->{$passwdfield};
return (undef, "Your username and/or password is invalid", '')
unless $saved_passwd eq crypt($passwd, $saved_passwd);
----- Original Message -----
From: "Michael A. Chase" <[EMAIL PROTECTED]>
To: "John Mulkerin" <[EMAIL PROTECTED]>; <[EMAIL PROTECTED]>
Sent: Sunday, March 18, 2001 9:27 AM
Subject: Re: More dummy questions
> The exact error message you are getting and at least some of your code
would
> make it easier for us to guess.
> --
> Mac :})
> ** I normally forward private database questions to the DBI mail lists. **
> Give a hobbit a fish and he'll eat fish for a day.
> Give a hobbit a ring and he'll eat fish for an age.
> ----- Original Message -----
> From: "John Mulkerin" <[EMAIL PROTECTED]>
> To: <[EMAIL PROTECTED]>
> Sent: Sunday, March 18, 2001 9:25 AM
> Subject: More dummy questions
>
>
> > Seems like my program isn't finding the Tie:DBI routine although I have
> "use
> > Tie::DBI; in the declaration at the start of the program. How can I
> > figure out what path it is using?
>
>
