PAL.C.T MINI SHELL
#!/usr/bin/perl
# Save email-related options for a virtual server
require './virtual-server-lib.pl';
&ReadParse();
&error_setup($text{'mail_err'});
$d = &get_domain($in{'dom'});
&can_edit_domain($d) && &can_edit_mail() || &error($text{'edit_ecannot'});
$oldd = { %$d };
&require_mail();
# Validate inputs
if ($supports_bcc) {
$in{'bcc_def'} || $in{'bcc'} =~ /^\S+\@\S+$/ ||
&error($text{'mail_ebcc'});
}
&ui_print_unbuffered_header(&domain_in($d), $text{'mail_title'}, "");
# Update BCC setting
if ($supports_bcc) {
$bcc = &get_domain_sender_bcc($d);
if (!$in{'bcc_def'}) {
# Update BCC setting
&$first_print(&text('mail_bccing', $in{'bcc'}));
&save_domain_sender_bcc($d, $in{'bcc'});
&$second_print($text{'setup_done'});
}
elsif ($bcc && $in{'bcc_def'}) {
# Turn off BCC
&$first_print($text{'mail_nobcc'});
&save_domain_sender_bcc($d, undef);
&$second_print($text{'setup_done'});
}
else {
&$second_print($text{'mail_bccoff'});
}
}
if ($supports_bcc == 2) {
$rbcc = &get_domain_recipient_bcc($d);
if (!$in{'rbcc_def'}) {
# Update BCC setting
&$first_print(&text('mail_rbccing', $in{'rbcc'}));
&save_domain_recipient_bcc($d, $in{'rbcc'});
&$second_print($text{'setup_done'});
}
elsif ($rbcc && $in{'rbcc_def'}) {
# Turn off BCC
&$first_print($text{'mail_norbcc'});
&save_domain_recipient_bcc($d, undef);
&$second_print($text{'setup_done'});
}
else {
&$second_print($text{'mail_rbccoff'});
}
}
# Update alias mode
if (defined($in{'aliascopy'}) && $d->{'mail'}) {
$aliasdom = &get_domain($d->{'alias'});
if ($d->{'aliascopy'} && !$in{'aliascopy'}) {
# Switch to catchall
&$first_print($text{'save_aliascopy0'});
&delete_alias_virtuals($d);
&create_virtuser({ 'from' => '@'.$d->{'dom'},
'to' => [ '%1@'.$aliasdom->{'dom'} ] });
&$second_print($text{'setup_done'});
}
elsif (!$d->{'aliascopy'} && $in{'aliascopy'}) {
# Switch to copy mode
&$first_print($text{'save_aliascopy1'});
©_alias_virtuals($d, $aliasdom);
&$second_print($text{'setup_done'});
}
$d->{'aliascopy'} = $in{'aliascopy'};
}
# Update outgoing IP mode
if (defined($in{'dependent'}) && $supports_dependent) {
$old_dependent = &get_domain_dependent($d) ? 1 : 0;
if ($old_dependent != $in{'dependent'}) {
&$first_print($in{'dependent'} ?
&text('mail_dependenting1', $d->{'ip'}) :
&text('mail_dependenting0'));
&save_domain_dependent($d, $in{'dependent'});
&$second_print($text{'setup_done'});
}
}
&save_domain($d);
&run_post_actions();
# All done
&webmin_log("mail", "domain", $d->{'dom'});
&ui_print_footer(&domain_footer_link($d),
"", $text{'index_return'});
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`