version 1.2, 1999/10/26 20:24:47
|
version 1.3, 1999/11/04 20:12:47
|
Line 17 use Symbol;
|
Line 17 use Symbol;
|
use POSIX; |
use POSIX; |
use Crypt::IDEA; |
use Crypt::IDEA; |
use LWP::UserAgent(); |
use LWP::UserAgent(); |
|
use GDBM_File; |
|
use Authen::Krb4; |
|
|
# ------------------------------------ Read httpd access.conf and get variables |
# ------------------------------------ Read httpd access.conf and get variables |
|
|
Line 355 sub make_new_child {
|
Line 357 sub make_new_child {
|
$contentpwd=(getpwnam($uname))[1]; |
$contentpwd=(getpwnam($uname))[1]; |
$pwdcorrect= |
$pwdcorrect= |
(crypt($upass,$contentpwd) eq $contentpwd); |
(crypt($upass,$contentpwd) eq $contentpwd); |
|
} elsif ($howpwd eq 'krb4') { |
|
$pwdcorrect=( |
|
Authen::Krb4::get_pw_in_tkt($uname,"", |
|
$contentpwd,'krbtgt',$contentpwd,1, |
|
$upass) == 0); |
} |
} |
if ($pwdcorrect) { |
if ($pwdcorrect) { |
print $client "authorized\n"; |
print $client "authorized\n"; |