smecontribs/smeserver-domains-advanced
6
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

* Sun Oct 05 2025 Brian Read <brianr@koozali.org> 1.4-13.sme

Browse Source 
- Add UTF8 and avoid potential DB caching problems [SME: 13209]
This commit is contained in:
Brian Read
2025-10-05 16:57:31 +01:00
parent 4d885d2cf4
commit d02c5374d6
4 changed files with 45 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
root/etc/e-smith/web/functions/dungog-domains Executable file → Normal file
View File

@@ -131,7 +131,7 @@ sub showInitial ($$)
print $q->hr;
}
print $q->startform (-method => 'POST', -action => $q->url (-absolute => 1));
print $q->start_form (-method => 'POST', -action => $q->url (-absolute => 1));
print $q->p ('Set pseudonyms for a single domain,<br>
This panel just shows the pseudonyms for a single domain.<br>
@@ -189,7 +189,7 @@ sub showInitial ($$)
print $q->hidden (-name => 'MailServer', -override => 1, -default => 'skipMS');
print $q->hidden (-name => 'state', -override => 1, -default => 'save');
print $q->endform;
print $q->end_form;
print $q->p ($q->hr, $q->font ({size => "-1"}, "Copyright dungog.net"));
print '</FONT>';
@@ -218,7 +218,7 @@ sub modifyOptions ($$)
print $q->hr;
}
print $q->startform (-method => 'POST', -action => $q->url (-absolute => 1));
print $q->start_form (-method => 'POST', -action => $q->url (-absolute => 1));
# find system users
my @userlist = ('admin','everyone');
@@ -271,7 +271,7 @@ sub modifyOptions ($$)
print $q->hidden (-name => 'domain', -override => 1, -default => $domain);
print $q->hidden (-name => 'state', -override => 1, -default => 'performModifyOptions');
print $q->endform;
print $q->end_form;
print $q->p ($q->hr, $q->font ({size => "-1"}, "Copyright dungog.net"));
print '</FONT>';
@@ -325,7 +325,7 @@ sub modifyEmail ($$)
print $q->hr;
}
print $q->startform (-method => 'POST', -action => $q->url (-absolute => 1));
print $q->start_form (-method => 'POST', -action => $q->url (-absolute => 1));
#commom with userpanel
@@ -412,7 +412,7 @@ sub modifyEmail ($$)
print $q->hidden (-name => 'state', -override => 1, -default => 'save');
print $q->hidden (-name => 'domain', -override => 1, -default => $domain);
print $q->endform;
print $q->end_form;
print $q->p ($q->hr, $q->font ({size => "-1"}, "Copyright dungog.net"));
print '</FONT>';
@@ -480,7 +480,7 @@ sub editEmail ($$)
my @sorted = sort @selected;
print $q->startform (-method => 'POST', -action => $q->url (-absolute => 1));
print $q->start_form (-method => 'POST', -action => $q->url (-absolute => 1));
print $q->table ({border => 0, cellspacing => 0, cellpadding => 4},
@@ -508,7 +508,7 @@ sub editEmail ($$)
print $q->hidden (-name => 'newuser', -override => 1, -default => $newuser);
print $q->hidden (-name => 'state', -override => 1, -default => 'performEmail');
print $q->endform;
print $q->end_form;
print $q->p ($q->hr, $q->font ({size => "-1"}, "Copyright dungog.net"));
print '</FONT>';
@@ -617,4 +617,4 @@ sub performSave ($)
showInitial ($q, "Settings saved and email restarted.");
#showInitial ($q, "Settings saved and email restarted." ,"$domain");
}
}

8
root/etc/e-smith/web/functions/userpanel-domains Executable file → Normal file
View File

@@ -177,7 +177,7 @@ sub showInitial ($$$)
print $q->hr;
}
print $q->startform (-method => 'POST', -action => $q->url (-absolute => 1));
print $q->start_form (-method => 'POST', -action => $q->url (-absolute => 1));
#are there any ?
my $domains = @domains;
@@ -343,7 +343,7 @@ sub editEmail ($$)
my @sorted = sort @selected;
print $q->startform (-method => 'POST', -action => $q->url (-absolute => 1));
print $q->start_form (-method => 'POST', -action => $q->url (-absolute => 1));
print $q->table ({border => 0, cellspacing => 0, cellpadding => 4},
@@ -371,7 +371,7 @@ sub editEmail ($$)
print $q->hidden (-name => 'newuser', -override => 1, -default => $newuser);
print $q->hidden (-name => 'state', -override => 1, -default => 'performEmail');
print $q->endform;
print $q->end_form;
print $q->p ($q->hr, $q->font ({size => "-1"}, "Copyright dungog.net"));
print '</FONT>';
@@ -483,4 +483,4 @@ sub performSelect ($)
my $swap = $q->param ('swap');
showInitial ($q, "Domain switched to $swap" ,"$swap");
}
}

38
root/usr/share/smanager/lib/SrvMngr/Controller/Dungog_domains.pm
View File

@@ -25,20 +25,17 @@ use SrvMngr qw(theme_list init_session);
use Data::Dumper;
use esmith::util;
use esmith::HostsDB;
use esmith::AccountsDB;
use esmith::HostsDB::UTF8;
use esmith::AccountsDB::UTF8;
our $db = esmith::ConfigDB->open();
our $adb = esmith::AccountsDB->open();
my $db = esmith::ConfigDB::UTF8->open();
my $adb = esmith::AccountsDB::UTF8->open();
use constant FALSE => 0;
use constant TRUE => 1;
our $domaindb = esmith::ConfigDB->open('/home/e-smith/db/domains')
or die "Unable to open domains db";
our $dungogdb = esmith::ConfigDB->open('/home/e-smith/db/dungog')
or die("Unable to open dungog db"); #Created by rpm
my $domaindb;
my $dungogdb;
my %ddo_datas = ();
@@ -49,6 +46,11 @@ sub main {
my $c = shift;
$c->app->log->info( $c->log_req );
$db = esmith::ConfigDB::UTF8->open();
$adb = esmith::AccountsDB::UTF8->open();
$domaindb = esmith::ConfigDB::UTF8->open('/home/e-smith/db/domains') or die "Unable to open domains db";
$dungogdb = esmith::ConfigDB::UTF8->open('/home/e-smith/db/dungog') or die("Unable to open dungog db"); #Created by rpm
my $title = $c->l('ddo_title');
my $modul = '';
@@ -80,6 +82,10 @@ sub do_Save {
#
my $c = shift;
$c->app->log->info( $c->log_req );
$db = esmith::ConfigDB::UTF8->open();
$adb = esmith::AccountsDB::UTF8->open();
$domaindb = esmith::ConfigDB::UTF8->open('/home/e-smith/db/domains') or die "Unable to open domains db";
$dungogdb = esmith::ConfigDB::UTF8->open('/home/e-smith/db/dungog') or die("Unable to open dungog db"); #Created by rpm
my $title = $c->l('ddo_title');
my $modul = '';
@@ -201,6 +207,10 @@ sub do_Email {
my $c = shift;
$c->app->log->info( $c->log_req );
$db = esmith::ConfigDB::UTF8->open();
$adb = esmith::AccountsDB::UTF8->open();
$domaindb = esmith::ConfigDB::UTF8->open('/home/e-smith/db/domains') or die "Unable to open domains db";
$dungogdb = esmith::ConfigDB::UTF8->open('/home/e-smith/db/dungog') or die("Unable to open dungog db"); #Created by rpm
my %ddo_datas = ();
my $title = $c->l('ddo_Email_Title');
@@ -227,6 +237,10 @@ sub do_Options {
my $c = shift;
$c->app->log->info( $c->log_req );
$db = esmith::ConfigDB::UTF8->open();
$adb = esmith::AccountsDB::UTF8->open();
$domaindb = esmith::ConfigDB::UTF8->open('/home/e-smith/db/domains') or die "Unable to open domains db";
$dungogdb = esmith::ConfigDB::UTF8->open('/home/e-smith/db/dungog') or die("Unable to open dungog db"); #Created by rpm
my $title = $c->l('ddo_modify_options_TITLE');
my $modul = '';
@@ -272,6 +286,8 @@ sub do_DelPseudo {
#
my $c = shift;
$c->app->log->info( $c->log_req );
$db = esmith::ConfigDB::UTF8->open();
$adb = esmith::AccountsDB::UTF8->open();
my $title = $c->l('ddo_title');
my $modul = '';
@@ -297,6 +313,8 @@ sub do_AddPseudo {
my $c = shift;
$c->app->log->info( $c->log_req );
$db = esmith::ConfigDB::UTF8->open();
$adb = esmith::AccountsDB::UTF8->open();
my $title = $c->l('ddo_Edit_Title');
my $modul = '';
@@ -404,4 +422,4 @@ sub get_accts {
return sort @selected;
}
1;
1;

5
smeserver-domains.spec
View File

@@ -1,6 +1,6 @@
%define name smeserver-domains
%define version 1.4
%define release 12
%define release 13
Summary: SMEserver rpm for domain pseudonyms
Name: %{name}
Version: %{version}
@@ -22,6 +22,9 @@ AutoReqProv: no
SMEserver rpm for more advanced domain controls
%changelog
* Sun Oct 05 2025 Brian Read <brianr@koozali.org> 1.4-13.sme
- Add UTF8 and avoid potential DB caching problems [SME: 13209]
* Sat Oct 04 2025 Brian Read <brianr@koozali.org> 1.4-12.sme
- Delete en.pm and create .lex file if needed [SME: 13214]