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.267.4.4 and 1.267.4.7

version 1.267.4.4, 2002/08/30 22:01:31	version 1.267.4.7, 2002/09/17 20:01:30
Line 351 sub delenv {	Line 351 sub delenv {
# ------------------------------ Find server with least workload from spare.tab	# ------------------------------ Find server with least workload from spare.tab

sub spareserver {	sub spareserver {
	my $loadpercent = shift;
my $tryserver;	my $tryserver;
my $spareserver='';	my $spareserver='';
my $lowestserver=100;	my $lowestserver=$loadpercent;
foreach $tryserver (keys %spareid) {	foreach $tryserver (keys %spareid) {
my $answer=reply('load',$tryserver);	my $answer=reply('load',$tryserver);
if (($answer =~ /\d/) && ($answer<$lowestserver)) {	if (($answer =~ /\d/) && ($answer<$lowestserver)) {
Line 2430 sub dirlist {	Line 2431 sub dirlist {
}	}
}	}

	# --------------------------------------------- GetFileTimestamp
	# This function utilizes dirlist and returns the date stamp for
	# when it was last modified. It will also return an error of -1
	# if an error occurs

	sub GetFileTimestamp {
	my ($studentDomain,$studentName,$filename,$root)=@_;
	$studentDomain=~s/\W//g;
	$studentName=~s/\W//g;
	my $subdir=$studentName.'__';
	$subdir =~ s/(.)(.)(.).*/$1\/$2\/$3/;
	my $proname="$studentDomain/$subdir/$studentName";
	$proname .= '/'.$filename;
	my @dir = &Apache::lonnet::dirlist($proname, $studentDomain, $studentName,
	$root);
	my $fileStat = $dir[0];
	my @stats = split('&', $fileStat);
	if($stats[0] ne 'empty' && $stats[0] ne 'no_such_dir') {
	return $stats[9];
	} else {
	return -1;
	}
	}

# -------------------------------------------------------- Value of a Condition	# -------------------------------------------------------- Value of a Condition

sub directcondval {	sub directcondval {
Line 2513 sub courseresdata {	Line 2538 sub courseresdata {
# --------------------------------------------------------- Value of a Variable	# --------------------------------------------------------- Value of a Variable

sub EXT {	sub EXT {
my ($varname,$symbparm,$udom,$uname)=@_;	my ($varname,$symbparm,$udom,$uname,)=@_;

unless ($varname) { return ''; }	unless ($varname) { return ''; }

Line 2670 sub EXT {	Line 2695 sub EXT {
# --------------------------------------------- last, look in resource metadata	# --------------------------------------------- last, look in resource metadata

$spacequalifierrest=~s/\./\_/;	$spacequalifierrest=~s/\./\_/;
my $metadata=&metadata($ENV{'request.filename'},$spacequalifierrest);	my $filename;
	if (!$symbparm) { $symbparm=&symbread(); }
	if ($symbparm) {
	$filename=(split(/\_\_\_/,$symbparm))[2];
	} else {
	$filename=$ENV{'request.filename'};
	}
	my $metadata=&metadata($filename,$spacequalifierrest);
if ($metadata) { return $metadata; }	if ($metadata) { return $metadata; }
$metadata=&metadata($ENV{'request.filename'},	$metadata=&metadata($filename,'parameter_'.$spacequalifierrest);
'parameter_'.$spacequalifierrest);
if ($metadata) { return $metadata; }	if ($metadata) { return $metadata; }

# ------------------------------------------------------------------ Cascade up	# ------------------------------------------------------------------ Cascade up
Line 3217 BEGIN {	Line 3248 BEGIN {

while (my $configline=<$config>) {	while (my $configline=<$config>) {
chomp($configline);	chomp($configline);
if (($configline) && ($configline ne $perlvar{'lonHostID'})) {	if ($configline) {
$spareid{$configline}=1;	$spareid{$configline}=1;
}	}
}	}

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

Removed from v.1.267.4.4
changed lines
	Added in v.1.267.4.7