os/doc
3
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Allow the syntax /cgi/mid.cgi?<message-id> for lazy people ;-)

Browse source
This commit is contained in:
Wolfram Schneider 1998-05-10 18:26:18 +00:00
parent f4f04f8908
commit 144f311218
Notes: svn2git 2020-12-08 03:00:23 +00:00 
svn path=/www/; revision=2789
2 changed files with 44 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

29
data/cgi/mid.cgi
View file

@ -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);

29
en/cgi/mid.cgi
View file

@ -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);