--- doc/loncapafiles/updatequery.piml	2002/05/16 15:29:15	1.9
+++ doc/loncapafiles/updatequery.piml	2002/05/22 20:52:27	1.12
@@ -1,7 +1,7 @@
 <!-- updatequery.piml -->
 <!-- Scott Harrison -->
 
-<!-- $Id: updatequery.piml,v 1.9 2002/05/16 15:29:15 harris41 Exp $ -->
+<!-- $Id: updatequery.piml,v 1.12 2002/05/22 20:52:27 harris41 Exp $ -->
 
 <!--
 
@@ -52,7 +52,7 @@ sleep(3);
 </perlscript>
 </file>
 <file>
-<target dist='default'>/home/httpd/lonUsers2/</target>
+<target dist='default'>/home/httpd/lonTabs/hosts.tab</target>
 <perlscript mode='fg'>
 $|=1;
 unless (-e "<TARGET />") {
@@ -255,7 +255,7 @@ my %perlvar;
 	    if ($configline =~ /^[^\#]*PerlSetVar/) {
 		my ($unused,$varname,$varvalue)=split(/\s+/,$configline);
 		chomp($varvalue);
-		$perlvar{$varname}=$varvalue;
+		$perlvar{$varname}=$varvalue if $varvalue!~/^\{\[\[\[\[/;
 	    }
 	}
 	close(CONFIG);
@@ -275,7 +275,7 @@ my %perlvar;
     }
     unless ($perlvar{'lonReceipt'}) {
        my $lonReceipt='';
-       srand($$.time);
+       srand(time ^ $$ ^ unpack "%L*", `ps axww | gzip`);
        my @alnum=(0..9,a..z);
        foreach my $i (1..20) {
 	 $lonReceipt.=$alnum[int(rand(36))];