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

* Fri Oct 03 2025 Brian Read <brianr@koozali.org> 1.4-16.sme

Browse Source 
- Apply UTF8 to DomainDB and ConfigDB and fix potential caching problem [SME: 13209]
This commit is contained in:
Brian Read
2025-10-03 15:52:35 +01:00
parent 6062ddd8c8
commit 252ea1167e
2 changed files with 19 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
root/usr/share/smanager/lib/SrvMngr/Controller/Awstats.pm
View File

@@ -26,12 +26,12 @@ use SrvMngr qw(theme_list init_session);
use POSIX qw(strftime);
use esmith::DomainsDB;
use esmith::ConfigDB;
use esmith::DomainsDB::UTF8;
use esmith::ConfigDB::UTF8;
our $ddb = esmith::DomainsDB->open || die "Couldn't open domains db";
our $cdb = esmith::ConfigDB->open || die "Couldn't open configuration db";
my $ddb;
my $cdb;
our $awsdirdata="/home/e-smith/files/users/admin/home/awstats";
our $REGEXP_DOMAIN = qq([a-zA-Z0-9\-\.]+);
@@ -44,6 +44,9 @@ sub main {
my %aws_datas = ();
my $title = $c->l('aws_FORM_TITLE');
$ddb = esmith::DomainsDB::UTF8->open || die "Couldn't open domains db";
$cdb = esmith::ConfigDB::UTF8->open || die "Couldn't open configuration db";
$aws_datas{trt} = 'LST';
my $rec = $cdb->get('AWStats');
@@ -100,6 +103,9 @@ sub do_display {
my $title = $c->l('aws_FORM_TITLE');
my $result;
$ddb = esmith::DomainsDB::UTF8->open || die "Couldn't open domains db";
$cdb = esmith::ConfigDB::UTF8->open || die "Couldn't open configuration db";
my $trt = $c->param('trt') || 'LST';
my $domain = $c->param('Domain');
@@ -161,6 +167,9 @@ sub do_update {
$aws_datas{trt} = $trt;
my ($res, $result) = '';
$ddb = esmith::DomainsDB::UTF8->open || die "Couldn't open domains db";
$cdb = esmith::ConfigDB::UTF8->open || die "Couldn't open configuration db";
if ( $trt eq 'UPD' ) {
my $status = $c->param('Status');
@@ -279,7 +288,7 @@ sub do_update {
return $c->render( 'awstats' );
}
# $cdb = esmith::ConfigDB->open();
# $cdb = esmith::ConfigDB::UTF8->open();
my $message = "'AWStats configuration' update ($trt) DONE";
$c->app->log->info($message);
@@ -352,4 +361,4 @@ sub language_options_list {
}
1
1