loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.42, 2000/10/10 18:46:53	version 1.43, 2000/10/11 18:15:16
Line 62	Line 62
# 08/22,08/28,08/31,09/01,09/02,09/04,09/05,09/25,09/28,09/30 Gerd Kortemeyer	# 08/22,08/28,08/31,09/01,09/02,09/04,09/05,09/25,09/28,09/30 Gerd Kortemeyer
# 10/04 Gerd Kortemeyer	# 10/04 Gerd Kortemeyer
# 10/04 Guy Albertelli	# 10/04 Guy Albertelli
# 10/06,10/09,10/10 Gerd Kortemeyer	# 10/06,10/09,10/10,10/11 Gerd Kortemeyer

package Apache::lonnet;	package Apache::lonnet;

Line 1101 sub numval {	Line 1101 sub numval {

sub rndseed {	sub rndseed {
my $symb;	my $symb;
unless ($symb=&symbread($ENV{'request.filename'})) { return ''; }	unless ($symb=&symbread($ENV{'request.filename'})) { return time; }
my $symbchck=unpack("%32C*",$symb);	my $symbchck=unpack("%32C*",$symb);
my $symbseed=numval($symb)%$symbchck;	my $symbseed=numval($symb)%$symbchck;
my $namechck=unpack("%32C*",$ENV{'user.name'});	my $namechck=unpack("%32C*",$ENV{'user.name'});