Re: [squid-users] custom auth not working

Al - Image Hosting Services wrote:
> Hi,
>
> I was not able to get the mysql authentication program to compile, after
> a day of playing with it, it would still just give me an ld error. I
> found a couple of examples of authentication software written in perl,
> so I thought "why not custom write it". My oldest son does some
> programming so he helped me with it, although both of us are at a loss
> as to why it doesn't work. It always returns the right response from the
> command line, either an OK or ERR. Maybe the response squid expects has
> changed. We have it logging what is sent to the perl script from squid,
> so I know that it is getting input from squid, but it doesn't look like
> it gives a response back to squid or at least one that squid can
> understand, because after putting in a username and password, the
> browser does nothing. Also, ncsa_auth works with my current config, and
> I am just changing that line in squid.conf to call custom_auth.pl.
>
> Here is what we have:
>
> #!/usr/bin/perl
> use DBI;
>
> # config
> my $host = "localhost";
> my $database = "filter";
> my $tablename = "filteredusers";
> my $user = "msyqlfilteruser";
> my $pw = "faithhope";
>
> # dbi connect
> my $dbh = DBI->connect("DBI:mysql:database=$database;host=$host", $user,
> $pw, {'RaiseError' => 1});
>
> while (<STDIN>) {
> chop $_;
>
> open $file, '>>/var/log/custom_auth.log';
> print $file "$_\n";
> close $file;
>
> # get email and password
> my @info = split(/ /, $_);
> my $email = $dbh->quote(shift(@info));
> my $pass = $dbh->quote(shift(@info));
>
> # query for user status
> my $sth = $dbh->prepare("SELECT stat FROM $tablename WHERE
> email=$email AND passwd=$pass LIMIT 1");
> $sth->execute();
>
> # check
> if (my $ref = $sth->fetchrow_hashref()) {
> if ($ref->{'stat'} =~ m/[AF]/) {
> #$dbh->do("UPDATE $tablename SET
> login_date='2010-06-15 00:00:00' WHERE id='2' LIMIT 1";
> print "OK\n";
> } else {
> print "ERR\n";
> }
> } else {
> print "ERR\n";
> }
>
> $sth->finish();
> }
>
> $dbh->disconnect();
>
>
>
> Of course, I changed the username and password that we are using for the
> database. Also, the line that is supposed to update the database is not
> working yet, but as you can see it is commented out. I was supposed to
> have this working Monday and it is now Thursday, so any help would be
> greatly appreciated.
>
> Best Regards,
> Al

Maybe all those print "...\n";

IIRC perl adds its own \n to the end for some outputs. Squid is
expecting only one.

Amos

-- 
Please be using
   Current Stable Squid 2.7.STABLE6 or 3.0.STABLE15
   Current Beta Squid 3.1.0.8 or 3.0.STABLE16-RC1