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	195 B	-rw-r--r--	2026-07-19 16:26
defaultuconfig	11 B	-rw-r--r--	2026-07-19 16:26
delete_recipes.cgi	418 B	-rwxr-xr-x	2026-07-19 16:28
down.cgi	277 B	-rwxr-xr-x	2026-07-19 16:28
edit_env.cgi	1022 B	-rwxr-xr-x	2026-07-19 16:28
edit_inc.cgi	864 B	-rwxr-xr-x	2026-07-19 16:28
edit_recipe.cgi	2.75 KB	-rwxr-xr-x	2026-07-19 16:28
index.cgi	4.8 KB	-rwxr-xr-x	2026-07-19 16:28
manual_form.cgi	533 B	-rwxr-xr-x	2026-07-19 16:28
manual_save.cgi	331 B	-rwxr-xr-x	2026-07-19 16:28
module.info	249 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	301 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	371 B	-rw-r--r--	2026-07-19 16:26
module.info.ca	34 B	-rw-r--r--	2026-07-19 16:26
module.info.ca.auto	212 B	-rw-r--r--	2026-07-19 16:26
module.info.cs	32 B	-rw-r--r--	2026-07-19 16:26
module.info.cs.auto	211 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	217 B	-rw-r--r--	2026-07-19 16:26
module.info.de	149 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	455 B	-rw-r--r--	2026-07-19 16:26
module.info.es	34 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	254 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	313 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	245 B	-rw-r--r--	2026-07-19 16:26
module.info.fr	36 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	234 B	-rw-r--r--	2026-07-19 16:26
module.info.hu	37 B	-rw-r--r--	2026-07-19 16:26
module.info.hu.auto	217 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	240 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	293 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	246 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	229 B	-rw-r--r--	2026-07-19 16:26
module.info.nl	31 B	-rw-r--r--	2026-07-19 16:26
module.info.no	31 B	-rw-r--r--	2026-07-19 16:26
module.info.no.auto	185 B	-rw-r--r--	2026-07-19 16:26
module.info.pl	0 B	-rw-r--r--	2026-07-19 16:26
module.info.pl.auto	251 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	246 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	255 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	355 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	239 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	231 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	255 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	395 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	185 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	194 B	-rw-r--r--	2026-07-19 16:26
procmail-lib.pl	9.39 KB	-rwxr-xr-x	2026-07-19 16:26
save_env.cgi	753 B	-rwxr-xr-x	2026-07-19 16:28
save_inc.cgi	680 B	-rwxr-xr-x	2026-07-19 16:28
save_recipe.cgi	2.58 KB	-rwxr-xr-x	2026-07-19 16:28
uconfig.info	97 B	-rw-r--r--	2026-07-19 16:26
uconfig.info.ca	122 B	-rwxr-xr-x	2026-07-19 16:26
uconfig.info.cs	119 B	-rw-r--r--	2026-07-19 16:26
uconfig.info.de	132 B	-rw-r--r--	2026-07-19 16:26
uconfig.info.nl	121 B	-rw-r--r--	2026-07-19 16:26
uconfig.info.no	99 B	-rw-r--r--	2026-07-19 16:26
up.cgi	271 B	-rwxr-xr-x	2026-07-19 16:28

Rename

#!/usr/bin/perl
# save_recipe.cgi
# Create, update or delete a procmail recipe

require './procmail-lib.pl';
&ReadParse();
&lock_file($procmailrc);
@conf = &get_procmailrc();
$rec = $conf[$in{'idx'}] if (!$in{'new'});

if ($in{'delete'}) {
	# Just delete the recipe
	&delete_recipe($rec);
	}
else {
	# Validate inputs
	&error_setup($text{'save_err'});
	if ($in{'block'}) {
		# Conditional code block
		$in{'bdata'} =~ s/\r//g;
		$rec->{'block'} = $in{'bdata'};
		}
	else {
		# Normal action
		$in{'action'} =~ /\S/ ||
			&error($text{'save_eaction_'.$in{'amode'}});
		delete($rec->{'type'});
		if ($in{'amode'} == 0) {
			$rec->{'action'} = $in{'action'};
			}
		elsif ($in{'amode'} == 1) {
			$rec->{'action'} = $in{'action'}."/.";
			}
		elsif ($in{'amode'} == 2) {
			$rec->{'action'} = $in{'action'}."/";
			}
		elsif ($in{'amode'} == 3) {
			$rec->{'type'} = "!";
			$rec->{'action'} = $in{'action'};
			}
		elsif ($in{'amode'} == 6) {
			$rec->{'type'} = "=";
			$in{'action'} =~ /^(\S+)=(.*)$/ ||
				&error($text{'save_eactionvar'});
			$rec->{'action'} = $in{'action'};
			}
		else {
			$rec->{'type'} = "|";
			$rec->{'action'} = $in{'action'};
			}
		}

map { $flag{$_}++ } split(/\0/, $in{'flag'});
	@flags = @{$rec->{'flags'}};
	foreach $f (@known_flags) {
		if ($flag{$f}) {
			push(@flags, $f);
			}
		else {
			@flags = grep { $_ ne $f } @flags;
			}
		}
	$rec->{'flags'} = [ &unique(@flags) ];

if ($in{'lockfile_def'} == 1) {
		delete($rec->{'lockfile'});
		}
	elsif ($in{'lockfile_def'} == 2) {
		$rec->{'lockfile'} = "";
		}
	else {
		$in{'lockfile'} =~ /\S/ || &error($text{'save_elockfile'});
		$rec->{'lockfile'} = $in{'lockfile'};
		}

for($i=0; defined($m = $in{"cmode_$i"}); $i++) {
		next if ($m eq '-');
		$c = $in{"cond_$i"};
		if ($m eq '<' || $m eq '>') {
			$c =~ /^\d+$/ || &error(&text('save_esize', $i+1));
			}
		elsif ($m eq '$' || $m eq '?') {
			$c =~ /\S/ || &error(&text('save_eshell', $i+1));
			}
		else {
			$c =~ /\S/ || &error(&text('save_ere', $i+1));
			}
		push(@conds, [ $m, $c ]);
		}
	$rec->{'conds'} = \@conds;

# Save the receipe
	if ($in{'new'}) {
		if ($in{'before'} ne '') {
			$before = $conf[$in{'before'}];
			&create_recipe_before($rec, $before);
			}
		elsif ($in{'after'} ne '') {
			if ($in{'after'} == @conf-1) {
				&create_recipe($rec);
				}
			else {
				$before = $conf[$in{'after'}+1];
				&create_recipe_before($rec, $before);
				}
			}
		else {
			&create_recipe($rec);
			}
		}
	else {
		&modify_recipe($rec);
		}
	}
&unlock_file($procmailrc);
&webmin_log($in{'delete'} ? "delete" : $in{'new'} ? "create" : "modify",
	    "recipe", undef, $rec);
&redirect("");