ons 2006-09-06 klockan 20:32 -0500 skrev Kevin Gordon:
> 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";
You need to loop over STDIN until EOF, processing requests from Squid.
while ($userInfo = <STDIN>) {
...
print "OK\n";
}
Regards
Henrik
Attachment:
signature.asc
Description: Detta =?ISO-8859-1?Q?=E4r?= en digitalt signerad meddelandedel
