loncom/lond - diff

Return to lond CVS log

Up to [LON-CAPA] / loncom

version 1.33, 2000/12/13 22:45:56	version 1.34, 2000/12/29 21:11:03
Line 9	Line 9
# 06/26 Scott Harrison	# 06/26 Scott Harrison
# 06/29,06/30,07/14,07/15,07/17,07/20,07/25,09/18 Gerd Kortemeyer	# 06/29,06/30,07/14,07/15,07/17,07/20,07/25,09/18 Gerd Kortemeyer
# 12/05 Scott Harrison	# 12/05 Scott Harrison
# 12/05,12/13 Gerd Kortemeyer	# 12/05,12/13,12/29 Gerd Kortemeyer
#	#
# based on "Perl Cookbook" ISBN 1-56592-243-3	# based on "Perl Cookbook" ISBN 1-56592-243-3
# preforker - server who forks first	# preforker - server who forks first
Line 533 sub make_new_child {	Line 533 sub make_new_child {
}	}
}	}
unless ($fperror) {	unless ($fperror) {
if ($umode eq 'none') {	if ($umode eq 'krb4') {
} elsif ($umode eq 'krb4') {
{	{
my $pf = IO::File->new(">$passfilename");	my $pf = IO::File->new(">$passfilename");
print $pf "krb4:$npass\n";	print $pf "krb4:$npass\n";