From a1ac1db72051465cabe7679a1b6d2635a0dde095 Mon Sep 17 00:00:00 2001
From: Gavin Atkinson <gavin@FreeBSD.org>
Date: Sat, 16 Aug 2014 20:25:38 +0000
Subject: [PATCH] Remove a reference to cvsweb and other dead code unused since
 r40013.

---
 en_US.ISO8859-1/htdocs/cgi/ports.cgi | 14 --------------
 1 file changed, 14 deletions(-)

diff --git a/en_US.ISO8859-1/htdocs/cgi/ports.cgi b/en_US.ISO8859-1/htdocs/cgi/ports.cgi
index 406b14ebbb..71030b5c64 100755
--- a/en_US.ISO8859-1/htdocs/cgi/ports.cgi
+++ b/en_US.ISO8859-1/htdocs/cgi/ports.cgi
@@ -61,10 +61,6 @@ sub init_variables {
 
     # 'ftp://ftp.FreeBSD.org/pub/FreeBSD/branches/-current/ports';
 
-    # URL of ports tree for download
-    $remotePrefixFtpDownload = 'http://cvsweb.FreeBSD.org/ports';
-    $remoteSuffixFtpDownload = '%s.tar.gz?tarball=1';
-
     # where to get -current packages
     local ($p)        = 'ftp://ftp.FreeBSD.org/pub/FreeBSD/ports/i386';
     local ($palpha)   = 'ftp://ftp.FreeBSD.org/pub/FreeBSD/ports/alpha';
@@ -333,16 +329,6 @@ sub out {
     $pathB =~ s/^$localPrefix/ports/o;
 
     $path         =~ s/^$localPrefix/$remotePrefixFtp/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;
     $version = &encode_url($version);