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

version 1.2, 2002/08/08 13:45:21 version 1.3, 2002/09/30 20:32:45
Line 41  sub propath { Line 41  sub propath {
     $subdir =~ s/(.)(.)(.).*/$1\/$2\/$3/;      $subdir =~ s/(.)(.)(.).*/$1\/$2\/$3/;
     my $proname="$Apache::lonnet::perlvar{'lonUsersDir'}/$udom/$subdir/$uname";      my $proname="$Apache::lonnet::perlvar{'lonUsersDir'}/$udom/$subdir/$uname";
     return $proname;      return $proname;
 }   }
   
   
 sub handler {  sub handler {
     my $r = shift;      my $r = shift;
     unless ($r->uri=~/^\/uploaded\//) { return DECLINED; }      if ($r->uri=~m|^/uploaded/|) {
     my ($dum1,$dum2,$udom,$uname,$ufile)=split(/\//,$r->uri);   my ($dum1,$dum2,$udom,$uname,$ufile)=split(/\//,$r->uri);
     $ufile=~s/^[\~\.]+//;   $ufile=~s/^[\~\.]+//;
     $r->filename(&propath($udom,$uname).'/userfiles/'.$ufile);   $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; }
 }  }
   
 1;  1;

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


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