[LON-CAPA-cvs] cvs: doc /loncapafiles updatequery.piml

[harris41]

harris41		Sat May 18 12:36:58 2002 EDT

  Modified files:              
    /doc/loncapafiles	updatequery.piml 
  Log:
  improving randomizing seed
  
  
Index: doc/loncapafiles/updatequery.piml
diff -u doc/loncapafiles/updatequery.piml:1.10 doc/loncapafiles/updatequery.piml:1.11
--- doc/loncapafiles/updatequery.piml:1.10	Thu May 16 14:38:11 2002
+++ doc/loncapafiles/updatequery.piml	Sat May 18 12:36:58 2002
@@ -1,7 +1,7 @@
 <!-- updatequery.piml -->
 <!-- Scott Harrison -->
 
-<!-- $Id: updatequery.piml,v 1.10 2002/05/16 18:38:11 harris41 Exp $ -->
+<!-- $Id: updatequery.piml,v 1.11 2002/05/18 16:36:58 harris41 Exp $ -->
 
 <!--
 
@@ -275,7 +275,7 @@
     }
     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))];