Gecko [ 122.154.134.11 ]

Name	Size	Permission
images	[ DIR ]	drwxr-xr-x
lang	[ DIR ]	drwxr-xr-x
CHANGELOG	2.12 KB	-rw-r--r--
acl_security.pl	1.69 KB	-rwxr-xr-x
apply.cgi	229 B	-rwxr-xr-x
backup_config.pl	890 B	-rwxr-xr-x
cgi_args.pl	189 B	-rwxr-xr-x
config	236 B	-rw-r--r--
config-debian-linux	246 B	-rw-r--r--
config-freebsd	288 B	-rw-r--r--
config-pardus-linux	224 B	-rw-r--r--
config-syno-linux	277 B	-rw-r--r--
config.info	1.43 KB	-rw-r--r--
config.info.ca	1.64 KB	-rw-r--r--
config.info.ca.UTF-8	1.66 KB	-rw-r--r--
config.info.cz	1.32 KB	-rw-r--r--
config.info.cz.UTF-8	1.41 KB	-rw-r--r--
config.info.de	1.73 KB	-rw-r--r--
config.info.de.UTF-8	1.73 KB	-rw-r--r--
config.info.el	637 B	-rw-r--r--
config.info.es	482 B	-rw-r--r--
config.info.es.UTF-8	482 B	-rw-r--r--
config.info.fr	502 B	-rw-r--r--
config.info.fr.UTF-8	502 B	-rw-r--r--
config.info.hu	0 B	-rw-r--r--
config.info.nl	1.45 KB	-rw-r--r--
config.info.nl.UTF-8	1.45 KB	-rw-r--r--
config.info.no	1.43 KB	-rw-r--r--
config.info.no.UTF-8	1.43 KB	-rw-r--r--
defaultacl	71 B	-rw-r--r--
delete_awl.cgi	1.17 KB	-rwxr-xr-x
deleteall_awl.cgi	806 B	-rwxr-xr-x
deleteone_awl.cgi	560 B	-rwxr-xr-x
edit_amavisd.cgi	4.85 KB	-rwxr-xr-x
edit_awl.cgi	3.54 KB	-rwxr-xr-x
edit_db.cgi	3.17 KB	-rwxr-xr-x
edit_header.cgi	4.21 KB	-rwxr-xr-x
edit_manual.cgi	1.06 KB	-rwxr-xr-x
edit_priv.cgi	1.2 KB	-rwxr-xr-x
edit_procmail.cgi	1.87 KB	-rwxr-xr-x
edit_report.cgi	4.23 KB	-rwxr-xr-x
edit_score.cgi	3.18 KB	-rwxr-xr-x
edit_setup.cgi	1.57 KB	-rwxr-xr-x
edit_simple.cgi	1.5 KB	-rwxr-xr-x
edit_user.cgi	2.76 KB	-rwxr-xr-x
edit_white.cgi	4.38 KB	-rwxr-xr-x
index.cgi	5.18 KB	-rwxr-xr-x
install_check.pl	423 B	-rwxr-xr-x
langs	718 B	-rw-r--r--
locales	69 B	-rw-r--r--
log_parser.pl	329 B	-rwxr-xr-x
module.info	197 B	-rw-r--r--
module.info.ca	114 B	-rw-r--r--
module.info.ca.UTF-8	126 B	-rw-r--r--
module.info.cz	35 B	-rw-r--r--
module.info.cz.UTF-8	42 B	-rw-r--r--
module.info.de	141 B	-rw-r--r--
module.info.de.UTF-8	153 B	-rw-r--r--
module.info.es	40 B	-rw-r--r--
module.info.es.UTF-8	46 B	-rw-r--r--
module.info.fr	40 B	-rw-r--r--
module.info.fr.UTF-8	46 B	-rw-r--r--
module.info.hu	38 B	-rw-r--r--
module.info.hu.UTF-8	47 B	-rw-r--r--
module.info.ms_MY	144 B	-rw-r--r--
module.info.ms_MY.UTF-8	156 B	-rw-r--r--
module.info.nl	34 B	-rw-r--r--
module.info.nl.UTF-8	40 B	-rw-r--r--
module.info.no	35 B	-rw-r--r--
module.info.no.UTF-8	41 B	-rw-r--r--
save_amavisd.cgi	2.54 KB	-rwxr-xr-x
save_db.cgi	1.87 KB	-rwxr-xr-x
save_header.cgi	2.99 KB	-rwxr-xr-x
save_manual.cgi	727 B	-rwxr-xr-x
save_priv.cgi	879 B	-rwxr-xr-x
save_procmail.cgi	1.75 KB	-rwxr-xr-x
save_report.cgi	2.07 KB	-rwxr-xr-x
save_score.cgi	2.05 KB	-rwxr-xr-x
save_simple.cgi	2.75 KB	-rwxr-xr-x
save_user.cgi	1.64 KB	-rwxr-xr-x
save_white.cgi	2.1 KB	-rwxr-xr-x
setup.cgi	2.71 KB	-rwxr-xr-x
spam-amavis-lib.pl	2.72 KB	-rwxr-xr-x
spam-lib.pl	27.95 KB	-rwxr-xr-x

Code Editor : edit_report.cgi

#!/usr/bin/perl
# edit_report.cgi
# Display a form for editing the spam report text

require './spam-lib.pl';
&ReadParse();
&set_config_file_in(\%in);
&can_use_check("report");
&ui_print_header($header_subtext, $text{'report_title'}, "");
$conf = &get_config();

print "$text{'report_desc'}<p>\n";
print &ui_alert_box($text{'amavis_warn'}, 'info') if ($warn_procmail != 1);
&start_form("save_report.cgi", $text{'report_header'});

if (&version_atleast(3.0)) {
	# New version can replace subject, from and to headers
	@rheader = &find("rewrite_header", $conf);
	foreach $h ("subject", "from", "to") {
		($hn) = grep { lc($_->{'words'}->[0]) eq $h } @rheader;
		print &ui_table_row($text{'report_r'.$h},
			&opt_field("rewrite_header_${h}",
				   $hn ? join(" ", @{$hn->{'words'}}[1..@{$hn->{'words'}}-1]) : undef, 15));
		}
	}
else {
	# Older versions can only replace subject header
	$rewrite = &find("rewrite_subject", $conf);
	print &ui_table_row($text{'report_rewrite'},
		&yes_no_field("rewrite_subject", $rewrite, 1));

$subject = &find("subject_tag", $conf);
	print &ui_table_row($text{'report_subject'},
		&opt_field("subject_tag", $subject, 15, "*****SPAM*****"));
	$header = &find("report_header", $conf);
	# Include report in headers
	#print &ui_table_row($text{'report_rheader'},
	#	&yes_no_field("report_header", $header, 0));

# Terse report mode
	$terse = &find("use_terse_report", $conf);
	print &ui_table_row($text{'report_useterse'},
		&yes_no_field("use_terse_report", $terse, 0));
	}

# Split status header?
$fold = &find("fold_headers", $conf);
print &ui_table_row($text{'report_fold'},
	&yes_no_field("fold_headers", $fold, 1));

# Include details of spam phrases
$detail = &find("detailed_phrase_score", $conf);
print &ui_table_row($text{'report_detail'},
	&yes_no_field("detailed_phrase_score", $detail, 0));

if (!&version_atleast(2.6)) {
	# Include stars header
	$stars = &find("spam_level_stars", $conf);
	print &ui_table_row($text{'report_stars'},
		&yes_no_field("spam_level_stars", $stars, 1));
	}

# Character for stars
# note: has to be replaced in save.cgi with add_header all Level _STARS(.)_ as of 2.6
$char = &find("spam_level_char", $conf);
print &ui_table_row($text{'report_char'},
	&opt_field("spam_level_char", $char, 2, "*"));

# Remove MIME blocks
$defang = &find("defang_mime", $conf);
print &ui_table_row($text{'report_defang'},
	&yes_no_field("defang_mime", $defang, 1));

if (&version_atleast(2.6)) {
	$safe = &find("report_safe", $conf);
	print &ui_table_row($text{'report_safe'},
		&option_field("report_safe", $safe, 1,
			      [ [ 0, $text{'no'} ],
				[ 1, $text{'yes'} ],
				[ 2, $text{'report_safe2'} ] ]));
	}

print &ui_table_hr();

# Extra report to attach to spam messages
@report = &find_value("report", $conf);
$clear = &find("clear_report_template", $conf);
print &ui_table_row($text{'report_report'},
	&ui_radio("clear_report", $clear ? 1 : 0,
		  [ [ 0, $text{'report_noclear'} ],
		    [ 1, $text{'report_clear'} ] ])."<br>\n".
	&ui_textarea("report", join("\n", @report), 5, 80));

# Extra report to attach to spam messages, for terse mode
# note terse report is deprecated in 2.6 and does nothing, will be removed in future
if (!&version_atleast(2.6)) {
	@report = &find_value("terse_report", $conf);
	$clear = &find("clear_terse_report_template", $conf);
	print &ui_table_row($text{'report_terse'},
		&ui_radio("clear_terse", $clear ? 1 : 0,
			  [ [ 0, $text{'report_noclear'} ],
				[ 1, $text{'report_clear'} ] ])."<br>\n".
		&ui_textarea("terse", join("\n", @report), 5, 80));
}

# Additional headers to add
if (&version_atleast(2.6)) {
	print &ui_table_hr();
	$table = &ui_columns_start([ $text{'report_addfor'},
				  $text{'report_addheader'},
				  $text{'report_addtext'} ]);
	$i = 0;
	foreach $a (&find_value("add_header", $conf), undef) {
		local ($for, $header, $text) = split(/\s+/, $a, 3);
		$table .= &ui_columns_row([
			&ui_select("addfor_$i", $for,
				   [ [ "", "&nbsp;" ],
				     map { [ $_, $text{'report_add'.$_} ] }
					 ( "spam", "ham", "all" ) ]),
			&ui_textbox("addheader_$i", $header, 30),
			&ui_textbox("addtext_$i", $text, 30)
				]);
		$i++;
		}
	$table .= &ui_columns_end();
	print &ui_table_row($text{'report_adds'}, $table);
	}

&end_form(undef, $text{'save'});
&ui_print_footer($redirect_url, $text{'index_return'});

${this.title}

Code Editor : edit_report.cgi