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

Update letsencrypt dealing with pointer to hash of params

Browse Source
This commit is contained in:
Brian Read 2025-01-23 07:12:01 +00:00
parent b5d6de3bcf
commit d1197f55cf
2 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
root/usr/share/smanager/lib/SrvMngr/Controller/Letsencrypt-Custom.pm
View File

@ -354,7 +354,7 @@ sub get_selected_LIST {
my $selected = shift; #Parameter is name of selected row. my $selected = shift; #Parameter is name of selected row.
my $is_new_record = shift; #Indicates new record required (defaults) my $is_new_record = shift; #Indicates new record required (defaults)
my %ret = {}; my %ret = {};
return $ret; return %ret;
} ## end sub get_selected_LIST } ## end sub get_selected_LIST
sub get_selected_PARAMS { sub get_selected_PARAMS {
@ -362,7 +362,7 @@ sub get_selected_PARAMS {
my $selected = shift; #Parameter is name of selected row. my $selected = shift; #Parameter is name of selected row.
my $is_new_record = shift; #Indicates new record required (defaults) my $is_new_record = shift; #Indicates new record required (defaults)
my %ret = {}; my %ret = {};
return $ret; return %ret;
} ## end sub get_selected_PARAMS } ## end sub get_selected_PARAMS
sub get_selected_CHECKALLDOMAINS { sub get_selected_CHECKALLDOMAINS {
@ -370,7 +370,7 @@ sub get_selected_CHECKALLDOMAINS {
my $selected = shift; #Parameter is name of selected row. my $selected = shift; #Parameter is name of selected row.
my $is_new_record = shift; #Indicates new record required (defaults) my $is_new_record = shift; #Indicates new record required (defaults)
my %ret = {}; my %ret = {};
return $ret; return %ret;
} ## end sub get_selected_CHECKALLDOMAINS } ## end sub get_selected_CHECKALLDOMAINS
sub get_selected_CHECKALLENABLEDDOMAINS { sub get_selected_CHECKALLENABLEDDOMAINS {
@ -378,7 +378,7 @@ sub get_selected_CHECKALLENABLEDDOMAINS {
my $selected = shift; #Parameter is name of selected row. my $selected = shift; #Parameter is name of selected row.
my $is_new_record = shift; #Indicates new record required (defaults) my $is_new_record = shift; #Indicates new record required (defaults)
my %ret = {}; my %ret = {};
return $ret; return %ret;
} ## end sub get_selected_CHECKALLENABLEDDOMAINS } ## end sub get_selected_CHECKALLENABLEDDOMAINS
sub get_selected_CHECKONEDOMAIN { sub get_selected_CHECKONEDOMAIN {
@ -386,7 +386,7 @@ sub get_selected_CHECKONEDOMAIN {
my $selected = shift; #Parameter is name of selected row. my $selected = shift; #Parameter is name of selected row.
my $is_new_record = shift; #Indicates new record required (defaults) my $is_new_record = shift; #Indicates new record required (defaults)
my %ret = {}; my %ret = {};
return $ret; return %ret;
} ## end sub get_selected_CHECKONEDOMAIN } ## end sub get_selected_CHECKONEDOMAIN
#after sucessful modify or create or whatever and submit then perfom (if the params validate) #after sucessful modify or create or whatever and submit then perfom (if the params validate)
@ -563,4 +563,4 @@ sub update_enabled_domains {
my $output = `/etc/e-smith/events/actions/letsencrypt-setdomains "" "" enabled `; my $output = `/etc/e-smith/events/actions/letsencrypt-setdomains "" "" enabled `;
return $output || "-empty-"; return $output || "-empty-";
} ## end sub update_enabled_domains } ## end sub update_enabled_domains
1; 1;

6
root/usr/share/smanager/lib/SrvMngr/Controller/Letsencrypt.pm
View File

@ -305,10 +305,10 @@ sub do_display {
my $modul = ""; my $modul = "";
# Accessing all parameters # Accessing all parameters
my %params = $c->req->params->to_hash; my $params = $c->req->params->to_hash;
# Get number of parameters # Get number of parameters
my $num_params = keys %params; my $num_params = scalar keys %$params;
#Tag as Post or Get (ie. create new entry or edit existing one #Tag as Post or Get (ie. create new entry or edit existing one
my $is_new_record = ($c->req->method() eq 'POST'); my $is_new_record = ($c->req->method() eq 'POST');
@ -445,4 +445,4 @@ sub do_display {
); );
$c->render(template => "letsencrypt"); $c->render(template => "letsencrypt");
} ## end sub do_display } ## end sub do_display
1; 1;