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

Finally crack the routing problem - html entities not allowed in mojo routing

Browse Source
This commit is contained in:
Brian Read
2024-11-13 16:45:14 +00:00
parent ece4f2f6f5
commit 1a78388e95
8 changed files with 68 additions and 61 deletions
Download Patch File Download Diff File Expand all files Collapse all files

50
Targets/Letsencrypt/Letsencrypt.pm
View File

@@ -1,6 +1,6 @@
package SrvMngr::Controller::Letsencrypt;
#
# Generated by SM2Gen version:0.8 Chameleon version:4.5.4 On Python:3.12.3 at 2024-11-06 11:09:38
# Generated by SM2Gen version:0.8 Chameleon version:4.5.4 On Python:3.12.3 at 2024-11-13 16:29:07
#
#----------------------------------------------------------------------
# heading : Network
@@ -35,7 +35,7 @@ use SrvMngr qw(theme_list init_session);
use Data::Dumper;
use esmith::util;
use esmith::HostsDB;
use esmith::ConfigDB;
use esmith::AccountsDB;
use esmith::NetworksDB;
use esmith::HostsDB;
@@ -70,7 +70,7 @@ sub main {
my $title = $c->l('lets_Letsencrypt_certificate');
my $modul = '';
$lets_data{'trt'} = 'CHECKALLDOMAINS';
$lets_data{'trt'} = 'LIST';
#Load any DB entries into the <prefix>_data area so as they are preset in the form
# which DB - this only really works if the initial panel is a PARAMS type panel and not a TABLE
@@ -80,7 +80,7 @@ sub main {
#pickup any other contents needed and load them into hash shared with panel
my %returned_hash;
# subroutine returns a hash directly
%returned_hash = get_data_for_panel_CHECKALLDOMAINS();
%returned_hash = get_data_for_panel_LIST();
# Copy each key-value pair from the returned hash to the prefix data hash
while (my ($key, $value) = each %returned_hash) {
$lets_data{$key} = $value;
@@ -138,12 +138,12 @@ sub do_update {
my $num_params = keys %params;
#Params are available in the hash "params" - copy to the prefix_data hash
while (my ($key, $value) = each %{$c->req->params->to_hash}) {
$lets_data{$key} = $value;
}
#while (my ($key, $value) = each %{$c->req->params->to_hash}) {
# $lets_data{$key} = $value;
#}
# the value of trt will tell you which panel has returned
my $trt = $c->param('trt') || 'CHECKALLDOMAINS'; #hidden control on every form.
my $trt = $c->param('trt') || 'LIST'; #hidden control on every form.
my $ret = 'ok';
#Validate the parameters in a custom sub one for each panel (although only one of these will be executed)
@@ -173,10 +173,10 @@ sub do_update {
$thispanel = 'CHECKALLENABLEDDOMAINS';
}
if ($trt eq 'CHECKONEDDOMAINS'){
#Validate form parameters for panel CHECKONEDDOMAINS
$ret = $c->validate_CHECKONEDDOMAINS(\%lets_data);
$thispanel = 'CHECKONEDDOMAINS';
if ($trt eq 'CHECKONEDDOMAIN'){
#Validate form parameters for panel CHECKONEDDOMAIN
$ret = $c->validate_CHECKONEDDOMAIN(\%lets_data);
$thispanel = 'CHECKONEDDOMAIN';
}
@@ -235,15 +235,15 @@ sub do_update {
}
}
if ($trt eq 'CHECKONEDDOMAINS'){
if ($trt eq 'CHECKONEDDOMAIN'){
#do whatever is required ...
$ret = $c->perform_CHECKONEDDOMAINS(\%lets_data);
$ret = $c->perform_CHECKONEDDOMAIN(\%lets_data);
if ($ret ne "ok") {
# return to the panel with error message
$c->stash(error => $c->l($ret));
$c->render("letsencrypt");
} else {
$c->stash( success => $c->l('lets_CHECKONEDDOMAINS_panel_action_was_successful')); #A bit bland - edit it in the lex file
$c->stash( success => $c->l('lets_CHECKONEDDOMAIN_panel_action_was_successful')); #A bit bland - edit it in the lex file
}
}
@@ -256,7 +256,7 @@ sub do_update {
lets_data => \%lets_data
);
if ('none' eq 'none') {
$lets_data{'trt'} = 'CHECKALLDOMAINS';
$lets_data{'trt'} = 'LIST';
} else {
$lets_data{'trt'} = 'none';
}
@@ -292,12 +292,12 @@ sub do_display {
my $is_new_record = ($c->req->method() eq 'POST');
#Params are available in the hash "params" - copy to the prefix_data hash
while (my ($key, $value) = each %{$c->req->params->to_hash}) {
$lets_data{$key} = $value;
}
#while (my ($key, $value) = each %{$c->req->params->to_hash}) {
# $lets_data{$key} = $value;
#}
# the value of trt will tell you which panel has returned
my $trt = $c->param('trt') || 'CHECKALLDOMAINS'; #Indicates where to go now
my $trt = $c->param('trt') || 'LIST'; #Indicates where to go now
# Now add in the params from the selected row from the table
@@ -323,9 +323,9 @@ sub do_display {
%selectedrow = $c->get_selected_CHECKALLENABLEDDOMAINS($lets_data{'Selected'},$is_new_record);
}
if ($trt eq 'CHECKONEDDOMAINS'){
#Validate form parameters for panel CHECKONEDDOMAINS
%selectedrow = $c->get_selected_CHECKONEDDOMAINS($lets_data{'Selected'},$is_new_record);
if ($trt eq 'CHECKONEDDOMAIN'){
#Validate form parameters for panel CHECKONEDDOMAIN
%selectedrow = $c->get_selected_CHECKONEDDOMAIN($lets_data{'Selected'},$is_new_record);
}
@@ -382,11 +382,11 @@ sub do_display {
}
}
if ($trt eq 'CHECKONEDDOMAINS'){
if ($trt eq 'CHECKONEDDOMAIN'){
# pickup any other contents needed and load them into hash shared with panel
my %returned_hash;
# subroutine returns a hash directly
%returned_hash = get_data_for_panel_CHECKONEDDOMAINS();
%returned_hash = get_data_for_panel_CHECKONEDDOMAIN();
# Copy each key-value pair from the returned hash to the prefix data hash
while (my ($key, $value) = each %returned_hash) {
$lets_data{$key} = $value;