loncom/lontrans.pm - diff

Return to lontrans.pm CVS log

Up to [LON-CAPA] / loncom

-version 1.6, 2003/11/12 21:37:07
+version 1.11, 2006/05/30 12:45:12
  Line 32  use strict;
  use Apache::Constants qw(:common :remotehost);
  use Apache::lonnet();
  use Apache::File();
- use Apache::loncommon;
+ use lib '/home/httpd/lib/perl';
+ use LONCAPA;
  sub handler {
      my $r = shift;
-     if ($r->uri=~m|^/uploaded/|) {
+     if ($r->uri=~m|^(/raw)?/uploaded/|) {
- 	my (undef,undef,$udom,$uname,$ufile)=split(/\//,$r->uri);
+         my $fn = $r->uri();
- 	$ufile=~s/^[\~\.]+//;
+         $fn=~s/^\/raw//;
- 	$r->filename(&Apache::loncommon::propath($udom,$uname).
+         my (undef,undef,$udom,$uname,@ufile)=split(/\//,$fn);
- 		     '/userfiles/'.$ufile);
+ 	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)));
+         }
      } elsif ($r->uri=~m|^/~|) {
  	#internal authentication, needs fixup.
  	my $fn = $r->uri(); # non users do not get the full path request