* Mon Oct 06 2025 Brian Read <brianr@koozali.org> 1.4-31.sme
- Add UTF8 and avoid potential DB caching problems [SME: 13209]
This commit is contained in:
@@ -18,19 +18,20 @@ use warnings;
|
|||||||
use Mojo::Base 'Mojolicious::Controller';
|
use Mojo::Base 'Mojolicious::Controller';
|
||||||
|
|
||||||
use esmith::FormMagick qw(gen_locale_date_string);
|
use esmith::FormMagick qw(gen_locale_date_string);
|
||||||
use esmith::ConfigDB;
|
use esmith::ConfigDB::UTF8;
|
||||||
|
|
||||||
use Locale::gettext;
|
use Locale::gettext;
|
||||||
use SrvMngr::I18N;
|
use SrvMngr::I18N;
|
||||||
|
|
||||||
use SrvMngr qw(theme_list init_session);
|
use SrvMngr qw(theme_list init_session);
|
||||||
|
|
||||||
our $cdb = esmith::ConfigDB->open() || die 'Cannot open configuration base';
|
my $cdb;
|
||||||
|
|
||||||
sub main {
|
sub main {
|
||||||
|
|
||||||
my $c = shift;
|
my $c = shift;
|
||||||
$c->app->log->info($c->log_req);
|
$c->app->log->info($c->log_req);
|
||||||
|
$cdb = esmith::ConfigDB::UTF8->open() || die 'Cannot open configuration base';
|
||||||
|
|
||||||
my %qmh_datas = ();
|
my %qmh_datas = ();
|
||||||
my $title = $c->l('qmh_QMH_TITLE');
|
my $title = $c->l('qmh_QMH_TITLE');
|
||||||
@@ -47,6 +48,7 @@ sub do_update {
|
|||||||
|
|
||||||
my $c = shift;
|
my $c = shift;
|
||||||
$c->app->log->info($c->log_req);
|
$c->app->log->info($c->log_req);
|
||||||
|
$cdb = esmith::ConfigDB::UTF8->open() || die 'Cannot open configuration base';
|
||||||
|
|
||||||
my %qmh_datas = ();
|
my %qmh_datas = ();
|
||||||
my $result = "";
|
my $result = "";
|
||||||
@@ -118,6 +120,7 @@ sub do_update {
|
|||||||
sub reportType_list {
|
sub reportType_list {
|
||||||
|
|
||||||
my $c = shift;
|
my $c = shift;
|
||||||
|
$cdb = esmith::ConfigDB::UTF8->open() || die 'Cannot open configuration base';
|
||||||
|
|
||||||
my $rec = $cdb->get('altqmail');
|
my $rec = $cdb->get('altqmail');
|
||||||
my $altqmail = ($cdb->get('altqmail')->value || 0) if $rec;
|
my $altqmail = ($cdb->get('altqmail')->value || 0) if $rec;
|
||||||
@@ -145,6 +148,7 @@ sub reportType_list {
|
|||||||
sub showListQueues {
|
sub showListQueues {
|
||||||
|
|
||||||
my ($c, $altq) = @_;
|
my ($c, $altq) = @_;
|
||||||
|
$cdb = esmith::ConfigDB::UTF8->open() || die 'Cannot open configuration base';
|
||||||
|
|
||||||
my $out = '';
|
my $out = '';
|
||||||
my $reporttype = 'list-queues';
|
my $reporttype = 'list-queues';
|
||||||
@@ -174,6 +178,7 @@ sub showListQueues {
|
|||||||
sub showListLocalQueue {
|
sub showListLocalQueue {
|
||||||
|
|
||||||
my ($c, $altq) = @_;
|
my ($c, $altq) = @_;
|
||||||
|
$cdb = esmith::ConfigDB::UTF8->open() || die 'Cannot open configuration base';
|
||||||
|
|
||||||
my $out = '';
|
my $out = '';
|
||||||
my $reporttype = 'list-local-queue';
|
my $reporttype = 'list-local-queue';
|
||||||
@@ -203,6 +208,7 @@ sub showListLocalQueue {
|
|||||||
sub showListRemoteQueue {
|
sub showListRemoteQueue {
|
||||||
|
|
||||||
my ($c, $altq) = @_;
|
my ($c, $altq) = @_;
|
||||||
|
$cdb = esmith::ConfigDB::UTF8->open() || die 'Cannot open configuration base';
|
||||||
|
|
||||||
my $out = '';
|
my $out = '';
|
||||||
my $reporttype = 'list-remote-queue';
|
my $reporttype = 'list-remote-queue';
|
||||||
@@ -232,6 +238,7 @@ sub showListRemoteQueue {
|
|||||||
sub resend {
|
sub resend {
|
||||||
|
|
||||||
my ($c, $altq) = @_;
|
my ($c, $altq) = @_;
|
||||||
|
$cdb = esmith::ConfigDB::UTF8->open() || die 'Cannot open configuration base';
|
||||||
|
|
||||||
my $out = '';
|
my $out = '';
|
||||||
my $reporttype = 'resend';
|
my $reporttype = 'resend';
|
||||||
@@ -279,6 +286,7 @@ sub AddLinks {
|
|||||||
sub showDeleteMessageNumber {
|
sub showDeleteMessageNumber {
|
||||||
|
|
||||||
my ($c, $msgid, $altq, $reporttype) = @_;
|
my ($c, $msgid, $altq, $reporttype) = @_;
|
||||||
|
$cdb = esmith::ConfigDB::UTF8->open() || die 'Cannot open configuration base';
|
||||||
|
|
||||||
if ($msgid =~ /^(\d+)$/) {
|
if ($msgid =~ /^(\d+)$/) {
|
||||||
$msgid = $1;
|
$msgid = $1;
|
||||||
|
@@ -1,7 +1,7 @@
|
|||||||
%define name smeserver-qmHandle
|
%define name smeserver-qmHandle
|
||||||
Name: %{name}
|
Name: %{name}
|
||||||
%define version 1.4
|
%define version 1.4
|
||||||
%define release 30
|
%define release 31
|
||||||
Version: %{version}
|
Version: %{version}
|
||||||
Release: %{release}%{?dist}
|
Release: %{release}%{?dist}
|
||||||
BuildArch: noarch
|
BuildArch: noarch
|
||||||
@@ -29,6 +29,9 @@ A panel for managing the Qmail queues using qmHandle
|
|||||||
(http://sourceforge.net/projects/qmhandle)
|
(http://sourceforge.net/projects/qmhandle)
|
||||||
|
|
||||||
%changelog
|
%changelog
|
||||||
|
* Mon Oct 06 2025 Brian Read <brianr@koozali.org> 1.4-31.sme
|
||||||
|
- Add UTF8 and avoid potential DB caching problems [SME: 13209]
|
||||||
|
|
||||||
* Sat Oct 04 2025 Brian Read <brianr@koozali.org> 1.4-30.sme
|
* Sat Oct 04 2025 Brian Read <brianr@koozali.org> 1.4-30.sme
|
||||||
- Remove smanager-refresh from spec file [SME: 13212]
|
- Remove smanager-refresh from spec file [SME: 13212]
|
||||||
|
|
||||||
|
Reference in New Issue
Block a user