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))]; |