Sorry, I must have dropped the quote when I copied it into the email.
Here is the exact syntax. I'm chasing it into the Tie:DBI.pm where the
connect part is.
tie my %DB, 'Tie::DBI', {
'db' => 'mysql:its',
'table' => 'passwd', 'key' => 'username',
'user' => 'helpman', password => 'secret01',
} or print "Couldn not open database \n";
John
----- Original Message -----
From: "Michael A. Chase" <[EMAIL PROTECTED]>
To: "John Mulkerin" <[EMAIL PROTECTED]>; <[EMAIL PROTECTED]>
Sent: Sunday, March 18, 2001 3:31 PM
Subject: Re: More dummy questions
> I don't use Tie::DBI or MySQL, so I can't comment on the semantics.
>
> You are missing a single quote character (') in the tie statement at
"user'
> =>". Are you using 'use strict;' or '-w'? Both help find syntax
problems.
> --
> 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: "Michael A. Chase" <[EMAIL PROTECTED]>; <[EMAIL PROTECTED]>
> Sent: Sunday, March 18, 2001 10:26 AM
> Subject: Re: More dummy questions
>
>
> > 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: "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?
>
>
>
