![[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.155, 2001/08/20 23:28:43 | version 1.156, 2001/08/23 22:44:51 |
|---|---|
| Line 127 | Line 127 |
| # 5/30 H. K. Ng | # 5/30 H. K. Ng |
| # 6/1 Gerd Kortemeyer | # 6/1 Gerd Kortemeyer |
| # July Guy Albertelli | # July Guy Albertelli |
| # 8/4,8/7,8/8,8/9,8/11,8/16,8/17,8/18,8/20 Gerd Kortemeyer | # 8/4,8/7,8/8,8/9,8/11,8/16,8/17,8/18,8/20,8/23 Gerd Kortemeyer |
| package Apache::lonnet; | package Apache::lonnet; |
| Line 1209 sub allowed { | Line 1209 sub allowed { |
| map { | map { |
| if ($_=~/^httpref\..*\*/) { | if ($_=~/^httpref\..*\*/) { |
| my $pattern=$_; | my $pattern=$_; |
| $pattern=~s/^httpref\.\/res\///; | |
| $pattern=~s/\*/\[\^\/\]\+/g; | $pattern=~s/\*/\[\^\/\]\+/g; |
| $pattern=~s/\//\\\//g; | $pattern=~s/\//\\\//g; |
| if ($orguri=~/$pattern/) { | if ($orguri=~/$pattern/) { |