mirror of
https://github.com/webmin/webmin.git
synced 2026-02-10 01:02:19 +00:00
23 lines
361 B
Perl
Executable File
23 lines
361 B
Perl
Executable File
#!/usr/local/bin/perl
|
|
# squid-auth.pl
|
|
# A basic squid authentication program
|
|
|
|
open(AUTH, $ARGV[0]);
|
|
while(<AUTH>) {
|
|
s/\r|\n//g;
|
|
s/#.*$//;
|
|
if (/^(\S+):(\S+)/) {
|
|
$auth{$1} = $2;
|
|
}
|
|
}
|
|
close(AUTH);
|
|
|
|
$| = 1;
|
|
while(<STDIN>) {
|
|
s/\r|\n//g;
|
|
local ($u, $p) = split(/\s+/, $_);
|
|
print $auth{$u} &&
|
|
$auth{$u} eq crypt($p, $auth{$u}) ? "OK\n" : "ERR\n";
|
|
}
|
|
|