From 5ddd4f9c97de9c748cdacfd874b6e755a1110ca3 Mon Sep 17 00:00:00 2001
From: Wolfram Schneider <wosch@FreeBSD.org>
Date: Sun, 9 Jan 2000 16:24:07 +0000
Subject: [PATCH] Check for an empty 'Search for' field.

---
 en/cgi/search.cgi | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/en/cgi/search.cgi b/en/cgi/search.cgi
index 90e873abc7..25766db7c3 100755
--- a/en/cgi/search.cgi
+++ b/en/cgi/search.cgi
@@ -36,7 +36,16 @@ sub do_wais {
     @FORM_source = split(/\0/, $in{"source"});
     $FORM_max = $in{"max"};
     $FORM_docnum = $in{"docnum"};
-    
+   
+    if ($#FORM_words < 0) {
+    	print &html_header("Mail Archive Search") .
+    	    "<p>No search term given.";
+    	print "<p>\nPlease return to the " .
+    	    "search page and fill out the 'Search for' field!\n";
+	print &html_footer;
+    	exit 0;
+    }
+
     @AVAIL_source = &checksource(@FORM_source);
     if ($#FORM_source != $#AVAIL_source) {
     	$j = 0;