Diff for /loncom/lonenc.pm between versions 1.13 and 1.14

version 1.13, 2006/03/22 19:55:39 version 1.14, 2006/04/07 22:15:34
Line 29 Line 29
 package Apache::lonenc;  package Apache::lonenc;
   
 use strict;  use strict;
 use Apache::Constants qw(:common :remotehost);  
 use Apache::lonnet;  use Apache::lonnet;
 use Apache::File();  
 use Apache::loncommon;  
 use Crypt::IDEA;  use Crypt::IDEA;
 use Time::HiRes qw(gettimeofday);  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 {  sub encryptseed {
     my $seed=$env{'course.'.$env{'request.course.id'}.'.internal.encseed'};      my $seed=$env{'course.'.$env{'request.course.id'}.'.internal.encseed'};
     $seed=~s/[^0-9a-f]/0/g;      $seed=~s/[^0-9a-f]/0/g;

Removed from v.1.13  
changed lines
  Added in v.1.14


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>