loncom/loncnew - diff

Return to loncnew CVS log

Up to [LON-CAPA] / loncom

version 1.100, 2011/06/17 17:41:37	version 1.100.10.1, 2018/09/02 15:57:16
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 2233 sub Terminate {	Line 2233 sub Terminate {
}	}

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