Gecko [ contributie.vriendennsm.nl ]

Name	Size	Permission	Date
images	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
ulang	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
CHANGELOG	1.3 KB	-rw-r--r--	2026-07-19 16:26
autoreply-file-lib.pl	2.28 KB	-rwxr-xr-x	2026-07-19 16:26
autoreply.pl	12.68 KB	-rwxr-xr-x	2026-07-19 16:28
config	71 B	-rw-r--r--	2026-07-19 16:26
config-msc-linux	71 B	-rw-r--r--	2026-07-19 16:26
config.info	297 B	-rw-r--r--	2026-07-19 16:26
config.info.ca	333 B	-rwxr-xr-x	2026-07-19 16:26
config.info.de	299 B	-rw-r--r--	2026-07-19 16:26
config.info.el	584 B	-rw-r--r--	2026-07-19 16:26
config.info.nl	335 B	-rw-r--r--	2026-07-19 16:26
config.info.no	304 B	-rw-r--r--	2026-07-19 16:26
edit_afile.cgi	900 B	-rwxr-xr-x	2026-07-19 16:28
edit_alias.cgi	353 B	-rwxr-xr-x	2026-07-19 16:28
edit_ffile.cgi	1.72 KB	-rwxr-xr-x	2026-07-19 16:28
edit_forward.cgi	604 B	-rwxr-xr-x	2026-07-19 16:28
edit_rfile.cgi	2.63 KB	-rwxr-xr-x	2026-07-19 16:28
edit_vacation.cgi	2.25 KB	-rwxr-xr-x	2026-07-19 16:28
edit_vfile.cgi	1.81 KB	-rwxr-xr-x	2026-07-19 16:28
filter.pl	1.99 KB	-rwxr-xr-x	2026-07-19 16:28
forward-lib.pl	11.37 KB	-rwxr-xr-x	2026-07-19 16:26
index.cgi	5.85 KB	-rwxr-xr-x	2026-07-19 16:28
module.info	195 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	227 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	268 B	-rw-r--r--	2026-07-19 16:26
module.info.ca	42 B	-rw-r--r--	2026-07-19 16:26
module.info.ca.auto	125 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	119 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	155 B	-rw-r--r--	2026-07-19 16:26
module.info.de	105 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	355 B	-rw-r--r--	2026-07-19 16:26
module.info.es	26 B	-rw-r--r--	2026-07-19 16:26
module.info.es.auto	127 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	176 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	229 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	161 B	-rw-r--r--	2026-07-19 16:26
module.info.fr	26 B	-rw-r--r--	2026-07-19 16:26
module.info.fr.auto	117 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	164 B	-rw-r--r--	2026-07-19 16:26
module.info.hu	31 B	-rw-r--r--	2026-07-19 16:26
module.info.hu.auto	138 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	25 B	-rw-r--r--	2026-07-19 16:26
module.info.ja.auto	143 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	180 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	152 B	-rw-r--r--	2026-07-19 16:26
module.info.nl	42 B	-rw-r--r--	2026-07-19 16:26
module.info.nl.auto	129 B	-rw-r--r--	2026-07-19 16:26
module.info.no	37 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	177 B	-rw-r--r--	2026-07-19 16:26
module.info.pl.auto	177 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	165 B	-rw-r--r--	2026-07-19 16:26
module.info.pt_BR	49 B	-rw-r--r--	2026-07-19 16:26
module.info.pt_BR.auto	122 B	-rw-r--r--	2026-07-19 16:26
module.info.ru	50 B	-rw-r--r--	2026-07-19 16:26
module.info.ru.auto	241 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	162 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	162 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	168 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	295 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	137 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	143 B	-rw-r--r--	2026-07-19 16:26
save_afile.cgi	372 B	-rwxr-xr-x	2026-07-19 16:28
save_alias.cgi	2.99 KB	-rwxr-xr-x	2026-07-19 16:28
save_ffile.cgi	691 B	-rwxr-xr-x	2026-07-19 16:28
save_forward.cgi	299 B	-rwxr-xr-x	2026-07-19 16:28
save_rfile.cgi	1.03 KB	-rwxr-xr-x	2026-07-19 16:28
save_simple.cgi	2.1 KB	-rwxr-xr-x	2026-07-19 16:28
save_vacation.cgi	1.05 KB	-rwxr-xr-x	2026-07-19 16:28
save_vfile.cgi	788 B	-rwxr-xr-x	2026-07-19 16:28

Rename

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

require './forward-lib.pl';
&ReadParse();
&error_setup($text{'asave_err'});
if (!$in{'new'}) {
	if ($config{'mail_system'} == 0) {
		@aliases = &list_aliases();
		$a = $aliases[$in{'num'}];
		}
	else {
		$a = &get_dotqmail($in{'file'});
		}
	}

if ($in{'delete'}) {
	# delete some alias
	$loga = $a;
	&delete_alias($a);
	}
else {
	# saving or creating .. check inputs
	local %types = map { $_, 1 } split(/\,/, $config{'types'});
	$types{8} = $types{5};
	for($i=0; defined($t = $in{"type_$i"}); $i++) {
		!$t || $types{$t} || &error($text{'asave_ecannot'});
		$v = $in{"val_$i"};
		if ($t == 1 && $v !~ /^([^\/\|:]\S*)$/) {
			&error(&text('asave_etype1', $v));
			}
		elsif ($t == 3 && $v !~ /^\/(\S+)$/ && $config{'mail_system'} == 0) {
			&error(&text('asave_etype3', $v));
			}
		elsif ($t == 3 && $v !~ /^[\/\.](\S+)$/ && $config{'mail_system'} == 1) {
			&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) {
			&error(&text('asave_etype5'));
			}
		elsif ($t == 6 && !$v) {
			&error(&text('asave_etype6'));
			}
		elsif ($t == 2 &&  $config{'mail_system'} == 1) {
			&error(&text('asave_etype1q', $v));
			}
		elsif ($t == 7 &&  $config{'mail_system'} == 1 && !$mail_path) {
			&error(&text('asave_etype2q', $v));
			}
		if ($t >= 2 && $t <= 6 && $v !~ /^\//) {
			# Path is relative to home dir
			$v = "$remote_user_info[7]/$v";
			}
		if ($t == 1 || $t == 3) { push(@values, $v); }
		elsif ($t == 2) { push(@values, ":include:$v"); }
		elsif ($t == 4) { push(@values, "|$v"); }
		elsif ($t == 5) {
			# Setup autoreply script
			push(@values, "|$module_config_directory/autoreply.pl $v $remote_user");
			}
		elsif ($t == 6) {
			# Setup filter script
			push(@values, "|$module_config_directory/filter.pl $v $remote_user");
			}
		elsif ($t == 7) {
			# Just write to user's mail file
			push(@values, $config{'mail_system'} ? $mail_path : "\\$remote_user");
			}
		elsif ($t == 8) {
			# Set up vacation program
			if ($a && $a->{'values'}->[$i] &&
			    &alias_type($a->{'values'}->[$i]) == 8) {
				# Use old settings
				push(@values, $a->{'values'}->[$i]);
				}
			else {
				# Default vacation setup
				push(@values, "|$vacation_path $remote_user");
				system("vacation -i >/dev/null 2>&1");
				}
			}
		}

@values || &error($text{'asave_enone'});
	$newa{'values'} = \@values;
	if ($config{'mail_system'} == 0) {
		$newa{'enabled'} = $in{'enabled'};
		}
	else {
		$in{'name_def'} || $in{'name'} =~ /^\S+$/ ||
			&error($text{'asave_ename'});
		$newa{'name'} = $in{'name_def'} ? undef : $in{'name'};
		if ($in{'new'} || $newa{'name'} ne $a->{'name'}) {
			@aliases = &list_dotqmails();
			($same) = grep { $_->{'name'} eq $newa{'name'} } @aliases;
			$same && &error($text{'asave_esame'});
			}
		}
	if ($in{'new'}) { &create_alias(\%newa); }
	else { &modify_alias($a, \%newa); }
	$loga = \%newa;
	}
&redirect("");