loncom/auth/lonuploadedacc.pm - diff

Return to lonuploadedacc.pm CVS log

Up to [LON-CAPA] / loncom / auth

-version 1.1, 2002/08/02 14:45:04
+version 1.2, 2002/08/08 13:45:21
  Line 31  package Apache::lonuploadedacc;
  use strict;
  use Apache::Constants qw(:common :remotehost);
  use Apache::lonnet();
- use Apache::File();
  sub handler {
      my $r = shift;
-     return OK;
+     my $args=$r->args;
+     &Apache::loncommon::get_unprocessed_cgi($args,['token']);
+     my ($dum1,$dum2,$udom,$uname,$ufile)=split(/\//,$r->uri);
+     $ufile=~s/^[\~\.]+//;
+     my ($server)=($ENV{'form.token'}=~/\_([a-zA-Z0-9]+)$/);
+     my $reply=&Apache::lonnet::reply('tokenauthuserfile:'.
+                  $udom.'/'.$uname.'/'.$ufile.':'.$ENV{'form.token'},
+ 				     $server);
+     if ($reply eq 'ok') {
+        return OK;
+    } else {
+        &Apache::lonnet::logthis(
+ "Refused userfile access $uname at $udom for $ufile from $server with $ENV{'form.token'}: $reply");
+        return FORBIDDEN;
+    }
  }
 ;