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.4, 2002/09/30 20:48:24
  Line 33  use Apache::Constants qw(:common :remote
  use Apache::lonnet();
  use Apache::File();
+ sub propath {
+     my ($udom,$uname)=@_;
+     $udom=~s/\W//g;
+     $uname=~s/\W//g;
+     my $subdir=$uname.'__';
+     $subdir =~ s/(.)(.)(.).*/$1\/$2\/$3/;
+     my $proname="$Apache::lonnet::perlvar{'lonUsersDir'}/$udom/$subdir/$uname";
+     return $proname;
+ }
  sub handler {
      my $r = shift;
-     return DECLINED;
+     if ($r->uri=~m|^/uploaded/|) {
+ 	my (undef,undef,$udom,$uname,$ufile)=split(/\//,$r->uri);
+ 	$ufile=~s/^[\~\.]+//;
+ 	$r->filename(&propath($udom,$uname).'/userfiles/'.$ufile);
+     } elsif ($r->uri=~m|^/~|) {
+ 	#internal authentication, needs fixup.
+ 	my $fn = $r->uri(); # non users do not get the full path request
+ 	                 # through SCRIPT_FILENAME
+ 	$fn=~s|^/~(\w+)|/home/$1/public_html|;
+ 	$r->filename($fn);
+     } else { return DECLINED; }
  }
 ;