PAL.C.T MINI SHELL
#!/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("");
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`