Re: [squid-users] Authenticating from Perl

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