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.6, 2002/11/12 22:37:18
  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 $c = $r->connection;
+     my $args=$r->args;
+     &Apache::loncommon::get_unprocessed_cgi($args,['token']);
+     my (undef,undef,$udom,$uname,$ufile)=split(/\//,$r->uri);
+     $ufile=~s/^[\~\.]+//;
+     my ($homeserver)=($ENV{'form.token'}=~/\_([a-zA-Z0-9]+)$/);
+     my $remoteip=$c->remote_ip;
+     my $remoteserver=$Apache::lonnet::iphost{$remoteip};
+     my $reply=&Apache::lonnet::reply('tokenauthuserfile:'.
+                  $udom.'/'.$uname.'/'.$ufile.':'.$ENV{'form.token'},
+ 				     $remoteserver);
+     if ($reply eq 'ok') {
+        return OK;
+    } else {
+        &Apache::lonnet::logthis(
+ "Refused userfile access $uname at $udom for $ufile from $remoteip -> $remoteserver home $homeserver with $ENV{'form.token'}: $reply");
+        return FORBIDDEN;
+    }
  }
 ;