Return to updatequery.piml CVS log | Up to [LON-CAPA] / doc / loncapafiles |
version 1.10, 2002/05/16 18:38:11 | version 1.11, 2002/05/18 16:36:58 |
---|---|
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))]; |