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
# edit_header.cgi
# Display extra header and body test

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

print "$text{'header_desc'}<p>\n";
&start_form("save_header.cgi", $text{'header_header'},
	    "<a href='edit_simple.cgi?file=".&urlize($in{'file'}).
	    "&title=".&urlize($in{'title'}).
	    "'>$text{'header_switch'}</a>");

# Allow user-defined rules?
if (!$module_info{'usermin'}) {
	$allow = &find("allow_user_rules", $conf);
	print &ui_table_row($text{'header_allow'},
		&yes_no_field("allow_user_rules", $allow, 0));
	}

# Header tests
@header = &find("header", $conf);
print &ui_table_row($text{'header_test'},
	&edit_table("header",
	    [ $text{'header_tname'}, $text{'header_name'}, $text{'header_op'},
	      $text{'header_pat'}, $text{'header_default'} ],
	    [ map { [ &split_header($_->{'value'}) ] } @header ], [ ], \&header_conv, 2));

# MIME header tests
@mimeheader = &find("mimeheader", $conf);
print &ui_table_row($text{'header_mimetest'},
	&edit_table("mimeheader",
	    [ $text{'header_tname'}, $text{'header_name'}, $text{'header_op'},
	      $text{'header_pat'}, $text{'header_default'} ],
	    [ map { [ &split_header($_->{'value'}) ] } @mimeheader ], [ ], \&header_conv, 2));

print &ui_table_hr();

push(@body, map { [ &split_body($_->{'value'}), 0 ] } &find("body", $conf));
push(@body, map { [ &split_body($_->{'value'}), 1 ] } &find("rawbody", $conf));
push(@body, map { [ &split_body($_->{'value'}), 2 ] } &find("fullbody", $conf));
push(@body, map { [ &split_body($_->{'value'}), 3 ] } &find("full", $conf));
print &ui_table_row($text{'header_body'},
	&edit_table("body",
	    [ $text{'header_tname'}, $text{'header_mode'}, $text{'header_op'},
	      $text{'header_pat'} ], \@body, [ ], \&body_conv, 2));

print &ui_table_hr();

@uri = &find("uri", $conf);
print &ui_table_row($text{'header_uri'},
	&edit_table("uri",
	    [ $text{'header_tname'}, $text{'header_pat'} ],
	    [ map { $_->{'words'} } @uri ], [ 20, 40 ], undef, 2));

print &ui_table_hr();

@meta = &find("meta", $conf);
print &ui_table_row($text{'header_meta'},
	&edit_table("meta",
	    [ $text{'header_tname'}, $text{'header_bool'} ],
	    [ map { $_->{'value'} =~ /^(\S+)\s*(.*)$/ ? [ $1, $2 ] : [ ] } @meta ],
	    [ 20, 40 ], undef, 2));

print &ui_table_hr();

@score = &find("score", $conf);
print &ui_table_row($text{'score_score'},
	&edit_table("score",
		    [ $text{'score_name'}, $text{'score_points'} ],
		    [ map { $_->{'words'} } @score ], [ 30, 6 ]));

@describe = &find("describe", $conf);
print &ui_table_row($text{'score_describe'},
	&edit_table("describe",
	    [ $text{'score_name'}, $text{'score_descr'} ],
	    [ map { $_->{'value'} =~ /^(\S+)\s*(.*)/ ? [ $1, $2 ] : [ ] }
	      @describe ], [ 30, 40 ]));

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

# header_conv(col, name, size, value, &values)
sub header_conv
{
if ($_[0] == 0) {
	return &ui_textbox($_[1], $_[3], 20);
	}
elsif ($_[0] == 1) {
	local $h = $_[3] =~ /^exists:(\S+)$/ ? $1 : $_[3] =~ /^eval:/ ? "" : $_[3];
	return &ui_textbox($_[1], $h, 15);
	}
elsif ($_[0] == 2) {
	local $v = $_[4]->[1] =~ /^exists:/ ? 'exists' :
		   $_[4]->[1] =~ /^eval:/ ? 'eval' : $_[3];
	return &ui_select($_[1], $v,
			  [ [ '=~', $text{'header_op0'} ],
			    [ '!~', $text{'header_op1'} ],
			    [ 'exists', $text{'header_op2'} ],
			    [ 'eval', $text{'header_op3'} ] ], 1, 0, $v);
	}
elsif ($_[0] == 3) {
	return &ui_textbox($_[1], $_[4]->[1] =~ /^eval:(.*)/ ? $1 : $_[3], 20);
	}
elsif ($_[0] == 4) {
	return &ui_textbox($_[1], $_[3], 15);
	}
}

# body_conv(col, name, size, value, &values)
sub body_conv
{
if ($_[0] == 0) {
	return &ui_textbox($_[1], $_[4]->[0], 20);
	}
elsif ($_[0] == 1) {
	return &ui_select($_[1], $_[4]->[2],
			[ [ 0, $text{'header_mode0'} ],
			  [ 1, $text{'header_mode1'} ],
			  [ 2, $text{'header_mode2'} ],
			  [ 3, $text{'header_mode3'} ] ]);
	}
elsif ($_[0] == 2) {
	return &ui_select($_[1], $_[4]->[1] =~ /^eval:/ ? 1 : 0,
			  [ [ 0, $text{'header_op0'} ],
			    [ 1, $text{'header_op3'} ] ]);
	}
elsif ($_[0] == 3) {
	return &ui_textbox($_[1], $_[4]->[1] =~ /^eval:(.*)$/ ? $1 : $_[4]->[1],
			   40);
	}
}

sub split_header
{
if ($_[0] =~ /^(\S+)\s+(eval:\S+$.*$)/) {
	return ($1, $2);
	}
elsif ($_[0] =~ /^(\S+)\s+(\S+)\s+(\S+)\s+(\/.*\/\S*)\s*(if-unset:\s*(.*))?/) {
	return ($1, $2, $3, $4, $6);
	}
else {
	return ( );
	}
}

sub split_body
{
if ($_[0] =~ /^(\S+)\s+((\/.*\/\S*)|(eval:\S+$.*$))/) {
	return ($1, $2);
	}
else {
	return ( );
	}
}