| Server IP : 49.231.201.246 / Your IP : 216.73.216.149 Web Server : Apache/2.4.18 (Ubuntu) System : User : root ( 0) PHP Version : 7.0.33-0ubuntu0.16.04.16 Disable Function : exec,passthru,mail,shell_exec,system,proc_open,popen,ini_alter,dl,proc_close,curl_exec,curl_multi_exec,readfile,parse_ini_file,escapeshellarg,escapeshellcmd,show_source,pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wifcontinued,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_get_handler,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority,pcntl_async_signals,pcntl_unshare,mail,php_uname,phpinfo MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /usr/share/webmin/postfix/ |
Upload File : |
#!/usr/bin/perl
#
# postfix-module by Guillaume Cottenceau <gc@mandrakesoft.com>,
# for webmin by Jamie Cameron
#
# Save, modify, delete an alias for Postfix
require './postfix-lib.pl';
&ReadParse();
$access{'aliases'} || &error($text{'aliases_ecannot'});
&error_setup($text{'alias_save_err'});
# Get the alias (if editing or deleting)
@afiles = &get_aliases_files(&get_current_value("alias_maps"));
@aliases = &list_postfix_aliases();
if (!$in{'new'}) {
$a = $aliases[$in{'num'}];
}
&lock_alias_files(\@afiles);
if ($in{'delete'}) {
# delete some alias
&delete_postfix_alias($a);
$loga = $a;
}
else {
# saving or creating .. check inputs
$in{'name'} =~ /^[^:@ ]+$/ ||
&error(&text('asave_eaddr', $in{'name'}));
if ($in{'new'} || uc($a->{'name'}) ne uc($in{'name'})) {
# is this name taken?
for($i=0; $i<@aliases; $i++) {
if (uc($in{'name'}) eq uc($aliases[$i]->{'name'})) {
&error(&text('asave_ealready', $in{'name'}));
}
}
}
for($i=0; defined($t = $in{"type_$i"}); $i++) {
$v = $in{"val_$i"};
$v =~ s/^\s+//;
$v =~ s/\s+$//;
if ($t == 1 && $v !~ /^(\S+)$/) {
&error(&text('asave_etype1', $v));
}
elsif ($t == 3 && $v !~ /^\/(\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 || $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 $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'} = $in{'name'};
$newa{'values'} = \@values;
if (defined($in{'cmt'})) {
$newa{'cmt'} = $in{'cmt'};
}
$newa{'enabled'} = $in{'enabled'};
if ($in{'new'}) {
&create_postfix_alias(\%newa);
}
else {
&modify_postfix_alias($a, \%newa);
}
$loga = \%newa;
}
&unlock_alias_files(\@afiles);
# re-creates aliases database
®enerate_aliases();
$err = &reload_postfix();
&error($err) if ($err);
&webmin_log($in{'new'} ? 'create' : $in{'delete'} ? 'delete' : 'modify',
'alias', $loga->{'name'}, $loga);
&redirect("aliases.cgi");