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

Add in Mailsorting project and also corrections to templates

Browse Source
This commit is contained in:
Brian Read
2025-05-04 13:01:38 +01:00
parent 8b54f7f61c
commit 7b0f9edb91
20 changed files with 9154 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
Templates/controller.pm.tem
View File

@@ -50,6 +50,8 @@ my $ndb;
my $hdb;
my $ddb;
my %${prefix}_data;
require '/usr/share/smanager/lib/SrvMngr/Controller/${PackageName}-Custom.pm'; #The code that is to be added by the developer
sub main {
@@ -74,7 +76,7 @@ sub main {
$hdb = esmith::HostsDB->open() || die("Couldn't open Hosts db");
$ddb = esmith::DomainsDB->open() || die("Couldn't open Domains db");
my %${prefix}_data = ();
%${prefix}_data = ();
my $title = $c->l('${prefix}_${MenuDescription}');
my $modul = '';
@@ -128,14 +130,13 @@ sub do_update {
$hdb = esmith::HostsDB->open() || die("Couldn't open Hosts db");
$ddb = esmith::DomainsDB->open() || die("Couldn't open Domains db");
my %${prefix}_data = ();
my $title = $c->l('${prefix}_${MenuDescription}');
# Accessing all POST/GET parameters
my $params = $c->req->params->to_hash;
# Get number of POST parameters
my $num_params = keys scaler %$params;
#my $num_params = keys scaler %$params;
#Params are available in the hash "params" - copy to the prefix_data hash
#while (my ($key, $value) = each %{$c->req->params->to_hash}) {
@@ -212,7 +213,6 @@ sub do_display {
$hdb = esmith::HostsDB->open() || die("Couldn't open Hosts db");
$ddb = esmith::DomainsDB->open() || die("Couldn't open Domains db");
my %${prefix}_data = ();
my $title = $c->l('${prefix}_${MenuDescription}');
my $modul = "";

4
Templates/custom.pm.tem
View File

@@ -28,7 +28,7 @@ use constant TRUE => 1;
<tal:block tal:repeat="panel panels">
sub validate_${panel} {
my $c = shift;
my ${prefix}_data = shift; #Data hash as parameter
my $$${prefix}_data = shift; #Data hash as parameter
# Validation for each field
my $ret = "";
<tal:block tal:repeat="field fields[panel]">
@@ -111,7 +111,7 @@ sub get_${tablecontrol[0]} {
<tal:block tal:repeat="panel panels">
sub perform_${panel} {
my $c = shift;
my ${prefix}_data = shift; #Data hash as parameter
my $$${prefix}_data = shift; #Data hash as parameter
my $ret = "";
my $db = $cdb; #maybe one of the others
my $dbkey = 'ChangeThis';