--- loncom/lonenc.pm 2006/03/22 19:55:39 1.13 +++ loncom/lonenc.pm 2006/04/07 22:15:34 1.14 @@ -1,7 +1,7 @@ # The LearningOnline Network # URL translation for encrypted filenames # -# $Id: lonenc.pm,v 1.13 2006/03/22 19:55:39 albertel Exp $ +# $Id: lonenc.pm,v 1.14 2006/04/07 22:15:34 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -29,36 +29,10 @@ package Apache::lonenc; use strict; -use Apache::Constants qw(:common :remotehost); use Apache::lonnet; -use Apache::File(); -use Apache::loncommon; use Crypt::IDEA; use Time::HiRes qw(gettimeofday); -sub handler { - my $r = shift; - my %cookies=CGI::Cookie->parse($r->header_in('Cookie')); - my $lonid=$cookies{'lonID'}; - my $cookie; - if ($lonid) { - my $handle=$lonid->value; - $handle=~s/\W//g; - my $lonidsdir=$r->dir_config('lonIDsDir'); - $env{'request.enc'}=1; - if ((-e "$lonidsdir/$handle.id") && ($handle ne '')) { -# Initialize Environment - &Apache::lonnet::transfer_profile_to_env($lonidsdir,$handle); -# Decrypt URL and redirect - my $redirect=&unencrypted($r->uri); - if ($r->args) { $redirect.='?'.$r->args; } - $r->internal_redirect($redirect); - return OK; - } - } - return FORBIDDEN; -} - sub encryptseed { my $seed=$env{'course.'.$env{'request.course.id'}.'.internal.encseed'}; $seed=~s/[^0-9a-f]/0/g;