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

- Add UTF8 and avoid potential DB caching problems [SME: 13209]

root/etc/e-smith/web/functions/dungog-domains

@@ -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");
-}
+}

root/etc/e-smith/web/functions/userpanel-domains

@@ -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");
-}
+}

root/usr/share/smanager/lib/SrvMngr/Controller/Dungog_domains.pm

@@ -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;

root/usr/share/smanager/lib/SrvMngr/I18N/Modules/Dungog_domains/domains_en.lex

@@ -1,12 +1,3 @@
-package SrvMngr::I18N::Modules::Dungog_domains::en;
-use strict;
-use warnings;
-use utf8;
-use Mojo::Base 'SrvMngr::I18N';
-
-use SrvMngr::I18N::Modules::General::en;
-
-my %lexicon = (
 'ddo_title' =>'Domain Pseudonyms',
 'ddo_Final_Save' => 'Settings saved and email restarted.',
 'ddo_Intro' => 'Set pseudonyms specifically for a single domain,<br>This panel just shows the pseudonyms for a each single domain.<br>See also the <a href="/smanager/pseudonyms">Pseudonyms</a> panel to set global pseudonyms.<br>Documentation: <a href="https://wiki.contribs.org/Domains">https://wiki.contribs.org/Domains</a>',
@@ -52,14 +43,3 @@ For full access delegate this panel, dungog-domains.',
 'ddo_alternative_admin' => 'Alternative administrator:',
 'ddo_restrict_to_group'=>'Restrict the userlist in the email dropdown box to the Administrator or members of a group',
 'ddo_Alternative_group'=>'Alternative group:'
-
-
-);
-
-our %Lexicon = (
-	%{ SrvMngr::I18N::Modules::General::en::Lexicon },
-	%lexicon
-);
-
-
-1;

smeserver-domains.spec

@@ -1,6 +1,6 @@
 %define name smeserver-domains
 %define version 1.4
-%define release 10
+%define release 13
 Summary: SMEserver rpm for domain pseudonyms
 Name: %{name}
 Version: %{version}
@@ -22,6 +22,15 @@ 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]
+
+* Sat Oct 04 2025 Brian Read <brianr@koozali.org> 1.4-11.sme
+- Remove smanager-refresh from spec file [SME: 13212]
+
 * Wed Sep 24 2025 Brian Read <brianr@koozali.org> 1.4-10.sme
 - Sort out archive on git stopping local archive update [SME: 13171]
 
@@ -94,10 +103,6 @@ if [ $1 = 1 ] ; then
  /bin/touch /home/e-smith/db/dungog
 fi
 
-if (systemctl list-unit-files |grep smanager) then
-  echo "Smanager restart in spec file"
-  /sbin/e-smith/signal-event smanager-refresh;
-fi