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

Current Archive -> Archive

Browse source 
Support to read the current mail archive from hub
This commit is contained in:
Wolfram Schneider 1998-12-26 18:17:44 +00:00
parent f0f990c2ba
commit e26523a1f6
Notes: svn2git 2020-12-08 03:00:23 +00:00 
svn path=/www/; revision=3965
1 changed files with 21 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

28
en/cgi/getmsg.cgi
View file

@ -6,7 +6,7 @@
# by John Fieber
# February 26, 1998
#
# $Id: getmsg.cgi,v 1.16 1998-08-03 15:37:47 wosch Exp $
# $Id: getmsg.cgi,v 1.17 1998-12-26 18:17:44 wosch Exp $
#
require "./cgi-lib.pl";
@ -40,11 +40,25 @@ sub Fetch
$file =~ s/\.\.//g;
$file =~ s|/+|/|;
# read the full archive from the FreeBSD ftp server
if ($type eq 'archive' && $file =~ s%^$messagepath%%o) {
print "Location: $ftparchive/$file.gz\n";
print "Content-type: text/plain\n\n";
return;
# read the full archive
if ($type eq 'archive') {
# from the FreeBSD ftp server
if ($file =~ s%^$messagepath%%o) {
print "Location: $ftparchive/$file.gz\n";
print "Content-type: text/plain\n\n";
exit(0);
}
# from the local mail archive for current mails
elsif ($file =~ m%^current/(cvs|freebsd)-[a-z]+$% &&
open(DATA, "$messagepathcurrent$file")) {
print "Content-type: text/plain\n\n";
while(<DATA>) {
print;
}
close(DATA);
exit(0);
}
}
if (($file =~ /^$messagepath/ && open(DATA, $file)) ||
@ -175,7 +189,7 @@ sub MessageToHTML
$message .= qq{| <a href="$mid?db=mid&id=$1">Previous in thread</a>\n};
}
$message .= qq{| <a href="$ENV{'REQUEST_URI'}+raw">Raw E-Mail</a>\n};
$message .= qq{| <a href="$ENV{'REQUEST_URI'}+archive">Current Archive</a>\n} if $file =~ m%^$messagepath%o;
$message .= qq{| <a href="$ENV{'REQUEST_URI'}+archive">Archive</a>\n};
$message .= qq{| <a href="../search/searchhints.html">Help</a>\n};
$message .= "<HR NOSHADE>\n";