doc/loncapafiles/updatequery.piml - diff

Return to updatequery.piml CVS log

Up to [LON-CAPA] / doc / loncapafiles

version 1.10, 2002/05/16 18:38:11	version 1.12, 2002/05/22 20:52:27
Line 255 my %perlvar;	Line 255 my %perlvar;
if ($configline =~ /^[^\#]*PerlSetVar/) {	if ($configline =~ /^[^\#]*PerlSetVar/) {
my ($unused,$varname,$varvalue)=split(/\s+/,$configline);	my ($unused,$varname,$varvalue)=split(/\s+/,$configline);
chomp($varvalue);	chomp($varvalue);
$perlvar{$varname}=$varvalue;	$perlvar{$varname}=$varvalue if $varvalue!~/^\{\[\[\[\[/;
}	}
}	}
close(CONFIG);	close(CONFIG);
Line 275 my %perlvar;	Line 275 my %perlvar;
}	}
unless ($perlvar{'lonReceipt'}) {	unless ($perlvar{'lonReceipt'}) {
my $lonReceipt='';	my $lonReceipt='';
srand($$.time);	srand(time ^ $$ ^ unpack "%L*", `ps axww \| gzip`);
my @alnum=(0..9,a..z);	my @alnum=(0..9,a..z);
foreach my $i (1..20) {	foreach my $i (1..20) {
$lonReceipt.=$alnum[int(rand(36))];	$lonReceipt.=$alnum[int(rand(36))];