loncom/lontrans.pm - diff

Return to lontrans.pm CVS log

Up to [LON-CAPA] / loncom

-version 1.1, 2002/08/02 14:45:04
+version 1.14.10.1, 2020/03/05 22:02:32
  Line 32  use strict;
  use Apache::Constants qw(:common :remotehost);
  use Apache::lonnet();
  use Apache::File();
+ use LONCAPA;
  sub handler {
      my $r = shift;
+     # FIXME line remove when mod_perl fixes BUG#4948
+     $r->notes->set('error-notes' => '');
+     if ($r->uri=~m|^(/raw)?/uploaded/|) {
+         my $fn = $r->uri();
+         $fn=~s/^\/raw//;
+         my (undef,undef,$udom,$uname,@ufile)=split(/\//,$fn);
+ 	if (@ufile) { $ufile[-1]=~s/^[\~\.]+//; }
+         my $chome=&Apache::lonnet::homeserver($uname,$udom);
+ 	my $allowed=0;
+ 	my @ids=&Apache::lonnet::current_machine_ids();
+ 	foreach my $id (@ids) { if ($id eq $chome) { $allowed=1; } }
+ 	if ($allowed) {
+ 	    $r->filename(&propath($udom,$uname).
+ 			 '/userfiles/'.(join('/',@ufile)));
+         }
+         return OK;
+     } elsif ($r->uri =~ m{^\Q/adm/wrapper/ext/https:/\E[^/]}) {
+         my $uri = $r->uri;
+         $uri =~ s{^(\Q/adm/wrapper/ext/https:/\E)}{$1/};
+         $r->uri($uri);
+     }
      return DECLINED;
  }