From b576cd53014781ac6be11555fce5650fa04f37ef Mon Sep 17 00:00:00 2001
From: Wolfram Schneider <wosch@FreeBSD.org>
Date: Thu, 23 Jul 1998 12:36:11 +0000
Subject: [PATCH] Print 'Package' link only if there is a package for the port
 at the main ftp server ftp.freebsd.org. Note: this works only for
 packages-stable packages.

---
 data/cgi/ports.cgi | 36 ++++++++++++++++++++++++++++++++----
 en/cgi/ports.cgi   | 36 ++++++++++++++++++++++++++++++++----
 2 files changed, 64 insertions(+), 8 deletions(-)

diff --git a/data/cgi/ports.cgi b/data/cgi/ports.cgi
index 3596d53a2d..560170d074 100755
--- a/data/cgi/ports.cgi
+++ b/data/cgi/ports.cgi
@@ -24,7 +24,7 @@
 # OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 # SUCH DAMAGE.
 #
-#	$Id: ports.cgi,v 1.22 1998-06-16 18:17:54 wosch Exp $
+#	$Id: ports.cgi,v 1.23 1998-07-23 12:36:11 wosch Exp $
 #
 # ports.cgi - search engine for FreeBSD ports
 #             	o search for a port by name or description
@@ -107,8 +107,30 @@ sub init_variables {
 
     # make plain text URLs clickable cgi script
     $url = 'url.cgi';
+
+    local($packageDB) = '../ports/packages.exists';
+    &packages_exist($packageDB, *packages) if -f $packageDB;
+
 }
 
+sub packages_exist {
+    local($file, *p) = @_;
+
+    open(P, $file) || do {
+        warn "open $file: $!\n";
+        warn "Cannot create packages links\n";
+        return 1;
+    };
+
+    while(<P>) {
+        chop;
+        $p{$_} = 1;
+    }
+    close P;
+    return 0;
+}
+
+
 # return the date of the last ports database update
 sub last_update {
     local($file) = "$cvsroot/$ports_database,v";
@@ -301,9 +323,15 @@ sub out {
 
 	print qq[<A HREF="$url?$descfile">Description</A> <B>:</B>
 <A HREF="$path/">Browse</A> <B>:</B>
-<A HREF="$pathDownload.tar">Download</A> <B>:</B>
-<A HREF="$remotePrefixFtpPackages{$release}/$version.tgz">Package</A> <B>:</B>
-<A HREF="$l">Changes</A> <B>:</B>
+<A HREF="$pathDownload.tar">Download</A> <B>:</B>];
+
+	if (($release eq $remotePrefixFtpPackagesDefault &&
+	    $packages{"$version.tgz"}) ||
+	    $release ne $remotePrefixFtpPackagesDefault
+	    ) {
+	    print qq[<A HREF="$remotePrefixFtpPackages{$release}/$version.tgz">Package</A> <B>:</B>];
+	}
+print qq[<A HREF="$l">Changes</A> <B>:</B>
 <A HREF="$pds?$pathB">Sources</A>
 <p>
 ];
diff --git a/en/cgi/ports.cgi b/en/cgi/ports.cgi
index 3596d53a2d..560170d074 100755
--- a/en/cgi/ports.cgi
+++ b/en/cgi/ports.cgi
@@ -24,7 +24,7 @@
 # OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 # SUCH DAMAGE.
 #
-#	$Id: ports.cgi,v 1.22 1998-06-16 18:17:54 wosch Exp $
+#	$Id: ports.cgi,v 1.23 1998-07-23 12:36:11 wosch Exp $
 #
 # ports.cgi - search engine for FreeBSD ports
 #             	o search for a port by name or description
@@ -107,8 +107,30 @@ sub init_variables {
 
     # make plain text URLs clickable cgi script
     $url = 'url.cgi';
+
+    local($packageDB) = '../ports/packages.exists';
+    &packages_exist($packageDB, *packages) if -f $packageDB;
+
 }
 
+sub packages_exist {
+    local($file, *p) = @_;
+
+    open(P, $file) || do {
+        warn "open $file: $!\n";
+        warn "Cannot create packages links\n";
+        return 1;
+    };
+
+    while(<P>) {
+        chop;
+        $p{$_} = 1;
+    }
+    close P;
+    return 0;
+}
+
+
 # return the date of the last ports database update
 sub last_update {
     local($file) = "$cvsroot/$ports_database,v";
@@ -301,9 +323,15 @@ sub out {
 
 	print qq[<A HREF="$url?$descfile">Description</A> <B>:</B>
 <A HREF="$path/">Browse</A> <B>:</B>
-<A HREF="$pathDownload.tar">Download</A> <B>:</B>
-<A HREF="$remotePrefixFtpPackages{$release}/$version.tgz">Package</A> <B>:</B>
-<A HREF="$l">Changes</A> <B>:</B>
+<A HREF="$pathDownload.tar">Download</A> <B>:</B>];
+
+	if (($release eq $remotePrefixFtpPackagesDefault &&
+	    $packages{"$version.tgz"}) ||
+	    $release ne $remotePrefixFtpPackagesDefault
+	    ) {
+	    print qq[<A HREF="$remotePrefixFtpPackages{$release}/$version.tgz">Package</A> <B>:</B>];
+	}
+print qq[<A HREF="$l">Changes</A> <B>:</B>
 <A HREF="$pds?$pathB">Sources</A>
 <p>
 ];