bb0d79615f
1. Retrievals should be much faster and put much less load on hub, particularly for complex searches. 2. URLs for messages are no longer query dependent, so when a message you have already looked at pops up in a different search, you your browser history mechanism can recognize it and color the link appropriately. 3. Messages are potentially cachable; I may have to tweak the HTTP header to make it really work though.
92 lines
2.1 KiB
Perl
Executable file
92 lines
2.1 KiB
Perl
Executable file
#!/usr/local/bin/perl -T
|
|
# $Id: getmsg.cgi,v 1.1 1998-02-26 23:49:52 jfieber Exp $
|
|
|
|
require "./cgi-lib.pl";
|
|
require "./cgi-style.pl";
|
|
|
|
my $messageroot = "/usr/local/www/db/text/";
|
|
&ReadParse(*formdata);
|
|
&Fetch($formdata{'fetch'});
|
|
|
|
exit 0;
|
|
|
|
sub Fetch
|
|
{
|
|
local ($docid) = @_;
|
|
local ($start, $end, $file) = split(/ /, $docid);
|
|
print &short_html_header("FreeBSD Mail Archives");
|
|
|
|
#
|
|
# Check to ensure that (a) the specified file starts
|
|
# with an approved pathname and (b) that it contains no
|
|
# relative components (eg ..). This is so that arbitrary
|
|
# files cannot be accessed.
|
|
#
|
|
|
|
$file =~ s/\.\.//g;
|
|
$file =~ s|/+|/|;
|
|
|
|
if ($file =~ /^$messageroot/ && open(DATA, $file)) {
|
|
seek DATA, $start, 0;
|
|
read DATA, $message, $end - $start;
|
|
close(DATA);
|
|
print &MessageToHTML($message);
|
|
} else {
|
|
print "<p>The specified message cannot be accessed.</p>\n";
|
|
}
|
|
|
|
print &html_footer;
|
|
print "</BODY></HTML>\n";
|
|
}
|
|
|
|
sub EscapeHTML
|
|
{
|
|
local ($_) = @_;
|
|
s/&/&/g;
|
|
s/</</g;
|
|
s/>/>/g;
|
|
return $_;
|
|
}
|
|
|
|
sub MessageToHTML
|
|
{
|
|
my ($doc) = @_;
|
|
my ($i, %hdr);
|
|
my ($header, $body) = split(/\n\n/, $doc, 2);
|
|
|
|
$body = &EscapeHTML($body);
|
|
|
|
$header = &EscapeHTML($header);
|
|
$header =~ s/\n */ /g;
|
|
|
|
foreach $i (split(/\n/, $header)) {
|
|
($field, $data) = split(/ /, $i, 2);
|
|
$hdr{$field} = $data;
|
|
}
|
|
|
|
$message = "<pre>\n";
|
|
if (length($hdr{'Date:'}) > 0) {
|
|
$message .= "<strong>Date: </strong> $hdr{'Date:'}\n";
|
|
}
|
|
if (length($hdr{'From:'}) > 0) {
|
|
$message .= "<strong>From: </strong> $hdr{'From:'}\n";
|
|
}
|
|
if (length($hdr{'To:'}) > 0) {
|
|
$message .= "<strong>To: </strong> $hdr{'To:'}\n";
|
|
}
|
|
if (length($hdr{'Cc:'}) > 0) {
|
|
$message .= "<strong>Cc: </strong> $hdr{'Cc:'}\n";
|
|
}
|
|
# if (length($hdr{'Sender:'}) > 0) {
|
|
# $message .= "<strong>Sender: </strong> $hdr{'Sender:'}\n";
|
|
# }
|
|
if (length($hdr{'Subject:'}) > 0) {
|
|
$message .= "<strong>Subject: </strong> $hdr{'Subject:'}\n";
|
|
}
|
|
$message .= "</pre>\n";
|
|
|
|
$message .= "<pre>\n$body\n</pre>\n";
|
|
|
|
return $message;
|
|
}
|
|
|