[BACK]Return to lonuploadedacc.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / auth

Diff for /loncom/auth/lonuploadedacc.pm between versions 1.11 and 1.12

version 1.11, 2004/10/26 15:03:08 version 1.12, 2005/04/07 06:56:21
Line 44  package Apache::lonuploadedacc; Line 44  package Apache::lonuploadedacc;
   
 use strict;  use strict;
 use Apache::Constants qw(:common :http);  use Apache::Constants qw(:common :http);
 use Apache::lonnet();  use Apache::lonnet;
   
 sub handler {  sub handler {
     my $r = shift;      my $r = shift;
Line 52  sub handler { Line 52  sub handler {
     &Apache::loncommon::get_unprocessed_cgi($args,['token','tokenissued']);       &Apache::loncommon::get_unprocessed_cgi($args,['token','tokenissued']); 
     my (undef,undef,$udom,$uname,$ufile)=split(/\//,$r->uri,5);      my (undef,undef,$udom,$uname,$ufile)=split(/\//,$r->uri,5);
     $ufile=~s/^[\~\.]+//;      $ufile=~s/^[\~\.]+//;
     my $remoteserver=$ENV{'form.tokenissued'};      my $remoteserver=$env{'form.tokenissued'};
     my $reply=&Apache::lonnet::reply('tokenauthuserfile:'.      my $reply=&Apache::lonnet::reply('tokenauthuserfile:'.
                  $udom.'/'.$uname.'/'.$ufile.':'.$ENV{'form.token'},                   $udom.'/'.$uname.'/'.$ufile.':'.$env{'form.token'},
      $remoteserver);       $remoteserver);
     if ($reply eq 'ok') {      if ($reply eq 'ok') {
        return OK;         return OK;
    } elsif ($reply eq 'con_lost' || $reply eq 'no_such_host') {     } elsif ($reply eq 'con_lost' || $reply eq 'no_such_host') {
        &Apache::lonnet::logthis("Server unavailable for userfile access $uname at $udom for $ufile with $remoteserver token $ENV{'form.token'}: $reply");         &Apache::lonnet::logthis("Server unavailable for userfile access $uname at $udom for $ufile with $remoteserver token $env{'form.token'}: $reply");
        return HTTP_SERVICE_UNAVAILABLE;         return HTTP_SERVICE_UNAVAILABLE;
    } else {     } else {
        &Apache::lonnet::logthis("Refused userfile access $uname at $udom for $ufile with $remoteserver token $ENV{'form.token'}: $reply");         &Apache::lonnet::logthis("Refused userfile access $uname at $udom for $ufile with $remoteserver token $env{'form.token'}: $reply");
        return FORBIDDEN;         return FORBIDDEN;
    }     }
 }  }
Removed from v.1.11  
changed lines
  Added in v.1.12

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