loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.98, 2001/01/19 17:21:15	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;
&Apache::lonxml::debug("$symbseed:$nameseed;$domainseed\|$courseseed;$namechck:$symbchck");	#uncommenting these lines can break things!
&Apache::lonxml::debug("rndseed :$num:$symb");	#&Apache::lonxml::debug("$symbseed:$nameseed;$domainseed\|$courseseed;$namechck:$symbchck");
	#&Apache::lonxml::debug("rndseed :$num:$symb");
return $num;	return $num;
}	}
}	}