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

Print the mail header fields Message-ID, Resent-Message-ID,

Browse source 
In-Reply-To, and References.
This makes (pseudo) mail threads possible.
This commit is contained in:
Wolfram Schneider 1998-03-08 19:30:55 +00:00
parent ec9c6f6262
commit 14143d5e67
Notes: svn2git 2020-12-08 03:00:23 +00:00 
svn path=/www/; revision=2516
2 changed files with 22 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

12
data/cgi/getmsg.cgi
View file

@ -6,7 +6,7 @@
# by John Fieber
# February 26, 1998
#
# $Id: getmsg.cgi,v 1.5 1998-03-08 19:28:11 wosch Exp $
# $Id: getmsg.cgi,v 1.6 1998-03-08 19:30:55 wosch Exp $
#
require "./cgi-lib.pl";
@ -104,6 +104,16 @@ sub MessageToHTML
if (length($hdr{'subject:'}) > 0) {
$message .= "<strong>Subject: </strong> $hdr{'subject:'}\n";
}
$message .= "<strong>Message-ID: </strong> $hdr{'message-id:'}\n"
if $hdr{'message-id:'};
$message .= "<strong>Resent-Message-ID: </strong> $hdr{'resent-message-id:'}\n"
if $hdr{'resent-message-id:'};
$message .= "<strong>In-Reply-To: </strong> $hdr{'in-reply-to:'}\n"
if $hdr{'in-reply-to:'};
$message .= "<strong>References: </strong> $hdr{'references:'}\n"
if $hdr{'references:'};
$message .= "</pre>\n";
$message .= "<pre>\n$body\n</pre>\n";

12
en/cgi/getmsg.cgi
View file

@ -6,7 +6,7 @@
# by John Fieber
# February 26, 1998
#
# $Id: getmsg.cgi,v 1.5 1998-03-08 19:28:11 wosch Exp $
# $Id: getmsg.cgi,v 1.6 1998-03-08 19:30:55 wosch Exp $
#
require "./cgi-lib.pl";
@ -104,6 +104,16 @@ sub MessageToHTML
if (length($hdr{'subject:'}) > 0) {
$message .= "<strong>Subject: </strong> $hdr{'subject:'}\n";
}
$message .= "<strong>Message-ID: </strong> $hdr{'message-id:'}\n"
if $hdr{'message-id:'};
$message .= "<strong>Resent-Message-ID: </strong> $hdr{'resent-message-id:'}\n"
if $hdr{'resent-message-id:'};
$message .= "<strong>In-Reply-To: </strong> $hdr{'in-reply-to:'}\n"
if $hdr{'in-reply-to:'};
$message .= "<strong>References: </strong> $hdr{'references:'}\n"
if $hdr{'references:'};
$message .= "</pre>\n";
$message .= "<pre>\n$body\n</pre>\n";