Diff for /loncom/lontrans.pm between versions 1.1 and 1.2

version 1.1, 2002/08/02 14:45:04 version 1.2, 2002/08/08 13:45:21
Line 33  use Apache::Constants qw(:common :remote Line 33  use Apache::Constants qw(:common :remote
 use Apache::lonnet();  use Apache::lonnet();
 use Apache::File();  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 {  sub handler {
     my $r = shift;      my $r = shift;
     return DECLINED;      unless ($r->uri=~/^\/uploaded\//) { return DECLINED; }
       my ($dum1,$dum2,$udom,$uname,$ufile)=split(/\//,$r->uri);
       $ufile=~s/^[\~\.]+//;
       $r->filename(&propath($udom,$uname).'/userfiles/'.$ufile);
 }  }
   
 1;  1;

Removed from v.1.1  
changed lines
  Added in v.1.2


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>