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

Print a 'Want to link to this message' link at the bottom.

Browse source 
The URI is permanent and works for the e-mails of the current
week and the mail archive.
This commit is contained in:
Wolfram Schneider 2003-11-18 21:41:10 +00:00
parent cc7d28f0d0
commit 0e7454bf22
Notes: svn2git 2020-12-08 03:00:23 +00:00 
svn path=/www/; revision=18916
1 changed files with 12 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
en/cgi/getmsg.cgi
View file

@ -6,7 +6,7 @@
# by John Fieber # by John Fieber
# February 26, 1998 # February 26, 1998
# #
# $FreeBSD: www/en/cgi/getmsg.cgi,v 1.34 2002/03/19 00:53:52 peter Exp $ # $FreeBSD: www/en/cgi/getmsg.cgi,v 1.35 2003/03/11 15:22:52 wosch Exp $
# #
require "./cgi-lib.pl"; require "./cgi-lib.pl";
@ -117,6 +117,7 @@ sub MessageToHTML
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) = 'mid.cgi'; my ($mid) = 'mid.cgi';
my ($mid_full_url) = 'http://docs.freebsd.org/cgi/mid.cgi';
my ($tmid,$tirt,$tref); my ($tmid,$tirt,$tref);
$body = &AddAnchors(&EscapeHTML($body)); $body = &AddAnchors(&EscapeHTML($body));
@ -198,9 +199,18 @@ sub MessageToHTML
$message .= qq{| <a href="$ENV{'REQUEST_URI'}+archive">Archive</a>\n}; $message .= qq{| <a href="$ENV{'REQUEST_URI'}+archive">Archive</a>\n};
$message .= qq{| <a href="../search/searchhints.html">Help</a>\n}; $message .= qq{| <a href="../search/searchhints.html">Help</a>\n};
$message .= "<HR NOSHADE>\n"; my $tid = $tmid;
$tid =~ s/^&lt;//;
$tid =~ s/\@.*//;
$message .= "<HR NOSHADE>\n";
#$message .= qq{<div onclick="document.location='$mid_full_url?db=irt&id=$tid'">\n};
$message .= "<p><pre>\n$body\n</pre>\n"; $message .= "<p><pre>\n$body\n</pre>\n";
#$message .= qq{</div>\n};
$message .= qq{<hr>\nWant to link to this message? Use this URL: &lt;};
$message .= qq{<a href="} . $mid_full_url . '?' . $tid;
$message .= qq{">$mid_full_url} . '?' . $tid . qq{</a>&gt;};
return $message; return $message;
} }