loncom/lond - diff

Return to lond CVS log

Up to [LON-CAPA] / loncom

version 1.348, 2006/11/21 20:58:06	version 1.349, 2006/11/27 16:33:38
Line 3053 sub restore_handler {	Line 3053 sub restore_handler {
my ($cmd, $tail, $client) = @_;	my ($cmd, $tail, $client) = @_;

my $userinput = "$cmd:$tail"; # Only used for logging purposes.	my $userinput = "$cmd:$tail"; # Only used for logging purposes.
	$namespace=~s/\W//g;
my ($udom,$uname,$namespace,$rid) = split(/:/,$tail);	my ($udom,$uname,$namespace,$rid) = split(/:/,$tail);
$namespace=~s/\//\_/g;	$namespace=~s/\//\_/g;
$namespace=~s/\W//g;
chomp($rid);	chomp($rid);
my $qresult='';	my $qresult='';
my $hashref = &tie_user_hash($udom, $uname, $namespace, &GDBM_READER());	my $hashref = &tie_user_hash($udom, $uname, $namespace, &GDBM_READER());
Line 5466 sub make_new_child {	Line 5466 sub make_new_child {
# my $tmpsnum=0; # Now global	# my $tmpsnum=0; # Now global
#---------------------------------------------------- kerberos 5 initialization	#---------------------------------------------------- kerberos 5 initialization
&Authen::Krb5::init_context();	&Authen::Krb5::init_context();
unless (($dist eq 'fedora4') \|\| ($dist eq 'suse9.3')) {	unless (($dist eq 'fedora5') \|\| ($dist eq 'fedora4')
	\|\| ($dist eq 'suse9.3')) {
&Authen::Krb5::init_ets();	&Authen::Krb5::init_ets();
}	}