![[BACK]](/icons/back.gif){kind=icon}
Return to lonnet.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / lonnet / perl|
Return to lonnet.pm CVS log | Up to [LON-CAPA] / loncom / lonnet / perl |
| version 1.1039, 2009/10/31 21:38:00 | version 1.1040, 2009/10/31 23:37:00 |
|---|---|
| Line 5055 sub allowed { | Line 5055 sub allowed { |
| my $uname = $env{'user.name'}; | my $uname = $env{'user.name'}; |
| if ($uri =~ m{^\Q$udom\E/?$}) { | if ($uri =~ m{^\Q$udom\E/?$}) { |
| $ownaccess = 1; | $ownaccess = 1; |
| } elsif ($uri =~ m{^\Q$udom/\E/$uname/}) { | } elsif ($uri =~ m{^\Q$udom\E/\Q$uname\E/?}) { |
| unless ($uri =~ m{\.\./}) { | unless ($uri =~ m{\.\./}) { |
| $ownaccess = 1; | $ownaccess = 1; |
| } | } |