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?
