loncom/loncnew - diff

Return to loncnew CVS log

Up to [LON-CAPA] / loncom

version 1.101, 2017/02/28 05:42:06	version 1.103, 2018/01/16 18:13:29
Line 611 sub CompleteTransaction {	Line 611 sub CompleteTransaction {
StartClientReply($Transaction, $data);	StartClientReply($Transaction, $data);
} else { # Delete deferred transaction file.	} else { # Delete deferred transaction file.
Log("SUCCESS", "A delayed transaction was completed");	Log("SUCCESS", "A delayed transaction was completed");
LogPerm("S:".$Transaction->getClient().":".$Transaction->getRequest());	LogPerm("S:".$Socket->PeerLoncapaHim().":".$Transaction->getRequest());
unlink($Transaction->getFile());	unlink($Transaction->getFile());
}	}
}	}
Line 2235 sub Terminate {	Line 2235 sub Terminate {
}	}

sub my_hostname {	sub my_hostname {
use Sys::Hostname;	use Net::Domain();
my $name = &hostname();	my $name = &Net::Domain::hostfqdn();
&Debug(9,"Name is $name");	&Debug(9,"Name is $name");
return $name;	return $name;
}	}