brianr/SM2Gen
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Add in UTF8 changes

Browse Source
This commit is contained in:
Brian Read
2025-06-15 12:54:11 +01:00
parent ae2ba92597
commit 7f02b4f109
11 changed files with 1087 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

42
Templates/controller.pm.tem
View File

@@ -38,11 +38,11 @@ use Data::Dumper;
use esmith::util;
use esmith::util::network;
use esmith::ConfigDB;
use esmith::ConfigDB::UTF8;
use esmith::AccountsDB;
use esmith::NetworksDB;
use esmith::NetworksDB::UTF8;
use esmith::HostsDB;
use esmith::DomainsDB;
use esmith::DomainsDB::UTF8;
my $cdb;
my $adb;
@@ -69,12 +69,12 @@ sub main {
my $c = shift;
$c->app->log->info( $c->log_req );
#The most common ones
$cdb = esmith::ConfigDB->open() || die('Couldn't open config db');
$adb = esmith::AccountsDB->open() || die('Couldn't open Accounts db');
$ndb = esmith::NetworksDB->open() || die('Couldn't open Network db');
$hdb = esmith::HostsDB->open() || die('Couldn't open Hosts db');
$ddb = esmith::DomainsDB->open() || die('Couldn't open Domains db');
#The most common ones - you might want to delete some of these if they are not used.
$cdb = esmith::ConfigDB::UTF8->open() || die("Couldn't open config db");
$adb = esmith::AccountsDB->open() || die("Couldn't open Accounts db");
$ndb = esmith::NetworksDB->open() || die("Couldn't open Network db");
$hdb = esmith::HostsDB::UTF8->open() || die("Couldn't open Hosts db");
$ddb = esmith::DomainsDB::UTF8->open() || die("Couldn't open Domains db");
%${prefix}_data = ();
my $title = $c->l('${prefix}_${MenuDescription}');
@@ -123,12 +123,12 @@ sub do_update {
$c->app->log->info($c->log_req);
my $modul = '';
#The most common ones - you might want to comment out any not used.
$cdb = esmith::ConfigDB->open() || die('Couldn't open config db');
$adb = esmith::AccountsDB->open() || die('Couldn't open Accounts db');
$ndb = esmith::NetworksDB->open() || die('Couldn't open Network db');
$hdb = esmith::HostsDB->open() || die('Couldn't open Hosts db');
$ddb = esmith::DomainsDB->open() || die('Couldn't open Domains db');
#The most common ones - you might want to delete some of these if they are not used.
$cdb = esmith::ConfigDB::UTF8->open() || die("Couldn't open config db");
$adb = esmith::AccountsDB->open() || die("Couldn't open Accounts db");
$ndb = esmith::NetworksDB->open() || die("Couldn't open Network db");
$hdb = esmith::HostsDB::UTF8->open() || die("Couldn't open Hosts db");
$ddb = esmith::DomainsDB::UTF8->open() || die("Couldn't open Domains db");
my $title = $c->l('${prefix}_${MenuDescription}');
@@ -207,12 +207,12 @@ sub do_display {
my ($c,$trt) = @_;
$c->app->log->info($c->log_req);
#The most common ones - you might want to comment out any not used.
$cdb = esmith::ConfigDB->open() || die('Couldn't open config db');
$adb = esmith::AccountsDB->open() || die('Couldn't open Accounts db');
$ndb = esmith::NetworksDB->open() || die('Couldn't open Network db');
$hdb = esmith::HostsDB->open() || die('Couldn't open Hosts db');
$ddb = esmith::DomainsDB->open() || die('Couldn't open Domains db');
#The most common ones - you might want to delete some of these if they are not used.
$cdb = esmith::ConfigDB::UTF8->open() || die("Couldn't open config db");
$adb = esmith::AccountsDB->open() || die("Couldn't open Accounts db");
$ndb = esmith::NetworksDB->open() || die("Couldn't open Network db");
$hdb = esmith::HostsDB::UTF8->open() || die("Couldn't open Hosts db");
$ddb = esmith::DomainsDB::UTF8->open() || die("Couldn't open Domains db");
my $title = $c->l('${prefix}_${MenuDescription}');
my $modul = '';

16
Templates/custom.pm.tem
View File

@@ -7,11 +7,11 @@
#
use esmith::util;
use esmith::util::network;
use esmith::ConfigDB;
use esmith::HostsDB;
use esmith::ConfigDB::UTF8;
use esmith::AccountsDB;
use esmith::NetworksDB;
use esmith::DomainsDB;
use esmith::NetworksDB::UTF8;
use esmith::HostsDB;
use esmith::DomainsDB::UTF8;
use constant FALSE => 0;
use constant TRUE => 1;
@@ -24,6 +24,14 @@ my $ndb;
my $hdb;
my $ddb;
#The most common ones - you might want to use these if you need to make sure that the DB is refreshed.
#$cdb = esmith::ConfigDB::UTF8->open() || die("Couldn't open config db");
#$adb = esmith::AccountsDB->open() || die("Couldn't open Accounts db");
#$ndb = esmith::NetworksDB->open() || die("Couldn't open Network db");
#$hdb = esmith::HostsDB::UTF8->open() || die("Couldn't open Hosts db");
#$ddb = esmith::DomainsDB::UTF8->open() || die("Couldn't open Domains db");
# Validation routines - parameters for each panel
<tal:block tal:repeat="panel panels">
sub validate_${panel} {