version 1.17, 2006/09/28 20:47:13
|
version 1.19, 2006/12/24 21:22:33
|
Line 35 use Time::HiRes qw(gettimeofday);
|
Line 35 use Time::HiRes qw(gettimeofday);
|
use LONCAPA; |
use LONCAPA; |
|
|
sub encryptseed { |
sub encryptseed { |
my $seed=$env{'course.'.$env{'request.course.id'}.'.internal.encseed'}; |
my ($cid) = @_; |
$seed=~s/[^0-9a-f]/0/g; |
if (!defined($cid)) { |
$seed.='0123456789abcdef'; |
$cid = $env{'request.course.id'}; |
$seed=substr($seed.$seed,0,32); |
} |
return pack("H32",$seed); |
my $seed; |
|
if (defined($cid)) { |
|
if (defined$env{'course.'.$cid.'.internal.encseed'}) { |
|
$seed = $env{'course.'.$cid.'.internal.encseed'}; |
|
} else { |
|
my %descargs = ( 'one_time' => 1); |
|
my %course = |
|
&Apache::lonnet::coursedescription($cid,\%descargs); |
|
my %seedhash = |
|
&Apache::lonnet::get('environment',['internal.encseed'], |
|
$course{'domain'},$course{'num'}); |
|
$seed = $seedhash{'internal.encseed'}; |
|
} |
|
} |
|
if (defined($seed)) { |
|
$seed=~s/[^0-9a-f]/0/g; |
|
$seed.='0123456789abcdef'; |
|
$seed=substr($seed.$seed,0,32); |
|
return pack("H32",$seed); |
|
} else { |
|
return; |
|
} |
} |
} |
|
|
sub unencrypted { |
sub unencrypted { |
my $uri=shift; |
my ($uri,$cid) = @_; |
$uri=~s/^\/enc\/(\d+)\///; |
$uri=~s/^\/enc\/(\d+)\///; |
my $cmdlength=$1; |
my $cmdlength=$1; |
# strip any added extension |
# strip any added extension |
$uri=~s/\.[^.]*//; |
$uri=~s/\.[^.]*//; |
my $seed=&encryptseed(); |
my $seed=&encryptseed($cid); |
unless ($seed) { |
unless ($seed) { |
return '/'.$uri; |
return '/'.$uri; |
} |
} |
Line 109 sub encrypted {
|
Line 130 sub encrypted {
|
|
|
sub check_encrypt { |
sub check_encrypt { |
my $str=shift; |
my $str=shift; |
if ($env{'request.enc'}) { return &Apache::lonenc::encrypted($str); } |
if (ref($str)) { |
|
if ($env{'request.enc'}) { $$str = &Apache::lonenc::encrypted($$str); } |
|
return; |
|
} else { |
|
if ($env{'request.enc'}) { return &Apache::lonenc::encrypted($str); } |
|
} |
return $str; |
return $str; |
} |
} |
|
|