[squid-users] Authenticating from Perl

Hey ,
 I am trying to do a simple authentication script in perl.

The Code

#!/usr/bin/perl
$| = 1;

$userInfo = <STDIN>;

open(lg, ">what.log");
        print lg "$userInfo\n";
close(lg);

print "OK";

With this code I'd assume that it would always authenticate no matter
what since it statically prints OK
I have the what.log file being used to simply show that squid
connected to the perl script fine (which it does).

When I run squid I get prompted to authenticate but no matter what I
enter it always continues to ask me to authenticate.

Any suggestions?
Received on Wed Sep 06 2006 - 20:12:24 MDT