loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

version 1.4, 1999/11/18 19:52:46	version 1.5, 1999/11/22 17:23:13
Line 1	Line 1
# The LearningOnline Network	# The LearningOnline Network
# TCP networking package	# TCP networking package
# 6/1/99,6/2,6/10,6/11,6/12,6/14,6/26,6/28,6/29,6/30,	# 6/1/99,6/2,6/10,6/11,6/12,6/14,6/26,6/28,6/29,6/30,
# 7/1,7/2,7/9,7/10,7/12,7/14,7/15,7/19,11/8,11/16,11/18 Gerd Kortemeyer	# 7/1,7/2,7/9,7/10,7/12,7/14,7/15,7/19,
	# 11/8,11/16,11/18,11/22 Gerd Kortemeyer

package Apache::lonnet;	package Apache::lonnet;

Line 93 sub critical {	Line 94 sub critical {
if ($answer eq 'con_lost') {	if ($answer eq 'con_lost') {
my $now=time;	my $now=time;
my $middlename=$cmd;	my $middlename=$cmd;
	$middlename=substr($middlename,0,16);
$middlename=~s/\W//g;	$middlename=~s/\W//g;
my $dfilename=	my $dfilename=
"$perlvar{'lonSockDir'}/delayed/$now.$middlename.$server";	"$perlvar{'lonSockDir'}/delayed/$now.$middlename.$server";
Line 125 sub critical {	Line 127 sub critical {
return $answer;	return $answer;
}	}

	# ---------------------------------------------------------- Append Environment

	sub appenv {
	my ($name,$value)=@_;
	my $fh;
	unless ($fh=Apache::File->new(">>$ENV{'user.environment'}")) {
	return 'error';
	}
	print $fh "$name=$value\n";
	return 'ok';
	}

# ------------------------------ Find server with least workload from spare.tab	# ------------------------------ Find server with least workload from spare.tab
sub spareserver {	sub spareserver {