loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

Diff for /loncom/lonnet/perl/lonnet.pm between versions 1.244 and 1.247

version 1.244, 2002/06/24 20:25:44	version 1.247, 2002/06/27 16:03:55
Line 80 use vars	Line 80 use vars
qw(%perlvar %hostname %homecache %badServerCache %hostip %spareid %hostdom	qw(%perlvar %hostname %homecache %badServerCache %hostip %spareid %hostdom
%libserv %pr %prp %metacache %packagetab	%libserv %pr %prp %metacache %packagetab
%courselogs %accesshash $processmarker $dumpcount	%courselogs %accesshash $processmarker $dumpcount
%coursedombuf %coursehombuf %courseresdatacache);	%coursedombuf %coursehombuf %courseresdatacache %domaindescription);
use IO::Socket;	use IO::Socket;
use GDBM_File;	use GDBM_File;
use Apache::Constants qw(:common :http);	use Apache::Constants qw(:common :http);
Line 1737 sub allowed {	Line 1737 sub allowed {
}	}
}	}

# Restricted by state?	# Restricted by state or randomout?

if ($thisallowed=~/X/) {	if ($thisallowed=~/X/) {
	if ($ENV{'acc.randomout'}) {
	my $symb=&symbread();
	if ($ENV{'acc.randomout'}=~/\&$symb\&/) { return ''; }
	}
if (&condval($statecond)) {	if (&condval($statecond)) {
return '2';	return '2';
} else {	} else {
Line 2943 BEGIN {	Line 2947 BEGIN {

while (my $configline=<$config>) {	while (my $configline=<$config>) {
chomp($configline);	chomp($configline);
my ($id,$domain,$role,$name,$ip)=split(/:/,$configline);	my ($id,$domain,$role,$name,$ip,$domdescr)=split(/:/,$configline);
$hostname{$id}=$name;	$hostname{$id}=$name;
$hostdom{$id}=$domain;	$hostdom{$id}=$domain;
$hostip{$id}=$ip;	$hostip{$id}=$ip;
	if ($domdescr) {
	$domaindescription{$domain}=$domdescr;
	}
if ($role eq 'library') { $libserv{$id}=$name; }	if ($role eq 'library') { $libserv{$id}=$name; }
}	}
}	}

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.244
changed lines
	Added in v.1.247