On Mon, 25 Apr 2005, Sebastian Pein wrote:
> hi.
>
> in the squid-archives i found a perl-wrapper for ncsa_auth. like this one:
>
> #!/usr/bin/perl
> use IPC::Open2;
> open2(*READ1, *WRITE1, "/usr/lib/squid/ncsa_auth /home/www/domain/.htpasswd")
> or die "cannot open: $!\n";
> while (<>) {
> print WRITE1 $_;
> $ans = <READ1>;
> if ( $ans =~ /^OK/ ) { print $ans; next; }
> print $ans;
> }
This looks like my first version of this wrapper. See follow up post for
correction:
http://www.squid-cache.org/mail-archive/squid-users/200004/0788.html
Regards
Henrik
Received on Mon Apr 25 2005 - 03:11:19 MDT
This archive was generated by hypermail pre-2.1.9 : Sun May 01 2005 - 12:00:04 MDT