loncom/lond - diff

Return to lond CVS log

Up to [LON-CAPA] / loncom

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";