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