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 $is_new_record = shift; #Indicates new record required (defaults)
my %ret = {};
return $ret;
return %ret;
} ## end sub get_selected_LIST
sub get_selected_PARAMS {
@ -362,7 +362,7 @@ sub get_selected_PARAMS {
my $selected = shift; #Parameter is name of selected row.
my $is_new_record = shift; #Indicates new record required (defaults)
my %ret = {};
return $ret;
return %ret;
} ## end sub get_selected_PARAMS
sub get_selected_CHECKALLDOMAINS {
@ -370,7 +370,7 @@ sub get_selected_CHECKALLDOMAINS {
my $selected = shift; #Parameter is name of selected row.
my $is_new_record = shift; #Indicates new record required (defaults)
my %ret = {};
return $ret;
return %ret;
} ## end sub get_selected_CHECKALLDOMAINS
sub get_selected_CHECKALLENABLEDDOMAINS {
@ -378,7 +378,7 @@ sub get_selected_CHECKALLENABLEDDOMAINS {
my $selected = shift; #Parameter is name of selected row.
my $is_new_record = shift; #Indicates new record required (defaults)
my %ret = {};
return $ret;
return %ret;
} ## end sub get_selected_CHECKALLENABLEDDOMAINS
sub get_selected_CHECKONEDOMAIN {
@ -386,7 +386,7 @@ sub get_selected_CHECKONEDOMAIN {
my $selected = shift; #Parameter is name of selected row.
my $is_new_record = shift; #Indicates new record required (defaults)
my %ret = {};
return $ret;
return %ret;
} ## end sub get_selected_CHECKONEDOMAIN
#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 `;
return $output || "-empty-";
} ## 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 = "";
# Accessing all parameters
my %params = $c->req->params->to_hash;
my $params = $c->req->params->to_hash;
# 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
my $is_new_record = ($c->req->method() eq 'POST');
@ -445,4 +445,4 @@ sub do_display {
);
$c->render(template => "letsencrypt");
} ## end sub do_display
1;
1;