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

#!/usr/bin/perl
# edit_white.cgi
# Display white and black lists of to and from addresses

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

print "$text{'white_desc'}\n";
print &ui_form_start("save_white.cgi", "form-data");
print $form_hiddens;

# Start of tabs
$url = "edit_white.cgi?file=".&urlize($in{'file'}).
       "&title=".&urlize($in{'title'});
print &ui_tabs_start(
	[ map { [ $_, $text{'white_tab'.$_}, $url."&mode=$_" ] }
	      ( 'ham', 'spam', 'some', 'import' ) ],
	"mode", $in{'mode'} || "ham", 1);

# Start of ham addresses tab
print &ui_tabs_start_tab("mode", "ham");
print $text{'white_hamdesc'},"\n";
print &ui_table_start(undef, undef, 2);

# Addresses to always whitelist
@from = &find("whitelist_from", $conf);
print &ui_table_row($text{'white_from'},
	&edit_textbox("whitelist_from",
		      [ map { @{$_->{'words'}} } @from ], 60, 10));

# Exceptions to whitelist
@un = &find("unwhitelist_from", $conf);
print &ui_table_row($text{'white_unfrom'},
	&edit_textbox("unwhitelist_from",
		      [ map { @{$_->{'words'}} } @un ], 60, 5));

if ($config{'show_global'}) {
	# Global white and blacklists
	$gconf = &get_config($config{'global_cf'}, 1);
	@gfrom = &find("whitelist_from", $gconf);
	print &ui_table_row($text{'white_gfrom'},
		&edit_textbox("gwhitelist_from",
			      [ map { @{$_->{'words'}} } @gfrom ], 40, 5, 1));

@gun = &find("unwhitelist_from", $gconf);
	print &ui_table_row($text{'white_gunfrom'},
		&edit_textbox("gunwhitelist_from",
			      [ map { @{$_->{'words'}} } @gun ], 40, 5));
	}

# Whitelist by received header
@rcvd = &find("whitelist_from_rcvd", $conf);
print &ui_table_row($text{'white_rcvd2'},
	&edit_table("whitelist_from_rcvd",
		[ $text{'white_addr'}, $text{'white_rcvdhost'} ],
		[ map { $_->{'words'} } @rcvd ], [ 40, 30 ], undef, 3));

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

# Start of spam addresses tab
print &ui_tabs_start_tab("mode", "spam");
print $text{'white_spamdesc'},"\n";
print &ui_table_start(undef, undef, 2);

# Blacklisted addresses
@from = &find("blacklist_from", $conf);
print &ui_table_row($text{'white_black'},
	&edit_textbox("blacklist_from",
		      [ map { @{$_->{'words'}} } @from ], 60, 10));

# Exceptions to blacklist
@un = &find("unblacklist_from", $conf);
print &ui_table_row($text{'white_unblack'},
	&edit_textbox("unblacklist_from",
		      [ map { @{$_->{'words'}} } @un ], 40, 5));

if ($config{'show_global'}) {
	# Global blacklist
	@gfrom = &find("blacklist_from", $gconf);
	print &ui_table_row($text{'white_gblack'},
		&edit_textbox("gblacklist_from",
			      [ map { @{$_->{'words'}} } @gfrom ], 40, 5, 1));

@gun = &find("gunblacklist_from", $gconf);
	print &ui_table_row($text{'white_gunblack'},
		&edit_textbox("gunblacklist_from",
			      [ map { @{$_->{'words'}} } @gun ], 40, 5, 1));
	}

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

print &ui_tabs_start_tab("mode", "some");
print $text{'white_somedesc'},"\n";
print &ui_table_start(undef, undef, 2);

# Addresses to allow some spam to
push(@to, map { [ $_, 0 ] } map { @{$_->{'words'}} }
	      &find("whitelist_to", $conf));
push(@to, map { [ $_, 1 ] } map { @{$_->{'words'}} }
	      &find("more_spam_to", $conf));
push(@to, map { [ $_, 2 ] } map { @{$_->{'words'}} }
	      &find("all_spam_to", $conf));
print &ui_table_row($text{'white_to'},
	&edit_table("whitelist_to",
		    [ $text{'white_addr2'}, $text{'white_level'} ],
		    \@to, [ 40, 0 ], \&whitelist_to_conv, 3));

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

# Show whitelist import form
print &ui_tabs_start_tab("mode", "import");
print "$text{'white_importdesc'}\n";
print &ui_table_start(undef, undef, 2);

# File to import, uploaded
print &ui_table_row($text{'white_import'}, &ui_upload("import"));

# Sort addresses?
print &ui_table_row($text{'white_sort'}, &ui_yesno_radio("sort", 0));

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

print &ui_tabs_end(1);
print &ui_form_end([ [ undef, $text{'save'} ] ]);

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

# whitelist_to_conv(col, name, size, value)
sub whitelist_to_conv
{
if ($_[0] == 0) {
	return &default_convfunc(@_);
	}
else {
	return &ui_select($_[1], $_[3],
		[ [ 0, $text{"white_level0"} ],
		  [ 1, $text{"white_level1"} ],
		  [ 2, $text{"white_level2"} ] ]);
	}
}

${this.title}

Code Editor : edit_white.cgi