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

pds.cgi and url.cgi no longer exist after r45331, stop linking to it.

Browse source 
Whilst here, catch up with other style changes from ports.cgi made
over the last year.
This commit is contained in:
Gavin Atkinson 2014-07-20 16:17:26 +00:00
parent c126fe1b4b
commit 6fab224f05
Notes: svn2git 2020-12-08 03:00:23 +00:00 
svn path=/head/; revision=45343
1 changed files with 5 additions and 18 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
en_US.ISO8859-1/htdocs/ports/portindex
View file

@ -35,25 +35,14 @@ if ($ENV{'MASTER_FTP_SERVER'}) {
} else {
$ftpserver = 'ftp://ftp.FreeBSD.org' if !$ftpserver;
}
$baseHTTP = $base if !$baseHTTP;
my $baseFTP = "$ftpserver/pub/FreeBSD/ports/ports";
my $baseCVSWEB = 'http://www.FreeBSD.org/cgi/cvsweb.cgi/';
$urlcgi = 'http://www.FreeBSD.org/cgi/url.cgi' if !$urlcgi;
my $baseSVNWEB = 'https://svnweb.FreeBSD.org/ports/head/';
$packagesURL = "$ftpserver/pub/FreeBSD/ports/i386/packages-stable/All/"
if !$packagesURL;
# support tar on the fly or gzip'ed tar on the fly
my $ftparchive = '';
$ftparchive = 'tar' if !defined $ftparchive;
# ports download sources script
my $pds = 'http://www.FreeBSD.org/cgi/pds.cgi';
# better layout and link to the sources
if ($urlcgi) {
$baseHTTP = $urlcgi . '?' . $baseHTTP;
}
my %packages = ();
my %category_description = ();
my @category_groups = ();
@ -202,15 +191,13 @@ sub main {
$catkey{$name} = $cat[0];
my $sourcepath = $loc;
$sourcepath =~ s%/usr/%%;
foreach my $i (sort(@cat)) {
$stats{$i}++;
# figure out the FTP url
$loc =~ s/\/usr\//$baseCVSWEB/;
$ldesc =~ s/\/usr\//$baseHTTP/;
$loc =~ s%/usr/ports/%$baseSVNWEB%;
$ldesc =~ s%/usr/ports/%$baseSVNWEB%;
$ldesc .= '?revision=HEAD';
# The name description and maintainer
$name =~ s/,.*//g;
@ -225,7 +212,7 @@ sub main {
$data{$i} .= qq{ | <a href="$packagesURL$name.tgz">Package</a>};
}
$data{$i} .= qq{ | <a href="$pds?$sourcepath">Sources</a>};
$data{$i} .= qq{ | <a href="$loc/?view=log">Changes</a>};
if ($www ne "") {
$data{$i} .= qq{ | <a href="$www">Main Web Site</a>};