loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.99, 2001/01/19 21:19:28	version 1.100, 2001/01/19 21:37:39
Line 1846 sub rndseed {	Line 1846 sub rndseed {
{	{
use integer;	use integer;
my $symbchck=unpack("%32C*",$symb) << 27;	my $symbchck=unpack("%32C*",$symb) << 27;
my $symbseed=numval($symb)%$symbchck << 22;	my $symbseed=numval($symb) << 22;
my $namechck=unpack("%32C*",$ENV{'user.name'}) << 17;	my $namechck=unpack("%32C*",$ENV{'user.name'}) << 17;
my $nameseed=numval($ENV{'user.name'})%$namechck << 12;	my $nameseed=numval($ENV{'user.name'}) << 12;
my $domainseed=unpack("%32C*",$ENV{'user.domain'}) << 7;	my $domainseed=unpack("%32C*",$ENV{'user.domain'}) << 7;
my $courseseed=unpack("%32C*",$ENV{'request.course.id'});	my $courseseed=unpack("%32C*",$ENV{'request.course.id'});
my $num=$symbseed+$nameseed+$domainseed+$courseseed+$namechck+$symbchck;	my $num=$symbseed+$nameseed+$domainseed+$courseseed+$namechck+$symbchck;