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

Add an option to read the E-Mail as plain ASCII text, without

Browse source 
HTML tags.
This commit is contained in:
Wolfram Schneider 1998-03-28 15:29:25 +00:00
parent 30d676e12c
commit 4ed06f93e2
Notes: svn2git 2020-12-08 03:00:23 +00:00 
svn path=/www/; revision=2613
2 changed files with 20 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

13
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.10 1998-03-28 15:11:37 wosch Exp $ # $Id: getmsg.cgi,v 1.11 1998-03-28 15:29:25 wosch Exp $
# #
require "./cgi-lib.pl"; require "./cgi-lib.pl";
@ -25,7 +25,7 @@ exit 0;
sub Fetch sub Fetch
{ {
my ($docid) = @_; my ($docid) = @_;
my ($start, $end, $file) = split(/ /, $docid); my ($start, $end, $file, $type) = split(/ /, $docid);
my ($message, @finfo); my ($message, @finfo);
# #
@ -44,9 +44,16 @@ sub Fetch
seek DATA, $start, 0; seek DATA, $start, 0;
read DATA, $message, $end - $start; read DATA, $message, $end - $start;
close(DATA); close(DATA);
$message = &MessageToHTML($message);
print "last-modified: " . print "last-modified: " .
POSIX::strftime("%a, %d %b %Y %T GMT", gmtime($finfo[9])) . "\n"; POSIX::strftime("%a, %d %b %Y %T GMT", gmtime($finfo[9])) . "\n";
# print E-Mail as plain ascii text
if ($type eq 'raw') {
print "Content-type: text/plain\n\n";
print $message;
return;
}
$message = &MessageToHTML($message);
} }
else else
{ {

13
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.10 1998-03-28 15:11:37 wosch Exp $ # $Id: getmsg.cgi,v 1.11 1998-03-28 15:29:25 wosch Exp $
# #
require "./cgi-lib.pl"; require "./cgi-lib.pl";
@ -25,7 +25,7 @@ exit 0;
sub Fetch sub Fetch
{ {
my ($docid) = @_; my ($docid) = @_;
my ($start, $end, $file) = split(/ /, $docid); my ($start, $end, $file, $type) = split(/ /, $docid);
my ($message, @finfo); my ($message, @finfo);
# #
@ -44,9 +44,16 @@ sub Fetch
seek DATA, $start, 0; seek DATA, $start, 0;
read DATA, $message, $end - $start; read DATA, $message, $end - $start;
close(DATA); close(DATA);
$message = &MessageToHTML($message);
print "last-modified: " . print "last-modified: " .
POSIX::strftime("%a, %d %b %Y %T GMT", gmtime($finfo[9])) . "\n"; POSIX::strftime("%a, %d %b %Y %T GMT", gmtime($finfo[9])) . "\n";
# print E-Mail as plain ascii text
if ($type eq 'raw') {
print "Content-type: text/plain\n\n";
print $message;
return;
}
$message = &MessageToHTML($message);
} }
else else
{ {