loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

-version 1.97, 2001/01/11 11:11:27
+version 1.98, 2001/01/19 17:21:15
  Line 1843  sub numval {
  sub rndseed {
      my $symb;
      unless ($symb=&symbread()) { return time; }
-     my $symbchck=unpack("%32C*",$symb);
+     {
-     my $symbseed=numval($symb)%$symbchck;
+       use integer;
-     my $namechck=unpack("%32C*",$ENV{'user.name'});
+       my $symbchck=unpack("%32C*",$symb) << 27;
-     my $nameseed=numval($ENV{'user.name'})%$namechck;
+       my $symbseed=numval($symb)%$symbchck << 22;
-     return int( $symbseed
+       my $namechck=unpack("%32C*",$ENV{'user.name'}) << 17;
- 	       .$nameseed
+       my $nameseed=numval($ENV{'user.name'})%$namechck << 12;
-                .unpack("%32C*",$ENV{'user.domain'})
+       my $domainseed=unpack("%32C*",$ENV{'user.domain'}) << 7;
-                .unpack("%32C*",$ENV{'request.course.id'})
+       my $courseseed=unpack("%32C*",$ENV{'request.course.id'});
-                .$namechck
+       my $num=$symbseed+$nameseed+$domainseed+$courseseed+$namechck+$symbchck;
-                .$symbchck);
+       &Apache::lonxml::debug("$symbseed:$nameseed;$domainseed|$courseseed;$namechck:$symbchck");
+       &Apache::lonxml::debug("rndseed :$num:$symb");
+       return $num;
+     }
  }
  sub ireceipt {