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
CHANGELOG	1.19 KB	-rw-r--r--	2026-07-17 21:17
autoreply.pl	12.68 KB	-rwxr-xr-x	2026-07-17 21:22
backup_config.pl	826 B	-rwxr-xr-x	2026-07-17 21:17
boxes-lib.pl	85.02 KB	-rwxr-xr-x	2026-07-17 21:17
config	218 B	-rw-r--r--	2026-07-17 21:17
config-sol-linux	221 B	-rw-r--r--	2026-07-17 21:17
config.info	1.15 KB	-rw-r--r--	2026-07-17 21:17
config.info.ca	1.28 KB	-rw-r--r--	2026-07-17 21:17
config.info.cs	877 B	-rw-r--r--	2026-07-17 21:17
config.info.de	1.34 KB	-rw-r--r--	2026-07-17 21:17
config.info.es	282 B	-rw-r--r--	2026-07-17 21:17
config.info.nl	1.32 KB	-rw-r--r--	2026-07-17 21:17
config.info.no	1.21 KB	-rw-r--r--	2026-07-17 21:17
config.info.ru	1.38 KB	-rw-r--r--	2026-07-17 21:17
config.info.uk	1.41 KB	-rw-r--r--	2026-07-17 21:17
delete_aliases.cgi	347 B	-rwxr-xr-x	2026-07-17 21:22
delete_assigns.cgi	422 B	-rwxr-xr-x	2026-07-17 21:22
delete_queue.cgi	576 B	-rwxr-xr-x	2026-07-17 21:22
delete_queues.cgi	1.02 KB	-rwxr-xr-x	2026-07-17 21:22
delete_routes.cgi	410 B	-rwxr-xr-x	2026-07-17 21:22
delete_virts.cgi	404 B	-rwxr-xr-x	2026-07-17 21:22
detach_queue.cgi	425 B	-rwxr-xr-x	2026-07-17 21:22
edit_afile.cgi	1.06 KB	-rwxr-xr-x	2026-07-17 21:22
edit_alias.cgi	267 B	-rwxr-xr-x	2026-07-17 21:22
edit_assign.cgi	302 B	-rwxr-xr-x	2026-07-17 21:22
edit_ffile.cgi	2.03 KB	-rwxr-xr-x	2026-07-17 21:22
edit_rfile.cgi	3.04 KB	-rwxr-xr-x	2026-07-17 21:22
edit_route.cgi	286 B	-rwxr-xr-x	2026-07-17 21:22
edit_virt.cgi	279 B	-rwxr-xr-x	2026-07-17 21:22
feedback_files.pl	120 B	-rwxr-xr-x	2026-07-17 21:17
filter.pl	1.53 KB	-rwxr-xr-x	2026-07-17 21:22
index.cgi	2.32 KB	-rwxr-xr-x	2026-07-17 21:22
install_check.pl	382 B	-rwxr-xr-x	2026-07-17 21:17
list_aliases.cgi	2.53 KB	-rwxr-xr-x	2026-07-17 21:22
list_assigns.cgi	2.06 KB	-rwxr-xr-x	2026-07-17 21:22
list_bads.cgi	718 B	-rwxr-xr-x	2026-07-17 21:22
list_locals.cgi	1 KB	-rwxr-xr-x	2026-07-17 21:22
list_opts.cgi	3.24 KB	-rwxr-xr-x	2026-07-17 21:22
list_percents.cgi	760 B	-rwxr-xr-x	2026-07-17 21:22
list_queue.cgi	2.55 KB	-rwxr-xr-x	2026-07-17 21:22
list_rcpts.cgi	1.27 KB	-rwxr-xr-x	2026-07-17 21:22
list_routes.cgi	2.65 KB	-rwxr-xr-x	2026-07-17 21:22
list_virts.cgi	2.1 KB	-rwxr-xr-x	2026-07-17 21:22
log_parser.pl	1.48 KB	-rwxr-xr-x	2026-07-17 21:17
module.info	197 B	-rw-r--r--	2026-07-17 21:17
module.info.ar	0 B	-rw-r--r--	2026-07-17 21:17
module.info.ar.auto	144 B	-rw-r--r--	2026-07-17 21:17
module.info.bg	0 B	-rw-r--r--	2026-07-17 21:17
module.info.bg.auto	181 B	-rw-r--r--	2026-07-17 21:17
module.info.ca	124 B	-rw-r--r--	2026-07-17 21:17
module.info.ca.auto	14 B	-rw-r--r--	2026-07-17 21:17
module.info.cs	26 B	-rw-r--r--	2026-07-17 21:17
module.info.cs.auto	105 B	-rw-r--r--	2026-07-17 21:17
module.info.da	0 B	-rw-r--r--	2026-07-17 21:17
module.info.da.auto	119 B	-rw-r--r--	2026-07-17 21:17
module.info.de	113 B	-rw-r--r--	2026-07-17 21:17
module.info.de.auto	14 B	-rw-r--r--	2026-07-17 21:17
module.info.el	0 B	-rw-r--r--	2026-07-17 21:17
module.info.el.auto	253 B	-rw-r--r--	2026-07-17 21:17
module.info.es	32 B	-rw-r--r--	2026-07-17 21:17
module.info.es.auto	105 B	-rw-r--r--	2026-07-17 21:17
module.info.eu	0 B	-rw-r--r--	2026-07-17 21:17
module.info.eu.auto	134 B	-rw-r--r--	2026-07-17 21:17
module.info.fa	0 B	-rw-r--r--	2026-07-17 21:17
module.info.fa.auto	165 B	-rw-r--r--	2026-07-17 21:17
module.info.fi	0 B	-rw-r--r--	2026-07-17 21:17
module.info.fi.auto	128 B	-rw-r--r--	2026-07-17 21:17
module.info.fr	0 B	-rw-r--r--	2026-07-17 21:17
module.info.fr.auto	146 B	-rw-r--r--	2026-07-17 21:17
module.info.hr	0 B	-rw-r--r--	2026-07-17 21:17
module.info.hr.auto	151 B	-rw-r--r--	2026-07-17 21:17
module.info.hu	28 B	-rw-r--r--	2026-07-17 21:17
module.info.hu.auto	109 B	-rw-r--r--	2026-07-17 21:17
module.info.it	0 B	-rw-r--r--	2026-07-17 21:17
module.info.it.auto	129 B	-rw-r--r--	2026-07-17 21:17
module.info.ja	0 B	-rw-r--r--	2026-07-17 21:17
module.info.ja.auto	144 B	-rw-r--r--	2026-07-17 21:17
module.info.ko	0 B	-rw-r--r--	2026-07-17 21:17
module.info.ko.auto	134 B	-rw-r--r--	2026-07-17 21:17
module.info.ms	123 B	-rw-r--r--	2026-07-17 21:17
module.info.ms.auto	14 B	-rw-r--r--	2026-07-17 21:17
module.info.nl	27 B	-rw-r--r--	2026-07-17 21:17
module.info.nl.auto	102 B	-rw-r--r--	2026-07-17 21:17
module.info.no	28 B	-rw-r--r--	2026-07-17 21:17
module.info.no.auto	93 B	-rw-r--r--	2026-07-17 21:17
module.info.pl	0 B	-rw-r--r--	2026-07-17 21:17
module.info.pl.auto	125 B	-rw-r--r--	2026-07-17 21:17
module.info.pt	0 B	-rw-r--r--	2026-07-17 21:17
module.info.pt.auto	141 B	-rw-r--r--	2026-07-17 21:17
module.info.pt_BR	0 B	-rw-r--r--	2026-07-17 21:17
module.info.pt_BR.auto	150 B	-rw-r--r--	2026-07-17 21:17
module.info.ru	33 B	-rw-r--r--	2026-07-17 21:17
module.info.ru.auto	143 B	-rw-r--r--	2026-07-17 21:17
module.info.sk	0 B	-rw-r--r--	2026-07-17 21:17
module.info.sk.auto	136 B	-rw-r--r--	2026-07-17 21:17
module.info.sv	0 B	-rw-r--r--	2026-07-17 21:17
module.info.sv.auto	121 B	-rw-r--r--	2026-07-17 21:17
module.info.tr	0 B	-rw-r--r--	2026-07-17 21:17
module.info.tr.auto	137 B	-rw-r--r--	2026-07-17 21:17
module.info.uk	0 B	-rw-r--r--	2026-07-17 21:17
module.info.uk.auto	197 B	-rw-r--r--	2026-07-17 21:17
module.info.zh	0 B	-rw-r--r--	2026-07-17 21:17
module.info.zh.auto	130 B	-rw-r--r--	2026-07-17 21:17
module.info.zh_TW	0 B	-rw-r--r--	2026-07-17 21:17
module.info.zh_TW.auto	139 B	-rw-r--r--	2026-07-17 21:17
prefs.info	80 B	-rw-r--r--	2026-07-17 21:17
qmail-lib.pl	20.75 KB	-rwxr-xr-x	2026-07-17 21:17
save_afile.cgi	563 B	-rwxr-xr-x	2026-07-17 21:22
save_alias.cgi	2.29 KB	-rwxr-xr-x	2026-07-17 21:22
save_assign.cgi	1.38 KB	-rwxr-xr-x	2026-07-17 21:22
save_bads.cgi	345 B	-rwxr-xr-x	2026-07-17 21:22
save_defroute.cgi	648 B	-rwxr-xr-x	2026-07-17 21:22
save_ffile.cgi	843 B	-rwxr-xr-x	2026-07-17 21:22
save_locals.cgi	372 B	-rwxr-xr-x	2026-07-17 21:22
save_opts.cgi	1.5 KB	-rwxr-xr-x	2026-07-17 21:22
save_percents.cgi	364 B	-rwxr-xr-x	2026-07-17 21:22
save_rcpts.cgi	615 B	-rwxr-xr-x	2026-07-17 21:22
save_rfile.cgi	1.26 KB	-rwxr-xr-x	2026-07-17 21:22
save_route.cgi	992 B	-rwxr-xr-x	2026-07-17 21:22
save_virt.cgi	1.64 KB	-rwxr-xr-x	2026-07-17 21:22
start.cgi	187 B	-rwxr-xr-x	2026-07-17 21:22
stop.cgi	183 B	-rwxr-xr-x	2026-07-17 21:22
view_queue.cgi	2.23 KB	-rwxr-xr-x	2026-07-17 21:22

Rename

#!/usr/bin/perl
# save_alias.cgi
# Save or delete a new or existing alias

require './qmail-lib.pl';
&ReadParse();
&error_setup($text{'asave_err'});

@aliases = &list_aliases();
foreach $ex (@aliases) {
	$exists{lc($ex)}++;
	}
$a = &get_alias($in{'old'});

if ($in{'delete'}) {
	# delete some alias
	$loga = $a;
	&delete_alias($a);
	}
else {
	# saving or creating .. check inputs
	$in{'name'} =~ /^[^:@ ]+$/ ||
		&error(&text('asave_eaddr', $in{'name'}));
	local $n = $in{'name'};
	$n =~ s/\./:/g;
	if ($in{'virt'}) {
		$in{'virt'} =~ s/\./:/g;
		$n = $in{'virt'}.'-'.$n;
		}

if ($in{'new'} || lc($a->{'name'}) ne lc($n)) {
		# is this name taken?
		$exists{$n} &&
			&error(&text('asave_ealready', $in{'name'}));
		}
	for($i=0; defined($t = $in{"type_$i"}); $i++) {
		$v = $in{"val_$i"};
		if ($t == 1 && $v !~ /^(\S+)$/) {
			&error(&text('asave_etype1', $v));
			}
		elsif ($t == 2 && $v !~ /^\/(\S+)[^\/\s]$/) {
			&error(&text('asave_etype2', $v));
			}
		elsif ($t == 3 && $v !~ /^\/(\S+)[^\/\s]$/) {
			&error(&text('asave_etype3', $v));
			}
		elsif ($t == 4) {
			$v =~ /^(\S+)/ || &error($text{'asave_etype4none'});
			-x $1 || &error(&text('asave_etype4', "$1"));
			}
		elsif ($t == 5 && $v !~ /^\/\S+$/) {
			&error(&text('asave_etype5', $v));
			}
		elsif ($t == 6 && $v !~ /^\/\S+$/) {
			&error(&text('asave_etype6', $v));
			}
		if ($t == 1) { push(@values, "&$v"); }
		elsif ($t == 2) { push(@values, "$v/"); }
		elsif ($t == 3) { push(@values, "$v"); }
		elsif ($t == 4) { push(@values, "|$v"); }
		elsif ($t == 5) {
			# Setup autoreply script
			push(@values, "|$module_config_directory/autoreply.pl ".
				      "$v $in{'name'}");
			&system_logged("cp autoreply.pl $module_config_directory");
			&system_logged("chmod 755 $module_config_directory/config");
			}
		elsif ($t == 6) {
			# Setup filter script
			push(@values, "|$module_config_directory/filter.pl ".
				      "$v $in{'name'}");
			&system_logged("cp filter.pl $module_config_directory");
			&system_logged("chmod 755 $module_config_directory/config");
			}
		}

$newa{'name'} = $n;
	$newa{'values'} = \@values;
	if ($in{'new'}) { &create_alias(\%newa); }
	else { &modify_alias($a, \%newa); }
	$loga = \%newa;
	}
&webmin_log($in{'delete'} ? 'delete' : $in{'new'} ? 'create' : 'modify',
	    "alias", $loga->{'name'}, $loga);
&redirect("list_aliases.cgi");