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

Reply via email to