* Tue Sep 24 2024 Jean-Philippe Pialasse <jpp@koozali.org> 11.0.0-22.sme
- fix typos, and tidy tabs [SME: 12744]
This commit is contained in:
parent
44a9ecc0e1
commit
4d2097d2da
@ -57,12 +57,14 @@ sub do_display {
|
|||||||
|
|
||||||
$mai_datas{'trt'} = $trt;
|
$mai_datas{'trt'} = $trt;
|
||||||
|
|
||||||
if ( $trt eq 'ACC' ) {
|
if ( $trt eq 'ACC' )
|
||||||
$dest = 'emailaccess';
|
{
|
||||||
$mai_datas{fetchmailmethod} = $cdb->get_prop('fetchmail', 'Method');
|
$dest = 'emailaccess';
|
||||||
}
|
$mai_datas{fetchmailmethod} = $cdb->get_prop('fetchmail', 'Method');
|
||||||
|
}
|
||||||
|
|
||||||
if ( $trt eq 'FIL' ) {
|
if ( $trt eq 'FIL' )
|
||||||
|
{
|
||||||
$dest = 'emailfilter';
|
$dest = 'emailfilter';
|
||||||
$mai_datas{'virusstatus'} = $c->get_virus_status();
|
$mai_datas{'virusstatus'} = $c->get_virus_status();
|
||||||
$mai_datas{'spamstatus'} = $cdb->get_prop('spamassassin', 'status');
|
$mai_datas{'spamstatus'} = $cdb->get_prop('spamassassin', 'status');
|
||||||
@ -72,9 +74,10 @@ sub do_display {
|
|||||||
$mai_datas{spamsortspam} = $cdb->get_prop('spamassassin', 'SortSpam');
|
$mai_datas{spamsortspam} = $cdb->get_prop('spamassassin', 'SortSpam');
|
||||||
$mai_datas{spamsubjecttag} = $cdb->get_prop('spamassassin', 'SubjectTag');
|
$mai_datas{spamsubjecttag} = $cdb->get_prop('spamassassin', 'SubjectTag');
|
||||||
$mai_datas{spamsubject} = $cdb->get_prop('spamassassin', 'Subject');
|
$mai_datas{spamsubject} = $cdb->get_prop('spamassassin', 'Subject');
|
||||||
}
|
}
|
||||||
|
|
||||||
if ( $trt eq 'REC' ) {
|
if ( $trt eq 'REC' )
|
||||||
|
{
|
||||||
$dest = 'emailreceive';
|
$dest = 'emailreceive';
|
||||||
$mai_datas{fetchmailmethod} = $cdb->get_prop('fetchmail', 'Method');
|
$mai_datas{fetchmailmethod} = $cdb->get_prop('fetchmail', 'Method');
|
||||||
$mai_datas{freqoffice} = $cdb->get_prop('fetchmail', 'FreqOffice');
|
$mai_datas{freqoffice} = $cdb->get_prop('fetchmail', 'FreqOffice');
|
||||||
@ -86,9 +89,10 @@ sub do_display {
|
|||||||
$mai_datas{specifyheader} = get_secondary_mail_use_envelope();
|
$mai_datas{specifyheader} = get_secondary_mail_use_envelope();
|
||||||
$mai_datas{secondarymailenvelope} = $cdb->get_prop('fetchmail', 'SecondaryMailEnvelope');
|
$mai_datas{secondarymailenvelope} = $cdb->get_prop('fetchmail', 'SecondaryMailEnvelope');
|
||||||
|
|
||||||
}
|
}
|
||||||
|
|
||||||
if ( $trt eq 'DEL' ) {
|
if ( $trt eq 'DEL' )
|
||||||
|
{
|
||||||
$dest = 'emaildeliver';
|
$dest = 'emaildeliver';
|
||||||
$mai_datas{emailunknownuser} = $cdb->get_value('EmailUnknownUser') || '"returntosender';
|
$mai_datas{emailunknownuser} = $cdb->get_value('EmailUnknownUser') || '"returntosender';
|
||||||
$mai_datas{delegatemailserver} = $cdb->get_value('DelegateMailServer');
|
$mai_datas{delegatemailserver} = $cdb->get_value('DelegateMailServer');
|
||||||
@ -96,7 +100,7 @@ sub do_display {
|
|||||||
$mai_datas{smtpauthproxystatus} = $cdb->get_prop('smtp-auth-proxy', 'status') || 'disabled';
|
$mai_datas{smtpauthproxystatus} = $cdb->get_prop('smtp-auth-proxy', 'status') || 'disabled';
|
||||||
$mai_datas{smtpauthproxyuserid} = $cdb->get_prop('smtp-auth-proxy', 'Userid') || '';
|
$mai_datas{smtpauthproxyuserid} = $cdb->get_prop('smtp-auth-proxy', 'Userid') || '';
|
||||||
$mai_datas{smtpauthproxypassword} = $cdb->get_prop('smtp-auth-proxy', 'Passwd') || '';
|
$mai_datas{smtpauthproxypassword} = $cdb->get_prop('smtp-auth-proxy', 'Passwd') || '';
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
$c->stash( title => $title, notif => $notif, mai_datas => \%mai_datas );
|
$c->stash( title => $title, notif => $notif, mai_datas => \%mai_datas );
|
||||||
@ -120,98 +124,107 @@ sub do_update {
|
|||||||
|
|
||||||
my ($dest, $res, $result) = '';
|
my ($dest, $res, $result) = '';
|
||||||
|
|
||||||
if ( $trt eq 'ACC' ) {
|
if ( $trt eq 'ACC' )
|
||||||
|
{
|
||||||
|
$dest = 'emailaccess';
|
||||||
|
# $mai_datas{xxx} = $c->param('XXX');
|
||||||
|
|
||||||
$dest = 'emailaccess';
|
# controls
|
||||||
# $mai_datas{xxx} = $c->param('XXX');
|
# $res = xxxxxxx( $c );
|
||||||
|
# $result .= $res unless $res eq 'OK';
|
||||||
|
|
||||||
# controls
|
if ( ! $result )
|
||||||
# $res = xxxxxxx( $c );
|
{
|
||||||
# $result .= $res unless $res eq 'OK';
|
$res = $c->change_settings_access();
|
||||||
|
$result .= $res unless $res eq 'OK';
|
||||||
|
if ( ! $result )
|
||||||
|
{
|
||||||
|
$result = $c->l('mai_SUCCESS');
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
if ( ! $result ) {
|
if ( $trt eq 'FIL' )
|
||||||
$res = $c->change_settings_access();
|
{
|
||||||
$result .= $res unless $res eq 'OK';
|
$dest = 'emailfilter';
|
||||||
if ( ! $result ) {
|
# $mai_datas{xxx} = $c->param('XXX');
|
||||||
$result = $c->l('mai_SUCCESS');
|
|
||||||
}
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
if ( $trt eq 'FIL' ) {
|
# controls
|
||||||
|
# $res = zzzzzz( $c );
|
||||||
|
# $result .= $res unless $res eq 'OK';
|
||||||
|
|
||||||
$dest = 'emailfilter';
|
if ( ! $result )
|
||||||
# $mai_datas{xxx} = $c->param('XXX');
|
{
|
||||||
|
$res = $c->change_settings_filtering();
|
||||||
|
$result .= $res unless $res eq 'OK';
|
||||||
|
if ( ! $result )
|
||||||
|
{
|
||||||
|
$result = $c->l('mai_SUCCESS');
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
# controls
|
if ( $trt eq 'REC' )
|
||||||
# $res = zzzzzz( $c );
|
{
|
||||||
# $result .= $res unless $res eq 'OK';
|
$dest = 'emailreceive';
|
||||||
|
# $mai_datas{xxx} = $c->param('XXX');
|
||||||
|
|
||||||
if ( ! $result ) {
|
# controls
|
||||||
$res = $c->change_settings_filtering();
|
# $res = yyyyyyyyy( $c );
|
||||||
$result .= $res unless $res eq 'OK';
|
# $result .= $res unless $res eq 'OK';
|
||||||
if ( ! $result ) {
|
|
||||||
$result = $c->l('mai_SUCCESS');
|
|
||||||
}
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
if ( $trt eq 'REC' ) {
|
if ( ! $result )
|
||||||
|
{
|
||||||
|
$res = $c->change_settings_reception();
|
||||||
|
$result .= $res unless $res eq 'OK';
|
||||||
|
if ( ! $result )
|
||||||
|
{
|
||||||
|
$result = $c->l('mai_SUCCESS');
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
$dest = 'emailreceive';
|
if ( $trt eq 'DEL' )
|
||||||
# $mai_datas{xxx} = $c->param('XXX');
|
{
|
||||||
|
$dest = 'emaildeliver';
|
||||||
|
# $mai_datas{xxx} = $c->param('XXX');
|
||||||
|
|
||||||
# controls
|
# controls
|
||||||
# $res = yyyyyyyyy( $c );
|
$res = $c->ip_number_or_blank( $c->param('DelegateMailServer') );
|
||||||
# $result .= $res unless $res eq 'OK';
|
$result .= $res . ' DMS <br>' unless $res eq 'OK';
|
||||||
|
|
||||||
if ( ! $result ) {
|
$res = $c->validate_smarthost( $c->param('SMTPSmartHost') );
|
||||||
$res = $c->change_settings_reception();
|
$result .= $res . ' SH <br>' unless $res eq 'OK';
|
||||||
$result .= $res unless $res eq 'OK';
|
|
||||||
if ( ! $result ) {
|
|
||||||
$result = $c->l('mai_SUCCESS');
|
|
||||||
}
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
if ( $trt eq 'DEL' ) {
|
$res = $c->nonblank_if_smtpauth( $c->param('SMTPSmartHost') );
|
||||||
|
$result .= $res . ' SH <br>' unless $res eq 'OK';
|
||||||
|
|
||||||
$dest = 'emaildeliver';
|
$res = $c->nonblank_if_smtpauth( $c->param('SMTPAUTHPROXY_Userid') );
|
||||||
# $mai_datas{xxx} = $c->param('XXX');
|
$result .= $res . ' USR <br>' unless $res eq 'OK';
|
||||||
|
|
||||||
# controls
|
$res = $c->nonblank_if_smtpauth( $c->param('SMTPAUTHPROXY_Passwd') );
|
||||||
$res = $c->ip_number_or_blank( $c->param('DelegateMailServer') );
|
$result .= $res . ' PWD <br>' unless $res eq 'OK';
|
||||||
$result .= $res . ' DMS <br>' unless $res eq 'OK';
|
|
||||||
|
|
||||||
$res = $c->validate_smarthost( $c->param('SMTPSmartHost') );
|
if ( ! $result )
|
||||||
$result .= $res . ' SH <br>' unless $res eq 'OK';
|
{
|
||||||
|
$res = $c->change_settings_delivery();
|
||||||
$res = $c->nonblank_if_smtpauth( $c->param('SMTPSmartHost') );
|
$result .= $res unless $res eq 'OK';
|
||||||
$result .= $res . ' SH <br>' unless $res eq 'OK';
|
if ( ! $result )
|
||||||
|
{
|
||||||
$res = $c->nonblank_if_smtpauth( $c->param('SMTPAUTHPROXY_Userid') );
|
$result = $c->l('mai_SUCCESS');
|
||||||
$result .= $res . ' USR <br>' unless $res eq 'OK';
|
}
|
||||||
|
}
|
||||||
$res = $c->nonblank_if_smtpauth( $c->param('SMTPAUTHPROXY_Passwd') );
|
}
|
||||||
$result .= $res . ' PWD <br>' unless $res eq 'OK';
|
|
||||||
|
|
||||||
if ( ! $result ) {
|
|
||||||
$res = $c->change_settings_delivery();
|
|
||||||
$result .= $res unless $res eq 'OK';
|
|
||||||
if ( ! $result ) {
|
|
||||||
$result = $c->l('mai_SUCCESS');
|
|
||||||
}
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
# common part
|
# common part
|
||||||
|
|
||||||
if ($res ne 'OK') {
|
if ($res ne 'OK')
|
||||||
$c->stash( error => $result );
|
{
|
||||||
$c->stash( title => $title, mai_datas => \%mai_datas );
|
$c->stash( error => $result );
|
||||||
return $c->render( $dest );
|
$c->stash( title => $title, mai_datas => \%mai_datas );
|
||||||
}
|
return $c->render( $dest );
|
||||||
|
}
|
||||||
|
|
||||||
my $message = "emailsettings updates $trt DONE";
|
my $message = "emailsettings updates $trt DONE";
|
||||||
$c->app->log->info($message);
|
$c->app->log->info($message);
|
||||||
@ -399,7 +412,7 @@ sub get_current_webmail_status {
|
|||||||
|
|
||||||
my $MysqlStatus = $cdb->get_prop('mariadb', 'status') || 'disabled';
|
my $MysqlStatus = $cdb->get_prop('mariadb', 'status') || 'disabled';
|
||||||
|
|
||||||
my $PHPStatus = $cdb->get_prop('php81', 'status') || 'disabled';
|
my $PHPStatus = $cdb->get_prop('php81-php-fpm', 'status') || 'disabled';
|
||||||
|
|
||||||
my $Networkaccess = $cdb->get_prop('roundcube','access') || 'disabled';
|
my $Networkaccess = $cdb->get_prop('roundcube','access') || 'disabled';
|
||||||
|
|
||||||
@ -515,7 +528,7 @@ sub get_webmail_options {
|
|||||||
my %options = (
|
my %options = (
|
||||||
disabled => 'DISABLED',
|
disabled => 'DISABLED',
|
||||||
enabledSSL => 'mai_ENABLED_SECURE_ONLY',
|
enabledSSL => 'mai_ENABLED_SECURE_ONLY',
|
||||||
localnetworkSSL => 'mai_ONLY_LOCAL_NETWORK_SSL')
|
localnetworkSSL => 'mai_ONLY_LOCAL_NETWORK_SSL');
|
||||||
|
|
||||||
return \%options;
|
return \%options;
|
||||||
}
|
}
|
||||||
@ -749,7 +762,7 @@ sub change_settings_delivery {
|
|||||||
sub change_settings_access {
|
sub change_settings_access {
|
||||||
|
|
||||||
my $c = shift;
|
my $c = shift;
|
||||||
$cdb = esmith::ConfigDB->open || die "Couldn't open config db";
|
$cdb = esmith::ConfigDB->open || die "Couldn't open config db";
|
||||||
|
|
||||||
my $pop3Access = ($c->param('POPAccess') || 'private');
|
my $pop3Access = ($c->param('POPAccess') || 'private');
|
||||||
if ($pop3Access eq 'disabled') {
|
if ($pop3Access eq 'disabled') {
|
||||||
@ -801,14 +814,14 @@ sub change_settings_access {
|
|||||||
|
|
||||||
my $webmail = ($c->param('WebMail') || 'disabled');
|
my $webmail = ($c->param('WebMail') || 'disabled');
|
||||||
if ( $webmail eq "enabledSSL" ) {
|
if ( $webmail eq "enabledSSL" ) {
|
||||||
$cdb->set_prop('php81',"status", "enabled" );
|
$cdb->set_prop('php81-php-fpm',"status", "enabled" );
|
||||||
$cdb->set_prop('mariadb',"status", "enabled" );
|
$cdb->set_prop('mariadb',"status", "enabled" );
|
||||||
$cdb->set_prop('roundcube',"status", 'enabled' );
|
$cdb->set_prop('roundcube',"status", 'enabled' );
|
||||||
$cdb->set_prop('roundcube',"access", "public" );
|
$cdb->set_prop('roundcube',"access", "public" );
|
||||||
}
|
}
|
||||||
|
|
||||||
elsif ( $webmail eq "localnetworkSSL" ) {
|
elsif ( $webmail eq "localnetworkSSL" ) {
|
||||||
$cdb->set_prop('php81',"status", "enabled" );
|
$cdb->set_prop('php81-php-fpm',"status", "enabled" );
|
||||||
$cdb->set_prop('mariadb',"status", "enabled" );
|
$cdb->set_prop('mariadb',"status", "enabled" );
|
||||||
$cdb->set_prop('roundcube',"status", 'enabled' );
|
$cdb->set_prop('roundcube',"status", 'enabled' );
|
||||||
$cdb->set_prop('roundcube',"access", "private" );
|
$cdb->set_prop('roundcube',"access", "private" );
|
||||||
@ -844,7 +857,7 @@ sub change_settings_filtering {
|
|||||||
Subject
|
Subject
|
||||||
SubjectTag) )
|
SubjectTag) )
|
||||||
{
|
{
|
||||||
$cdb->set_prop('spamassassin', $param, $c->param("Spam$param"));
|
$cdb->set_prop('spamassassin', $param, $c->param("Spam$param"));
|
||||||
}
|
}
|
||||||
|
|
||||||
my $patterns_status = $c->adjust_patterns() ? 'enabled' : 'disabled';
|
my $patterns_status = $c->adjust_patterns() ? 'enabled' : 'disabled';
|
||||||
@ -852,7 +865,7 @@ sub change_settings_filtering {
|
|||||||
|
|
||||||
unless ( system( "/sbin/e-smith/signal-event", "email-update" ) == 0 )
|
unless ( system( "/sbin/e-smith/signal-event", "email-update" ) == 0 )
|
||||||
{
|
{
|
||||||
return $c->l('mai_ERROR_UPDATING_CONFIGURATION');
|
return $c->l('mai_ERROR_UPDATING_CONFIGURATION');
|
||||||
}
|
}
|
||||||
|
|
||||||
return 'OK';
|
return 'OK';
|
||||||
|
@ -2,7 +2,7 @@ Summary: Sme server navigation module : manager 2
|
|||||||
%define name smeserver-manager
|
%define name smeserver-manager
|
||||||
Name: %{name}
|
Name: %{name}
|
||||||
%define version 11.0.0
|
%define version 11.0.0
|
||||||
%define release 21
|
%define release 22
|
||||||
Version: %{version}
|
Version: %{version}
|
||||||
Release: %{release}%{?dist}
|
Release: %{release}%{?dist}
|
||||||
License: GPL
|
License: GPL
|
||||||
@ -108,6 +108,9 @@ true
|
|||||||
%defattr(-,root,root)
|
%defattr(-,root,root)
|
||||||
|
|
||||||
%changelog
|
%changelog
|
||||||
|
* Tue Sep 24 2024 Jean-Philippe Pialasse <jpp@koozali.org> 11.0.0-22.sme
|
||||||
|
- fix typos, and tidy tabs [SME: 12744]
|
||||||
|
|
||||||
* Mon Sep 23 2024 Brian Read <brianr@koozali.org> 11.0.0-21.sme
|
* Mon Sep 23 2024 Brian Read <brianr@koozali.org> 11.0.0-21.sme
|
||||||
- Remove both option for webmail [SME: 12744]
|
- Remove both option for webmail [SME: 12744]
|
||||||
- Add in re-open DB for portforwarding and email settings.
|
- Add in re-open DB for portforwarding and email settings.
|
||||||
|
Loading…
Reference in New Issue
Block a user