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

Whilst here, catch up with other style changes from ports.cgi made
over the last year.

1 files changed, 5 insertions, 18 deletions

diff --git a/en_US.ISO8859-1/htdocs/ports/portindex b/en_US.ISO8859-1/htdocs/ports/portindex
index e143074fca..6d89252d8e 100755
--- a/en_US.ISO8859-1/htdocs/ports/portindex
+++ b/en_US.ISO8859-1/htdocs/ports/portindex
@@ -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>};