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_amavisd.cgi

#!/usr/bin/perl
# Allow changing of the rule for delivering spam

require './spam-lib.pl';
require './spam-amavis-lib.pl';
&ReadParse();
&can_use_check("amavisd");
&ui_print_header(undef, $text{'amavisd_title'}, "");
	
my $amavis_cf=$config{'amavisdconf'};
$amavis_cf=$text{'index_unknown'} if (!$amavis_cf);
if (!-r $amavis_cf ) {
	# Config not found
	print &text('amavis_econfig',
		"<tt>$amavis_cf</tt>",
		"../config.cgi?$module_name"),"\n";
	&ui_print_footer($redirect_url, $text{'index_return'});
	exit
	}

$conf = &get_amavis_config();

print &text('amavisd_desc'),"\n";

# tabbed interface for config and quaratine
@tabs=(['config', $text{'amavis_tab_config'}], [ 'quarantine', $text{'amavis_tab_quarantine'} ]);
print &ui_tabs_start(\@tabs, 'mode','config');

# Find the existing config
print &ui_tabs_start_tab("mode", "config");
&start_form("save_amavisd.cgi", $text{'score_header'});

# spam tag2 level, when is classiefied as spam
$hits = &amavis_find('sa_tag2_level_deflt', $conf);
print &ui_table_row($text{'amavis_hits'},
	&opt_field('sa_tag2_level_deflt', $hits, 5, "undef"));

# amavis quarantine spam level
$hits = &amavis_find('sa_kill_level_deflt', $conf);
print &ui_table_row($text{'amavis_quarantine_level'},
	&opt_field('sa_kill_level_deflt', $hits, 5, "undef"));

# amavis no DSN spam level
$hits = &amavis_find('sa_dsn_cutoff_level', $conf);
print &ui_table_row($text{'amavis_dsn_level'},
	&opt_field('sa_dsn_cutoff_level', $hits, 5, "undef"));

# amavis delete spam level
$hits = &amavis_find('sa_quarantine_cutoff_level', $conf);
print &ui_table_row($text{'amavis_delete_level'},
	&opt_field('sa_quarantine_cutoff_level', $hits, 5, "undef"));

print &ui_table_hr();
# should amavis rewrite subject
$rewrite = &amavis_find('sa_spam_modifies_subj', $conf);
print &ui_table_row($text{'amavis_rewrite'},
	&yes_no_field('sa_spam_modifies_subj', $rewrite, "undef"));

# do how to modify subject 
$hits = &amavis_find('sa_spam_subject_tag', $conf);
print &ui_table_row($text{'amavis_rsubject'},
	&opt_field('sa_spam_subject_tag', $hits, 9, "undef"));

# insert X-Spam header 
$hits = &amavis_find('sa_spam_report_header', $conf);
print &ui_table_row($text{'amavis_report_header'},
	&yes_no_field('sa_spam_report_header', $hits, 0));

# character to use for spam level 
$hits = &amavis_find('sa_spam_level_char', $conf);
print &ui_table_row($text{'amavis_level_char'},
	&opt_field('sa_spam_level_char', $hits, 2, "*"));

# network checks enabled?
$rewrite = &amavis_find('sa_local_tests_only', $conf);
print &ui_table_row($text{'amavis_local_only'},
	&yes_no_field('sa_local_tests_only', $rewrite, 0));

# do not check mail larger then
$hits = &amavis_find('sa_mail_body_size_limit', $conf);
print &ui_table_row($text{'amavis_size_limit'},
	&opt_field('sa_mail_body_size_limit', $hits, 9, "undef"));

&end_form(undef, $text{'amavis_ok'});
print &ui_tabs_end_tab("mode", "config");

# list quarantine
print &ui_tabs_start_tab("mode", "quarantine");
print &ui_table_start($text{'amavis_tab_quarantine'}, "width=100%", 2);

# get amavids.conf values
$dir=&amavis_find_value('QUARANTINEDIR', $conf);
$to=&amavis_find_value('spam_quarantine_to', $conf);
$method=&amavis_find_value('spam_quarantine_method', $conf);
$admin=&amavis_find_value('spam_admin', $conf);
$admin=&amavis_find_value('daemon_user', $conf)."@".&amavis_find_value('myhostname', $conf) if (!$admin);

print &ui_table_span($text{'amavis_quarantine_desc'}."");

print &ui_table_row($text{'amavis_spam_admin'}, $admin);

if (!$to && $method =~ /^local:/) {
	print &ui_table_span(" ".&text('amavis_quarantine_off', $config{'amavisdconf'})."");
	print &ui_table_hr();
	print &ui_table_span("".$text{'amavis_nostat'}."");
} else {
 if ($to =~ /@/) {
	# spam is forwarded to mail adress
	print &ui_table_row($text{'amavis_quarantine_mail'}, $to);
	print &ui_table_hr();
	print &ui_table_span("".$text{'amavis_nostat'}."");
 } else {
	if ($method =~ s/^bsmtp://) {
	 # spam is quarantined in bsmtp format
	 $method =~ s/\%.*$/*/;
	 print &ui_table_row($text{'amavis_quarantine_bsmtp'}, $dir."/".$method);
	} else {
	 # spam is qurantined local
	 $method =~ s/^local:(.*?)\%.*$/\1*/;
	 print &ui_table_row($text{'amavis_quarantine_local'}, $dir."/".$method);
	}
	# display spamstat ...
	print &ui_table_hr();
	print &ui_table_row($text{'amavis_quarantine_total'},&backquote_command("ls $dir/$method| wc -l"));
	print &ui_table_row($text{'amavis_quarantine_today'},&backquote_command("find $dir/$method -ctime -1| wc -l"));
	print &ui_table_row($text{'amavis_quarantine_week'},&backquote_command("find $dir/$method -ctime -7| wc -l"));
	print &ui_table_row($text{'amavis_quarantine_month'},&backquote_command("find $dir/$method -ctime -30| wc -l"));
 }
}

print &ui_table_end();
print &ui_tabs_end_tab("mode", "quarantine");

#end tabbed interface
print &ui_tabs_end(1);

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

${this.title}

Code Editor : edit_amavisd.cgi