* Fri Oct 03 2025 Brian Read <brianr@koozali.org> 11.0.0-7.sme
- Make UTF8 changes and also fix any potential caching problems [SME: 13209]
This commit is contained in:
@@ -32,17 +32,14 @@ use SrvMngr qw(theme_list init_session);
|
|||||||
|
|
||||||
use Data::Dumper;
|
use Data::Dumper;
|
||||||
use esmith::util;
|
use esmith::util;
|
||||||
use esmith::HostsDB;
|
use esmith::HostsDB::UTF8;
|
||||||
use esmith::AccountsDB;
|
use esmith::ConfigDB::UTF8;
|
||||||
|
use esmith::AccountsDB::UTF8;
|
||||||
|
|
||||||
our $db = esmith::ConfigDB->open();
|
my $db;
|
||||||
our $adb = esmith::AccountsDB->open();
|
my $adb;
|
||||||
|
my $domaindb;
|
||||||
our $domaindb = esmith::ConfigDB->open('/home/e-smith/db/domains')
|
my $edb;
|
||||||
or die "Unable to open domains db";
|
|
||||||
our $edb;
|
|
||||||
$edb = esmith::ConfigDB->open('/home/e-smith/db/ddclient')
|
|
||||||
or $edb = esmith::ConfigDB->create('/home/e-smith/db/ddclient');
|
|
||||||
|
|
||||||
my %ddc_datas = ();
|
my %ddc_datas = ();
|
||||||
|
|
||||||
@@ -223,6 +220,11 @@ sub do_display {
|
|||||||
my $c = shift;
|
my $c = shift;
|
||||||
$c->app->log->info( $c->log_req );
|
$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";
|
||||||
|
$edb = esmith::ConfigDB::UTF8->open('/home/e-smith/db/ddclient') or $edb = esmith::ConfigDB::UTF8->create('/home/e-smith/db/ddclient');
|
||||||
|
|
||||||
my $title = $c->l('FORM_TITLE');
|
my $title = $c->l('FORM_TITLE');
|
||||||
my $modul = '';
|
my $modul = '';
|
||||||
$ddc_datas{trt} = 'LIST';
|
$ddc_datas{trt} = 'LIST';
|
||||||
@@ -271,6 +273,8 @@ sub do_updateparams {
|
|||||||
# Called to update the parameters relating to the Ip address of the server
|
# Called to update the parameters relating to the Ip address of the server
|
||||||
#
|
#
|
||||||
my $c = shift;
|
my $c = shift;
|
||||||
|
$db = esmith::ConfigDB::UTF8->open();
|
||||||
|
$domaindb = esmith::ConfigDB::UTF8->open('/home/e-smith/db/domains') or die "Unable to open domains db";
|
||||||
$ddc_datas{"first"} = '';
|
$ddc_datas{"first"} = '';
|
||||||
$ddc_datas{"success"} = pushParams($c);
|
$ddc_datas{"success"} = pushParams($c);
|
||||||
do_display($c);
|
do_display($c);
|
||||||
@@ -283,6 +287,10 @@ sub do_update_domain {
|
|||||||
my $c = shift;
|
my $c = shift;
|
||||||
my $title = $c->l("MODIFY_TITLE");
|
my $title = $c->l("MODIFY_TITLE");
|
||||||
my $retmsg;
|
my $retmsg;
|
||||||
|
$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";
|
||||||
|
$edb = esmith::ConfigDB::UTF8->open('/home/e-smith/db/ddclient') or $edb = esmith::ConfigDB::UTF8->create('/home/e-smith/db/ddclient');
|
||||||
if ( $c->param("Route") eq "ddclient2" ) { #Route is hidden field
|
if ( $c->param("Route") eq "ddclient2" ) { #Route is hidden field
|
||||||
$retmsg = performModifyCustom($c);
|
$retmsg = performModifyCustom($c);
|
||||||
}
|
}
|
||||||
@@ -313,6 +321,10 @@ sub do_create_custom {
|
|||||||
my $title = $c->l("CREATE_TITLE");
|
my $title = $c->l("CREATE_TITLE");
|
||||||
my $modul = '';
|
my $modul = '';
|
||||||
my $trt = "NEW";
|
my $trt = "NEW";
|
||||||
|
$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";
|
||||||
|
$edb = esmith::ConfigDB::UTF8->open('/home/e-smith/db/ddclient') or $edb = esmith::ConfigDB::UTF8->create('/home/e-smith/db/ddclient');
|
||||||
|
|
||||||
$ddc_datas{trt} = $trt;
|
$ddc_datas{trt} = $trt;
|
||||||
$c->stash(
|
$c->stash(
|
||||||
@@ -328,6 +340,10 @@ sub do_create_custom {
|
|||||||
|
|
||||||
sub do_create_custom_actual {
|
sub do_create_custom_actual {
|
||||||
my $c = shift;
|
my $c = shift;
|
||||||
|
$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";
|
||||||
|
$edb = esmith::ConfigDB::UTF8->open('/home/e-smith/db/ddclient') or $edb = esmith::ConfigDB::UTF8->create('/home/e-smith/db/ddclient');
|
||||||
$ddc_datas{"first"} = '';
|
$ddc_datas{"first"} = '';
|
||||||
my $retmsg = performCreateCustom($c);
|
my $retmsg = performCreateCustom($c);
|
||||||
if ( $retmsg eq "ok" ) {
|
if ( $retmsg eq "ok" ) {
|
||||||
@@ -354,6 +370,10 @@ sub do_summary_custom {
|
|||||||
my $title = $c->l("MODIFY_TITLE");
|
my $title = $c->l("MODIFY_TITLE");
|
||||||
my $modul = '';
|
my $modul = '';
|
||||||
my $trt = $c->param("trt");
|
my $trt = $c->param("trt");
|
||||||
|
$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";
|
||||||
|
$edb = esmith::ConfigDB::UTF8->open('/home/e-smith/db/ddclient') or $edb = esmith::ConfigDB::UTF8->create('/home/e-smith/db/ddclient');
|
||||||
|
|
||||||
#Extract domain stuff from DB
|
#Extract domain stuff from DB
|
||||||
my @results
|
my @results
|
||||||
@@ -383,7 +403,11 @@ sub do_summary_domain {
|
|||||||
my $modul = '';
|
my $modul = '';
|
||||||
my $trt = $c->param("trt");
|
my $trt = $c->param("trt");
|
||||||
|
|
||||||
#Extract domain stuff from DB
|
$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";
|
||||||
|
$edb = esmith::ConfigDB::UTF8->open('/home/e-smith/db/ddclient') or $edb = esmith::ConfigDB::UTF8->create('/home/e-smith/db/ddclient');
|
||||||
|
#Extract domain stuff from DB
|
||||||
my @results
|
my @results
|
||||||
= get_domain_table( $c, $c->param("Domain") ); #Returns just one row
|
= get_domain_table( $c, $c->param("Domain") ); #Returns just one row
|
||||||
|
|
||||||
@@ -411,6 +435,10 @@ sub do_delete_domain {
|
|||||||
my $modul = '';
|
my $modul = '';
|
||||||
my $retmsg = "";
|
my $retmsg = "";
|
||||||
my $domain = $c->param("Domain");
|
my $domain = $c->param("Domain");
|
||||||
|
$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";
|
||||||
|
$edb = esmith::ConfigDB::UTF8->open('/home/e-smith/db/ddclient') or $edb = esmith::ConfigDB::UTF8->create('/home/e-smith/db/ddclient');
|
||||||
$ddc_datas{"first"} = '';
|
$ddc_datas{"first"} = '';
|
||||||
|
|
||||||
#Delete it and return to front summary panel - depends on route domain or custom
|
#Delete it and return to front summary panel - depends on route domain or custom
|
||||||
@@ -441,6 +469,10 @@ sub do_delete_custom {
|
|||||||
my $modul = '';
|
my $modul = '';
|
||||||
my $retmsg = "";
|
my $retmsg = "";
|
||||||
my $domain = $c->param("Domain");
|
my $domain = $c->param("Domain");
|
||||||
|
$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";
|
||||||
|
$edb = esmith::ConfigDB::UTF8->open('/home/e-smith/db/ddclient') or $edb = esmith::ConfigDB::UTF8->create('/home/e-smith/db/ddclient');
|
||||||
$ddc_datas{"first"} = '';
|
$ddc_datas{"first"} = '';
|
||||||
|
|
||||||
#Delete it and return to front summary panel - depends on route domain or custom
|
#Delete it and return to front summary panel - depends on route domain or custom
|
||||||
@@ -510,7 +542,7 @@ sub get_domain_table {
|
|||||||
"Description" => $properties{'Description'},
|
"Description" => $properties{'Description'},
|
||||||
"Content" => $content,
|
"Content" => $content,
|
||||||
"dns" => $extraprops{'dns'},
|
"dns" => $extraprops{'dns'},
|
||||||
"Publication" => $c->l( '' . $extraprops{'dns'} ),
|
"Publication" => (defined $extraprops{dns} ? $c->l($extraprops{dns}) : ''),
|
||||||
"customprotocol" => $properties{"customprotocol"},
|
"customprotocol" => $properties{"customprotocol"},
|
||||||
"customdns" => $properties{"customdns"},
|
"customdns" => $properties{"customdns"},
|
||||||
"login" => $properties{"login"},
|
"login" => $properties{"login"},
|
||||||
|
@@ -4,7 +4,7 @@
|
|||||||
|
|
||||||
%define name smeserver-ddclient
|
%define name smeserver-ddclient
|
||||||
%define version 11.0.0
|
%define version 11.0.0
|
||||||
%define release 5
|
%define release 7
|
||||||
|
|
||||||
Summary: ddclient panel for SME Server
|
Summary: ddclient panel for SME Server
|
||||||
Name: %{name}
|
Name: %{name}
|
||||||
@@ -25,6 +25,12 @@ Requires: smeserver-formmagick
|
|||||||
AutoReqProv: no
|
AutoReqProv: no
|
||||||
|
|
||||||
%changelog
|
%changelog
|
||||||
|
* Fri Oct 03 2025 Brian Read <brianr@koozali.org> 11.0.0-7.sme
|
||||||
|
- Make UTF8 changes and also fix any potential caching problems [SME: 13209]
|
||||||
|
|
||||||
|
* Fri Oct 03 2025 Brian Read <brianr@koozali.org> 11.0.0-6.sme
|
||||||
|
- Convert en.pm to .lex file [SME: 13212]
|
||||||
|
|
||||||
* Fri Oct 03 2025 Brian Read <brianr@koozali.org> 11.0.0-5.sme
|
* Fri Oct 03 2025 Brian Read <brianr@koozali.org> 11.0.0-5.sme
|
||||||
- Remove smanager-refresh from spec file [SME: 13212]
|
- Remove smanager-refresh from spec file [SME: 13212]
|
||||||
|
|
||||||
|
Reference in New Issue
Block a user