Lines 109-116
Link Here
|
109 |
|
109 |
|
110 |
$remotePrefixHtml = "$hsty_base/ports"; |
110 |
$remotePrefixHtml = "$hsty_base/ports"; |
111 |
|
111 |
|
112 |
# CVS Web interface |
112 |
# Web interface for the Ports tree |
113 |
$remotePrefixCvs = 'http://svnweb.FreeBSD.org/ports/head'; |
113 |
$remotePrefixRepo = 'http://svnweb.FreeBSD.org/ports/head'; |
114 |
|
114 |
|
115 |
# Ports documentation |
115 |
# Ports documentation |
116 |
$portsDesc = "$hsty_base/ports/"; |
116 |
$portsDesc = "$hsty_base/ports/"; |
Lines 329-347
Link Here
|
329 |
$pathB =~ s/^$localPrefix/ports/o; |
329 |
$pathB =~ s/^$localPrefix/ports/o; |
330 |
|
330 |
|
331 |
$path =~ s/^$localPrefix/$remotePrefixFtp/o; |
331 |
$path =~ s/^$localPrefix/$remotePrefixFtp/o; |
332 |
$descfile =~ s/^$localPrefix/$remotePrefixFtp/o; |
332 |
$descfile =~ s/^$localPrefix/$remotePrefixRepo/o; |
333 |
$version = &encode_url($version); |
333 |
$version = &encode_url($version); |
334 |
|
334 |
|
335 |
#$version =~ s/[\+,]/X/g; |
335 |
#$version =~ s/[\+,]/X/g; |
336 |
|
336 |
|
337 |
local ($l) = $path; |
337 |
local ($l) = $path; |
338 |
$l =~ s%^$remotePrefixFtp%$remotePrefixCvs%o; |
338 |
$l =~ s%^$remotePrefixFtp%$remotePrefixRepo%o; |
339 |
|
339 |
|
340 |
print |
340 |
print |
341 |
qq{<dt><b><a name="$version"></a><a href="$l">$version</a></b></dt>\n}; |
341 |
qq{<dt><b><a name="$version"></a><a href="$l">$version</a></b></dt>\n}; |
342 |
print qq{<dd>}, &escapeHTML($comment), qq{<br />\n}; |
342 |
print qq{<dd>}, &escapeHTML($comment), qq{<br />\n}; |
343 |
|
343 |
|
344 |
print qq[<a href="$l/pkg-descr?revision=HEAD">Long description</a> <b>:</b>\n]; |
344 |
print qq[<a href="$descfile?revision=HEAD">Long description</a> <b>:</b>\n]; |
345 |
|
345 |
|
346 |
# Link package in "default" arch/release. Verify it's existence on ftp-master. |
346 |
# Link package in "default" arch/release. Verify it's existence on ftp-master. |
347 |
if ( $packages{"$version.$packageExt"} ) { |
347 |
if ( $packages{"$version.$packageExt"} ) { |