version 1.9, 2002/05/16 15:29:15
|
version 1.11, 2002/05/18 16:36:58
|
Line 52 sleep(3);
|
Line 52 sleep(3);
|
</perlscript> |
</perlscript> |
</file> |
</file> |
<file> |
<file> |
<target dist='default'>/home/httpd/lonUsers2/</target> |
<target dist='default'>/home/httpd/lonTabs/hosts.tab</target> |
<perlscript mode='fg'> |
<perlscript mode='fg'> |
$|=1; |
$|=1; |
unless (-e "<TARGET />") { |
unless (-e "<TARGET />") { |
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))]; |