From 144f3112186fa0819f46e03a3a0af3ad0ab5ac05 Mon Sep 17 00:00:00 2001
From: Wolfram Schneider <wosch@FreeBSD.org>
Date: Sun, 10 May 1998 18:26:18 +0000
Subject: [PATCH] Allow the syntax  /cgi/mid.cgi?<message-id> for lazy people
 ;-)

---
 data/cgi/mid.cgi | 29 ++++++++++++++++++++++-------
 en/cgi/mid.cgi   | 29 ++++++++++++++++++++++-------
 2 files changed, 44 insertions(+), 14 deletions(-)

diff --git a/data/cgi/mid.cgi b/data/cgi/mid.cgi
index ee1055e357..fa032abf33 100755
--- a/data/cgi/mid.cgi
+++ b/data/cgi/mid.cgi
@@ -26,7 +26,7 @@
 #
 # Search a mail by Message-ID, References or In-Reply-To field
 #
-# $Id: mid.cgi,v 1.4 1998-04-16 14:10:22 wosch Exp $
+# $Id: mid.cgi,v 1.5 1998-05-10 18:26:18 wosch Exp $
 
 $hsty_base = '';
 
@@ -36,7 +36,7 @@ require "./cgi-style.pl";
 $home = '/g/www/mid';
 $prefix= "/usr/local/www/db";
 $lookupdir = "$home/index"; # database(s) directory
-$database = 'mid';           # default database
+$databaseDefault = 'mid';           # default database
 $bindir = "$home/bin"; # where search scripts located
 $script = $ENV{'SCRIPT_NAME'};
 $shortid = 1;
@@ -106,21 +106,36 @@ sub midheader {
 
 sub foot { return &html_footer . "</BODY></HTML>\n"; }
 
+###
+# Main
+###
+
 &ReadParse(*input);
 $messageid = $input{'id'};
 $database = $input{'db'};
 
 
 if (!$messageid) {
-    print  &midheader;
-    print "No input given\n";
-    print &foot; exit;
+    # for lazy people ;-)
+    # allow the syntax  mid.cgi?messageid
+    if ($ENV{'QUERY_STRING'} =~ /<?[a-z0-9._>\-]+\S+$/) {
+	$messageid = $ENV{'QUERY_STRING'};
+	$database = $databaseDefault;
+    } 
+
+    # no message-id given
+    else {
+	print  &midheader;
+	print "No input given\n";
+	print &foot; exit;
+    }
 }
+
 $messageid =~ s/^<//;
 $messageid =~ s/>$//;
 $messageid =~ s/@.*// if $shortid;
 
-if ($database eq 'mid' || $database eq 'irt') {
-} else { $database = 'mid'; }
+$database = $databaseDefault
+    if (!($database eq 'mid' || $database eq 'irt'));
 
 &get_id($messageid, $database);
diff --git a/en/cgi/mid.cgi b/en/cgi/mid.cgi
index ee1055e357..fa032abf33 100755
--- a/en/cgi/mid.cgi
+++ b/en/cgi/mid.cgi
@@ -26,7 +26,7 @@
 #
 # Search a mail by Message-ID, References or In-Reply-To field
 #
-# $Id: mid.cgi,v 1.4 1998-04-16 14:10:22 wosch Exp $
+# $Id: mid.cgi,v 1.5 1998-05-10 18:26:18 wosch Exp $
 
 $hsty_base = '';
 
@@ -36,7 +36,7 @@ require "./cgi-style.pl";
 $home = '/g/www/mid';
 $prefix= "/usr/local/www/db";
 $lookupdir = "$home/index"; # database(s) directory
-$database = 'mid';           # default database
+$databaseDefault = 'mid';           # default database
 $bindir = "$home/bin"; # where search scripts located
 $script = $ENV{'SCRIPT_NAME'};
 $shortid = 1;
@@ -106,21 +106,36 @@ sub midheader {
 
 sub foot { return &html_footer . "</BODY></HTML>\n"; }
 
+###
+# Main
+###
+
 &ReadParse(*input);
 $messageid = $input{'id'};
 $database = $input{'db'};
 
 
 if (!$messageid) {
-    print  &midheader;
-    print "No input given\n";
-    print &foot; exit;
+    # for lazy people ;-)
+    # allow the syntax  mid.cgi?messageid
+    if ($ENV{'QUERY_STRING'} =~ /<?[a-z0-9._>\-]+\S+$/) {
+	$messageid = $ENV{'QUERY_STRING'};
+	$database = $databaseDefault;
+    } 
+
+    # no message-id given
+    else {
+	print  &midheader;
+	print "No input given\n";
+	print &foot; exit;
+    }
 }
+
 $messageid =~ s/^<//;
 $messageid =~ s/>$//;
 $messageid =~ s/@.*// if $shortid;
 
-if ($database eq 'mid' || $database eq 'irt') {
-} else { $database = 'mid'; }
+$database = $databaseDefault
+    if (!($database eq 'mid' || $database eq 'irt'));
 
 &get_id($messageid, $database);