1171 lines
41 KiB
Perl
1171 lines
41 KiB
Perl
|
#
|
||
|
|
# Generated by SM2Gen version:0.9(20Jan2025) Chameleon version:4.5.4 On Python:3.12.3 at 2025-06-29 08:53:20
|
||
|
|
#
|
||
|
|
#
|
||
|
|
# Routines to be edited by the developer to provide content and validation for parameters
|
||
|
|
# and provison of the control data for table(s)
|
||
|
|
#
|
||
|
|
use esmith::util;
|
||
|
|
use esmith::util::network;
|
||
|
|
use esmith::ConfigDB::UTF8;
|
||
|
|
use esmith::AccountsDB;
|
||
|
|
use esmith::NetworksDB::UTF8;
|
||
|
|
use esmith::HostsDB;
|
||
|
|
use esmith::DomainsDB::UTF8;
|
||
|
|
use Data::Validate::IP qw(is_ipv4 is_ipv6);
|
||
|
|
|
||
|
|
use constant FALSE => 0;
|
||
|
|
use constant TRUE => 1;
|
||
|
|
|
||
|
|
|
||
|
|
#The most common ones - open DB when required.
|
||
|
|
our $cdb;
|
||
|
|
my $adb;
|
||
|
|
my $ndb;
|
||
|
|
my $hdb;
|
||
|
|
my $ddb;
|
||
|
|
|
||
|
|
#The most common ones - you might want to use these if you need to make sure that the DB is refreshed.
|
||
|
|
#$cdb = esmith::ConfigDB::UTF8->open() || die("Couldn"t open config db\");
|
||
|
|
#$adb = esmith::AccountsDB->open() || die(\"Couldn"t open Accounts db");
|
||
|
|
#$ndb = esmith::NetworksDB->open() || die("Couldn"t open Network db\");
|
||
|
|
#$hdb = esmith::HostsDB::UTF8->open() || die(\"Couldn"t open Hosts db");
|
||
|
|
#$ddb = esmith::DomainsDB::UTF8->open() || die("Couldn"t open Domains db\");
|
||
|
|
|
||
|
|
|
||
|
|
# Validation routines - parameters for each panel
|
||
|
|
|
||
|
|
sub validate_FRONT {
|
||
|
|
my $c = shift;
|
||
|
|
my $mai_data = shift; #Data hash as parameter
|
||
|
|
# Validation for each field
|
||
|
|
my $ret = "";
|
||
|
|
|
||
|
|
if ($ret eq "") {$ret = "ok";}
|
||
|
|
return $ret;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub validate_ACC {
|
||
|
|
my $c = shift;
|
||
|
|
my $mai_data = shift; #Data hash as parameter
|
||
|
|
# Validation for each field
|
||
|
|
my $ret = "";
|
||
|
|
|
||
|
|
if ($ret eq "") {$ret = "ok";}
|
||
|
|
return $ret;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub validate_FIL {
|
||
|
|
my $c = shift;
|
||
|
|
my $mai_data = shift; #Data hash as parameter
|
||
|
|
# Validation for each field
|
||
|
|
my $ret = "";
|
||
|
|
|
||
|
|
if ($ret eq "") {$ret = "ok";}
|
||
|
|
return $ret;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub validate_REC {
|
||
|
|
my $c = shift;
|
||
|
|
my $mai_data = shift; #Data hash as parameter
|
||
|
|
# Validation for each field
|
||
|
|
my $ret = "";
|
||
|
|
|
||
|
|
if ($ret eq "") {$ret = "ok";}
|
||
|
|
return $ret;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub validate_DEL {
|
||
|
|
my $c = shift;
|
||
|
|
my $mai_data = shift; #Data hash as parameter
|
||
|
|
# Validation for each field
|
||
|
|
my ($retult,$ret) = "";
|
||
|
|
CHECKS: {
|
||
|
|
$ret = $c->validate_ip_or_blank($c->param("DelegateMailServer"));
|
||
|
|
$c->app->log->info(\"$c->param("DelegateMailServer") $ret\");
|
||
|
|
if ($ret ne "ok") {
|
||
|
|
#$retult = $c->l($ret);
|
||
|
|
last CHECKS;
|
||
|
|
}
|
||
|
|
|
||
|
|
$ret = $c->validate_smarthost($c->param("SMTPSmartHost"));
|
||
|
|
if ($ret ne "ok") {
|
||
|
|
#$retult = $c->l($ret);
|
||
|
|
last CHECKS;
|
||
|
|
}
|
||
|
|
|
||
|
|
$ret = $c->nonblank_if_smtpauth($c->param("SMTPSmartHost"));
|
||
|
|
if ($ret ne "ok") {
|
||
|
|
#$retult = $c->l($ret);
|
||
|
|
last CHECKS;
|
||
|
|
}
|
||
|
|
|
||
|
|
$ret = $c->nonblank_if_smtpauth($c->param("SMTPAUTHPROXY_Userid"));
|
||
|
|
if ($ret ne "ok") {
|
||
|
|
#$retult = $c->l($ret);
|
||
|
|
last CHECKS;
|
||
|
|
}
|
||
|
|
|
||
|
|
$ret = $c->nonblank_if_smtpauth($c->param("SMTPAUTHPROXY_Passwd"));
|
||
|
|
if ($ret ne "ok") {
|
||
|
|
#$retult = $c->l($ret);
|
||
|
|
last CHECKS;
|
||
|
|
}
|
||
|
|
|
||
|
|
$ret = $c->change_settings_delivery();
|
||
|
|
if ($ret ne "ok") {
|
||
|
|
#$retult = $ret;
|
||
|
|
last CHECKS;
|
||
|
|
}
|
||
|
|
#$result = "";
|
||
|
|
}
|
||
|
|
# $ret now contains the first error or the null (success) message
|
||
|
|
if ($ret eq "") {$ret = "ok";}
|
||
|
|
return $ret;
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
# Get singleton data for each panel
|
||
|
|
|
||
|
|
sub get_data_for_panel_FRONT {
|
||
|
|
# Return a hash with the fields required which will be loaded into the shared data
|
||
|
|
my $c = shift;
|
||
|
|
my $cdb = esmith::ConfigDB::UTF8->open() || die(\"Couldn"t open config db");
|
||
|
|
my %ret = (
|
||
|
|
"Data1"=>"Data for FRONT", #Example
|
||
|
|
# fields from Inputs in FRONT $fields["FRONT"]
|
||
|
|
"fetchmailmethod" => $cdb->get_prop("fetchmail", "Method"),
|
||
|
|
|
||
|
|
);
|
||
|
|
return %ret;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub get_data_for_panel_ACC {
|
||
|
|
# Return a hash with the fields required which will be loaded into the shared data
|
||
|
|
my $c = shift;
|
||
|
|
my $cdb = esmith::ConfigDB::UTF8->open() || die("Couldn"t open config db\");
|
||
|
|
my %ret = (
|
||
|
|
# fields from Inputs in ACC $fields["ACC"]
|
||
|
|
"fetchmailmethod" => $cdb->get_prop("fetchmail", "Method"),
|
||
|
|
);
|
||
|
|
return %ret;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub get_data_for_panel_FIL {
|
||
|
|
# Return a hash with the fields required which will be loaded into the shared data
|
||
|
|
my $c = shift;
|
||
|
|
my $cdb = esmith::ConfigDB::UTF8->open() || die(\"Couldn"t open config db");
|
||
|
|
my %ret = (
|
||
|
|
# fields from Inputs in FIL $fields["FIL"]
|
||
|
|
"virusstatus" => $c->get_virus_status(),
|
||
|
|
"spamstatus" => $cdb->get_prop("spamassassin", "status"),
|
||
|
|
"spamsensitivity" => $cdb->get_prop("spamassassin", "Sensitivity", "medium"),
|
||
|
|
"spamtaglevel" => $cdb->get_prop("spamassassin", "TagLevel") || "0",
|
||
|
|
"spamrejectlevel" => $cdb->get_prop("spamassassin", "RejectLevel") || "0",
|
||
|
|
"spamsortspam" => $cdb->get_prop("spamassassin", "SortSpam"),
|
||
|
|
"spamsubjecttag" => $cdb->get_prop("spamassassin", "SubjectTag"),
|
||
|
|
"spamsubject" => $cdb->get_prop("spamassassin", "Subject"),
|
||
|
|
);
|
||
|
|
return %ret;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub get_data_for_panel_REC {
|
||
|
|
# Return a hash with the fields required which will be loaded into the shared data
|
||
|
|
my $c = shift;
|
||
|
|
my $cdb = esmith::ConfigDB::UTF8->open() || die("Couldn"t open config db\");
|
||
|
|
my %ret = (
|
||
|
|
"Data1"=>"Data for REC", #Example
|
||
|
|
# fields from Inputs in REC $fields["REC"]
|
||
|
|
"fetchmailmethod" => $cdb->get_prop("fetchmail", "Method"),
|
||
|
|
"freqoffice" => $cdb->get_prop("fetchmail", "FreqOffice"),
|
||
|
|
"freqoutside" => $cdb->get_prop("fetchmail", "FreqOutside"),
|
||
|
|
"freqweekend" => $cdb->get_prop("fetchmail", "FreqWeekend"),
|
||
|
|
"secondarymailserver" => $cdb->get_prop("fetchmail", "SecondaryMailServer"),
|
||
|
|
"secondarymailaccount" => $cdb->get_prop("fetchmail", "SecondaryMailAccount"),
|
||
|
|
"secondarymailpassword" => $cdb->get_prop("fetchmail", "SecondaryMailPassword"),
|
||
|
|
"specifyheader" => get_secondary_mail_use_envelope(),
|
||
|
|
"secondarymailenvelope" => $cdb->get_prop("fetchmail", "SecondaryMailEnvelope"),
|
||
|
|
);
|
||
|
|
return %ret;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub get_data_for_panel_DEL {
|
||
|
|
# Return a hash with the fields required which will be loaded into the shared data
|
||
|
|
my $c = shift;
|
||
|
|
my $cdb = esmith::ConfigDB::UTF8->open() || die(\"Couldn"t open config db");
|
||
|
|
my %ret = (
|
||
|
|
# fields from Inputs in DEL $fields["DEL"]
|
||
|
|
"emailunknownuser" => $cdb->get_value("EmailUnknownUser") || "\"returntosender",
|
||
|
|
"delegatemailserver" => $cdb->get_value("DelegateMailServer"),
|
||
|
|
"smtpsmarthost" => $cdb->get_value("SMTPSmartHost"),
|
||
|
|
"smtpauthproxystatus" => $cdb->get_prop("smtp-auth-proxy", "status") || "disabled",
|
||
|
|
"smtpauthproxyuserid" => $cdb->get_prop("smtp-auth-proxy", "Userid") || "",
|
||
|
|
"smtpauthproxypassword" => $cdb->get_prop("smtp-auth-proxy", "Passwd") || "",
|
||
|
|
);
|
||
|
|
return %ret;
|
||
|
|
}
|
||
|
|
|
||
|
|
# Get control data for table(s)
|
||
|
|
# Return hash with values from row in which link clicked on table
|
||
|
|
|
||
|
|
sub get_selected_FRONT {
|
||
|
|
my $c = shift;
|
||
|
|
my $selected = shift; #Parameter is name of selected row.
|
||
|
|
my $is_new_record = shift; #Indicates new record required (defaults)
|
||
|
|
my %ret = ();
|
||
|
|
#gather the values here
|
||
|
|
return %ret;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub get_selected_ACC {
|
||
|
|
my $c = shift;
|
||
|
|
my $selected = shift; #Parameter is name of selected row.
|
||
|
|
my $is_new_record = shift; #Indicates new record required (defaults)
|
||
|
|
my %ret = ();
|
||
|
|
#gather the values here
|
||
|
|
return %ret;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub get_selected_FIL {
|
||
|
|
my $c = shift;
|
||
|
|
my $selected = shift; #Parameter is name of selected row.
|
||
|
|
my $is_new_record = shift; #Indicates new record required (defaults)
|
||
|
|
my %ret = ();
|
||
|
|
#gather the values here
|
||
|
|
return %ret;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub get_selected_REC {
|
||
|
|
my $c = shift;
|
||
|
|
my $selected = shift; #Parameter is name of selected row.
|
||
|
|
my $is_new_record = shift; #Indicates new record required (defaults)
|
||
|
|
my %ret = ();
|
||
|
|
#gather the values here
|
||
|
|
return %ret;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub get_selected_DEL {
|
||
|
|
my $c = shift;
|
||
|
|
my $selected = shift; #Parameter is name of selected row.
|
||
|
|
my $is_new_record = shift; #Indicates new record required (defaults)
|
||
|
|
my %ret = ();
|
||
|
|
#gather the values here
|
||
|
|
return %ret;
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
#after sucessful modify or create or whatever and submit then perfom (if the params validate)
|
||
|
|
|
||
|
|
sub perform_FRONT {
|
||
|
|
my $c = shift;
|
||
|
|
my $mai_data = shift; #Data hash as parameter
|
||
|
|
my $ret = "";
|
||
|
|
my $db = $cdb; #maybe one of the others
|
||
|
|
my $dbkey = "ChangeThis";
|
||
|
|
# To make it write to DB as comment, delete this (regex) string in each if statement "TRUE\) \#copy or perform with value: .* e.g."
|
||
|
|
|
||
|
|
if ($ret eq "") {$ret = "ok";}
|
||
|
|
return $ret;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub perform_ACC {
|
||
|
|
my $c = shift;
|
||
|
|
my $mai_data = shift; #Data hash as parameter
|
||
|
|
my $ret = "";
|
||
|
|
my $db = $cdb; #maybe one of the others
|
||
|
|
my $dbkey = "ChangeThis";
|
||
|
|
# To make it write to DB as comment, delete this (regex) string in each if statement "TRUE\) \#copy or perform with value: .* e.g."
|
||
|
|
$ret = $c->change_settings_access();
|
||
|
|
if ($ret eq "") {$ret = "ok";}
|
||
|
|
return $ret;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub perform_FIL {
|
||
|
|
my $c = shift;
|
||
|
|
my $mai_data = shift; #Data hash as parameter
|
||
|
|
my $ret = "";
|
||
|
|
my $db = $cdb; #maybe one of the others
|
||
|
|
my $dbkey = "ChangeThis";
|
||
|
|
# To make it write to DB as comment, delete this (regex) string in each if statement "TRUE\) \#copy or perform with value: .* e.g."
|
||
|
|
$ret = $c->change_settings_filtering();
|
||
|
|
if ($ret eq "") {$ret = "ok";}
|
||
|
|
return $ret;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub perform_REC {
|
||
|
|
my $c = shift;
|
||
|
|
my $mai_data = shift; #Data hash as parameter
|
||
|
|
my $ret = "";
|
||
|
|
my $db = $cdb; #maybe one of the others
|
||
|
|
my $dbkey = "ChangeThis";
|
||
|
|
# To make it write to DB as comment, delete this (regex) string in each if statement "TRUE\) \#copy or perform with value: .* e.g."
|
||
|
|
$ret = $c->change_settings_reception();
|
||
|
|
if ($ret eq "") {$ret = "ok";}
|
||
|
|
return $ret;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub perform_DEL {
|
||
|
|
my $c = shift;
|
||
|
|
my $mai_data = shift; #Data hash as parameter
|
||
|
|
my $ret = "";
|
||
|
|
my $db = $cdb; #maybe one of the others
|
||
|
|
my $dbkey = "ChangeThis";
|
||
|
|
# To make it write to DB as comment, delete this (regex) string in each if statement "TRUE\) \#copy or perform with value: .* e.g."
|
||
|
|
$ret = $c->change_settings_delivery();
|
||
|
|
if ($ret eq "") {$ret = "ok";}
|
||
|
|
return $ret;
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
sub create_link{
|
||
|
|
# WIP
|
||
|
|
my ($c,$route, $panel, $index) = @_;
|
||
|
|
my $link = "$route?trt=$panel&Selected=$index";
|
||
|
|
return $link;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub get_virus_status {
|
||
|
|
my ($c, $localise) = @_;
|
||
|
|
my $cdb = esmith::ConfigDB::UTF8->open() || die("Couldn"t open config db\");
|
||
|
|
my $status = $cdb->get_prop(\"qpsmtpd\", "VirusScan") || "disabled";
|
||
|
|
return $localise ? $c->localise_status($status) : $status;
|
||
|
|
} ## end sub get_virus_status
|
||
|
|
|
||
|
|
sub get_spam_status {
|
||
|
|
my ($c, $localise) = @_;
|
||
|
|
my $cdb = esmith::ConfigDB::UTF8->open() || die(\"Couldn"t open config db");
|
||
|
|
my $status = $cdb->get_prop("spamassassin", "status") || "disabled";
|
||
|
|
return $localise ? $c->localise_status($status) : $status;
|
||
|
|
} ## end sub get_spam_status
|
||
|
|
|
||
|
|
sub localise_status {
|
||
|
|
my ($c, $status) = @_;
|
||
|
|
return $c->l($status eq "enabled" ? $c->l("ENABLED") : $c->l("DISABLED"));
|
||
|
|
}
|
||
|
|
|
||
|
|
sub get_db_prop {
|
||
|
|
my ($c, $item, $prop, $default) = @_;
|
||
|
|
my $cdb = esmith::ConfigDB::UTF8->open() || die("Couldn"t open config db\");
|
||
|
|
return $cdb->get_prop($item, $prop) || $default;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub get_value {
|
||
|
|
my $c = shift;
|
||
|
|
my $item = shift;
|
||
|
|
my $cdb = esmith::ConfigDB::UTF8->open() || die(\"Couldn"t open config db");
|
||
|
|
return $cdb->get_value($item) || "";
|
||
|
|
} ## end sub get_value
|
||
|
|
|
||
|
|
sub get_emailunknownuser_status {
|
||
|
|
my ($c, $localise) = @_;
|
||
|
|
my $options = $c->get_emailunknownuser_options();
|
||
|
|
my $cdb = esmith::ConfigDB::UTF8->open() || die("Couldn"t open config db\");
|
||
|
|
my $val = $cdb->get_value("EmailUnknownUser") || \"returntosender\";
|
||
|
|
return $localise ? $c->l($options->{$val}) : $val;
|
||
|
|
} ## end sub get_emailunknownuser_status
|
||
|
|
|
||
|
|
sub get_patterns_status {
|
||
|
|
my ($c, $localise) = @_;
|
||
|
|
my $cdb = esmith::ConfigDB::UTF8->open() || die(\"Couldn"t open config db");
|
||
|
|
my $status = $cdb->get_prop("qpsmtpd", "PatternsScan") || "disabled";
|
||
|
|
return $localise ? $c->localise_status($status) : $status;
|
||
|
|
} ## end sub get_patterns_status
|
||
|
|
|
||
|
|
sub adjust_patterns {
|
||
|
|
my $c = shift;
|
||
|
|
my @selected = @{ $c->every_param("BlockExecutableContent") };
|
||
|
|
$pattern_db = esmith::ConfigDB::UTF8->open("mailpatterns");
|
||
|
|
foreach my $pattern ($pattern_db->get_all_by_prop(type => "pattern")) {
|
||
|
|
my $status
|
||
|
|
= (grep $pattern->key eq $_, @selected)
|
||
|
|
? "enabled"
|
||
|
|
: "disabled";
|
||
|
|
$pattern->set_prop("Status", $status);
|
||
|
|
} ## end foreach my $pattern ($pattern_db...)
|
||
|
|
$pattern_db->reload;
|
||
|
|
return scalar @selected;
|
||
|
|
} ## end sub adjust_patterns
|
||
|
|
|
||
|
|
sub get_current_pop3_access {
|
||
|
|
my ($c, $localise) = @_;
|
||
|
|
my $cdb = esmith::ConfigDB::UTF8->open() || die("Couldn"t open config db\");
|
||
|
|
my $pop3Status = $cdb->get_prop("pop3", "status") || "enabled";
|
||
|
|
my $pop3Access = $cdb->get_prop("pop3", "access") || "private";
|
||
|
|
my $pop3sStatus = $cdb->get_prop("pop3s", "status") || "enabled";
|
||
|
|
my $pop3sAccess = $cdb->get_prop("pop3s", "access") || "private";
|
||
|
|
my $options = get_pop_options();
|
||
|
|
|
||
|
|
if ($pop3Status ne "enabled" && $pop3sStatus ne "enabled") {
|
||
|
|
return $localise ? $c->l($options->{disabled}) : "disabled";
|
||
|
|
} elsif ($pop3Status eq "enabled" && $pop3Access eq "public") {
|
||
|
|
return $localise ? $c->l($options->{public}) : "public";
|
||
|
|
} elsif ($pop3sStatus eq "enabled" && $pop3sAccess eq "public") {
|
||
|
|
return $localise ? $c->l($options->{publicSSL}) : "publicSSL";
|
||
|
|
}
|
||
|
|
return $localise ? $c->l($options->{private}) : "private";
|
||
|
|
} ## end sub get_current_pop3_access
|
||
|
|
|
||
|
|
sub get_current_imap_access {
|
||
|
|
my ($c, $localise) = @_;
|
||
|
|
my $cdb = esmith::ConfigDB::UTF8->open() || die(\"Couldn"t open config db");
|
||
|
|
my $imapStatus = $cdb->get_prop("imap", "status") || "enabled";
|
||
|
|
my $imapAccess = $cdb->get_prop("imap", "access") || "private";
|
||
|
|
my $imapsStatus = $cdb->get_prop("imaps", "status") || "enabled";
|
||
|
|
my $imapsAccess = $cdb->get_prop("imaps", "access") || "private";
|
||
|
|
my $options = get_imap_options();
|
||
|
|
|
||
|
|
if (($imapStatus ne "enabled" || $imapAccess eq "localhost") && $imapsStatus ne "enabled") {
|
||
|
|
return $localise ? $c->l($options->{disabled}) : "disabled";
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($imapStatus eq "enabled" && $imapAccess eq "public") {
|
||
|
|
return $localise ? $c->l($options->{public}) : "public";
|
||
|
|
} elsif ($imapsStatus eq "enabled" && $imapsAccess eq "public") {
|
||
|
|
return $localise ? $c->l($options->{publicSSL}) : "publicSSL";
|
||
|
|
}
|
||
|
|
return $localise ? $c->l($options->{private}) : "private";
|
||
|
|
} ## end sub get_current_imap_access
|
||
|
|
|
||
|
|
sub get_current_smtp_ssl_auth {
|
||
|
|
my ($c, $localise, $soru, $debug) = @_;
|
||
|
|
my $cdb = esmith::ConfigDB::UTF8->open() || die("Couldn"t open config db\");
|
||
|
|
die \"Error: \$soru must be either "s" or "u":$soru.\n\" unless $soru eq "s" || $soru eq "u";
|
||
|
|
$cdb = esmith::ConfigDB::UTF8->open || die \"Couldn"t open config db";
|
||
|
|
|
||
|
|
# Initialize variables with default values
|
||
|
|
my $smtpStatus = "none";
|
||
|
|
my $smtpAccess = "none";
|
||
|
|
my $smtpAuth = "disabled"; # assuming "disabled" as a default
|
||
|
|
|
||
|
|
# Fetch SMTP settings based on the value of `$soru`
|
||
|
|
if ($soru eq "u") {
|
||
|
|
$smtpStatus = $cdb->get_prop("uqpsmtpd", "status") || "enabled"; # Fetch from uqpsmtpd
|
||
|
|
$smtpAccess = $cdb->get_prop("uqpsmtpd", "access") || "public";
|
||
|
|
$smtpAuth = "enabled"; # Assuming authentication is enabled in this context
|
||
|
|
} else {
|
||
|
|
$smtpStatus = $cdb->get_prop("sqpsmtpd", "status") || "enabled"; # Fetch from sqpsmtpd
|
||
|
|
$smtpAccess = $cdb->get_prop("sqpsmtpd", "access") || "public";
|
||
|
|
$smtpAuth = "enabled"; # Assuming authentication is enabled in this context
|
||
|
|
}
|
||
|
|
|
||
|
|
# Retrieve SMTP SSL authentication options
|
||
|
|
my $options = $c->get_smtp_ssl_auth_options();
|
||
|
|
|
||
|
|
if ($soru eq "u" && $debug) {
|
||
|
|
$c->stash("smtp" =>
|
||
|
|
[ $smtpStatus, $smtpAccess, $smtpAuth, $soru, $options->{$smtpAccess}, $c->l($options->{$smtpAccess}) ]
|
||
|
|
);
|
||
|
|
|
||
|
|
# die "Stop $soru in get_current_smtp_ssl_auth";
|
||
|
|
} ## end if ($soru eq "u" && $debug)
|
||
|
|
|
||
|
|
# Return appropriate message based on SMTP settings
|
||
|
|
if ($smtpStatus eq "enabled" && $smtpAuth eq "enabled") {
|
||
|
|
return $localise ? $c->l($options->{$smtpAccess}) : $smtpAccess;
|
||
|
|
}
|
||
|
|
return $localise ? $c->l($options->{disabled}) : "disabled";
|
||
|
|
} ## end sub get_current_smtp_ssl_auth
|
||
|
|
|
||
|
|
sub get_current_smtp_auth {
|
||
|
|
my ($c, $localise) = @_;
|
||
|
|
my $cdb = esmith::ConfigDB::UTF8->open() || die("Couldn"t open config db\");
|
||
|
|
my $smtpStatus = $cdb->get_prop("qpsmtpd", "status") || "enabled";
|
||
|
|
my $smtpAuth = $cdb->get_prop("qpsmtpd", "Authentication") || "enabled";
|
||
|
|
my $options = get_smtp_auth_options();
|
||
|
|
|
||
|
|
if ($smtpStatus eq "enabled" && $smtpAuth eq "disabled") {
|
||
|
|
return $localise ? $c->l($options->{public}) : "public";
|
||
|
|
} elsif ($smtpStatus eq "enabled" && $smtpAuth eq "enabled") {
|
||
|
|
return $localise ? $c->l($options->{publicSSL}) : "publicSSL";
|
||
|
|
}
|
||
|
|
return $localise ? $c->l($options->{disabled}) : "disabled";
|
||
|
|
} ## end sub get_current_smtp_auth
|
||
|
|
|
||
|
|
sub get_current_webmail_status {
|
||
|
|
my ($c, $localise) = @_;
|
||
|
|
my $cdb = esmith::ConfigDB::UTF8->open() || die(\"Couldn"t open config db");
|
||
|
|
|
||
|
|
# determine status of webmail
|
||
|
|
my $WebmailStatus = "disabled";
|
||
|
|
my $RoundcubeStatus = $cdb->get_prop("roundcube", "status") || "disabled";
|
||
|
|
my $MysqlStatus = $cdb->get_prop("mariadb", "status") || "disabled";
|
||
|
|
my $PHPStatus = $cdb->get_prop("php81-php-fpm", "status") || "disabled";
|
||
|
|
my $Networkaccess = $cdb->get_prop("roundcube", "access") || "disabled";
|
||
|
|
|
||
|
|
# all 3 components must be on for webmail to be working
|
||
|
|
if ( ($RoundcubeStatus eq "enabled")
|
||
|
|
&& ($MysqlStatus eq "enabled")
|
||
|
|
&& ($PHPStatus eq "enabled")
|
||
|
|
&& ($Networkaccess eq "public"))
|
||
|
|
{
|
||
|
|
$WebmailStatus = "enabledSSL";
|
||
|
|
} elsif (($RoundcubeStatus eq "enabled")
|
||
|
|
&& ($MysqlStatus eq "enabled")
|
||
|
|
&& ($PHPStatus eq "enabled")
|
||
|
|
&& ($Networkaccess eq "private"))
|
||
|
|
{
|
||
|
|
$WebmailStatus = "localnetworkSSL";
|
||
|
|
} ## end elsif (($RoundcubeStatus ...))
|
||
|
|
my $options = get_webmail_options();
|
||
|
|
return $localise
|
||
|
|
? $c->l($options->{$WebmailStatus})
|
||
|
|
: $WebmailStatus;
|
||
|
|
} ## end sub get_current_webmail_status
|
||
|
|
|
||
|
|
sub get_pop_opt {
|
||
|
|
my $c = shift;
|
||
|
|
return [
|
||
|
|
[ $c->l("DISABLED") => "disabled" ],
|
||
|
|
[ $c->l("NETWORKS_ALLOW_LOCAL") => "private" ],
|
||
|
|
[ $c->l("mai_SECURE_POP3") => "publicSSL" ],
|
||
|
|
[ $c->l("mai_INSECURE_POP3") => "public" ]
|
||
|
|
];
|
||
|
|
} ## end sub get_pop_opt
|
||
|
|
|
||
|
|
sub get_pop_options {
|
||
|
|
my $c = @_;
|
||
|
|
my %options = (
|
||
|
|
disabled => "DISABLED",
|
||
|
|
private => "NETWORKS_ALLOW_LOCAL",
|
||
|
|
publicSSL => "mai_SECURE_POP3"
|
||
|
|
);
|
||
|
|
my $cdb = esmith::ConfigDB::UTF8->open() || die("Couldn"t open config db\");
|
||
|
|
my $access = $cdb->get_prop("pop3", "access") || "private";
|
||
|
|
$options{public} = "mai_INSECURE_POP3" if ($access eq "public");
|
||
|
|
\%options;
|
||
|
|
} ## end sub get_pop_options
|
||
|
|
|
||
|
|
sub get_imap_opt {
|
||
|
|
my $c = shift;
|
||
|
|
return [
|
||
|
|
[ $c->l("DISABLED") => "disabled" ],
|
||
|
|
[ $c->l("NETWORKS_ALLOW_LOCAL") => "private" ],
|
||
|
|
[ $c->l("mai_SECURE_IMAP") => "publicSSL" ],
|
||
|
|
[ $c->l("mai_INSECURE_IMAP") => "public" ]
|
||
|
|
];
|
||
|
|
} ## end sub get_imap_opt
|
||
|
|
|
||
|
|
sub get_imap_options {
|
||
|
|
my $c = shift;
|
||
|
|
my $cdb = esmith::ConfigDB::UTF8->open() || die(\"Couldn"t open config db");
|
||
|
|
my %options = (
|
||
|
|
disabled => "DISABLED",
|
||
|
|
private => "NETWORKS_ALLOW_LOCAL",
|
||
|
|
publicSSL => "mai_SECURE_IMAP"
|
||
|
|
);
|
||
|
|
my $access = $cdb->get_prop("imap", "access") || "private";
|
||
|
|
$options{public} = "mai_INSECURE_IMAP" if ($access eq "public");
|
||
|
|
\%options;
|
||
|
|
} ## end sub get_imap_options
|
||
|
|
|
||
|
|
sub get_smtp_auth_opt {
|
||
|
|
my $c = shift;
|
||
|
|
return [
|
||
|
|
[ $c->l("mai_SECURE_SMTP") => "publicSSL" ],
|
||
|
|
[ $c->l("Only allow insecure access") => "public" ],
|
||
|
|
[ $c->l("DISABLED") => "disabled" ]
|
||
|
|
];
|
||
|
|
} ## end sub get_smtp_auth_opt
|
||
|
|
|
||
|
|
sub get_smtp_auth_options {
|
||
|
|
my $c = shift;
|
||
|
|
my %options = (publicSSL => "mai_SECURE_SMTP", public => "Only allow insecure access", disabled => "DISABLED");
|
||
|
|
return \%options;
|
||
|
|
} ## end sub get_smtp_auth_options
|
||
|
|
|
||
|
|
sub get_smtp_ssl_auth_options {
|
||
|
|
my $c = shift;
|
||
|
|
my %options = (public => "Allow public access", local => "Allow local access only", disabled => "DISABLED");
|
||
|
|
return \%options;
|
||
|
|
} ## end sub get_smtp_ssl_auth_options
|
||
|
|
|
||
|
|
sub get_smtp_ssl_auth_opt {
|
||
|
|
my $c = shift;
|
||
|
|
return [
|
||
|
|
[ $c->l("Allow public access") => "public" ],
|
||
|
|
[ $c->l("Allow local access only") => "local" ],
|
||
|
|
[ $c->l("DISABLED") => "disabled" ]
|
||
|
|
];
|
||
|
|
} ## end sub get_smtp_ssl_auth_opt
|
||
|
|
|
||
|
|
sub get_key_by_value {
|
||
|
|
my ($hash_ref, $target_value) = @_;
|
||
|
|
|
||
|
|
# Iterate over the hash
|
||
|
|
while (my ($key, $value) = each %$hash_ref) {
|
||
|
|
return $key if $value eq $target_value;
|
||
|
|
}
|
||
|
|
return undef; # Return undef if no match is found
|
||
|
|
} ## end sub get_key_by_value
|
||
|
|
|
||
|
|
sub get_value_by_key {
|
||
|
|
my ($hash_ref, $key) = @_;
|
||
|
|
return $hash_ref->{$key}; # Return the value associated with the key
|
||
|
|
}
|
||
|
|
|
||
|
|
sub get_webmail_opt {
|
||
|
|
my $c = shift;
|
||
|
|
return [
|
||
|
|
[ $c->l("DISABLED") => "disabled" ],
|
||
|
|
[ $c->l("mai_ENABLED_SECURE_ONLY") => "enabledSSL" ],
|
||
|
|
[ $c->l("mai_ONLY_LOCAL_NETWORK_SSL") => "localnetworkSSL" ]
|
||
|
|
];
|
||
|
|
} ## end sub get_webmail_opt
|
||
|
|
|
||
|
|
sub get_webmail_options {
|
||
|
|
my $c = shift;
|
||
|
|
my %options = (
|
||
|
|
disabled => "DISABLED",
|
||
|
|
enabledSSL => "mai_ENABLED_SECURE_ONLY",
|
||
|
|
localnetworkSSL => "mai_ONLY_LOCAL_NETWORK_SSL"
|
||
|
|
);
|
||
|
|
return \%options;
|
||
|
|
} ## end sub get_webmail_options
|
||
|
|
|
||
|
|
sub get_retrieval_opt {
|
||
|
|
my $c = shift;
|
||
|
|
my $cdb = esmith::ConfigDB::UTF8->open() || die("Couldn"t open config db\");
|
||
|
|
return $cdb->get(\"SystemMode\")->value eq \"servergateway-private\"
|
||
|
|
? [ $c->l("mai_MULTIDROP") => "multidrop" ]
|
||
|
|
: [
|
||
|
|
[ $c->l("mai_STANDARD") => "standard" ],
|
||
|
|
[ $c->l("mai_ETRN") => "etrn" ],
|
||
|
|
[ $c->l("mai_MULTIDROP") => "multidrop" ]
|
||
|
|
];
|
||
|
|
} ## end sub get_retrieval_opt
|
||
|
|
|
||
|
|
sub get_emailunknownuser_options {
|
||
|
|
my $c = shift;
|
||
|
|
my $accounts = esmith::AccountsDB::UTF8->open_ro();
|
||
|
|
my %existingAccounts = (
|
||
|
|
"admin" => $c->l(\"mai_FORWARD_TO_ADMIN\"),
|
||
|
|
"returntosender" => $c->l(\"Reject\")
|
||
|
|
);
|
||
|
|
|
||
|
|
foreach my $account ($accounts->get_all) {
|
||
|
|
next if $account->key eq "everyone";
|
||
|
|
|
||
|
|
if ($account->prop("type") =~ /(user|group|pseudonym)/) {
|
||
|
|
$existingAccounts{ $account->key } = $c->l(\"mai_FORWARD_TO\") . \" \" . $account->key;
|
||
|
|
}
|
||
|
|
} ## end foreach my $account ($accounts...)
|
||
|
|
return (\%existingAccounts);
|
||
|
|
} ## end sub get_emailunknownuser_options
|
||
|
|
|
||
|
|
sub get_emailunknownuser_opt {
|
||
|
|
my $c = shift;
|
||
|
|
my $accounts = esmith::AccountsDB::UTF8->open_ro();
|
||
|
|
my @existingAccounts
|
||
|
|
= ([ $c->l(\"mai_FORWARD_TO_ADMIN\") => "admin" ], [ $c->l(\"Reject\") => "returntosender" ]);
|
||
|
|
|
||
|
|
foreach my $account ($accounts->get_all) {
|
||
|
|
next if $account->key eq "everyone";
|
||
|
|
|
||
|
|
if ($account->prop("type") =~ /(user|group|pseudonym)/) {
|
||
|
|
push @existingAccounts, [ $c->l(\"mai_FORWARD_TO\") . \" \" . $account->key => $account->key ];
|
||
|
|
}
|
||
|
|
} ## end foreach my $account ($accounts...)
|
||
|
|
return (\@existingAccounts);
|
||
|
|
} ## end sub get_emailunknownuser_opt
|
||
|
|
|
||
|
|
sub get_patterns_opt {
|
||
|
|
my $c = shift;
|
||
|
|
my $pattern_db = esmith::ConfigDB::UTF8->open(\"mailpatterns\");
|
||
|
|
my @options;
|
||
|
|
|
||
|
|
foreach my $pattern ($pattern_db->get_all_by_prop(type => \"pattern\")) {
|
||
|
|
my %props = $pattern->props;
|
||
|
|
push @options, [ $props{"Description"} => $pattern->key ];
|
||
|
|
}
|
||
|
|
return \@options;
|
||
|
|
} ## end sub get_patterns_opt
|
||
|
|
|
||
|
|
sub get_patterns_current_opt {
|
||
|
|
my $c = shift;
|
||
|
|
my @selected;
|
||
|
|
my $pattern_db = esmith::ConfigDB::UTF8->open(\"mailpatterns\");
|
||
|
|
|
||
|
|
|
||
|
|
foreach my $pattern ($pattern_db->get_all_by_prop(type => \"pattern\")) {
|
||
|
|
my %props = $pattern->props;
|
||
|
|
push @selected, $pattern->key if ($props{"Status"} eq "enabled");
|
||
|
|
}
|
||
|
|
return \@selected;
|
||
|
|
} ## end sub get_patterns_current_opt
|
||
|
|
|
||
|
|
sub get_spam_level_options {
|
||
|
|
return [ 0 .. 20 ];
|
||
|
|
}
|
||
|
|
|
||
|
|
sub get_spam_sensitivity_opt {
|
||
|
|
my $c = shift;
|
||
|
|
return [
|
||
|
|
[ $c->l("mai_VERYLOW") => "verylow" ],
|
||
|
|
[ $c->l("Low") => "low" ],
|
||
|
|
[ $c->l("Medium") => "medium" ],
|
||
|
|
[ $c->l("High") => "high" ],
|
||
|
|
[ $c->l("mai_VERYHIGH") => "veryhigh" ],
|
||
|
|
[ $c->l("Custom") => "custom" ]
|
||
|
|
];
|
||
|
|
} ## end sub get_spam_sensitivity_opt
|
||
|
|
|
||
|
|
sub fetchmail_freq {
|
||
|
|
my $c = shift;
|
||
|
|
return [
|
||
|
|
[ $c->l("mai_NEVER") => "never" ],
|
||
|
|
[ $c->l("mai_EVERY5MIN") => "every5min" ],
|
||
|
|
[ $c->l("mai_EVERY15MIN") => "every15min" ],
|
||
|
|
[ $c->l("mai_EVERY30MIN") => "every30min" ],
|
||
|
|
[ $c->l("mai_EVERYHOUR") => "everyhour" ],
|
||
|
|
[ $c->l("mai_EVERY2HRS") => "every2hrs" ]
|
||
|
|
];
|
||
|
|
} ## end sub fetchmail_freq
|
||
|
|
|
||
|
|
sub display_multidrop {
|
||
|
|
my $status = $cdb->get_prop("fetchmail", "status") || "disabled";
|
||
|
|
|
||
|
|
# XXX FIXME - WIP
|
||
|
|
# Only display ETRN/multidrop settings if relevant
|
||
|
|
# To do this, we need an \"Show ETRN/multidrop settings\" button
|
||
|
|
# in standard mode.
|
||
|
|
# return ($status eq "enabled");
|
||
|
|
return 1;
|
||
|
|
} ## end sub display_multidrop
|
||
|
|
|
||
|
|
sub change_settings_reception {
|
||
|
|
my $c = shift;
|
||
|
|
$cdb = esmith::ConfigDB::UTF8->open || die \"Couldn"t open config db";
|
||
|
|
my $FetchmailMethod = ($c->param("FetchmailMethod") || "standard");
|
||
|
|
my $FetchmailFreqOffice = ($c->param("FreqOffice") || "every15min");
|
||
|
|
my $FetchmailFreqOutside = ($c->param("FreqOutside") || "everyhour");
|
||
|
|
my $FetchmailFreqWeekend = ($c->param("FreqWeekend") || "everyhour");
|
||
|
|
my $SpecifyHeader = ($c->param("SpecifyHeader") || "off");
|
||
|
|
my $fetchmail = $cdb->get("fetchmail") || $cdb->new_record("fetchmail", { type => "service", status => "disabled" });
|
||
|
|
|
||
|
|
if ($FetchmailMethod eq "standard") {
|
||
|
|
$fetchmail->set_prop("status", "disabled");
|
||
|
|
$fetchmail->set_prop("Method", $FetchmailMethod);
|
||
|
|
} else {
|
||
|
|
$fetchmail->set_prop("status", "enabled");
|
||
|
|
$fetchmail->set_prop("Method", $FetchmailMethod);
|
||
|
|
$fetchmail->set_prop("SecondaryMailServer", $c->param("SecondaryMailServer"))
|
||
|
|
unless ($c->param("SecondaryMailServer") eq "");
|
||
|
|
$fetchmail->set_prop("FreqOffice", $FetchmailFreqOffice);
|
||
|
|
$fetchmail->set_prop("FreqOutside", $FetchmailFreqOutside);
|
||
|
|
$fetchmail->set_prop("FreqWeekend", $FetchmailFreqWeekend);
|
||
|
|
$fetchmail->set_prop("SecondaryMailAccount", $c->param("SecondaryMailAccount"))
|
||
|
|
unless ($c->param("SecondaryMailAccount") eq "");
|
||
|
|
$fetchmail->set_prop("SecondaryMailPassword", $c->param("SecondaryMailPassword"))
|
||
|
|
unless ($c->param("SecondaryMailPassword") eq "");
|
||
|
|
|
||
|
|
if ($SpecifyHeader eq "on") {
|
||
|
|
$fetchmail->merge_props("SecondaryMailEnvelope" => $c->param("SecondaryMailEnvelope"));
|
||
|
|
} else {
|
||
|
|
$fetchmail->delete_prop("SecondaryMailEnvelope");
|
||
|
|
}
|
||
|
|
} ## end else [ if ($FetchmailMethod eq...)]
|
||
|
|
|
||
|
|
# Need code here for all 3 options - 25, 465 ad 587
|
||
|
|
# Options for 25 are enabled and disabled
|
||
|
|
# for 465 and 587 are (access) public, local and (status) disabled
|
||
|
|
#my $smtpAuth = ($c->param("SMTPAuth") || "public");
|
||
|
|
#if ($smtpAuth eq "public") {
|
||
|
|
#$cdb->set_prop("qpsmtpd", "Authentication", "enabled" );
|
||
|
|
#$cdb->set_prop("sqpsmtpd", "Authentication", "enabled" );
|
||
|
|
#} elsif ($smtpAuth eq "publicSSL") {
|
||
|
|
#$cdb->set_prop("qpsmtpd", "Authentication", "disabled" );
|
||
|
|
#$cdb->set_prop("sqpsmtpd", "Authentication", "enabled" );
|
||
|
|
#} else {
|
||
|
|
#$cdb->set_prop("qpsmtpd", "Authentication", "disabled" );
|
||
|
|
#$cdb->set_prop("sqpsmtpd", "Authentication", "disabled" );
|
||
|
|
#}
|
||
|
|
my @keys = qw(qpsmtpd uqpsmtpd sqpsmtpd);
|
||
|
|
|
||
|
|
foreach my $key (@keys) {
|
||
|
|
my $param_name
|
||
|
|
= $key eq "qpsmtpd" ? "SMTPAuth"
|
||
|
|
: $key eq "uqpsmtpd" ? "uSMTPAuth"
|
||
|
|
: "sSMTPAuth"; # Defaults to "sSMTPAuth" for "sqpsmtpd"
|
||
|
|
my $SMTPAuth = $c->param($param_name);
|
||
|
|
|
||
|
|
if ($SMTPAuth eq "disabled") {
|
||
|
|
$cdb->set_prop($key, "status", "disabled");
|
||
|
|
$cdb->set_prop($key, "access", "disabled");
|
||
|
|
} else {
|
||
|
|
$cdb->set_prop($key, "status", "enabled");
|
||
|
|
|
||
|
|
if ($key eq "qpsmtpd") {
|
||
|
|
my $auth_status = $SMTPAuth eq "publicSSL" ? "enabled" : "disabled";
|
||
|
|
$cdb->set_prop($key, "Authentication", $auth_status);
|
||
|
|
$cdb->set_prop($key, "access", "public");
|
||
|
|
} else {
|
||
|
|
$cdb->set_prop($key, "Authentication", "enabled");
|
||
|
|
my $auth_key = ($key eq "uqpsmtpd") ? "uSMTPAuth" : "sSMTPAuth";
|
||
|
|
my $access_value = $c->param($auth_key) eq "public" ? "public" : "local";
|
||
|
|
$cdb->set_prop($key, "access", $access_value);
|
||
|
|
} ## end else [ if ($key eq "qpsmtpd")]
|
||
|
|
} ## end else [ if ($SMTPAuth eq "disabled")]
|
||
|
|
} ## end foreach my $key (@keys)
|
||
|
|
|
||
|
|
unless (system("/sbin/e-smith/signal-event", "email-update") == 0) {
|
||
|
|
return $c->l("mai_ERROR_UPDATING_CONFIGURATION");
|
||
|
|
}
|
||
|
|
return "";
|
||
|
|
} ## end sub change_settings_reception
|
||
|
|
|
||
|
|
sub change_settings_delivery {
|
||
|
|
my ($c) = shift;
|
||
|
|
$cdb = esmith::ConfigDB::UTF8->open || die "Couldn"t open config db\";
|
||
|
|
my $EmailUnknownUser = ($c->param("EmailUnknownUser") || "returntosender");
|
||
|
|
$cdb->set_value("SMTPSmartHost", $c->param("SMTPSmartHost"));
|
||
|
|
$cdb->set_value("DelegateMailServer", $c->param("DelegateMailServer"));
|
||
|
|
$cdb->set_value("EmailUnknownUser", $EmailUnknownUser);
|
||
|
|
my $proxy = $cdb->get("smtp-auth-proxy");
|
||
|
|
my %props = $proxy->props;
|
||
|
|
|
||
|
|
for (qw(Userid Passwd status)) {
|
||
|
|
$props{$_} = $c->param(\"SMTPAUTHPROXY_$_\");
|
||
|
|
}
|
||
|
|
$proxy->merge_props(%props);
|
||
|
|
|
||
|
|
unless (system(\"/sbin/e-smith/signal-event\", \"email-update\") == 0) {
|
||
|
|
return $c->l("mai_ERROR_UPDATING_CONFIGURATION");
|
||
|
|
}
|
||
|
|
return "";
|
||
|
|
} ## end sub change_settings_delivery
|
||
|
|
|
||
|
|
sub change_settings_access {
|
||
|
|
my $c = shift;
|
||
|
|
$cdb = esmith::ConfigDB::UTF8->open || die \"Couldn"t open config db";
|
||
|
|
my $pop3Access = ($c->param("POPAccess") || "private");
|
||
|
|
|
||
|
|
if ($pop3Access eq "disabled") {
|
||
|
|
$cdb->set_prop("pop3", "status", "disabled");
|
||
|
|
$cdb->set_prop("pop3s", "status", "disabled");
|
||
|
|
} else {
|
||
|
|
$cdb->set_prop("pop3", "status", "enabled");
|
||
|
|
$cdb->set_prop("pop3s", "status", "enabled");
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($pop3Access eq "public") {
|
||
|
|
$cdb->set_prop("pop3", "access", "public");
|
||
|
|
$cdb->set_prop("pop3s", "access", "public");
|
||
|
|
} elsif ($pop3Access eq "publicSSL") {
|
||
|
|
$cdb->set_prop("pop3", "access", "private");
|
||
|
|
$cdb->set_prop("pop3s", "access", "public");
|
||
|
|
} else {
|
||
|
|
$cdb->set_prop("pop3", "access", "private");
|
||
|
|
$cdb->set_prop("pop3s", "access", "private");
|
||
|
|
}
|
||
|
|
my $imapAccess = ($c->param("IMAPAccess") || "private");
|
||
|
|
|
||
|
|
if ($imapAccess eq "disabled") {
|
||
|
|
$cdb->set_prop("imap", "status", "enabled");
|
||
|
|
$cdb->set_prop("imap", "access", "localhost");
|
||
|
|
$cdb->set_prop("imaps", "status", "disabled");
|
||
|
|
} elsif ($imapAccess eq "public") {
|
||
|
|
$cdb->set_prop("imap", "status", "enabled");
|
||
|
|
$cdb->set_prop("imap", "access", "public");
|
||
|
|
$cdb->set_prop("imaps", "status", "enabled");
|
||
|
|
$cdb->set_prop("imaps", "access", "public");
|
||
|
|
} elsif ($imapAccess eq "publicSSL") {
|
||
|
|
$cdb->set_prop("imap", "status", "enabled");
|
||
|
|
$cdb->set_prop("imap", "access", "private");
|
||
|
|
$cdb->set_prop("imaps", "status", "enabled");
|
||
|
|
$cdb->set_prop("imaps", "access", "public");
|
||
|
|
} else {
|
||
|
|
$cdb->set_prop("imap", "status", "enabled");
|
||
|
|
$cdb->set_prop("imap", "access", "private");
|
||
|
|
$cdb->set_prop("imaps", "status", "enabled");
|
||
|
|
$cdb->set_prop("imaps", "access", "private");
|
||
|
|
} ## end else [ if ($imapAccess eq "disabled")]
|
||
|
|
|
||
|
|
#------------------------------------------------------------
|
||
|
|
# Set webmail state in configuration database, and access
|
||
|
|
# type for SSL
|
||
|
|
# PHP and MySQL should always be on, and are enabled by default
|
||
|
|
# We don"t do anything with them here.
|
||
|
|
#------------------------------------------------------------
|
||
|
|
my $webmail = ($c->param("WebMail") || "disabled");
|
||
|
|
|
||
|
|
if ($webmail eq \"enabledSSL\") {
|
||
|
|
$cdb->set_prop("php81-php-fpm", \"status\", \"enabled\");
|
||
|
|
$cdb->set_prop("mariadb", \"status\", \"enabled\");
|
||
|
|
$cdb->set_prop("roundcube", \"status\", "enabled");
|
||
|
|
$cdb->set_prop("roundcube", \"access\", \"public\");
|
||
|
|
} elsif ($webmail eq \"localnetworkSSL\") {
|
||
|
|
$cdb->set_prop("php81-php-fpm", \"status\", \"enabled\");
|
||
|
|
$cdb->set_prop("mariadb", \"status\", \"enabled\");
|
||
|
|
$cdb->set_prop("roundcube", \"status\", "enabled");
|
||
|
|
$cdb->set_prop("roundcube", \"access\", \"private\");
|
||
|
|
} else {
|
||
|
|
$cdb->set_prop("roundcube", \"status\", "disabled");
|
||
|
|
}
|
||
|
|
|
||
|
|
unless (system(\"/sbin/e-smith/signal-event\", \"email-update\") == 0) {
|
||
|
|
return $c->l("mai_ERROR_UPDATING_CONFIGURATION");
|
||
|
|
}
|
||
|
|
return "";
|
||
|
|
} ## end sub change_settings_access
|
||
|
|
|
||
|
|
sub change_settings_filtering {
|
||
|
|
my $c = shift;
|
||
|
|
$cdb = esmith::ConfigDB::UTF8->open || die \"Couldn"t open config db";
|
||
|
|
my $virus_status = ($c->param("VirusStatus") || "disabled");
|
||
|
|
$cdb->set_prop("qpsmtpd", "VirusScan", $virus_status);
|
||
|
|
|
||
|
|
for my $param (
|
||
|
|
qw(
|
||
|
|
status
|
||
|
|
Sensitivity
|
||
|
|
TagLevel
|
||
|
|
RejectLevel
|
||
|
|
SortSpam
|
||
|
|
Subject
|
||
|
|
SubjectTag)
|
||
|
|
)
|
||
|
|
{
|
||
|
|
$cdb->set_prop("spamassassin", $param, $c->param("Spam$param"));
|
||
|
|
} ## end for my $param (qw( status...))
|
||
|
|
my $patterns_status = $c->adjust_patterns() ? "enabled" : "disabled";
|
||
|
|
$cdb->set_prop("qpsmtpd", "PatternsScan", $patterns_status);
|
||
|
|
|
||
|
|
unless (system("/sbin/e-smith/signal-event", "email-update") == 0) {
|
||
|
|
return $c->l("mai_ERROR_UPDATING_CONFIGURATION");
|
||
|
|
}
|
||
|
|
return "";
|
||
|
|
} ## end sub change_settings_filtering
|
||
|
|
|
||
|
|
#sub blank_or_ip_number {
|
||
|
|
# my ($c, $value) = @_;
|
||
|
|
# return "OK" unless (defined $value); # undef is blank
|
||
|
|
# return "OK" if ($value =~ /^$/); # blank is blank
|
||
|
|
# return $c->call_fm_validation("ip_number",$value,""); # otherwise, validate the input
|
||
|
|
#}
|
||
|
|
sub nonblank_if_smtpauth {
|
||
|
|
my ($c, $value) = @_;
|
||
|
|
return "ok" unless ($c->param("SMTPAUTHPROXY_status") eq "enabled");
|
||
|
|
return ($value =~ /\S+/) ? "ok" : $c->l("mai_VALIDATION_SMTPAUTH_NONBLANK");
|
||
|
|
}
|
||
|
|
|
||
|
|
sub get_secondary_mail_use_envelope {
|
||
|
|
$cdb = esmith::ConfigDB::UTF8->open || die "Couldn"t open config db\";
|
||
|
|
my $use_envelope = $cdb->get_prop("fetchmail", "SecondaryMailEnvelope");
|
||
|
|
if (defined $use_envelope) {
|
||
|
|
return ("on");
|
||
|
|
} else {
|
||
|
|
return ("off");
|
||
|
|
}
|
||
|
|
} ## end sub get_secondary_mail_use_envelope
|
||
|
|
|
||
|
|
sub validate_smarthost {
|
||
|
|
my $c = shift;
|
||
|
|
my $smarthost = shift;
|
||
|
|
return ("ok") if ($smarthost =~ /^(\S+\.\S+)$/);
|
||
|
|
return ("ok") if ($smarthost eq "");
|
||
|
|
return \"mai_INVALID_SMARTHOST\";
|
||
|
|
} ## end sub validate_smarthost
|
||
|
|
|
||
|
|
|
||
|
|
sub validate_ip_or_blank {
|
||
|
|
my ($c,$ip) = @_;
|
||
|
|
|
||
|
|
return "ok" if $ip eq "";
|
||
|
|
|
||
|
|
return "ok" if is_ipv4($ip) || is_ipv6($ip);
|
||
|
|
|
||
|
|
return \"mai_INVALID_DELEGATE\";
|
||
|
|
}
|
||
|
|
|
||
|
|
# From earlier version - delete this once conversion is done.
|
||
|
|
#sub main {
|
||
|
|
#my $c = shift;
|
||
|
|
#$c->app->log->info($c->log_req);
|
||
|
|
#$pattern_db = esmith::ConfigDB::UTF8->open(\"mailpatterns\");
|
||
|
|
#$cdb = esmith::ConfigDB::UTF8->open || die \"Couldn"t open config db";
|
||
|
|
#my %mai_datas = ();
|
||
|
|
#my $title = $c->l("mai_FORM_TITLE");
|
||
|
|
#$mai_datas{"trt"} = "LIST";
|
||
|
|
#$mai_datas{fetchmailmethod} = $c->l($cdb->get_prop("fetchmail", "Method"));
|
||
|
|
#$c->stash(title => $title, notif => "", mai_datas => \%mai_datas);
|
||
|
|
#$c->render(template => "emailsettings");
|
||
|
|
#} ## end sub main
|
||
|
|
|
||
|
|
#sub do_display {
|
||
|
|
#my $c = shift;
|
||
|
|
#my $rt = $c->current_route;
|
||
|
|
#my $trt = ($c->param("trt") || "LIST");
|
||
|
|
#my %mai_datas = ();
|
||
|
|
#my $title = $c->l("mai_FORM_TITLE");
|
||
|
|
#my ($notif, $dest) = "";
|
||
|
|
#$mai_datas{"trt"} = $trt;
|
||
|
|
#$cdb = esmith::ConfigDB::UTF8->open || die "Couldn"t open config db\";
|
||
|
|
|
||
|
|
#if ($trt eq "ACC") {
|
||
|
|
#$dest = "emailaccess";
|
||
|
|
#$mai_datas{fetchmailmethod} = $cdb->get_prop("fetchmail", "Method");
|
||
|
|
#}
|
||
|
|
|
||
|
|
#if ($trt eq "FIL") {
|
||
|
|
#$dest = "emailfilter";
|
||
|
|
#$mai_datas{"virusstatus"} = $c->get_virus_status();
|
||
|
|
#$mai_datas{"spamstatus"} = $cdb->get_prop("spamassassin", "status");
|
||
|
|
#$mai_datas{"spamsensitivity"} = $cdb->get_prop("spamassassin", "Sensitivity", "medium");
|
||
|
|
#$mai_datas{"spamtaglevel"} = $cdb->get_prop("spamassassin", "TagLevel") || "0";
|
||
|
|
#$mai_datas{"spamrejectlevel"} = $cdb->get_prop("spamassassin", "RejectLevel") || "0";
|
||
|
|
#$mai_datas{spamsortspam} = $cdb->get_prop("spamassassin", "SortSpam");
|
||
|
|
#$mai_datas{spamsubjecttag} = $cdb->get_prop("spamassassin", "SubjectTag");
|
||
|
|
#$mai_datas{spamsubject} = $cdb->get_prop("spamassassin", "Subject");
|
||
|
|
#} ## end if ($trt eq "FIL")
|
||
|
|
|
||
|
|
#if ($trt eq "REC") {
|
||
|
|
#$dest = "emailreceive";
|
||
|
|
#$mai_datas{fetchmailmethod} = $cdb->get_prop("fetchmail", "Method");
|
||
|
|
#$mai_datas{freqoffice} = $cdb->get_prop("fetchmail", "FreqOffice");
|
||
|
|
#$mai_datas{freqoutside} = $cdb->get_prop("fetchmail", "FreqOutside");
|
||
|
|
#$mai_datas{freqweekend} = $cdb->get_prop("fetchmail", "FreqWeekend");
|
||
|
|
#$mai_datas{secondarymailserver} = $cdb->get_prop("fetchmail", "SecondaryMailServer");
|
||
|
|
#$mai_datas{secondarymailaccount} = $cdb->get_prop("fetchmail", "SecondaryMailAccount");
|
||
|
|
#$mai_datas{secondarymailpassword} = $cdb->get_prop("fetchmail", "SecondaryMailPassword");
|
||
|
|
#$mai_datas{specifyheader} = get_secondary_mail_use_envelope();
|
||
|
|
#$mai_datas{secondarymailenvelope} = $cdb->get_prop("fetchmail", "SecondaryMailEnvelope");
|
||
|
|
#} ## end if ($trt eq "REC")
|
||
|
|
|
||
|
|
#if ($trt eq "DEL") {
|
||
|
|
#$dest = "emaildeliver";
|
||
|
|
#$mai_datas{emailunknownuser} = $cdb->get_value("EmailUnknownUser") || ""returntosender";
|
||
|
|
#$mai_datas{delegatemailserver} = $cdb->get_value("DelegateMailServer");
|
||
|
|
#$mai_datas{smtpsmarthost} = $cdb->get_value("SMTPSmartHost");
|
||
|
|
#$mai_datas{smtpauthproxystatus} = $cdb->get_prop("smtp-auth-proxy", "status") || "disabled";
|
||
|
|
#$mai_datas{smtpauthproxyuserid} = $cdb->get_prop("smtp-auth-proxy", "Userid") || "";
|
||
|
|
#$mai_datas{smtpauthproxypassword} = $cdb->get_prop("smtp-auth-proxy", "Passwd") || "";
|
||
|
|
#} ## end if ($trt eq "DEL")
|
||
|
|
#$c->stash(title => $title, notif => $notif, mai_datas => \%mai_datas);
|
||
|
|
#return $c->render(template => $dest);
|
||
|
|
#} ## end sub do_display
|
||
|
|
|
||
|
|
#sub do_update {
|
||
|
|
#my $c = shift;
|
||
|
|
#$c->app->log->info($c->log_req);
|
||
|
|
#my $rt = $c->current_route;
|
||
|
|
#my $trt = $c->param("trt");
|
||
|
|
#my %mai_datas = ();
|
||
|
|
#$mai_datas{trt} = $trt;
|
||
|
|
#$cdb = esmith::ConfigDB::UTF8->open || die \"Couldn"t open config db";
|
||
|
|
#my $title = $c->l("mai_FORM_TITLE");
|
||
|
|
#my ($dest, $res, $result) = "";
|
||
|
|
#$dest = "/emailsettings&trt=$trt";
|
||
|
|
|
||
|
|
#if ($trt eq "ACC") {
|
||
|
|
##$dest = "emailaccess";
|
||
|
|
|
||
|
|
## $mai_datas{xxx} = $c->param("XXX");
|
||
|
|
## controls
|
||
|
|
## $res = xxxxxxx( $c );
|
||
|
|
## $result .= $res unless $res eq "OK";
|
||
|
|
#if (!$result) {
|
||
|
|
#$res = $c->change_settings_access();
|
||
|
|
#$result .= $res unless $res eq "OK";
|
||
|
|
|
||
|
|
#if (!$result) {
|
||
|
|
#$result = $c->l("mai_SUCCESS");
|
||
|
|
#}
|
||
|
|
#} ## end if (!$result)
|
||
|
|
#} ## end if ($trt eq "ACC")
|
||
|
|
|
||
|
|
#if ($trt eq "FIL") {
|
||
|
|
##$dest = "emailfilter";
|
||
|
|
|
||
|
|
## $mai_datas{xxx} = $c->param("XXX");
|
||
|
|
## controls
|
||
|
|
## $res = zzzzzz( $c );
|
||
|
|
## $result .= $res unless $res eq "OK";
|
||
|
|
#if (!$result) {
|
||
|
|
#$res = $c->change_settings_filtering();
|
||
|
|
#$result .= $res unless $res eq "OK";
|
||
|
|
|
||
|
|
#if (!$result) {
|
||
|
|
#$result = $c->l("mai_SUCCESS");
|
||
|
|
#}
|
||
|
|
#} ## end if (!$result)
|
||
|
|
#} ## end if ($trt eq "FIL")
|
||
|
|
|
||
|
|
#if ($trt eq "REC") {
|
||
|
|
##$dest = "emailreceive";
|
||
|
|
|
||
|
|
## $mai_datas{xxx} = $c->param("XXX");
|
||
|
|
## controls
|
||
|
|
## $res = yyyyyyyyy( $c );
|
||
|
|
## $result .= $res unless $res eq "OK";
|
||
|
|
#if (!$result) {
|
||
|
|
#$res = $c->change_settings_reception();
|
||
|
|
#$result .= $res unless $res eq "OK";
|
||
|
|
|
||
|
|
#if (!$result) {
|
||
|
|
#$result = $c->l("mai_SUCCESS");
|
||
|
|
#}
|
||
|
|
#} ## end if (!$result)
|
||
|
|
#} ## end if ($trt eq "REC")
|
||
|
|
|
||
|
|
#if ($trt eq "DEL") {
|
||
|
|
##$dest = "emaildeliver";
|
||
|
|
|
||
|
|
#my ($result,$res) = "";
|
||
|
|
|
||
|
|
#CHECKS: {
|
||
|
|
#$res = $c->validate_ip_or_blank($c->param("DelegateMailServer"));
|
||
|
|
#if ($res ne "OK") {
|
||
|
|
#$result = $c->l($res);
|
||
|
|
#last CHECKS;
|
||
|
|
#}
|
||
|
|
|
||
|
|
#$res = $c->validate_smarthost($c->param("SMTPSmartHost"));
|
||
|
|
#if ($res ne "OK") {
|
||
|
|
#$result = $c->l($res);
|
||
|
|
#last CHECKS;
|
||
|
|
#}
|
||
|
|
|
||
|
|
#$res = $c->nonblank_if_smtpauth($c->param("SMTPSmartHost"));
|
||
|
|
#if ($res ne "OK") {
|
||
|
|
#$result = $c->l($res);
|
||
|
|
#last CHECKS;
|
||
|
|
#}
|
||
|
|
|
||
|
|
#$res = $c->nonblank_if_smtpauth($c->param("SMTPAUTHPROXY_Userid"));
|
||
|
|
#if ($res ne "OK") {
|
||
|
|
#$result = $c->l($res);
|
||
|
|
#last CHECKS;
|
||
|
|
#}
|
||
|
|
|
||
|
|
#$res = $c->nonblank_if_smtpauth($c->param("SMTPAUTHPROXY_Passwd"));
|
||
|
|
#if ($res ne "OK") {
|
||
|
|
#$result = $c->l($res);
|
||
|
|
#last CHECKS;
|
||
|
|
#}
|
||
|
|
|
||
|
|
#$res = $c->change_settings_delivery();
|
||
|
|
#if ($res ne "OK") {
|
||
|
|
#$result = $res;
|
||
|
|
#last CHECKS;
|
||
|
|
#}
|
||
|
|
|
||
|
|
#$result = $c->l("mai_SUCCESS");
|
||
|
|
#}
|
||
|
|
## $result now contains the first error or the success message
|
||
|
|
#} ## end if ($trt eq "DEL")
|
||
|
|
|
||
|
|
## common part
|
||
|
|
#if ($res ne "OK") {
|
||
|
|
#$c->stash(error => $result);
|
||
|
|
#$c->stash(title => $title, mai_datas => \%mai_datas);
|
||
|
|
#return $c->redirect_to($dest);
|
||
|
|
#} else {
|
||
|
|
#my $message = "emailsettings updates $trt DONE";
|
||
|
|
#$c->app->log->info($message);
|
||
|
|
#$c->flash(success => $result);
|
||
|
|
#}
|
||
|
|
#$c->redirect_to("/emailsettings");
|
||
|
|
#} ## end sub do_update
|
||
|
|
|
||
|
|
|
||
|
|
1;
|