Gecko [ contributie.vriendennsm.nl ]

Name	Size	Permission	Date
images	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
lang	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
ulang	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
CHANGELOG	2.13 KB	-rw-r--r--	2026-07-19 16:26
config	316 B	-rw-r--r--	2026-07-19 16:26
config-debian-linux	311 B	-rw-r--r--	2026-07-19 16:26
config-freebsd	303 B	-rw-r--r--	2026-07-19 16:26
config.info	1.9 KB	-rw-r--r--	2026-07-19 16:26
config.info.ca	2.27 KB	-rwxr-xr-x	2026-07-19 16:26
config.info.de	1.08 KB	-rw-r--r--	2026-07-19 16:26
config.info.el	2.09 KB	-rw-r--r--	2026-07-19 16:26
config.info.nl	2.04 KB	-rwxr-xr-x	2026-07-19 16:26
config.info.no	2 KB	-rw-r--r--	2026-07-19 16:26
defaultuconfig	38 B	-rw-r--r--	2026-07-19 16:26
delete_all.cgi	257 B	-rwxr-xr-x	2026-07-19 16:28
delete_awl.cgi	1.17 KB	-rwxr-xr-x	2026-07-19 16:28
deleteone_awl.cgi	560 B	-rwxr-xr-x	2026-07-19 16:28
detach.cgi	940 B	-rwxr-xr-x	2026-07-19 16:28
edit_awl.cgi	3.54 KB	-rwxr-xr-x	2026-07-19 16:28
edit_header.cgi	4.55 KB	-rwxr-xr-x	2026-07-19 16:28
edit_procmail.cgi	1.87 KB	-rwxr-xr-x	2026-07-19 16:28
edit_razor.cgi	875 B	-rwxr-xr-x	2026-07-19 16:28
edit_report.cgi	4.3 KB	-rwxr-xr-x	2026-07-19 16:28
edit_score.cgi	3.18 KB	-rwxr-xr-x	2026-07-19 16:28
edit_setup.cgi	1.57 KB	-rwxr-xr-x	2026-07-19 16:28
edit_simple.cgi	1.5 KB	-rwxr-xr-x	2026-07-19 16:28
edit_user.cgi	2.82 KB	-rwxr-xr-x	2026-07-19 16:28
edit_white.cgi	4.45 KB	-rwxr-xr-x	2026-07-19 16:28
index.cgi	4.05 KB	-rwxr-xr-x	2026-07-19 16:28
install_check.pl	400 B	-rwxr-xr-x	2026-07-19 16:26
langs	718 B	-rw-r--r--	2026-07-19 16:26
locales	69 B	-rw-r--r--	2026-07-19 16:26
mail.cgi	4.66 KB	-rwxr-xr-x	2026-07-19 16:28
mail_search.cgi	5 KB	-rwxr-xr-x	2026-07-19 16:28
module.info	181 B	-rw-r--r--	2026-07-19 16:26
module.info.ar	0 B	-rw-r--r--	2026-07-19 16:26
module.info.ar.auto	203 B	-rw-r--r--	2026-07-19 16:26
module.info.bg	0 B	-rw-r--r--	2026-07-19 16:26
module.info.bg.auto	220 B	-rw-r--r--	2026-07-19 16:26
module.info.ca	38 B	-rw-r--r--	2026-07-19 16:26
module.info.ca.auto	135 B	-rw-r--r--	2026-07-19 16:26
module.info.cs	36 B	-rw-r--r--	2026-07-19 16:26
module.info.cs.auto	126 B	-rw-r--r--	2026-07-19 16:26
module.info.da	0 B	-rw-r--r--	2026-07-19 16:26
module.info.da.auto	151 B	-rw-r--r--	2026-07-19 16:26
module.info.de	141 B	-rw-r--r--	2026-07-19 16:26
module.info.el	0 B	-rw-r--r--	2026-07-19 16:26
module.info.el.auto	334 B	-rw-r--r--	2026-07-19 16:26
module.info.es	0 B	-rw-r--r--	2026-07-19 16:26
module.info.es.auto	163 B	-rw-r--r--	2026-07-19 16:26
module.info.eu	0 B	-rw-r--r--	2026-07-19 16:26
module.info.eu.auto	165 B	-rw-r--r--	2026-07-19 16:26
module.info.fa	0 B	-rw-r--r--	2026-07-19 16:26
module.info.fa.auto	193 B	-rw-r--r--	2026-07-19 16:26
module.info.fi	0 B	-rw-r--r--	2026-07-19 16:26
module.info.fi.auto	145 B	-rw-r--r--	2026-07-19 16:26
module.info.fr	0 B	-rw-r--r--	2026-07-19 16:26
module.info.fr.auto	161 B	-rw-r--r--	2026-07-19 16:26
module.info.hr	0 B	-rw-r--r--	2026-07-19 16:26
module.info.hr.auto	159 B	-rw-r--r--	2026-07-19 16:26
module.info.hu	41 B	-rw-r--r--	2026-07-19 16:26
module.info.hu.auto	128 B	-rw-r--r--	2026-07-19 16:26
module.info.it	0 B	-rw-r--r--	2026-07-19 16:26
module.info.it.auto	147 B	-rw-r--r--	2026-07-19 16:26
module.info.ja	0 B	-rw-r--r--	2026-07-19 16:26
module.info.ja.auto	199 B	-rw-r--r--	2026-07-19 16:26
module.info.ko	0 B	-rw-r--r--	2026-07-19 16:26
module.info.ko.auto	186 B	-rw-r--r--	2026-07-19 16:26
module.info.ms	0 B	-rw-r--r--	2026-07-19 16:26
module.info.ms.auto	155 B	-rw-r--r--	2026-07-19 16:26
module.info.nl	34 B	-rw-r--r--	2026-07-19 16:26
module.info.no	35 B	-rw-r--r--	2026-07-19 16:26
module.info.no.auto	117 B	-rw-r--r--	2026-07-19 16:26
module.info.pl	35 B	-rw-r--r--	2026-07-19 16:26
module.info.pl.auto	133 B	-rw-r--r--	2026-07-19 16:26
module.info.pt	0 B	-rw-r--r--	2026-07-19 16:26
module.info.pt.auto	149 B	-rw-r--r--	2026-07-19 16:26
module.info.pt_BR	0 B	-rw-r--r--	2026-07-19 16:26
module.info.pt_BR.auto	158 B	-rw-r--r--	2026-07-19 16:26
module.info.ru	32 B	-rw-r--r--	2026-07-19 16:26
module.info.ru.auto	205 B	-rw-r--r--	2026-07-19 16:26
module.info.sk	0 B	-rw-r--r--	2026-07-19 16:26
module.info.sk.auto	182 B	-rw-r--r--	2026-07-19 16:26
module.info.sv	0 B	-rw-r--r--	2026-07-19 16:26
module.info.sv.auto	160 B	-rw-r--r--	2026-07-19 16:26
module.info.tr	0 B	-rw-r--r--	2026-07-19 16:26
module.info.tr.auto	171 B	-rw-r--r--	2026-07-19 16:26
module.info.uk	0 B	-rw-r--r--	2026-07-19 16:26
module.info.uk.auto	279 B	-rw-r--r--	2026-07-19 16:26
module.info.zh	0 B	-rw-r--r--	2026-07-19 16:26
module.info.zh.auto	151 B	-rw-r--r--	2026-07-19 16:26
module.info.zh_TW	0 B	-rw-r--r--	2026-07-19 16:26
module.info.zh_TW.auto	160 B	-rw-r--r--	2026-07-19 16:26
process.cgi	2.84 KB	-rwxr-xr-x	2026-07-19 16:28
save_header.cgi	3.1 KB	-rwxr-xr-x	2026-07-19 16:28
save_procmail.cgi	1.75 KB	-rwxr-xr-x	2026-07-19 16:28
save_report.cgi	2.14 KB	-rwxr-xr-x	2026-07-19 16:28
save_score.cgi	2.05 KB	-rwxr-xr-x	2026-07-19 16:28
save_simple.cgi	2.75 KB	-rwxr-xr-x	2026-07-19 16:28
save_user.cgi	1.64 KB	-rwxr-xr-x	2026-07-19 16:28
save_white.cgi	2.1 KB	-rwxr-xr-x	2026-07-19 16:28
setup.cgi	2.71 KB	-rwxr-xr-x	2026-07-19 16:28
setup_razor.cgi	1.15 KB	-rwxr-xr-x	2026-07-19 16:28
spam-lib.pl	30.19 KB	-rwxr-xr-x	2026-07-19 16:26
uconfig.info	378 B	-rw-r--r--	2026-07-19 16:26
uconfig.info.ca	448 B	-rwxr-xr-x	2026-07-19 16:26
uconfig.info.cs	367 B	-rw-r--r--	2026-07-19 16:26
uconfig.info.de	486 B	-rwxr-xr-x	2026-07-19 16:26
uconfig.info.fr	533 B	-rw-r--r--	2026-07-19 16:26
uconfig.info.nl	420 B	-rw-r--r--	2026-07-19 16:26
uconfig.info.no	388 B	-rw-r--r--	2026-07-19 16:26
uconfig.info.pl	0 B	-rw-r--r--	2026-07-19 16:26
view_mail.cgi	8 KB	-rwxr-xr-x	2026-07-19 16:28

Rename

#!/usr/bin/perl
# Display entries in the auto-whitelist

require './spam-lib.pl';
&ReadParse();
&set_config_file_in(\%in);
&can_use_check("awl");
&ui_print_header($header_subtext, $text{'awl_title'}, "");
$formno = 0;

# Check if we need a username
if (&supports_auto_whitelist() == 2) {
	print &ui_form_start("edit_awl.cgi");
	print $form_hiddens;
	print "$text{'awl_user'}\n";
	print &ui_user_textbox("user", $in{'user'}),"\n",
	 &ui_submit($text{'awl_uok'});
	print &ui_form_end();
	$formno++;

if (!$in{'user'}) {
		# Can't do any more
		goto BUTTONS;
		}
	}

# Open the DBM, or give up
$awf = &get_auto_whitelist_file($in{'user'});
$ok = &open_auto_whitelist_dbm($in{'user'});
if (!&can_edit_awl($in{'user'})) {
	&ui_print_endpage("".&text('awl_cannotuser',
		"<tt>".&html_escape($in{'user'})."</tt>")."");
	}
elsif (!defined(getpwnam($in{'user'})) && !$module_info{'usermin'}) {
	&ui_print_endpage("".&text('awl_nouser',
		"<tt>".&html_escape($in{'user'})."</tt>")."");
	}
elsif (!$awf) {
	&ui_print_endpage("".&text('awl_nofile',
		"<tt>".&html_escape($in{'user'})."</tt>")."");
	}
elsif ($ok == 0) {
	&ui_print_endpage("".&text('awl_cannot', $awf)."");
	}
elsif ($ok < 0) {
	&ui_print_endpage("".&text('awl_empty', $awf)."");
	}

# Show search form
@keys = sort { $a cmp $b } keys %awl;
@keys = grep { !/\|totscore/ } @keys;
print &ui_form_start("edit_awl.cgi");
print $form_hiddens;
print "$text{'awl_search'}\n";
print &ui_textbox("search", $in{'search'}, 30),"\n",
 &ui_submit($text{'awl_ok'});
print &ui_hidden("user", $in{'user'});
print &ui_form_end();
$formno++;
if ($in{'search'}) {
	@keys = grep { /\Q$in{'search'}\E/i } @keys;
	print &text('awl_searching',
		 "".&html_escape($in{'search'}).""),"\n";
	}

if (@keys > $max_awl_keys && !$in{'search'}) {
	# Too many to show
	print "",&text('awl_toomany', scalar(@keys),
			 $max_awl_keys),"\n";
	}
else {
	# Show table
	print &ui_form_start("delete_awl.cgi", "post");
	print $form_hiddens;
	print &ui_hidden("search", $in{'search'});
	print &ui_hidden("user", $in{'user'});
	@links = ( &select_all_link("d", $formno),
		 &select_invert_link("d", $formno) );
	@tds = ( "width=5" );
	print &ui_links_row(\@links);
	print &ui_columns_start([ "",
				 $text{'awl_email'},
				 $text{'awl_ip'},
				 $text{'awl_count'},
				 $text{'awl_score'} ], undef, 0, \@tds);
	foreach $k (@keys) {
		($email, $ip, $rest) = split(/\|/, $k);
		if ($ip eq "ip=none") {
			$ip = $text{'awl_none'};
			}
		elsif ($ip =~ /^ip=(\S+)$/) {
			$ip = $1;
			}
		else {
			$ip = $text{'awl_unknown'};
			}
		$score = $awl{$k."|totscore"};
		print &ui_checked_columns_row([ $email, $ip, $awl{$k}, $score ],
					 \@tds, "d", $k);
		}
	print &ui_columns_end();
	print &ui_links_row(\@links);
	print &ui_form_end([ [ undef, $text{'awl_delete'} ],
			 [ 'white', $text{'awl_white'} ],
			 [ 'black', $text{'awl_black'} ] ]);
	}
&close_auto_whitelist_dbm();

# Show delete buttons
BUTTONS:
print &ui_hr();
print &ui_buttons_start();
if ($in{'user'} || &supports_auto_whitelist() == 1) {
	# Delete for this user
	print &ui_buttons_row("deleteone_awl.cgi",
		 $text{'awl_deleteone'}, &text('awl_deleteonedesc',
				"<tt>".&html_escape($in{'user'})."</tt>"),
		 &ui_hidden("user", $in{'user'}).
		 $form_hiddens);
	}
if (&supports_auto_whitelist() == 2) {
	# Delete for all users
	print &ui_buttons_row("deleteall_awl.cgi",
		 $text{'awl_deleteall'}, $text{'awl_deletealldesc'},
		 $form_hiddens);
	}
print &ui_buttons_end();

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