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
# Update simple tests

require './spam-lib.pl';
&ReadParse();
&set_config_file_in(\%in);
&can_use_check("header");
$conf = &get_config();
&error_setup($text{'simple_err'});
&execute_before("simple");

# Get existing rules
@simples = &get_simple_tests($conf);
@headers = &find("header", $conf);
@bodies = &find("body", $conf);
@fulls = &find("full", $conf);
@uris = &find("uri", $conf);
@scores = &find("score", $conf);
@describes = &find("describe", $conf);

# Parse and validate inputs
for($i=0; defined($name = $in{"name_$i"}); $i++) {
	$simple = $i < @simples ? $simples[$i] : undef;
	if ($simple) {
		# Take out the directives that would be replaced
		@headers = grep { $_ ne $simple->{'header_dir'} } @headers;
		@bodies = grep { $_ ne $simple->{'body_dir'} } @bodies;
		@fulls = grep { $_ ne $simple->{'full_dir'} } @fulls;
		@uris = grep { $_ ne $simple->{'uri_dir'} } @uris;
		@scores = grep { $_ ne $simple->{'score_dir'} } @scores;
		@describes = grep { $_ ne $simple->{'describe_dir'} } @describes;
		}

if ($name) {
		$name =~ /^\S+$/ || &error(&text('header_ename', $name));
		$donename{$name}++ && &error(&text('header_eclash', $name));
		$header = $in{"header_$i"};
		$regexp = $in{"regexp_$i"};
		$regexp || &error(&text('header_eregexp2', $name));
		$flags = $in{"flags_$i"};
		$flags =~ /^[a-z]*$/ || &error(&text('header_eflags', $flags));
		$score = $in{"score_$i"};
		$score eq "" || $score =~ /^\-?\d+(\.\d+)?$/ ||
				$score =~ /^\-?\.\d+$/ ||
			&error(&text('score_epoints', $score));
		$describe = $in{"describe_$i"};

# Update or add the actual directives
		if ($header eq "body") {
			push(@bodies, { 'name' => 'body',
				       'value' => "$name /$regexp/$flags" });
			}
		elsif ($header eq "full") {
			push(@fulls, { 'name' => 'full',
				       'value' => "$name /$regexp/$flags" });
			}
		elsif ($header eq "uri") {
			push(@uris, { 'name' => 'uri',
				       'value' => "$name /$regexp/$flags" });
			}
		else {
			my $ucheader = ucfirst($header);
			push(@headers, { 'name' => 'header',
				         'value' => "$name $ucheader =~ /$regexp/$flags" });
			}

# Update the score and describe
		if ($score ne "") {
			push(@scores, { 'name' => 'score',
					'value' => "$name $score" });
			}
		if ($describe ne "") {
			push(@describes, { 'name' => 'describe',
					   'value' => "$name $describe" });
			}
		}
	}

# Save the directives
&lock_spam_files();
&save_directives($conf, "header", \@headers, 0);
&save_directives($conf, "body", \@bodies, 0);
&save_directives($conf, "full", \@fulls, 0);
&save_directives($conf, "score", \@scores, 0);
&save_directives($conf, "describe", \@describes, 0);
&save_directives($conf, "uri", \@uris, 0);

&flush_file_lines();
&unlock_spam_files();
&execute_after("header");
&webmin_log("header");
&redirect($redirect_url);