view_mail.cgi

Unix下基于Web的管理工具

#!/usr/local/bin/perl
# view_mail.cgi
# View a single email message 

require './sendmail-lib.pl';
require './boxes-lib.pl';

&ReadParse();
&can_read_mail($in{'user'}) || &error($text{'view_ecannot'});

&header($text{'view_title'}, "");
@mail = &list_mails($in{'user'}, $in{'idx'}, $in{'idx'});
$mail = $mail[$in{'idx'}];
&parse_mail($mail);

print "<center>\n";
if ($in{'idx'}) {
	print "<a href='view_mail.cgi?user=$in{'user'}&idx=",$in{'idx'}-1,
	      "'><img src=/images/left.gif border=0 align=middle></a>\n";
	}
print "<font size=+1>",&text('view_desc', $in{'idx'}+1,
	    "<tt>$config{'mail_dir'}/$in{'user'}</tt>"),"</font>\n";
if ($in{'idx'} < @mail-1) {
	print "<a href='view_mail.cgi?user=$in{'user'}&idx=",$in{'idx'}+1,
	      "'><img src=/images/right.gif border=0 align=middle></a>\n";
	}
print "</center>\n";
print "<hr>\n";

print "<form action=reply_mail.cgi>\n";
print "<input type=hidden name=user value='$in{'user'}'>\n";
print "<input type=hidden name=idx value='$in{'idx'}'>\n";

print "<table width=100% border=1>\n";
print "<tr> <td $tb><b>$text{'view_headers'}</b></td> </tr>\n";
print "<tr> <td $cb><table width=100%>\n";
print "<tr> <td><b>$text{'mail_from'}</b></td> ",
      "<td>",&html_escape($mail->{'header'}->{'from'}),"</td> </tr>\n";
print "<tr> <td><b>$text{'mail_to'}</b></td> ",
      "<td>",&html_escape($mail->{'header'}->{'to'}),"</td> </tr>\n";
print "<tr> <td><b>$text{'mail_cc'}</b></td> ",
      "<td>",&html_escape($mail->{'header'}->{'cc'}),"</td> </tr>\n"
	if ($mail->{'header'}->{'cc'});
print "<tr> <td><b>$text{'mail_date'}</b></td> ",
      "<td>",&html_escape($mail->{'header'}->{'date'}),"</td> </tr>\n";
print "<tr> <td><b>$text{'mail_subject'}</b></td> ",
      "<td>",&html_escape($mail->{'header'}->{'subject'}),"</td> </tr>\n";
print "</table></td></tr></table><p>\n";

# Find body attachment
@attach = @{$mail->{'attach'}};
foreach $a (@attach) {
	if ($a->{'type'} eq 'text/plain') {
		$body = $a;
		last;
		}
	}
if ($body) {
	print "<table width=100% border=1><tr><td $cb><pre>\n",
	      &html_escape($body->{'data'}),"</pre></td></tr></table><p>\n";
	}

# Display other attachments
@attach = grep { $_ ne $body } @attach;
if (@attach) {
	print "<table width=100% border=1>\n";
	print "<tr> <td $tb><b>$text{'view_attach'}</b></td> </tr>\n";
	print "<tr> <td $cb>\n";
	foreach $a (@attach) {
		push(@titles, $a->{'filename'} ? $a->{'filename'}
					       : $a->{'type'});
		push(@links, "detach.cgi?user=$in{'user'}&idx=$in{'idx'}&attach=$a->{'idx'}");
		push(@icons, "images/boxes.gif");
		}
	&icons_table(\@links, \@titles, \@icons, 8);
	print "</td></tr></table><p>\n";
	}

# Display buttons
print "<input type=submit value='$text{'view_reply'}' name=reply>\n";
print "<input type=submit value='$text{'view_reply2'}' name=reply2>\n";
print "<input type=submit value='$text{'view_forward'}' name=forward>\n";
print "&nbsp;&nbsp;&nbsp;\n";
print "<input type=submit value='$text{'view_delete'}' name=delete>\n";
print "</form>\n";

print "<hr>\n";
$s = int((@mail - $in{'idx'}) / $config{'perpage'}) * $config{'perpage'};
&footer("list_mail.cgi?user=$in{'user'}&start=$s", $text{'mail_return'});