[BACK]Return to lonnet.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / lonnet / perl

Diff for /loncom/lonnet/perl/lonnet.pm between versions 1.1108 and 1.1109

version 1.1108, 2011/06/03 00:22:25 version 1.1109, 2011/06/06 16:48:44
Line 9292  sub rndseed { Line 9292  sub rndseed {
     if (!$domain) { $domain=$wdomain; }      if (!$domain) { $domain=$wdomain; }
     if (!$username) { $username=$wusername }      if (!$username) { $username=$wusername }
     my $which=&get_rand_alg();      my $which=&get_rand_alg();
   
     if (defined(&getCODE())) {      if (defined(&getCODE())) {
  if ($which eq '64bit5') {   if ($which eq '64bit5') {
     return &rndseed_CODE_64bit5($symb,$courseid,$domain,$username);      return &rndseed_CODE_64bit5($symb,$courseid,$domain,$username);
Line 9329  sub rndseed_32bit { Line 9328  sub rndseed_32bit {
  #&logthis("$symbseed:$nameseed;$domainseed|$courseseed;$namechck:$symbchck");   #&logthis("$symbseed:$nameseed;$domainseed|$courseseed;$namechck:$symbchck");
  #&logthis("rndseed :$num:$symb");   #&logthis("rndseed :$num:$symb");
  if ($_64bit) { $num=(($num<<32)>>32); }   if ($_64bit) { $num=(($num<<32)>>32); }
           $Apache::lonhomework::results{'resource.0.rndseed'}=$num;
  return $num;   return $num;
     }      }
 }  }
Line 9350  sub rndseed_64bit { Line 9350  sub rndseed_64bit {
  #&logthis("$symbseed:$nameseed;$domainseed|$courseseed;$namechck:$symbchck");   #&logthis("$symbseed:$nameseed;$domainseed|$courseseed;$namechck:$symbchck");
  #&logthis("rndseed :$num:$symb");   #&logthis("rndseed :$num:$symb");
  if ($_64bit) { $num1=(($num1<<32)>>32); $num2=(($num2<<32)>>32); }   if ($_64bit) { $num1=(($num1<<32)>>32); $num2=(($num2<<32)>>32); }
           $Apache::lonhomework::results{'resource.0.rndseed'}="$num1:$num2";
  return "$num1,$num2";   return "$num1,$num2";
     }      }
 }  }
Line 9373  sub rndseed_64bit2 { Line 9374  sub rndseed_64bit2 {
  #&logthis("$symbseed:$nameseed;$domainseed|$courseseed;$namechck:$symbchck");   #&logthis("$symbseed:$nameseed;$domainseed|$courseseed;$namechck:$symbchck");
  #&logthis("rndseed :$num:$symb");   #&logthis("rndseed :$num:$symb");
  if ($_64bit) { $num1=(($num1<<32)>>32); $num2=(($num2<<32)>>32); }   if ($_64bit) { $num1=(($num1<<32)>>32); $num2=(($num2<<32)>>32); }
           $Apache::lonhomework::results{'resource.0.rndseed'}="$num1:$num2";
  return "$num1,$num2";   return "$num1,$num2";
     }      }
 }  }
Line 9396  sub rndseed_64bit3 { Line 9398  sub rndseed_64bit3 {
  #&logthis("$symbseed:$nameseed;$domainseed|$courseseed;$namechck:$symbchck");   #&logthis("$symbseed:$nameseed;$domainseed|$courseseed;$namechck:$symbchck");
  #&logthis("rndseed :$num1:$num2:$_64bit");   #&logthis("rndseed :$num1:$num2:$_64bit");
  if ($_64bit) { $num1=(($num1<<32)>>32); $num2=(($num2<<32)>>32); }   if ($_64bit) { $num1=(($num1<<32)>>32); $num2=(($num2<<32)>>32); }
    $Apache::lonhomework::results{'resource.0.rndseed'}="$num1:$num2";
  return "$num1:$num2";   return "$num1:$num2";
     }      }
 }  }
Line 9420  sub rndseed_64bit4 { Line 9422  sub rndseed_64bit4 {
  #&logthis("$symbseed:$nameseed;$domainseed|$courseseed;$namechck:$symbchck");   #&logthis("$symbseed:$nameseed;$domainseed|$courseseed;$namechck:$symbchck");
  #&logthis("rndseed :$num1:$num2:$_64bit");   #&logthis("rndseed :$num1:$num2:$_64bit");
  if ($_64bit) { $num1=(($num1<<32)>>32); $num2=(($num2<<32)>>32); }   if ($_64bit) { $num1=(($num1<<32)>>32); $num2=(($num2<<32)>>32); }
    $Apache::lonhomework::results{'resource.0.rndseed'}="$num1:$num2";
  return "$num1:$num2";   return "$num1:$num2";
     }      }
 }  }
Line 9428  sub rndseed_64bit4 { Line 9430  sub rndseed_64bit4 {
 sub rndseed_64bit5 {  sub rndseed_64bit5 {
     my ($symb,$courseid,$domain,$username)=@_;      my ($symb,$courseid,$domain,$username)=@_;
     my ($num1,$num2)=&digest("$symb,$courseid,$domain,$username");      my ($num1,$num2)=&digest("$symb,$courseid,$domain,$username");
       $Apache::lonhomework::results{'resource.0.rndseed'}="$num1:$num2";
     return "$num1:$num2";      return "$num1:$num2";
 }  }
   
Removed from v.1.1108  
changed lines
  Added in v.1.1109

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>