From c0a2428b05a9dfaba657c7ae7040fd29f8d43fad Mon Sep 17 00:00:00 2001
From: Wolfram Schneider <wosch@FreeBSD.org>
Date: Sat, 25 Dec 1999 21:17:36 +0000
Subject: [PATCH] Print a warning if a category has no description.

---
 en/ports/portindex | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/en/ports/portindex b/en/ports/portindex
index c9ef3009ed..b7a536009c 100755
--- a/en/ports/portindex
+++ b/en/ports/portindex
@@ -249,6 +249,14 @@ browse the following categories:\n";
 	if ($category_description{$key}) {
 	    print MOUTF " -- " . $category_description{$key};
 	}
+
+	# Someone forgot to add a category to the description file
+	# or there is a typo in the category field.
+	else {
+	    warn "No description found for category: ``$key''!\n";
+	    warn "Please fix me or send an E-Mail to doc\@FreeBSD.org\a\n";
+	    sleep(3);
+	}
 	print MOUTF "</LI>\n";
 
 	# Create the category file