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

perl4 -> Perl5 migration fixes.

Browse source
This commit is contained in:
Wolfram Schneider 1999-04-03 12:32:38 +00:00
parent 38c0b0beb4
commit c78cb4550d
Notes: svn2git 2020-12-08 03:00:23 +00:00 
svn path=/www/; revision=4591
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
en/cgi/mid.cgi
View file

@ -26,7 +26,7 @@
# #
# Search a mail by Message-ID, References or In-Reply-To field # Search a mail by Message-ID, References or In-Reply-To field
# #
# $Id: mid.cgi,v 1.6 1998-08-03 15:37:47 wosch Exp $ # $Id: mid.cgi,v 1.7 1999-04-03 12:32:38 wosch Exp $
$hsty_base = ''; $hsty_base = '';
@ -75,6 +75,7 @@ sub get_id {
$location =~ s%/[^/]+$%%; $location =~ s%/[^/]+$%%;
local($host) = $ENV{'HTTP_HOST'}; local($host) = $ENV{'HTTP_HOST'};
$location = 'http://' . $host . $location; $location = 'http://' . $host . $location;
$start =~ s/\s+$//;
print "Location: $location/getmsg.cgi?fetch=$start+0+" . print "Location: $location/getmsg.cgi?fetch=$start+0+" .
($file =~ /^current/ ? '' : "$prefix/") . "$file\n"; ($file =~ /^current/ ? '' : "$prefix/") . "$file\n";