list_mail.cgi

Unix下基于Web的管理工具

#!/usr/local/bin/perl
# list_mail.cgi
# List the mail messages for some user

require './sendmail-lib.pl';
require './boxes-lib.pl';
&ReadParse();
&can_read_mail($in{'user'}) || &error($text{'mail_ecannot'});

&header($text{'mail_title'}, "");
print "<center><font size=+2>",
      &text('mail_for', "<tt>$config{'mail_dir'}/$in{'user'}</tt>"),
      "</font></center>\n";
print "<hr>\n";

@mail = reverse(&list_mails($in{'user'},
		-$in{'start'}, -$in{'start'}-$config{'perpage'}+1));
if ($in{'start'} || @mail > $config{'perpage'}) {
	print "<center>\n";
	if ($in{'start'}+$config{'perpage'} < @mail) {
		printf "<a href='list_mail.cgi?user=%s&start=%d'>%s</a>\n",
			$in{'user'}, $in{'start'}+$config{'perpage'},
			'<img src=/images/left.gif border=0 align=middle>';
		}
	print "<font size=+1>",&text('mail_pos', @mail-$in{'start'},
		@mail-$in{'start'}-$config{'perpage'}+1, scalar(@mail)),
		"</font>\n";
	if ($in{'start'}) {
		printf "<a href='list_mail.cgi?user=%s&start=%d'>%s</a>\n",
			$in{'user'}, $in{'start'}-$config{'perpage'},
			'<img src=/images/right.gif border=0 align=middle>';
		}
	print "</center>\n";
	}

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

if (!@mail) {
	print "<b>$text{'mail_none'}</b><p>\n";
	}
else {
	print "<table border width=100%>\n";
	print "<tr $tb> <td><b>$text{'mail_from'}</b></td> ",
	      "<td><b>$text{'mail_date'}</b></td> ",
	      "<td><b>$text{'mail_size'}</b></td> ",
	      "<td><b>$text{'mail_subject'}</b></td> </tr>\n";
	}

for($i=$in{'start'}; $i<@mail && $i<$in{'start'}+$config{'perpage'}; $i++) {
	local $idx = $mail[$i]->{'idx'};
	print "<tr $cb>\n";
	print "<td nowrap><a href='view_mail.cgi?user=$in{'user'}&idx=$idx'>",
              &simplify_from($mail[$i]->{'header'}->{'from'}),"</td>\n";
	print "<td nowrap>",&simplify_date($mail[$i]->{'header'}->{'date'}),
	      "</td>\n";
	print "<td nowrap>",int($mail[$i]->{'size'}/1000)+1," Kb</td>\n";
	print "<td>",&simplify_subject($mail[$i]->{'header'}->{'subject'}),
	      "</td>\n";
	print "</tr>\n";
	}
print "</table><p>\n";

print "<input type=submit value='$text{'mail_compose'}'></form>\n";

print "<hr>\n";
&footer("list_boxes.cgi", $text{'boxes_return'});

sub simplify_date
{
if ($_[0] =~ /^(\S+),\s+0*(\d+)\s+(\S+)\s+(\d+)\s+(\d+):(\d+)/) {
	return "$2/$3/$4 $5:$6";
	}
return $_[0];
}

sub simplify_from
{
local $rv = $_[0];
$rv =~ s/<[^>]+>//g;
return &html_escape($rv);
}

sub simplify_subject
{
return $_[0] =~ /\S/ ? &html_escape($_[0]) : "<br>";
}