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

Leading tabs (not only spaces) continue mail header lines.

Browse source 
Make Message-IDs clickable.
This commit is contained in:
Wolfram Schneider 1998-03-18 19:40:33 +00:00
parent 25c29321a8
commit 2c1b952847
Notes: svn2git 2020-12-08 03:00:23 +00:00 
svn path=/www/; revision=2555
2 changed files with 54 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

37
data/cgi/getmsg.cgi
View file

@ -6,7 +6,7 @@
# by John Fieber # by John Fieber
# February 26, 1998 # February 26, 1998
# #
# $Id: getmsg.cgi,v 1.6 1998-03-08 19:30:55 wosch Exp $ # $Id: getmsg.cgi,v 1.7 1998-03-18 19:40:33 wosch Exp $
# #
require "./cgi-lib.pl"; require "./cgi-lib.pl";
@ -73,11 +73,12 @@ sub MessageToHTML
my ($doc) = @_; my ($doc) = @_;
my ($header, $body) = split(/\n\n/, $doc, 2); my ($header, $body) = split(/\n\n/, $doc, 2);
my ($i, %hdr, $field, $data, $message); my ($i, %hdr, $field, $data, $message);
my ($mid) = '/~wosch/test/mid/mid.cgi';
$body = &AddAnchors(&EscapeHTML($body)); $body = &AddAnchors(&EscapeHTML($body));
$header = &EscapeHTML($header); $header = &EscapeHTML($header);
$header =~ s/\n */ /g; $header =~ s/\n[ \t]+/ /g;
foreach $i (split(/\n/, $header)) { foreach $i (split(/\n/, $header)) {
($field, $data) = split(/ /, $i, 2); ($field, $data) = split(/ /, $i, 2);
@ -105,14 +106,30 @@ sub MessageToHTML
$message .= "<strong>Subject: </strong> $hdr{'subject:'}\n"; $message .= "<strong>Subject: </strong> $hdr{'subject:'}\n";
} }
$message .= "<strong>Message-ID: </strong> $hdr{'message-id:'}\n" if ($hdr{'message-id:'}) {
if $hdr{'message-id:'}; $hdr{'message-id:'} =~
$message .= "<strong>Resent-Message-ID: </strong> $hdr{'resent-message-id:'}\n" s%;([^&]+)&%;<a href="$mid?db=irt&id=$1">$1</a>&%oi;
if $hdr{'resent-message-id:'}; $message .= "<strong>Message-ID: </strong> $hdr{'message-id:'}\n";
$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{'resent-message-id:'}) {
if $hdr{'references:'}; $hdr{'resent-message-id:'} =~
s%;([^&]+)&%;<a href="$mid?db=irt&id=$1">$1</a>&%oi;
$message .= "<strong>Resent-Message-ID: </strong> $hdr{'resent-message-id:'}\n";
}
if ($hdr{'in-reply-to:'}) {
$hdr{'in-reply-to:'} =~
s%;([^&]+)&%;<a href="$mid?db=mid&id=$1">$1</a>&%oi;
$message .= "<strong>In-Reply-To: </strong> $hdr{'in-reply-to:'}\n";
}
if ($hdr{'references:'}) {
$hdr{'references:'} =~
s%;([^&\s]+)&%;<a href="$mid?db=mid&id=$1">$1</a>&%goi;
$message .= "<strong>References: </strong> $hdr{'references:'}\n";
}
$message .= "</pre>\n"; $message .= "</pre>\n";

37
en/cgi/getmsg.cgi
View file

@ -6,7 +6,7 @@
# by John Fieber # by John Fieber
# February 26, 1998 # February 26, 1998
# #
# $Id: getmsg.cgi,v 1.6 1998-03-08 19:30:55 wosch Exp $ # $Id: getmsg.cgi,v 1.7 1998-03-18 19:40:33 wosch Exp $
# #
require "./cgi-lib.pl"; require "./cgi-lib.pl";
@ -73,11 +73,12 @@ sub MessageToHTML
my ($doc) = @_; my ($doc) = @_;
my ($header, $body) = split(/\n\n/, $doc, 2); my ($header, $body) = split(/\n\n/, $doc, 2);
my ($i, %hdr, $field, $data, $message); my ($i, %hdr, $field, $data, $message);
my ($mid) = '/~wosch/test/mid/mid.cgi';
$body = &AddAnchors(&EscapeHTML($body)); $body = &AddAnchors(&EscapeHTML($body));
$header = &EscapeHTML($header); $header = &EscapeHTML($header);
$header =~ s/\n */ /g; $header =~ s/\n[ \t]+/ /g;
foreach $i (split(/\n/, $header)) { foreach $i (split(/\n/, $header)) {
($field, $data) = split(/ /, $i, 2); ($field, $data) = split(/ /, $i, 2);
@ -105,14 +106,30 @@ sub MessageToHTML
$message .= "<strong>Subject: </strong> $hdr{'subject:'}\n"; $message .= "<strong>Subject: </strong> $hdr{'subject:'}\n";
} }
$message .= "<strong>Message-ID: </strong> $hdr{'message-id:'}\n" if ($hdr{'message-id:'}) {
if $hdr{'message-id:'}; $hdr{'message-id:'} =~
$message .= "<strong>Resent-Message-ID: </strong> $hdr{'resent-message-id:'}\n" s%;([^&]+)&%;<a href="$mid?db=irt&id=$1">$1</a>&%oi;
if $hdr{'resent-message-id:'}; $message .= "<strong>Message-ID: </strong> $hdr{'message-id:'}\n";
$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{'resent-message-id:'}) {
if $hdr{'references:'}; $hdr{'resent-message-id:'} =~
s%;([^&]+)&%;<a href="$mid?db=irt&id=$1">$1</a>&%oi;
$message .= "<strong>Resent-Message-ID: </strong> $hdr{'resent-message-id:'}\n";
}
if ($hdr{'in-reply-to:'}) {
$hdr{'in-reply-to:'} =~
s%;([^&]+)&%;<a href="$mid?db=mid&id=$1">$1</a>&%oi;
$message .= "<strong>In-Reply-To: </strong> $hdr{'in-reply-to:'}\n";
}
if ($hdr{'references:'}) {
$hdr{'references:'} =~
s%;([^&\s]+)&%;<a href="$mid?db=mid&id=$1">$1</a>&%goi;
$message .= "<strong>References: </strong> $hdr{'references:'}\n";
}
$message .= "</pre>\n"; $message .= "</pre>\n";