os/doc
3
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Change the 'Download' link from ftp site (which is no longer there)

Browse source 
to cvsweb.freebsd.org (tarball option).

Submitted by: Kris Kennaway <kris@obsecurity.org>
This commit is contained in:
Wolfram Schneider 2003-03-14 08:19:26 +00:00
parent a39ba80a20
commit 338a878c6d
Notes: svn2git 2020-12-08 03:00:23 +00:00 
svn path=/www/; revision=16268
1 changed files with 13 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
en/cgi/ports.cgi
View file

@ -1,6 +1,6 @@
#!/usr/bin/perl -T #!/usr/bin/perl -T
# #
# Copyright (c) 1996-2002 Wolfram Schneider <wosch@FreeBSD.ORG>, Berlin. # Copyright (c) 1996-2003 Wolfram Schneider <wosch@FreeBSD.ORG>
# All rights reserved. # All rights reserved.
# #
# Redistribution and use in source and binary forms, with or without # Redistribution and use in source and binary forms, with or without
@ -24,7 +24,7 @@
# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF # OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
# SUCH DAMAGE. # SUCH DAMAGE.
# #
# $FreeBSD$ # $FreeBSD: www/en/cgi/ports.cgi,v 1.64 2003/03/04 11:56:15 roam Exp $
# #
# ports.cgi - search engine for FreeBSD ports # ports.cgi - search engine for FreeBSD ports
# o search for a port by name or description # o search for a port by name or description
@ -49,7 +49,8 @@ sub init_variables {
# URL of ports tree for download # URL of ports tree for download
$remotePrefixFtpDownload = $remotePrefixFtpDownload =
'ftp://ftp.FreeBSD.org/pub/FreeBSD/branches/-current/ports'; 'http://cvsweb.FreeBSD.org/ports';
$remoteSuffixFtpDownload = '%s.tar.gz?tarball=1';
# where to get -current packages # where to get -current packages
local($p) = 'ftp://ftp.FreeBSD.org/pub/FreeBSD/ports/i386'; local($p) = 'ftp://ftp.FreeBSD.org/pub/FreeBSD/ports/i386';
@ -335,6 +336,14 @@ sub out {
$path =~ s/^$localPrefix/$remotePrefixFtp/o; $path =~ s/^$localPrefix/$remotePrefixFtp/o;
$pathDownload =~ s/^$localPrefix/$remotePrefixFtpDownload/o; $pathDownload =~ s/^$localPrefix/$remotePrefixFtpDownload/o;
if ($remoteSuffixFtpDownload) {
if (substr($remoteSuffixFtpDownload, 0, 2) eq '%s') {
$pathDownload =~ m,([^/]+)+$,;
$pathDownload .= "/$1" . substr($remoteSuffixFtpDownload, 2);
} else {
$pathDownload .= $remoteSuffixFtpDownload;
}
}
$descfile =~ s/^$localPrefix/$remotePrefixFtp/o; $descfile =~ s/^$localPrefix/$remotePrefixFtp/o;
print qq{<DT><B><A NAME="$version">$version</A></B>\n}; print qq{<DT><B><A NAME="$version">$version</A></B>\n};
@ -575,7 +584,7 @@ sub footer {
<img ALIGN="RIGHT" src="/gifs/powerlogo.gif"> <img ALIGN="RIGHT" src="/gifs/powerlogo.gif">
&copy; 1996-2002 by Wolfram Schneider. All rights reserved.<br> &copy; 1996-2002 by Wolfram Schneider. All rights reserved.<br>
}; };
#print q{$FreeBSD$} . "<br>\n"; #print q{$FreeBSD: www/en/cgi/ports.cgi,v 1.64 2003/03/04 11:56:15 roam Exp $} . "<br>\n";
print qq{Please direct questions about this service to print qq{Please direct questions about this service to
<I><A HREF="$mailtoURL">$mailto</A></I><br>\n}; <I><A HREF="$mailtoURL">$mailto</A></I><br>\n};
print qq{General questions about FreeBSD ports should be sent to } . print qq{General questions about FreeBSD ports should be sent to } .