version 1.40, 2000/10/09 20:26:17
|
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 Gerd Kortemeyer |
# 10/06,10/09,10/10,10/11 Gerd Kortemeyer |
|
|
package Apache::lonnet; |
package Apache::lonnet; |
|
|
Line 596 sub get {
|
Line 596 sub get {
|
$ENV{'user.home'}); |
$ENV{'user.home'}); |
my @pairs=split(/\&/,$rep); |
my @pairs=split(/\&/,$rep); |
my %returnhash=(); |
my %returnhash=(); |
|
my $i=0; |
map { |
map { |
my ($key,$value)=split(/=/,$_); |
$returnhash{$_}=unescape($pairs[$i]); |
$returnhash{unescape($key)}=unescape($value); |
$i++; |
} @pairs; |
} @storearr; |
return %returnhash; |
return %returnhash; |
} |
} |
|
|
Line 657 sub eget {
|
Line 658 sub eget {
|
$ENV{'user.home'}); |
$ENV{'user.home'}); |
my @pairs=split(/\&/,$rep); |
my @pairs=split(/\&/,$rep); |
my %returnhash=(); |
my %returnhash=(); |
|
my $i=0; |
map { |
map { |
my ($key,$value)=split(/=/,$_); |
$returnhash{$_}=unescape($pairs[$i]); |
$returnhash{unescape($key)}=unescape($value); |
$i++; |
} @pairs; |
} @storearr; |
return %returnhash; |
return %returnhash; |
} |
} |
|
|
Line 759 sub allowed {
|
Line 761 sub allowed {
|
# Restricted by state? |
# Restricted by state? |
|
|
if ($thisallowed=~/X/) { |
if ($thisallowed=~/X/) { |
if (&condval($uricond)>1) { |
if (&condval($uricond)) { |
return '2'; |
return '2'; |
} else { |
} else { |
return ''; |
return ''; |
Line 1099 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'}); |