version 1.21, 2001/03/29 21:45:06
|
version 1.22, 2001/04/03 11:07:36
|
Line 631 if (-e $target) {
|
Line 631 if (-e $target) {
|
my $thisdistarget=$target; |
my $thisdistarget=$target; |
$thisdistarget=~s/^$docroot//; |
$thisdistarget=~s/^$docroot//; |
|
|
|
my $thissrc=$source; |
|
$thissrc=~s/^\/home\/(\w+)\/public_html/\/priv\/$1/; |
|
|
|
my $thissrcdir=$thissrc; |
|
$thissrcdir=~s/\/[^\/]+$/\//; |
|
|
|
|
return $scrout. |
return $scrout. |
'<p><a href="'.$thisdistarget.'"><font size=+2>View Target</font></a>'; |
'<hr><a href="'.$thisdistarget.'"><font size=+2>View Target</font></a>'. |
|
'<p><a href="'.$thissrc.'"><font size=+2>Back to Source</font></a>'. |
|
'<p><a href="'.$thissrcdir. |
|
'"><font size=+2>Back to Source Directory</font></a>'; |
|
|
} |
} |
|
|
# ================================================================ Main Handler |
# ================================================================ Main Handler |