FM / spam

/usr/share/usermin/spam

Name	Size	Mode	Actions
images/	-	0755	rm
lang/	-	0755	rm
ulang/	-	0755	rm
CHANGELOG	2184	0644	edit dl rm
config	316	0644	edit dl rm
config-debian-linux	311	0644	edit dl rm
config-freebsd	303	0644	edit dl rm
config.info	1946	0644	edit dl rm
config.info.ca	2327	0755	edit dl rm
config.info.de	1104	0644	edit dl rm
config.info.el	2137	0644	edit dl rm
config.info.nl	2087	0755	edit dl rm
config.info.no	2049	0644	edit dl rm
defaultuconfig	38	0644	edit dl rm
deleteone_awl.cgi	560	0755	edit dl rm
delete_all.cgi	257	0755	edit dl rm
delete_awl.cgi	1203	0755	edit dl rm
detach.cgi	940	0755	edit dl rm
edit_awl.cgi	3630	0755	edit dl rm
edit_header.cgi	4662	0755	edit dl rm
edit_procmail.cgi	1917	0755	edit dl rm
edit_razor.cgi	875	0755	edit dl rm
edit_report.cgi	4404	0755	edit dl rm
edit_score.cgi	3258	0755	edit dl rm
edit_setup.cgi	1612	0755	edit dl rm
edit_simple.cgi	1537	0755	edit dl rm
edit_user.cgi	2889	0755	edit dl rm
edit_white.cgi	4555	0755	edit dl rm
index.cgi	4150	0755	edit dl rm
install_check.pl	400	0755	edit dl rm
langs	718	0644	edit dl rm
locales	69	0644	edit dl rm
mail.cgi	4775	0755	edit dl rm
mail_search.cgi	5122	0755	edit dl rm
module.info	181	0644	edit dl rm
module.info.ar	0	0644	edit dl rm
module.info.ar.auto	203	0644	edit dl rm
module.info.bg	0	0644	edit dl rm
module.info.bg.auto	220	0644	edit dl rm
module.info.ca	38	0644	edit dl rm
module.info.ca.auto	135	0644	edit dl rm
module.info.cs	36	0644	edit dl rm
module.info.cs.auto	126	0644	edit dl rm
module.info.da	0	0644	edit dl rm
module.info.da.auto	151	0644	edit dl rm
module.info.de	141	0644	edit dl rm
module.info.el	0	0644	edit dl rm
module.info.el.auto	334	0644	edit dl rm
module.info.es	0	0644	edit dl rm
module.info.es.auto	163	0644	edit dl rm
module.info.eu	0	0644	edit dl rm
module.info.eu.auto	165	0644	edit dl rm
module.info.fa	0	0644	edit dl rm
module.info.fa.auto	193	0644	edit dl rm
module.info.fi	0	0644	edit dl rm
module.info.fi.auto	145	0644	edit dl rm
module.info.fr	0	0644	edit dl rm
module.info.fr.auto	161	0644	edit dl rm
module.info.hr	0	0644	edit dl rm
module.info.hr.auto	159	0644	edit dl rm
module.info.hu	41	0644	edit dl rm
module.info.hu.auto	128	0644	edit dl rm
module.info.it	0	0644	edit dl rm
module.info.it.auto	147	0644	edit dl rm
module.info.ja	0	0644	edit dl rm
module.info.ja.auto	199	0644	edit dl rm
module.info.ko	0	0644	edit dl rm
module.info.ko.auto	186	0644	edit dl rm
module.info.ms	0	0644	edit dl rm
module.info.ms.auto	155	0644	edit dl rm
module.info.nl	34	0644	edit dl rm
module.info.no	35	0644	edit dl rm
module.info.no.auto	117	0644	edit dl rm
module.info.pl	35	0644	edit dl rm
module.info.pl.auto	133	0644	edit dl rm
module.info.pt	0	0644	edit dl rm
module.info.pt.auto	149	0644	edit dl rm
module.info.pt_BR	0	0644	edit dl rm
module.info.pt_BR.auto	158	0644	edit dl rm
module.info.ru	32	0644	edit dl rm
module.info.ru.auto	205	0644	edit dl rm
module.info.sk	0	0644	edit dl rm
module.info.sk.auto	182	0644	edit dl rm
module.info.sv	0	0644	edit dl rm
module.info.sv.auto	160	0644	edit dl rm
module.info.tr	0	0644	edit dl rm
module.info.tr.auto	171	0644	edit dl rm
module.info.uk	0	0644	edit dl rm
module.info.uk.auto	279	0644	edit dl rm
module.info.zh	0	0644	edit dl rm
module.info.zh.auto	151	0644	edit dl rm
module.info.zh_TW	0	0644	edit dl rm
module.info.zh_TW.auto	160	0644	edit dl rm
process.cgi	2911	0755	edit dl rm
save_header.cgi	3173	0755	edit dl rm
save_procmail.cgi	1795	0755	edit dl rm
save_report.cgi	2193	0755	edit dl rm
save_score.cgi	2099	0755	edit dl rm
save_simple.cgi	2818	0755	edit dl rm
save_user.cgi	1679	0755	edit dl rm
save_white.cgi	2151	0755	edit dl rm
setup.cgi	2778	0755	edit dl rm
setup_razor.cgi	1175	0755	edit dl rm
spam-lib.pl	30915	0755	edit dl rm
uconfig.info	378	0644	edit dl rm
uconfig.info.ca	448	0755	edit dl rm
uconfig.info.cs	367	0644	edit dl rm
uconfig.info.de	486	0755	edit dl rm
uconfig.info.fr	533	0644	edit dl rm
uconfig.info.nl	420	0644	edit dl rm
uconfig.info.no	388	0644	edit dl rm
uconfig.info.pl	0	0644	edit dl rm
view_mail.cgi	8194	0755	edit dl rm

Edit: /usr/share/usermin/spam/mail.cgi (4775B)

#!/usr/bin/perl
# mail.cgi
# Display messages that have been categorized as spam

require './spam-lib.pl';
&foreign_require("mailbox", "mailbox-lib.pl");
&ReadParse();
$folder = &spam_file_folder();
&disable_indexing($folder);
dbmopen(%read, "$user_config_directory/mailbox/read", 0600);

$ref = $userconfig{'refresh'} || $mailbox::userconfig{'refresh'};
if ($ref) {
	print "Refresh: $ref\r\n";
	&ui_print_header(undef, $text{'mail_title'}, "", undef, 0, 0, 0,
		$ref > 60 ? &text('mail_will', int($ref/60)) :
			    &text('mail_wills', $ref));
	}
else {
	&ui_print_header(undef, $text{'mail_title'}, "");
	}
print &check_clicks_function() if (defined(&check_clicks_function));

#print "$text{'mail_desc'}<p>\n";

# View mail from the most recent
$perpage = $folder->{'perpage'} || $mailbox::userconfig{'perpage'};
@mail = &mailbox::mailbox_list_mails_sorted($in{'start'},
				    $in{'start'}+$perpage-1,
				    $folder, 1, \@error);
print "<form action=mail.cgi><center>\n";
if ($in{'start'}+$perpage < @mail) {
	printf "<a href='mail.cgi?start=%d'>%s</a>\n",
		$in{'start'}+$perpage,
		'<img src=/images/left.gif border=0 align=middle>';
	}

local $s = @mail-$in{'start'};
local $e = @mail-$in{'start'}-$perpage+1;
print "<font size=+1>\n";
if (@mail) {
	print &text('mail_pos', $s, $e < 1 ? 1 : $e, scalar(@mail));
	}
else {
	print &text('mail_none');
	}
print "</font> <input type=submit value='$text{'mail_refresh'}'>\n";

if ($in{'start'}) {
	printf "<a href='mail.cgi?start=%d'>%s</a>\n",
		$in{'start'}-$perpage,
		'<img src=/images/right.gif border=0 align=middle>';
	}
print "</center></form>\n";

print "<form action=process.cgi method=post>\n";
if ($mailbox::userconfig{'top_buttons'} && @mail) {
	&show_buttons(1);
	print &select_all_link("d", 1, $mailbox::text{'mail_all'}),"&nbsp;\n";
	print &select_invert_link("d", 1, $mailbox::text{'mail_invert'}),"&nbsp;\n";
	}

if (@mail) {
	print "<table border width=100%>\n";
	print "<tr $tb> <td>&nbsp;</td> ",
	      "<td><b>$mailbox::text{'mail_from'}</b></td> ",
	      "<td><b>$mailbox::text{'mail_date'}</b></td> ",
	      "<td><b>$mailbox::text{'mail_size'}</b></td> ",
	      "<td><b>$text{'mail_level'}</b></td> ",
	      "<td><b>$mailbox::text{'mail_subject'}</b></td> </tr>\n";
	}

for($i=int($in{'start'}); $i<@mail && $i<$in{'start'}+$perpage; $i++) {
	local $idx = $mail[$i]->{'idx'};
	print "<tr $cb>\n";
	print "<td><input type=checkbox name=d value=$i></td>\n";
	if ($userconfig{'full_from'}) {
		print "<td nowrap><a href='view_mail.cgi?idx=$i'>",
		      &html_escape($mail[$i]->{'header'}->{'from'}),
		      "</td>\n";
		}
	else {
		print "<td nowrap><a href='view_mail.cgi?idx=$i'>",
		      &mailbox::simplify_from($mail[$i]->{'header'}->{'from'}),
		      "</td>\n";
		}
	print "<td nowrap>",&mailbox::simplify_date($mail[$i]->{'header'}->{'date'}),
	      "</td>\n";
	print "<td nowrap>",int($mail[$i]->{'size'}/1000)+1," kB","</td>\n";
	print "<td nowrap>",length($mail[$i]->{'header'}->{'x-spam-level'}),"</td>\n";
	print "<td><table border=0 cellpadding=0 cellspacing=0 width=100%>",
	      "<tr><td>",&mailbox::simplify_subject($mail[$i]->{'header'}->{'subject'}),
	      "</td> <td align=right>";
	if ($mail[$i]->{'header'}->{'content-type'} =~ /multipart\/\S+/i) {
		print "<img src=/mailbox/images/attach.gif>";
		}
	local $p = int($mail[$i]->{'header'}->{'x-priority'});
	if ($p == 1) {
		print "&nbsp;<img src=/mailbox/images/p1.gif>";
		}
	elsif ($p == 2) {
		print "&nbsp;<img src=/mailbox/images/p2.gif>";
		}
	if (!$showto) {
		if ($read{$mail[$i]->{'header'}->{'message-id'}} == 2) {
			print "&nbsp;<img src=/mailbox/images/special.gif>";
			}
		elsif ($read{$mail[$i]->{'header'}->{'message-id'}} == 1) {
			print "&nbsp;<img src=/mailbox/images/read.gif>";
			}
		}
	print "</td></tr></table></td> </tr>\n";
	}
if (@mail) {
	print "</table>\n";
	print &select_all_link("d", 1, $mailbox::text{'mail_all'}),"&nbsp;\n";
	print &select_invert_link("d", 1, $mailbox::text{'mail_invert'}),"&nbsp;\n";
	&show_buttons(2);
	}

print "</form>\n";

# Show search field
print "<table width=100%><tr>\n";
print "<form action=mail_search.cgi><td width=33%>\n";
print "<input type=hidden name=simple value=1>\n";
print "<input type=submit value='$mailbox::text{'mail_search2'}'>\n";
print "<input name=search size=20></td></form>\n";

# Show score search field
print "<form action=mail_search.cgi><td align=center width=33%>\n";
print "<input type=submit value='$text{'mail_search3'}'>\n";
print "<input name=score size=5></td></form>\n";

# Show delete all button
print "<form action=delete_all.cgi><td align=right width=33%>\n";
print "<input type=submit value='$text{'mail_delall'}'></td>\n";
print "</form>\n";

print "</tr></table>\n";

&ui_print_footer("", $text{'index_return'});

#!/usr/bin/perl # mail.cgi # Display messages that have been categorized as spam require './spam-lib.pl'; &foreign_require("mailbox", "mailbox-lib.pl"); &ReadParse(); $folder = &spam_file_folder(); &disable_indexing($folder); dbmopen(%read, "$user_config_directory/mailbox/read", 0600); $ref = $userconfig{'refresh'} || $mailbox::userconfig{'refresh'}; if ($ref) { print "Refresh: $ref\r\n"; &ui_print_header(undef, $text{'mail_title'}, "", undef, 0, 0, 0, $ref > 60 ? &text('mail_will', int($ref/60)) : &text('mail_wills', $ref)); } else { &ui_print_header(undef, $text{'mail_title'}, ""); } print &check_clicks_function() if (defined(&check_clicks_function)); #print "$text{'mail_desc'}

\n"; # View mail from the most recent $perpage = $folder->{'perpage'} || $mailbox::userconfig{'perpage'}; @mail = &mailbox::mailbox_list_mails_sorted($in{'start'}, $in{'start'}+$perpage-1, $folder, 1, \@error); print "

\n"; print "

\n"; if ($mailbox::userconfig{'top_buttons'} && @mail) { &show_buttons(1); print &select_all_link("d", 1, $mailbox::text{'mail_all'})," \n"; print &select_invert_link("d", 1, $mailbox::text{'mail_invert'})," \n"; } if (@mail) { print "\n"; print " ", " ", " ", " ", " ", "\n"; } for($i=int($in{'start'}); $i<@mail && $i<$in{'start'}+$perpage; $i++) { local $idx = $mail[$i]->{'idx'}; print "\n"; print "\n"; if ($userconfig{'full_from'}) { print "\n"; } else { print "\n"; } print "\n"; print "\n"; print "\n"; print "\n"; } if (@mail) { print "

$mailbox::text{'mail_from'}

$mailbox::text{'mail_date'}

$mailbox::text{'mail_size'}

$text{'mail_level'}

$mailbox::text{'mail_subject'}

", &html_escape($mail[$i]->{'header'}->{'from'}), "

", &mailbox::simplify_from($mail[$i]->{'header'}->{'from'}), "

",&mailbox::simplify_date($mail[$i]->{'header'}->{'date'}), "

",int($mail[$i]->{'size'}/1000)+1," kB","

",length($mail[$i]->{'header'}->{'x-spam-level'}),"

", "

",&mailbox::simplify_subject($mail[$i]->{'header'}->{'subject'}), "

"; if ($mail[$i]->{'header'}->{'content-type'} =~ /multipart\/\S+/i) { print "

"; } local $p = int($mail[$i]->{'header'}->{'x-priority'}); if ($p == 1) { print "

"; } elsif ($p == 2) { print "

"; } if (!$showto) { if ($read{$mail[$i]->{'header'}->{'message-id'}} == 2) { print "

"; } elsif ($read{$mail[$i]->{'header'}->{'message-id'}} == 1) { print "

"; } } print "

\n"; print &select_all_link("d", 1, $mailbox::text{'mail_all'})," \n"; print &select_invert_link("d", 1, $mailbox::text{'mail_invert'})," \n"; &show_buttons(2); } print "

\n"; # Show search field print "\n"; print "\n"; # Show score search field print "\n"; # Show delete all button print "\n"; print "\n"; print "

\n"; print "\n"; print "\n"; print "

\n"; print "\n"; print "

\n"; print "

\n"; &ui_print_footer("", $text{'index_return'});