doc/loncapafiles/updatequery.piml - diff

Return to updatequery.piml CVS log

Up to [LON-CAPA] / doc / loncapafiles

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