![[BACK]](/icons/back.gif){kind=icon}
Return to loncfile.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / publisher|
Return to loncfile.pm CVS log | Up to [LON-CAPA] / loncom / publisher |
| version 1.36, 2003/08/03 00:40:00 | version 1.37, 2003/08/04 17:45:06 |
|---|---|
| Line 152 Global References | Line 152 Global References |
| sub URLToPath { | sub URLToPath { |
| my $Url = shift; | my $Url = shift; |
| &Debug($r, "UrlToPath got: $Url"); | &Debug($r, "UrlToPath got: $Url"); |
| $Url=~ s/\/+/\//g; | |
| $Url=~ s/^http\:\/\/[^\/]+//; | $Url=~ s/^http\:\/\/[^\/]+//; |
| $Url=~ s/^\///; | $Url=~ s/^\///; |
| $Url=~ s/(\~|priv\/)(\w+)\//\/home\/$2\/public_html\//; | $Url=~ s/(\~|priv\/)(\w+)\//\/home\/$2\/public_html\//; |