Return to lonpage.pm CVS log | Up to [LON-CAPA] / rat |
version 1.87, 2007/11/30 19:14:14 | version 1.87.2.1, 2008/12/21 04:29:47 |
---|---|
Line 339 sub handler { | Line 339 sub handler { |
} | } |
$thisdir=~s/\/[^\/]*$//; | $thisdir=~s/\/[^\/]*$//; |
foreach (@rlinks) { | foreach (@rlinks) { |
unless (($_=~/^http:\/\//i) || | unless (($_=~/^https?\:\/\//i) || |
($_=~/^\//) || | ($_=~/^\//) || |
($_=~/^javascript:/i) || | ($_=~/^javascript:/i) || |
($_=~/^mailto:/i) || | ($_=~/^mailto:/i) || |