Add space in status messages
This commit is contained in:
parent
865a945233
commit
a5205ea14c
@ -1,5 +1,5 @@
|
|||||||
#
|
#
|
||||||
# Generated by SM2Gen version:0.8 Chameleon version:4.5.4 On Python:3.12.3 at 2024-11-16 10:30:16
|
# Generated by SM2Gen version:0.8 Chameleon version:4.5.4 On Python:3.12.3 at 2024-11-16 10:30:16
|
||||||
#
|
#
|
||||||
#
|
#
|
||||||
# Routines to be edited by the developer to provide content and validation for parameters
|
# Routines to be edited by the developer to provide content and validation for parameters
|
||||||
@ -12,461 +12,555 @@ use esmith::HostsDB;
|
|||||||
use esmith::AccountsDB;
|
use esmith::AccountsDB;
|
||||||
use esmith::NetworksDB;
|
use esmith::NetworksDB;
|
||||||
use esmith::DomainsDB;
|
use esmith::DomainsDB;
|
||||||
|
|
||||||
use constant FALSE => 0;
|
use constant FALSE => 0;
|
||||||
use constant TRUE => 1;
|
use constant TRUE => 1;
|
||||||
|
|
||||||
|
|
||||||
#The most common ones
|
#The most common ones
|
||||||
our $cdb = esmith::ConfigDB->open() || die("Couldn't open config db");
|
our $cdb = esmith::ConfigDB->open() || die("Couldn't open config db");
|
||||||
our $adb = esmith::AccountsDB->open() || die("Couldn't open Accounts db");
|
our $adb = esmith::AccountsDB->open() || die("Couldn't open Accounts db");
|
||||||
our $ndb = esmith::NetworksDB->open() || die("Couldn't open Network db");
|
our $ndb = esmith::NetworksDB->open() || die("Couldn't open Network db");
|
||||||
our $hdb = esmith::HostsDB->open() || die("Couldn't open Hosts db");
|
our $hdb = esmith::HostsDB->open() || die("Couldn't open Hosts db");
|
||||||
our $ddb = esmith::DomainsDB->open() || die("Couldn't open Domains db");
|
our $ddb = esmith::DomainsDB->open() || die("Couldn't open Domains db");
|
||||||
|
|
||||||
# Validation routines - parameters for each panel
|
# Validation routines - parameters for each panel
|
||||||
|
sub validate_LIST {
|
||||||
|
my $c = shift;
|
||||||
|
my $prefix_data = shift; #Data hash as parameter
|
||||||
|
# Validation for each field
|
||||||
|
my $ret = "";
|
||||||
|
|
||||||
sub validate_LIST {
|
if (!TRUE) #validate $c->param('InternalIP')
|
||||||
my $c = shift;
|
{
|
||||||
my $prefix_data = shift; #Data hash as parameter
|
$ret .= 'Validation for InternalIP failed';
|
||||||
# Validation for each field
|
}
|
||||||
my $ret = "";
|
|
||||||
|
|
||||||
if (! TRUE) #validate $c->param('InternalIP')
|
|
||||||
{$ret .= 'Validation for InternalIP failed';}
|
|
||||||
if (! TRUE) #validate $c->param('ExternalIP')
|
|
||||||
{$ret .= 'Validation for ExternalIP failed';}
|
|
||||||
if (! TRUE) #validate $c->param('InternetIP')
|
|
||||||
{$ret .= 'Validation for InternetIP failed';}
|
|
||||||
if (! TRUE) #validate $c->param('Issuer')
|
|
||||||
{$ret .= 'Validation for Issuer failed';}
|
|
||||||
if (! TRUE) #validate $c->param('Expiry')
|
|
||||||
{$ret .= 'Validation for Expiry failed';}
|
|
||||||
if (! TRUE) #validate $c->param('NotBefore')
|
|
||||||
{$ret .= 'Validation for NotBefore failed';}
|
|
||||||
if ($ret eq "") {$ret = 'ok';}
|
|
||||||
return $ret;
|
|
||||||
}
|
|
||||||
|
|
||||||
sub validate_PARAMS {
|
if (!TRUE) #validate $c->param('ExternalIP')
|
||||||
my $c = shift;
|
{
|
||||||
my $prefix_data = shift; #Data hash as parameter
|
$ret .= 'Validation for ExternalIP failed';
|
||||||
# Validation for each field
|
}
|
||||||
my $ret = "";
|
|
||||||
if (! TRUE) #validate $c->param('status')
|
|
||||||
{$ret .= 'Validation for status failed';}
|
|
||||||
if (! TRUE) #validate $c->param('hookScript')
|
|
||||||
{$ret .= 'Validation for hookScript failed';}
|
|
||||||
if (! TRUE) #validate $c->param('hostOverride')
|
|
||||||
{$ret .= 'Validation for hostOverride failed';}
|
|
||||||
if (! TRUE) #validate $c->param('ACCEPT_TERMS')
|
|
||||||
{$ret .= 'Validation for ACCEPT_TERMS failed';}
|
|
||||||
if (! TRUE) #validate $c->param('API')
|
|
||||||
{$ret .= 'Validation for API failed';}
|
|
||||||
if (! TRUE) #validate $c->param('keysize')
|
|
||||||
{$ret .= 'Validation for keysize failed';}
|
|
||||||
if (! TRUE) #validate $c->param('configure')
|
|
||||||
{$ret .= 'Validation for configure failed';}
|
|
||||||
if (! TRUE) #validate $c->param('Email')
|
|
||||||
{$ret .= 'Validation for Email failed';}
|
|
||||||
if ($ret eq "") {$ret = 'ok';}
|
|
||||||
return $ret;
|
|
||||||
}
|
|
||||||
|
|
||||||
sub validate_CHECKALLDOMAINS {
|
if (!TRUE) #validate $c->param('InternetIP')
|
||||||
my $c = shift;
|
{
|
||||||
my $prefix_data = shift; #Data hash as parameter
|
$ret .= 'Validation for InternetIP failed';
|
||||||
# Validation for each field
|
}
|
||||||
my $ret = "";
|
|
||||||
|
|
||||||
if (! TRUE) #validate $c->param('AllDomainsCheck')
|
|
||||||
{$ret .= 'Validation for AllDomainsCheck failed';}
|
|
||||||
if ($ret eq "") {$ret = 'ok';}
|
|
||||||
return $ret;
|
|
||||||
}
|
|
||||||
|
|
||||||
sub validate_CHECKALLENABLEDDOMAINS {
|
if (!TRUE) #validate $c->param('Issuer')
|
||||||
my $c = shift;
|
{
|
||||||
my $prefix_data = shift; #Data hash as parameter
|
$ret .= 'Validation for Issuer failed';
|
||||||
# Validation for each field
|
}
|
||||||
my $ret = "";
|
|
||||||
|
|
||||||
if (! TRUE) #validate $c->param('EnabledDomainsCheck')
|
|
||||||
{$ret .= 'Validation for EnabledDomainsCheck failed';}
|
|
||||||
if ($ret eq "") {$ret = 'ok';}
|
|
||||||
return $ret;
|
|
||||||
}
|
|
||||||
|
|
||||||
sub validate_CHECKONEDOMAIN {
|
if (!TRUE) #validate $c->param('Expiry')
|
||||||
my $c = shift;
|
{
|
||||||
my $prefix_data = shift; #Data hash as parameter
|
$ret .= 'Validation for Expiry failed';
|
||||||
# Validation for each field
|
}
|
||||||
my $ret = "";
|
|
||||||
|
|
||||||
if (! TRUE) #validate $c->param('OneDomainToCheck')
|
|
||||||
{$ret .= 'Validation for OneDomainToCheck failed';}
|
|
||||||
if (! TRUE) #validate $c->param('OneDomainsCheck')
|
|
||||||
{$ret .= 'Validation for OneDomainsCheck failed';}
|
|
||||||
if ($ret eq "") {$ret = 'ok';}
|
|
||||||
return $ret;
|
|
||||||
}
|
|
||||||
|
|
||||||
|
if (!TRUE) #validate $c->param('NotBefore')
|
||||||
|
{
|
||||||
|
$ret .= 'Validation for NotBefore failed';
|
||||||
|
}
|
||||||
|
if ($ret eq "") { $ret = 'ok'; }
|
||||||
|
return $ret;
|
||||||
|
} ## end sub validate_LIST
|
||||||
|
|
||||||
|
sub validate_PARAMS {
|
||||||
|
my $c = shift;
|
||||||
|
my $prefix_data = shift; #Data hash as parameter
|
||||||
|
# Validation for each field
|
||||||
|
my $ret = "";
|
||||||
|
|
||||||
|
if (!TRUE) #validate $c->param('status')
|
||||||
|
{
|
||||||
|
$ret .= 'Validation for status failed';
|
||||||
|
}
|
||||||
|
|
||||||
|
if (!TRUE) #validate $c->param('hookScript')
|
||||||
|
{
|
||||||
|
$ret .= 'Validation for hookScript failed';
|
||||||
|
}
|
||||||
|
|
||||||
|
if (!TRUE) #validate $c->param('hostOverride')
|
||||||
|
{
|
||||||
|
$ret .= 'Validation for hostOverride failed';
|
||||||
|
}
|
||||||
|
|
||||||
|
if (!TRUE) #validate $c->param('ACCEPT_TERMS')
|
||||||
|
{
|
||||||
|
$ret .= 'Validation for ACCEPT_TERMS failed';
|
||||||
|
}
|
||||||
|
|
||||||
|
if (!TRUE) #validate $c->param('API')
|
||||||
|
{
|
||||||
|
$ret .= 'Validation for API failed';
|
||||||
|
}
|
||||||
|
|
||||||
|
if (!TRUE) #validate $c->param('keysize')
|
||||||
|
{
|
||||||
|
$ret .= 'Validation for keysize failed';
|
||||||
|
}
|
||||||
|
|
||||||
|
if (!TRUE) #validate $c->param('configure')
|
||||||
|
{
|
||||||
|
$ret .= 'Validation for configure failed';
|
||||||
|
}
|
||||||
|
|
||||||
|
if (!TRUE) #validate $c->param('Email')
|
||||||
|
{
|
||||||
|
$ret .= 'Validation for Email failed';
|
||||||
|
}
|
||||||
|
if ($ret eq "") { $ret = 'ok'; }
|
||||||
|
return $ret;
|
||||||
|
} ## end sub validate_PARAMS
|
||||||
|
|
||||||
|
sub validate_CHECKALLDOMAINS {
|
||||||
|
my $c = shift;
|
||||||
|
my $prefix_data = shift; #Data hash as parameter
|
||||||
|
# Validation for each field
|
||||||
|
my $ret = "";
|
||||||
|
|
||||||
|
if (!TRUE) #validate $c->param('AllDomainsCheck')
|
||||||
|
{
|
||||||
|
$ret .= 'Validation for AllDomainsCheck failed';
|
||||||
|
}
|
||||||
|
if ($ret eq "") { $ret = 'ok'; }
|
||||||
|
return $ret;
|
||||||
|
} ## end sub validate_CHECKALLDOMAINS
|
||||||
|
|
||||||
|
sub validate_CHECKALLENABLEDDOMAINS {
|
||||||
|
my $c = shift;
|
||||||
|
my $prefix_data = shift; #Data hash as parameter
|
||||||
|
# Validation for each field
|
||||||
|
my $ret = "";
|
||||||
|
|
||||||
|
if (!TRUE) #validate $c->param('EnabledDomainsCheck')
|
||||||
|
{
|
||||||
|
$ret .= 'Validation for EnabledDomainsCheck failed';
|
||||||
|
}
|
||||||
|
if ($ret eq "") { $ret = 'ok'; }
|
||||||
|
return $ret;
|
||||||
|
} ## end sub validate_CHECKALLENABLEDDOMAINS
|
||||||
|
|
||||||
|
sub validate_CHECKONEDOMAIN {
|
||||||
|
my $c = shift;
|
||||||
|
my $prefix_data = shift; #Data hash as parameter
|
||||||
|
# Validation for each field
|
||||||
|
my $ret = "";
|
||||||
|
|
||||||
|
if (!TRUE) #validate $c->param('OneDomainToCheck')
|
||||||
|
{
|
||||||
|
$ret .= 'Validation for OneDomainToCheck failed';
|
||||||
|
}
|
||||||
|
|
||||||
|
if (!TRUE) #validate $c->param('OneDomainsCheck')
|
||||||
|
{
|
||||||
|
$ret .= 'Validation for OneDomainsCheck failed';
|
||||||
|
}
|
||||||
|
if ($ret eq "") { $ret = 'ok'; }
|
||||||
|
return $ret;
|
||||||
|
} ## end sub validate_CHECKONEDOMAIN
|
||||||
|
|
||||||
# Get singleton data for each panel
|
# Get singleton data for each panel
|
||||||
|
sub get_data_for_panel_LIST {
|
||||||
|
|
||||||
sub get_data_for_panel_LIST {
|
# Return a hash with the fields required which will be loaded into the shared data
|
||||||
# Return a hash with the fields required which will be loaded into the shared data
|
my $c = shift;
|
||||||
my $c = shift;
|
|
||||||
# my ($reply, $err, $server_cert) = Net::SSLeay::sslcat('localhost', 443, '/');
|
|
||||||
# my $issuer = Net::SSLeay::X509_NAME_oneline(Net::SSLeay::X509_get_issuer_name($server_cert));
|
|
||||||
# my $before = Net::SSLeay::P_ASN1_TIME_get_isotime(Net::SSLeay::X509_get_notBefore($server_cert));
|
|
||||||
# my $expiry = Net::SSLeay::P_ASN1_TIME_get_isotime(Net::SSLeay::X509_get_notAfter($server_cert));
|
|
||||||
|
|
||||||
my %ret = (
|
# my ($reply, $err, $server_cert) = Net::SSLeay::sslcat('localhost', 443, '/');
|
||||||
'Data1'=>'Data for LIST', #Example
|
# my $issuer = Net::SSLeay::X509_NAME_oneline(Net::SSLeay::X509_get_issuer_name($server_cert));
|
||||||
# fields from Inputs in LIST $fields['LIST']
|
# my $before = Net::SSLeay::P_ASN1_TIME_get_isotime(Net::SSLeay::X509_get_notBefore($server_cert));
|
||||||
'InternalIP'=>$cdb->get_prop('InternalInterface','IPAddress'),
|
# my $expiry = Net::SSLeay::P_ASN1_TIME_get_isotime(Net::SSLeay::X509_get_notAfter($server_cert));
|
||||||
'ExternalIP'=>$cdb->get_prop('ExternalInterface','IPAddress'),
|
my %ret = (
|
||||||
'InternetIP'=>$c->get_my_ip(),
|
'Data1' => 'Data for LIST', #Example
|
||||||
'Issuer'=>'$issuer',
|
# fields from Inputs in LIST $fields['LIST']
|
||||||
'Expiry'=>'$expiry',
|
'InternalIP' => $cdb->get_prop('InternalInterface', 'IPAddress'),
|
||||||
'NotBefore'=>'$before',
|
'ExternalIP' => $cdb->get_prop('ExternalInterface', 'IPAddress'),
|
||||||
);
|
'InternetIP' => $c->get_my_ip(),
|
||||||
return %ret;
|
'Issuer' => '$issuer',
|
||||||
}
|
'Expiry' => '$expiry',
|
||||||
|
'NotBefore' => '$before',
|
||||||
|
);
|
||||||
|
return %ret;
|
||||||
|
} ## end sub get_data_for_panel_LIST
|
||||||
|
|
||||||
sub get_data_for_panel_PARAMS {
|
sub get_data_for_panel_PARAMS {
|
||||||
# Return a hash with the fields required which will be loaded into the shared data
|
|
||||||
my $c = shift;
|
|
||||||
my %ret = (
|
|
||||||
'Data1'=>'Data for PARAMS', #Example
|
|
||||||
# fields from Inputs in PARAMS $fields['PARAMS']
|
|
||||||
'status'=>$cdb->get_prop('letsencrypt', 'status', 'disabled'),
|
|
||||||
'hookScript'=>$cdb->get_prop('letsencrypt', 'hookScript', 'disabled'),
|
|
||||||
'hostOverride'=>$cdb->get_prop('letsencrypt', 'hostOverride', 'disabled'),
|
|
||||||
'ACCEPT_TERMS'=>$cdb->get_prop('letsencrypt', 'ACCEPT_TERMS', ''),
|
|
||||||
'API'=>$cdb->get_prop('letsencrypt', 'API', '2'),
|
|
||||||
'keysize'=>$cdb->get_prop('letsencrypt', 'keysize', '4096'),
|
|
||||||
'configure'=>$cdb->get_prop('letsencrypt', 'configure', 'none' ),
|
|
||||||
'email'=>$cdb->get_prop('letsencrypt', 'email')
|
|
||||||
);
|
|
||||||
return %ret;
|
|
||||||
}
|
|
||||||
|
|
||||||
sub get_data_for_panel_CHECKALLDOMAINS {
|
# Return a hash with the fields required which will be loaded into the shared data
|
||||||
# Return a hash with the fields required which will be loaded into the shared data
|
my $c = shift;
|
||||||
my $c = shift;
|
my %ret = (
|
||||||
my %ret = (
|
'Data1' => 'Data for PARAMS', #Example
|
||||||
'Data1'=>'Data for CHECKALLDOMAINS', #Example
|
# fields from Inputs in PARAMS $fields['PARAMS']
|
||||||
# fields from Inputs in CHECKALLDOMAINS $fields['CHECKALLDOMAINS']
|
'status' => $cdb->get_prop('letsencrypt', 'status', 'disabled'),
|
||||||
'AllDomainsCheck'=>$c->update_all_domains(),
|
'hookScript' => $cdb->get_prop('letsencrypt', 'hookScript', 'disabled'),
|
||||||
|
'hostOverride' => $cdb->get_prop('letsencrypt', 'hostOverride', 'disabled'),
|
||||||
);
|
'ACCEPT_TERMS' => $cdb->get_prop('letsencrypt', 'ACCEPT_TERMS', ''),
|
||||||
return %ret;
|
'API' => $cdb->get_prop('letsencrypt', 'API', '2'),
|
||||||
}
|
'keysize' => $cdb->get_prop('letsencrypt', 'keysize', '4096'),
|
||||||
|
'configure' => $cdb->get_prop('letsencrypt', 'configure', 'none'),
|
||||||
|
'email' => $cdb->get_prop('letsencrypt', 'email')
|
||||||
|
);
|
||||||
|
return %ret;
|
||||||
|
} ## end sub get_data_for_panel_PARAMS
|
||||||
|
|
||||||
sub get_data_for_panel_CHECKALLENABLEDDOMAINS {
|
sub get_data_for_panel_CHECKALLDOMAINS {
|
||||||
# Return a hash with the fields required which will be loaded into the shared data
|
|
||||||
my $c = shift;
|
|
||||||
my %ret = (
|
|
||||||
'Data1'=>'Data for CHECKALLENABLEDDOMAINS', #Example
|
|
||||||
# fields from Inputs in CHECKALLENABLEDDOMAINS $fields['CHECKALLENABLEDDOMAINS']
|
|
||||||
'EnabledDomainsCheck'=>$c->update_enabled_domains(),
|
|
||||||
|
|
||||||
);
|
|
||||||
return %ret;
|
|
||||||
}
|
|
||||||
|
|
||||||
sub get_data_for_panel_CHECKONEDOMAIN {
|
# Return a hash with the fields required which will be loaded into the shared data
|
||||||
# Return a hash with the fields required which will be loaded into the shared data
|
my $c = shift;
|
||||||
my $c = shift;
|
my %ret = (
|
||||||
my %ret = (
|
'Data1' => 'Data for CHECKALLDOMAINS', #Example
|
||||||
'Data1'=>'Data for CHECKONEDOMAIN', #Example
|
# fields from Inputs in CHECKALLDOMAINS $fields['CHECKALLDOMAINS']
|
||||||
# fields from Inputs in CHECKONEDOMAIN $fields['CHECKONEDOMAIN']
|
'AllDomainsCheck' => $c->update_all_domains(),
|
||||||
'OneDomainToCheck'=>$c->param("CHECKONEDOMAIN"),
|
);
|
||||||
'OneDomainsCheck'=>$c->update_one_domain($c->param("CHECKONEDOMAIN"))
|
return %ret;
|
||||||
);
|
} ## end sub get_data_for_panel_CHECKALLDOMAINS
|
||||||
return %ret;
|
|
||||||
}
|
|
||||||
|
|
||||||
|
sub get_data_for_panel_CHECKALLENABLEDDOMAINS {
|
||||||
|
|
||||||
|
# Return a hash with the fields required which will be loaded into the shared data
|
||||||
|
my $c = shift;
|
||||||
|
my %ret = (
|
||||||
|
'Data1' => 'Data for CHECKALLENABLEDDOMAINS', #Example
|
||||||
|
# fields from Inputs in CHECKALLENABLEDDOMAINS $fields['CHECKALLENABLEDDOMAINS']
|
||||||
|
'EnabledDomainsCheck' => $c->update_enabled_domains(),
|
||||||
|
);
|
||||||
|
return %ret;
|
||||||
|
} ## end sub get_data_for_panel_CHECKALLENABLEDDOMAINS
|
||||||
|
|
||||||
|
sub get_data_for_panel_CHECKONEDOMAIN {
|
||||||
|
|
||||||
|
# Return a hash with the fields required which will be loaded into the shared data
|
||||||
|
my $c = shift;
|
||||||
|
my %ret = (
|
||||||
|
'Data1' => 'Data for CHECKONEDOMAIN', #Example
|
||||||
|
# fields from Inputs in CHECKONEDOMAIN $fields['CHECKONEDOMAIN']
|
||||||
|
'OneDomainToCheck' => $c->param("CHECKONEDOMAIN"),
|
||||||
|
'OneDomainsCheck' => $c->update_one_domain($c->param("CHECKONEDOMAIN"))
|
||||||
|
);
|
||||||
|
return %ret;
|
||||||
|
} ## end sub get_data_for_panel_CHECKONEDOMAIN
|
||||||
|
|
||||||
# Get control data for table(s)
|
# Get control data for table(s)
|
||||||
|
# Define a constant hash for field name mapping
|
||||||
|
use constant DomainList_FIELD_MAPPING => (
|
||||||
|
'Table1-Domain name / HOSTNAME' => 'Domain',
|
||||||
|
'Table1-Brief description' => 'Description',
|
||||||
|
'Table1-Content' => 'Content',
|
||||||
|
'Table1-LABEL_NAMESERVERS' => 'Nameservers',
|
||||||
|
'Table1-LABEL_POINT' => 'Source-for-Table1-LABEL_POINT',
|
||||||
|
'Table1-LABEL_LECERT' => 'letsencryptSSLcert',
|
||||||
|
'Table1-IS_IN_CERT' => 'isincert',
|
||||||
|
'Table1-CHECK' => 'Check'
|
||||||
|
|
||||||
# Define a constant hash for field name mapping
|
#'target_field2' => 'source_field2',
|
||||||
use constant DomainList_FIELD_MAPPING => (
|
# Add more mappings as needed
|
||||||
'Table1-Domain name / HOSTNAME' => 'Domain',
|
);
|
||||||
'Table1-Brief description' => 'Description',
|
|
||||||
'Table1-Content' => 'Content',
|
|
||||||
'Table1-LABEL_NAMESERVERS' => 'Nameservers',
|
|
||||||
'Table1-LABEL_POINT' => 'Source-for-Table1-LABEL_POINT',
|
|
||||||
'Table1-LABEL_LECERT' => 'letsencryptSSLcert',
|
|
||||||
'Table1-IS_IN_CERT' => 'isincert',
|
|
||||||
'Table1-CHECK' => 'Check'
|
|
||||||
#'target_field2' => 'source_field2',
|
|
||||||
# Add more mappings as needed
|
|
||||||
);
|
|
||||||
|
|
||||||
|
|
||||||
use constant TEST_DOMAIN_LIST => (
|
use constant TEST_DOMAIN_LIST => (
|
||||||
{ "domain" => "Domain1","fred" => "fred1" , "description"=>"Description1"},
|
{ "domain" => "Domain1", "fred" => "fred1", "description" => "Description1" },
|
||||||
{ "domain" => "Domain2", "fred" => "fred2", "description"=>"Description2" },
|
{ "domain" => "Domain2", "fred" => "fred2", "description" => "Description2" },
|
||||||
{ "domain" => "Domain3", "fred" => "fred3", "description"=>"Description3" },
|
{ "domain" => "Domain3", "fred" => "fred3", "description" => "Description3" },
|
||||||
|
|
||||||
# Add more test entries as needed
|
# Add more test entries as needed
|
||||||
);
|
);
|
||||||
|
|
||||||
sub actual_DomainList {
|
sub actual_DomainList {
|
||||||
my $c = shift;
|
my $c = shift;
|
||||||
# Actual code for extracting DomainList
|
|
||||||
my @list = ();
|
# Actual code for extracting DomainList
|
||||||
# my @rv = Net::SSLeay::X509_get_subjectAltNames($server_cert);
|
my @list = ();
|
||||||
# foreach my $element (@rv) {
|
|
||||||
# next if $element =~ /^\d+$/; ;
|
# my @rv = Net::SSLeay::X509_get_subjectAltNames($server_cert);
|
||||||
# #print $element . "\n";
|
# foreach my $element (@rv) {
|
||||||
# push @list, $element;
|
# next if $element =~ /^\d+$/; ;
|
||||||
# }
|
# #print $element . "\n";
|
||||||
my @data = ();
|
# push @list, $element;
|
||||||
my $check = $c->l('Check Domain');
|
# }
|
||||||
for ($ddb->domains)
|
my @data = ();
|
||||||
{
|
my $check = $c->l('Check Domain');
|
||||||
my $ns = $_->prop('Nameservers') || 'internet';
|
|
||||||
my $le = $_->prop('letsencryptSSLcert') || 'disabled';#letsencrypt configure all
|
for ($ddb->domains) {
|
||||||
my $dname= $_->key;
|
my $ns = $_->prop('Nameservers') || 'internet';
|
||||||
my $isincert = "N";
|
my $le = $_->prop('letsencryptSSLcert') || 'disabled'; #letsencrypt configure all
|
||||||
my $link = $c->create_link("letsencryptd","CHECKONEDOMAIN","");
|
my $dname = $_->key;
|
||||||
my $checklink = "<a href='".$link."&CHECKONEDOMAIN=".$_->key."'>".$check."</a>";
|
my $isincert = "N";
|
||||||
#my $checklink = "<a href=''>check</a>";
|
my $link = $c->create_link("letsencryptd", "CHECKONEDOMAIN", "");
|
||||||
$isincert = "Y" if ( $dname ~~ @list);
|
my $checklink = "<a href='" . $link . "&CHECKONEDOMAIN=" . $_->key . "'>" . $check . "</a>";
|
||||||
# domain
|
|
||||||
push @data,
|
#my $checklink = "<a href=''>check</a>";
|
||||||
{ Domain => $_->key,
|
$isincert = "Y" if ($dname ~~ @list);
|
||||||
$_->props,
|
|
||||||
letsencryptSSLcert => $le,
|
# domain
|
||||||
isincert => $isincert,
|
push @data,
|
||||||
Check => $checklink,
|
{
|
||||||
Nameservers => $ns,
|
Domain => $_->key,
|
||||||
};
|
$_->props,
|
||||||
#and hosts
|
letsencryptSSLcert => $le,
|
||||||
for my $h ($hdb->get_hosts_by_domain($dname))
|
isincert => $isincert,
|
||||||
{
|
Check => $checklink,
|
||||||
next if $ddb->get($h->key);
|
Nameservers => $ns,
|
||||||
next unless ($h->prop('HostType') eq "Self" || $h->prop('HostType') eq "Local");
|
};
|
||||||
$le = $h->prop('letsencryptSSLcert') || 'disabled';#letsencrypt configure all
|
|
||||||
$isincert = "N";
|
#and hosts
|
||||||
$isincert = "Y" if ( $h->key ~~ @list);
|
for my $h ($hdb->get_hosts_by_domain($dname)) {
|
||||||
push @data,
|
next if $ddb->get($h->key);
|
||||||
{ Domain => "--> ". $h->key,
|
next unless ($h->prop('HostType') eq "Self" || $h->prop('HostType') eq "Local");
|
||||||
$h->props,
|
$le = $h->prop('letsencryptSSLcert') || 'disabled'; #letsencrypt configure all
|
||||||
Description=>$h->prop('ExternalIP')|| $h->prop('InternalIP')||"",
|
$isincert = "N";
|
||||||
Content => $h->prop('HostType'),
|
$isincert = "Y" if ($h->key ~~ @list);
|
||||||
isincert => $isincert,
|
push @data, {
|
||||||
Check => "", #$checklink
|
Domain => "--> " . $h->key,
|
||||||
Nameservers => $c->l($ns),
|
$h->props,
|
||||||
}
|
Description => $h->prop('ExternalIP') || $h->prop('InternalIP') || "",
|
||||||
}
|
Content => $h->prop('HostType'),
|
||||||
}
|
isincert => $isincert,
|
||||||
return @data;
|
Check => "", #$checklink
|
||||||
}
|
Nameservers => $c->l($ns),
|
||||||
|
};
|
||||||
|
} ## end for my $h ($hdb->get_hosts_by_domain...)
|
||||||
|
} ## end for ($ddb->domains)
|
||||||
|
return @data;
|
||||||
|
} ## end sub actual_DomainList
|
||||||
|
|
||||||
sub get_DomainList {
|
sub get_DomainList {
|
||||||
|
|
||||||
# Return an array of hashes of the contents for each row and column for DomainList
|
# Return an array of hashes of the contents for each row and column for DomainList
|
||||||
my $c = shift;
|
my $c = shift;
|
||||||
my @source_records = $c->actual_DomainList(); #TEST_DOMAIN_LIST #Replace by code or call to produce contents of table;
|
my @source_records
|
||||||
|
= $c->actual_DomainList(); #TEST_DOMAIN_LIST #Replace by code or call to produce contents of table;
|
||||||
my @transformed_records;
|
my @transformed_records;
|
||||||
my %Field_Mapping = DomainList_FIELD_MAPPING;
|
my %Field_Mapping = DomainList_FIELD_MAPPING;
|
||||||
|
|
||||||
# Iterate over each record in the source array
|
# Iterate over each record in the source array
|
||||||
for my $source_record (@source_records) {
|
for my $source_record (@source_records) {
|
||||||
my %transformed_record;
|
my %transformed_record;
|
||||||
|
|
||||||
# Iterate over each key-value pair in the $Field_Mapping constant
|
# Iterate over each key-value pair in the $Field_Mapping constant
|
||||||
while (my ($target, $source) = each %Field_Mapping) {
|
while (my ($target, $source) = each %Field_Mapping) {
|
||||||
|
|
||||||
# Check if the source field exists in the source record
|
# Check if the source field exists in the source record
|
||||||
if (exists $source_record->{$source}) {
|
if (exists $source_record->{$source}) {
|
||||||
|
|
||||||
# Assign the source field value to the target field in the transformed record
|
# Assign the source field value to the target field in the transformed record
|
||||||
$transformed_record{$target} = $source_record->{$source};
|
$transformed_record{$target} = $source_record->{$source};
|
||||||
}
|
}
|
||||||
}
|
} ## end while (my ($target, $source...))
|
||||||
|
|
||||||
# Add transformed record to the array if it's not empty
|
# Add transformed record to the array if it's not empty
|
||||||
push @transformed_records, \%transformed_record if %transformed_record;
|
push @transformed_records, \%transformed_record if %transformed_record;
|
||||||
}
|
} ## end for my $source_record (...)
|
||||||
return \@transformed_records;
|
return \@transformed_records;
|
||||||
}
|
} ## end sub get_DomainList
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
# Return hash with values from row in which link clicked on table
|
# Return hash with values from row in which link clicked on table
|
||||||
|
sub get_selected_LIST {
|
||||||
|
my $c = shift;
|
||||||
|
my $selected = shift; #Parameter is name of selected row.
|
||||||
|
my $is_new_record = shift; #Indicates new record required (defaults)
|
||||||
|
my %ret = {};
|
||||||
|
return %ret;
|
||||||
|
} ## end sub get_selected_LIST
|
||||||
|
|
||||||
sub get_selected_LIST {
|
sub get_selected_PARAMS {
|
||||||
my $c = shift;
|
my $c = shift;
|
||||||
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
|
||||||
|
|
||||||
sub get_selected_PARAMS {
|
sub get_selected_CHECKALLDOMAINS {
|
||||||
my $c = shift;
|
my $c = shift;
|
||||||
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
|
||||||
|
|
||||||
sub get_selected_CHECKALLDOMAINS {
|
sub get_selected_CHECKALLENABLEDDOMAINS {
|
||||||
my $c = shift;
|
my $c = shift;
|
||||||
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
|
||||||
|
|
||||||
sub get_selected_CHECKALLENABLEDDOMAINS {
|
|
||||||
my $c = shift;
|
|
||||||
my $selected = shift; #Parameter is name of selected row.
|
|
||||||
my $is_new_record = shift; #Indicates new record required (defaults)
|
|
||||||
my %ret = {};
|
|
||||||
return $ret;
|
|
||||||
}
|
|
||||||
|
|
||||||
sub get_selected_CHECKONEDOMAIN {
|
|
||||||
my $c = shift;
|
|
||||||
my $selected = shift; #Parameter is name of selected row.
|
|
||||||
my $is_new_record = shift; #Indicates new record required (defaults)
|
|
||||||
my %ret = {};
|
|
||||||
return $ret;
|
|
||||||
}
|
|
||||||
|
|
||||||
|
sub get_selected_CHECKONEDOMAIN {
|
||||||
|
my $c = shift;
|
||||||
|
my $selected = shift; #Parameter is name of selected row.
|
||||||
|
my $is_new_record = shift; #Indicates new record required (defaults)
|
||||||
|
my %ret = {};
|
||||||
|
return %ret;
|
||||||
|
} ## 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)
|
||||||
|
sub perform_LIST {
|
||||||
|
my $c = shift;
|
||||||
|
my $prefix_data = shift; #Data hash as parameter
|
||||||
|
my $ret = "";
|
||||||
|
my $db = $cdb; #maybe one of the others
|
||||||
|
my $dbkey = 'ChangeThis';
|
||||||
|
|
||||||
sub perform_LIST {
|
if (!TRUE
|
||||||
my $c = shift;
|
) #copy or perform with value: InternalIP e.g. $db->set_prop($dbkey,'InternalIP',$c->param('InternalIP'),type=>'service'))
|
||||||
my $prefix_data = shift; #Data hash as parameter
|
{
|
||||||
my $ret = "";
|
$ret .= 'Perform/save failed for InternalIP';
|
||||||
my $db = $cdb; #maybe one of the others
|
} ## end if (!TRUE)
|
||||||
my $dbkey = 'ChangeThis';
|
|
||||||
|
|
||||||
if (! TRUE) #copy or perform with value: InternalIP e.g. $db->set_prop($dbkey,'InternalIP',$c->param('InternalIP'),type=>'service'))
|
|
||||||
{$ret .= 'Perform/save failed for InternalIP';}
|
|
||||||
if (! TRUE) #copy or perform with value: ExternalIP e.g. $db->set_prop($dbkey,'ExternalIP',$c->param('ExternalIP'),type=>'service'))
|
|
||||||
{$ret .= 'Perform/save failed for ExternalIP';}
|
|
||||||
if (! TRUE) #copy or perform with value: InternetIP e.g. $db->set_prop($dbkey,'InternetIP',$c->param('InternetIP'),type=>'service'))
|
|
||||||
{$ret .= 'Perform/save failed for InternetIP';}
|
|
||||||
if (! TRUE) #copy or perform with value: Issuer e.g. $db->set_prop($dbkey,'Issuer',$c->param('Issuer'),type=>'service'))
|
|
||||||
{$ret .= 'Perform/save failed for Issuer';}
|
|
||||||
if (! TRUE) #copy or perform with value: Expiry e.g. $db->set_prop($dbkey,'Expiry',$c->param('Expiry'),type=>'service'))
|
|
||||||
{$ret .= 'Perform/save failed for Expiry';}
|
|
||||||
if (! TRUE) #copy or perform with value: NotBefore e.g. $db->set_prop($dbkey,'NotBefore',$c->param('NotBefore'),type=>'service'))
|
|
||||||
{$ret .= 'Perform/save failed for NotBefore';}
|
|
||||||
if ($ret eq "") {$ret = 'ok';}
|
|
||||||
return $ret;
|
|
||||||
}
|
|
||||||
|
|
||||||
sub perform_PARAMS {
|
if (!TRUE
|
||||||
my $c = shift;
|
) #copy or perform with value: ExternalIP e.g. $db->set_prop($dbkey,'ExternalIP',$c->param('ExternalIP'),type=>'service'))
|
||||||
my $prefix_data = shift; #Data hash as parameter
|
{
|
||||||
my $ret = "";
|
$ret .= 'Perform/save failed for ExternalIP';
|
||||||
my $db = $cdb; #maybe one of the others
|
} ## end if (!TRUE)
|
||||||
my $dbkey = 'letsencrypt';
|
|
||||||
# To make it write to DB as comment, delete this (regex) string in each if statement "TRUE\) \#copy or perform with value: .* e.g."
|
|
||||||
|
|
||||||
if (! $db->set_prop($dbkey,'status',$c->param('status'),type=>'service'))
|
|
||||||
{$ret .= 'Perform/save failed for status';}
|
|
||||||
if (! $db->set_prop($dbkey,'hookScript',$c->param('hookScript'),type=>'service'))
|
|
||||||
{$ret .= 'Perform/save failed for hookScript';}
|
|
||||||
if (! $db->set_prop($dbkey,'hostOverride',$c->param('hostOverride'),type=>'service'))
|
|
||||||
{$ret .= 'Perform/save failed for hostOverride';}
|
|
||||||
if (! $db->set_prop($dbkey,'ACCEPT_TERMS',$c->param('ACCEPT_TERMS'),type=>'service'))
|
|
||||||
{$ret .= 'Perform/save failed for ACCEPT_TERMS';}
|
|
||||||
if (! $db->set_prop($dbkey,'API',$c->param('API'),type=>'service'))
|
|
||||||
{$ret .= 'Perform/save failed for API';}
|
|
||||||
if (! $db->set_prop($dbkey,'keysize',$c->param('keysize'),type=>'service'))
|
|
||||||
{$ret .= 'Perform/save failed for keysize';}
|
|
||||||
if (! $db->set_prop($dbkey,'configure',$c->param('configure'),type=>'service'))
|
|
||||||
{$ret .= 'Perform/save failed for configure';}
|
|
||||||
if (! $db->set_prop($dbkey,'email',$c->param('email'),type=>'service'))
|
|
||||||
{$ret .= 'Perform/save failed for email';}
|
|
||||||
if ($ret eq "") {$ret = 'ok';}
|
|
||||||
return $ret;
|
|
||||||
}
|
|
||||||
|
|
||||||
sub perform_CHECKALLDOMAINS {
|
|
||||||
my $c = shift;
|
|
||||||
my $prefix_data = shift; #Data hash as parameter
|
|
||||||
my $ret = "";
|
|
||||||
my $db = $cdb; #maybe one of the others
|
|
||||||
my $dbkey = 'ChangeThis';
|
|
||||||
|
|
||||||
if (! TRUE) #copy or perform with value: AllDomainsCheck e.g. $db->set_prop($dbkey,'AllDomainsCheck',$c->param('AllDomainsCheck'),type=>'service'))
|
|
||||||
{$ret .= 'Perform/save failed for AllDomainsCheck';}
|
|
||||||
if ($ret eq "") {$ret = 'ok';}
|
|
||||||
return $ret;
|
|
||||||
}
|
|
||||||
|
|
||||||
sub perform_CHECKALLENABLEDDOMAINS {
|
if (!TRUE
|
||||||
my $c = shift;
|
) #copy or perform with value: InternetIP e.g. $db->set_prop($dbkey,'InternetIP',$c->param('InternetIP'),type=>'service'))
|
||||||
my $prefix_data = shift; #Data hash as parameter
|
{
|
||||||
my $ret = "";
|
$ret .= 'Perform/save failed for InternetIP';
|
||||||
my $db = $cdb; #maybe one of the others
|
} ## end if (!TRUE)
|
||||||
my $dbkey = 'ChangeThis';
|
|
||||||
|
|
||||||
if (! TRUE) #copy or perform with value: EnabledDomainsCheck e.g. $db->set_prop($dbkey,'EnabledDomainsCheck',$c->param('EnabledDomainsCheck'),type=>'service'))
|
|
||||||
{$ret .= 'Perform/save failed for EnabledDomainsCheck';}
|
|
||||||
if ($ret eq "") {$ret = 'ok';}
|
|
||||||
return $ret;
|
|
||||||
}
|
|
||||||
|
|
||||||
sub perform_CHECKONEDOMAIN {
|
if (!TRUE
|
||||||
my $c = shift;
|
) #copy or perform with value: Issuer e.g. $db->set_prop($dbkey,'Issuer',$c->param('Issuer'),type=>'service'))
|
||||||
my $prefix_data = shift; #Data hash as parameter
|
{
|
||||||
my $ret = "";
|
$ret .= 'Perform/save failed for Issuer';
|
||||||
my $db = $cdb; #maybe one of the others
|
} ## end if (!TRUE)
|
||||||
my $dbkey = 'ChangeThis';
|
|
||||||
|
|
||||||
if (! TRUE) #copy or perform with value: OneDomainToCheck e.g. $db->set_prop($dbkey,'OneDomainToCheck',$c->param('OneDomainToCheck'),type=>'service'))
|
|
||||||
{$ret .= 'Perform/save failed for OneDomainToCheck';}
|
|
||||||
if (! TRUE) #copy or perform with value: OneDomainsCheck e.g. $db->set_prop($dbkey,'OneDomainsCheck',$c->param('OneDomainsCheck'),type=>'service'))
|
|
||||||
{$ret .= 'Perform/save failed for OneDomainsCheck';}
|
|
||||||
if ($ret eq "") {$ret = 'ok';}
|
|
||||||
return $ret;
|
|
||||||
}
|
|
||||||
|
|
||||||
|
if (!TRUE
|
||||||
|
) #copy or perform with value: Expiry e.g. $db->set_prop($dbkey,'Expiry',$c->param('Expiry'),type=>'service'))
|
||||||
|
{
|
||||||
|
$ret .= 'Perform/save failed for Expiry';
|
||||||
|
} ## end if (!TRUE)
|
||||||
|
|
||||||
sub create_link{
|
if (!TRUE
|
||||||
# WIP
|
) #copy or perform with value: NotBefore e.g. $db->set_prop($dbkey,'NotBefore',$c->param('NotBefore'),type=>'service'))
|
||||||
my ($c,$route, $panel, $index) = @_;
|
{
|
||||||
my $link = "$route?trt=$panel&Selected=$index";
|
$ret .= 'Perform/save failed for NotBefore';
|
||||||
return $link;
|
} ## end if (!TRUE)
|
||||||
}
|
if ($ret eq "") { $ret = 'ok'; }
|
||||||
|
return $ret;
|
||||||
|
} ## end sub perform_LIST
|
||||||
|
|
||||||
sub get_my_ip
|
sub perform_PARAMS {
|
||||||
{
|
my $c = shift;
|
||||||
|
my $prefix_data = shift; #Data hash as parameter
|
||||||
|
my $ret = "";
|
||||||
|
my $db = $cdb; #maybe one of the others
|
||||||
|
my $dbkey = 'letsencrypt';
|
||||||
|
|
||||||
|
# To make it write to DB as comment, delete this (regex) string in each if statement "TRUE\) \#copy or perform with value: .* e.g."
|
||||||
|
if (!$db->set_prop($dbkey, 'status', $c->param('status'), type => 'service')) {
|
||||||
|
$ret .= 'Perform/save failed for status';
|
||||||
|
}
|
||||||
|
|
||||||
|
if (!$db->set_prop($dbkey, 'hookScript', $c->param('hookScript'), type => 'service')) {
|
||||||
|
$ret .= 'Perform/save failed for hookScript';
|
||||||
|
}
|
||||||
|
|
||||||
|
if (!$db->set_prop($dbkey, 'hostOverride', $c->param('hostOverride'), type => 'service')) {
|
||||||
|
$ret .= 'Perform/save failed for hostOverride';
|
||||||
|
}
|
||||||
|
|
||||||
|
if (!$db->set_prop($dbkey, 'ACCEPT_TERMS', $c->param('ACCEPT_TERMS'), type => 'service')) {
|
||||||
|
$ret .= 'Perform/save failed for ACCEPT_TERMS';
|
||||||
|
}
|
||||||
|
if (!$db->set_prop($dbkey, 'API', $c->param('API'), type => 'service')) { $ret .= 'Perform/save failed for API'; }
|
||||||
|
|
||||||
|
if (!$db->set_prop($dbkey, 'keysize', $c->param('keysize'), type => 'service')) {
|
||||||
|
$ret .= 'Perform/save failed for keysize';
|
||||||
|
}
|
||||||
|
|
||||||
|
if (!$db->set_prop($dbkey, 'configure', $c->param('configure'), type => 'service')) {
|
||||||
|
$ret .= 'Perform/save failed for configure';
|
||||||
|
}
|
||||||
|
|
||||||
|
if (!$db->set_prop($dbkey, 'email', $c->param('email'), type => 'service')) {
|
||||||
|
$ret .= 'Perform/save failed for email';
|
||||||
|
}
|
||||||
|
if ($ret eq "") { $ret = 'ok'; }
|
||||||
|
return $ret;
|
||||||
|
} ## end sub perform_PARAMS
|
||||||
|
|
||||||
|
sub perform_CHECKALLDOMAINS {
|
||||||
|
my $c = shift;
|
||||||
|
my $prefix_data = shift; #Data hash as parameter
|
||||||
|
my $ret = "";
|
||||||
|
my $db = $cdb; #maybe one of the others
|
||||||
|
my $dbkey = 'ChangeThis';
|
||||||
|
|
||||||
|
if (!TRUE
|
||||||
|
) #copy or perform with value: AllDomainsCheck e.g. $db->set_prop($dbkey,'AllDomainsCheck',$c->param('AllDomainsCheck'),type=>'service'))
|
||||||
|
{
|
||||||
|
$ret .= 'Perform/save failed for AllDomainsCheck';
|
||||||
|
} ## end if (!TRUE)
|
||||||
|
if ($ret eq "") { $ret = 'ok'; }
|
||||||
|
return $ret;
|
||||||
|
} ## end sub perform_CHECKALLDOMAINS
|
||||||
|
|
||||||
|
sub perform_CHECKALLENABLEDDOMAINS {
|
||||||
|
my $c = shift;
|
||||||
|
my $prefix_data = shift; #Data hash as parameter
|
||||||
|
my $ret = "";
|
||||||
|
my $db = $cdb; #maybe one of the others
|
||||||
|
my $dbkey = 'ChangeThis';
|
||||||
|
|
||||||
|
if (!TRUE
|
||||||
|
) #copy or perform with value: EnabledDomainsCheck e.g. $db->set_prop($dbkey,'EnabledDomainsCheck',$c->param('EnabledDomainsCheck'),type=>'service'))
|
||||||
|
{
|
||||||
|
$ret .= 'Perform/save failed for EnabledDomainsCheck';
|
||||||
|
} ## end if (!TRUE)
|
||||||
|
if ($ret eq "") { $ret = 'ok'; }
|
||||||
|
return $ret;
|
||||||
|
} ## end sub perform_CHECKALLENABLEDDOMAINS
|
||||||
|
|
||||||
|
sub perform_CHECKONEDOMAIN {
|
||||||
|
my $c = shift;
|
||||||
|
my $prefix_data = shift; #Data hash as parameter
|
||||||
|
my $ret = "";
|
||||||
|
my $db = $cdb; #maybe one of the others
|
||||||
|
my $dbkey = 'ChangeThis';
|
||||||
|
|
||||||
|
if (!TRUE
|
||||||
|
) #copy or perform with value: OneDomainToCheck e.g. $db->set_prop($dbkey,'OneDomainToCheck',$c->param('OneDomainToCheck'),type=>'service'))
|
||||||
|
{
|
||||||
|
$ret .= 'Perform/save failed for OneDomainToCheck';
|
||||||
|
} ## end if (!TRUE)
|
||||||
|
|
||||||
|
if (!TRUE
|
||||||
|
) #copy or perform with value: OneDomainsCheck e.g. $db->set_prop($dbkey,'OneDomainsCheck',$c->param('OneDomainsCheck'),type=>'service'))
|
||||||
|
{
|
||||||
|
$ret .= 'Perform/save failed for OneDomainsCheck';
|
||||||
|
} ## end if (!TRUE)
|
||||||
|
if ($ret eq "") { $ret = 'ok'; }
|
||||||
|
return $ret;
|
||||||
|
} ## end sub perform_CHECKONEDOMAIN
|
||||||
|
|
||||||
|
sub create_link {
|
||||||
|
|
||||||
|
# WIP
|
||||||
|
my ($c, $route, $panel, $index) = @_;
|
||||||
|
my $link = "$route?trt=$panel&Selected=$index";
|
||||||
|
return $link;
|
||||||
|
} ## end sub create_link
|
||||||
|
|
||||||
|
sub get_my_ip {
|
||||||
my ($self, $item, $prop, $default) = @_;
|
my ($self, $item, $prop, $default) = @_;
|
||||||
my $output = `/usr/sbin/e-smith/getmyip`;
|
my $output = `/usr/sbin/e-smith/getmyip`;
|
||||||
return $output || "IP";
|
return $output || "IP";
|
||||||
}
|
} ## end sub get_my_ip
|
||||||
|
|
||||||
sub update_one_domain
|
sub update_one_domain {
|
||||||
{
|
my ($self, $domain) = @_;
|
||||||
my ($self,$domain) = @_;
|
|
||||||
return "$domain not domain" unless ($ddb->get($domain) || $hdb->get($domain));
|
return "$domain not domain" unless ($ddb->get($domain) || $hdb->get($domain));
|
||||||
($domain) = ($domain =~ /([\w\p{L}.]+)/);
|
($domain) = ($domain =~ /([\w\p{L}.]+)/);
|
||||||
my $output = `/etc/e-smith/events/actions/letsencrypt-setdomains " " $domain `;
|
my $output = `/etc/e-smith/events/actions/letsencrypt-setdomains " " $domain `;
|
||||||
return $output || "-empty-";
|
return $output || "-empty-";
|
||||||
}
|
} ## end sub update_one_domain
|
||||||
|
|
||||||
sub update_all_domains
|
sub update_all_domains {
|
||||||
{
|
my $self = shift;
|
||||||
my $self = shift;
|
|
||||||
my $output = `/etc/e-smith/events/actions/letsencrypt-setdomains "" "" all `;
|
my $output = `/etc/e-smith/events/actions/letsencrypt-setdomains "" "" all `;
|
||||||
return $output || "-empty-";
|
return $output || "-empty-";
|
||||||
}
|
} ## end sub update_all_domains
|
||||||
|
|
||||||
sub update_enabled_domains
|
sub update_enabled_domains {
|
||||||
{
|
my $self = shift;
|
||||||
my $self = shift;
|
|
||||||
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
|
||||||
|
|
||||||
|
|
||||||
1;
|
1;
|
||||||
@ -1,6 +1,6 @@
|
|||||||
package SrvMngr::Controller::Letsencrypt;
|
package SrvMngr::Controller::Letsencrypt;
|
||||||
#
|
#
|
||||||
# Generated by SM2Gen version:0.8 Chameleon version:4.5.4 On Python:3.12.3 at 2024-12-09 17:25:37
|
# Generated by SM2Gen version:0.8 Chameleon version:4.5.4 On Python:3.12.3 at 2024-12-01 15:22:43
|
||||||
#
|
#
|
||||||
#----------------------------------------------------------------------
|
#----------------------------------------------------------------------
|
||||||
# heading : Network
|
# heading : Network
|
||||||
@ -15,25 +15,19 @@ package SrvMngr::Controller::Letsencrypt;
|
|||||||
#
|
#
|
||||||
# Documentation: https://wiki.contribs.org/Letsencrypt
|
# Documentation: https://wiki.contribs.org/Letsencrypt
|
||||||
#----------------------------------------------------------------------
|
#----------------------------------------------------------------------
|
||||||
|
|
||||||
#
|
#
|
||||||
# Scheme of things:
|
# Scheme of things:
|
||||||
#
|
#
|
||||||
# TBA!!
|
# TBA!!
|
||||||
|
|
||||||
use strict;
|
use strict;
|
||||||
use warnings;
|
use warnings;
|
||||||
use Mojo::Base 'Mojolicious::Controller';
|
use Mojo::Base 'Mojolicious::Controller';
|
||||||
|
|
||||||
use constant FALSE => 0;
|
use constant FALSE => 0;
|
||||||
use constant TRUE => 1;
|
use constant TRUE => 1;
|
||||||
|
|
||||||
use Locale::gettext;
|
use Locale::gettext;
|
||||||
use SrvMngr::I18N;
|
use SrvMngr::I18N;
|
||||||
use SrvMngr qw(theme_list init_session);
|
use SrvMngr qw(theme_list init_session);
|
||||||
|
|
||||||
use Data::Dumper;
|
use Data::Dumper;
|
||||||
|
|
||||||
use esmith::util;
|
use esmith::util;
|
||||||
use esmith::util::network;
|
use esmith::util::network;
|
||||||
use esmith::ConfigDB;
|
use esmith::ConfigDB;
|
||||||
@ -41,389 +35,414 @@ use esmith::AccountsDB;
|
|||||||
use esmith::NetworksDB;
|
use esmith::NetworksDB;
|
||||||
use esmith::HostsDB;
|
use esmith::HostsDB;
|
||||||
use esmith::DomainsDB;
|
use esmith::DomainsDB;
|
||||||
|
require
|
||||||
|
'/usr/share/smanager/lib/SrvMngr/Controller/Letsencrypt-Custom.pm'; #The code that is to be added by the developer
|
||||||
|
|
||||||
require '/usr/share/smanager/lib/SrvMngr/Controller/Letsencrypt-Custom.pm'; #The code that is to be added by the developer
|
|
||||||
|
|
||||||
sub main {
|
sub main {
|
||||||
#
|
#
|
||||||
# Initial entry - route is "/<whatever>"
|
# Initial entry - route is "/<whatever>"
|
||||||
#
|
#
|
||||||
#set initial panel
|
#set initial panel
|
||||||
#for initial panel:
|
#for initial panel:
|
||||||
#Specifiy panel to enter
|
#Specifiy panel to enter
|
||||||
#load up _data hash with DB fields
|
#load up _data hash with DB fields
|
||||||
#load up stash with pointer(s) to control fields hash(= get-))
|
#load up stash with pointer(s) to control fields hash(= get-))
|
||||||
#and a pointer to the prefix_data hash
|
#and a pointer to the prefix_data hash
|
||||||
#render initial panel
|
#render initial panel
|
||||||
|
|
||||||
my $c = shift;
|
|
||||||
$c->app->log->info( $c->log_req );
|
|
||||||
|
|
||||||
#The most common ones
|
|
||||||
my $cdb = esmith::ConfigDB->open() || die("Couldn't open config db");
|
|
||||||
my $adb = esmith::AccountsDB->open() || die("Couldn't open Accounts db");
|
|
||||||
my $ndb = esmith::NetworksDB->open() || die("Couldn't open Network db");
|
|
||||||
my $hdb = esmith::HostsDB->open() || die("Couldn't open Hosts db");
|
|
||||||
my $ddb = esmith::DomainsDB->open() || die("Couldn't open Domains db");
|
|
||||||
|
|
||||||
my %lets_data = ();
|
|
||||||
my $title = $c->l('lets_Letsencrypt_certificate');
|
|
||||||
my $modul = '';
|
|
||||||
|
|
||||||
$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
|
|
||||||
my $db = $cdb; #pickup local or global db or Default to config
|
|
||||||
|
|
||||||
|
|
||||||
$c->do_display($lets_data{'trt'});
|
|
||||||
|
|
||||||
}
|
|
||||||
|
|
||||||
# Post request with params - submit from the form
|
|
||||||
sub do_update {
|
|
||||||
#
|
|
||||||
# Return after submit pushed on panel (this is a post) - route is "/<whatever>u"
|
|
||||||
# parameters in the params hash.
|
|
||||||
#
|
|
||||||
#load up all params into prefix_data hash:
|
|
||||||
#By panel (series of if statements - only one executed):
|
|
||||||
#call validate-PANEL() - return ret = ok or error message
|
|
||||||
|
|
||||||
#if validation not ok:
|
|
||||||
#render back to current panel with error message in stash
|
|
||||||
#otherwise:
|
|
||||||
#By panel (series of if statements - only one executed):
|
|
||||||
#do whatever is required: call perform-PANEL() - return "ok" or Error Message
|
|
||||||
#call signal-event for any global actions specified (check it exists - error and continue?)
|
|
||||||
#if action smeserver-<whatever>-update exists
|
|
||||||
#signal_event smeserver-<whatever>-update
|
|
||||||
#call signal-event for any specific actions for thids panel (check it exists first - error and continue)
|
|
||||||
#set success in stash
|
|
||||||
#if no "nextpanel" entry:
|
|
||||||
#set firstpanel
|
|
||||||
#else
|
|
||||||
#set nextpanel
|
|
||||||
#call render
|
|
||||||
|
|
||||||
my $c = shift;
|
my $c = shift;
|
||||||
$c->app->log->info($c->log_req);
|
$c->app->log->info($c->log_req);
|
||||||
my $modul = '';
|
|
||||||
|
|
||||||
#The most common ones - you might want to comment out any not used.
|
|
||||||
my $cdb = esmith::ConfigDB->open() || die("Couldn't open config db");
|
|
||||||
my $adb = esmith::AccountsDB->open() || die("Couldn't open Accounts db");
|
|
||||||
my $ndb = esmith::NetworksDB->open() || die("Couldn't open Network db");
|
|
||||||
my $hdb = esmith::HostsDB->open() || die("Couldn't open Hosts db");
|
|
||||||
my $ddb = esmith::DomainsDB->open() || die("Couldn't open Domains db");
|
|
||||||
|
|
||||||
|
#The most common ones
|
||||||
|
my $cdb = esmith::ConfigDB->open() || die("Couldn't open config db");
|
||||||
|
my $adb = esmith::AccountsDB->open() || die("Couldn't open Accounts db");
|
||||||
|
my $ndb = esmith::NetworksDB->open() || die("Couldn't open Network db");
|
||||||
|
my $hdb = esmith::HostsDB->open() || die("Couldn't open Hosts db");
|
||||||
|
my $ddb = esmith::DomainsDB->open() || die("Couldn't open Domains db");
|
||||||
my %lets_data = ();
|
my %lets_data = ();
|
||||||
my $title = $c->l('lets_Letsencrypt_certificate');
|
my $title = $c->l('lets_Letsencrypt_certificate');
|
||||||
|
my $modul = '';
|
||||||
|
$lets_data{'trt'} = 'LIST';
|
||||||
|
|
||||||
# Accessing all POST parameters
|
#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
|
||||||
|
my $db = $cdb; #pickup local or global db or Default to config
|
||||||
|
$c->do_display($lets_data{'trt'});
|
||||||
|
} ## end sub main
|
||||||
|
|
||||||
|
# Post request with params - submit from the form
|
||||||
|
sub do_update {
|
||||||
|
#
|
||||||
|
# Return after submit pushed on panel (this is a post) - route is "/<whatever>u"
|
||||||
|
# parameters in the params hash.
|
||||||
|
#
|
||||||
|
#load up all params into prefix_data hash:
|
||||||
|
#By panel (series of if statements - only one executed):
|
||||||
|
#call validate-PANEL() - return ret = ok or error message
|
||||||
|
#if validation not ok:
|
||||||
|
#render back to current panel with error message in stash
|
||||||
|
#otherwise:
|
||||||
|
#By panel (series of if statements - only one executed):
|
||||||
|
#do whatever is required: call perform-PANEL() - return "ok" or Error Message
|
||||||
|
#call signal-event for any global actions specified (check it exists - error and continue?)
|
||||||
|
#if action smeserver-<whatever>-update exists
|
||||||
|
#signal_event smeserver-<whatever>-update
|
||||||
|
#call signal-event for any specific actions for thids panel (check it exists first - error and continue)
|
||||||
|
#set success in stash
|
||||||
|
#if no "nextpanel" entry:
|
||||||
|
#set firstpanel
|
||||||
|
#else
|
||||||
|
#set nextpanel
|
||||||
|
#call render
|
||||||
|
my $c = shift;
|
||||||
|
$c->app->log->info($c->log_req);
|
||||||
|
my $modul = '';
|
||||||
|
|
||||||
|
#The most common ones - you might want to comment out any not used.
|
||||||
|
my $cdb = esmith::ConfigDB->open() || die("Couldn't open config db");
|
||||||
|
my $adb = esmith::AccountsDB->open() || die("Couldn't open Accounts db");
|
||||||
|
my $ndb = esmith::NetworksDB->open() || die("Couldn't open Network db");
|
||||||
|
my $hdb = esmith::HostsDB->open() || die("Couldn't open Hosts db");
|
||||||
|
my $ddb = esmith::DomainsDB->open() || die("Couldn't open Domains db");
|
||||||
|
my %lets_data = ();
|
||||||
|
my $title = $c->l('lets_Letsencrypt_certificate');
|
||||||
|
|
||||||
|
# Accessing all POST parameters
|
||||||
my %params = $c->req->params->to_hash;
|
my %params = $c->req->params->to_hash;
|
||||||
|
|
||||||
# Get number of POST parameters
|
# Get number of POST parameters
|
||||||
my $num_params = keys %params;
|
my $num_params = keys %params;
|
||||||
|
|
||||||
#Params are available in the hash "params" - copy to the prefix_data hash
|
#Params are available in the hash "params" - copy to the prefix_data hash
|
||||||
#while (my ($key, $value) = each %{$c->req->params->to_hash}) {
|
#while (my ($key, $value) = each %{$c->req->params->to_hash}) {
|
||||||
# $lets_data{$key} = $value;
|
# $lets_data{$key} = $value;
|
||||||
#}
|
#}
|
||||||
|
# the value of trt will tell you which panel has returned
|
||||||
# the value of trt will tell you which panel has returned
|
my $trt = $c->param('trt') || 'LIST'; #hidden control on every form.
|
||||||
my $trt = $c->param('trt') || 'LIST'; #hidden control on every form.
|
|
||||||
my $ret = 'ok';
|
my $ret = 'ok';
|
||||||
|
|
||||||
#Validate the parameters in a custom sub one for each panel (although only one of these will be executed)
|
#Validate the parameters in a custom sub one for each panel (although only one of these will be executed)
|
||||||
my $thispanel;
|
my $thispanel;
|
||||||
|
|
||||||
if ($trt eq 'LIST'){
|
if ($trt eq 'LIST') {
|
||||||
#Validate form parameters for panel LIST
|
|
||||||
$ret = $c->validate_LIST(\%lets_data);
|
#Validate form parameters for panel LIST
|
||||||
$thispanel = 'LIST';
|
$ret = $c->validate_LIST(\%lets_data);
|
||||||
}
|
$thispanel = 'LIST';
|
||||||
|
} ## end if ($trt eq 'LIST')
|
||||||
if ($trt eq 'PARAMS'){
|
|
||||||
#Validate form parameters for panel PARAMS
|
if ($trt eq 'PARAMS') {
|
||||||
$ret = $c->validate_PARAMS(\%lets_data);
|
|
||||||
$thispanel = 'PARAMS';
|
#Validate form parameters for panel PARAMS
|
||||||
}
|
$ret = $c->validate_PARAMS(\%lets_data);
|
||||||
|
$thispanel = 'PARAMS';
|
||||||
if ($trt eq 'CHECKALLDOMAINS'){
|
} ## end if ($trt eq 'PARAMS')
|
||||||
#Validate form parameters for panel CHECKALLDOMAINS
|
|
||||||
$ret = $c->validate_CHECKALLDOMAINS(\%lets_data);
|
if ($trt eq 'CHECKALLDOMAINS') {
|
||||||
$thispanel = 'CHECKALLDOMAINS';
|
|
||||||
}
|
#Validate form parameters for panel CHECKALLDOMAINS
|
||||||
|
$ret = $c->validate_CHECKALLDOMAINS(\%lets_data);
|
||||||
if ($trt eq 'CHECKALLENABLEDDOMAINS'){
|
$thispanel = 'CHECKALLDOMAINS';
|
||||||
#Validate form parameters for panel CHECKALLENABLEDDOMAINS
|
} ## end if ($trt eq 'CHECKALLDOMAINS')
|
||||||
$ret = $c->validate_CHECKALLENABLEDDOMAINS(\%lets_data);
|
|
||||||
$thispanel = 'CHECKALLENABLEDDOMAINS';
|
if ($trt eq 'CHECKALLENABLEDDOMAINS') {
|
||||||
}
|
|
||||||
|
#Validate form parameters for panel CHECKALLENABLEDDOMAINS
|
||||||
if ($trt eq 'CHECKONEDOMAIN'){
|
$ret = $c->validate_CHECKALLENABLEDDOMAINS(\%lets_data);
|
||||||
#Validate form parameters for panel CHECKONEDOMAIN
|
$thispanel = 'CHECKALLENABLEDDOMAINS';
|
||||||
$ret = $c->validate_CHECKONEDOMAIN(\%lets_data);
|
} ## end if ($trt eq 'CHECKALLENABLEDDOMAINS')
|
||||||
$thispanel = 'CHECKONEDOMAIN';
|
|
||||||
}
|
if ($trt eq 'CHECKONEDOMAIN') {
|
||||||
|
|
||||||
if ($ret ne "ok"){
|
#Validate form parameters for panel CHECKONEDOMAIN
|
||||||
$c->do_display($thispanel);
|
$ret = $c->validate_CHECKONEDOMAIN(\%lets_data);
|
||||||
} else {
|
$thispanel = 'CHECKONEDOMAIN';
|
||||||
#Do whatever is needed, including writing values to the DB
|
} ## end if ($trt eq 'CHECKONEDOMAIN')
|
||||||
|
|
||||||
|
if ($ret ne "ok") {
|
||||||
if ($trt eq 'LIST'){
|
$c->do_display($thispanel);
|
||||||
#do whatever is required ...
|
} else {
|
||||||
$ret = $c->perform_LIST(\%lets_data);
|
|
||||||
if ($ret ne "ok") {
|
#Do whatever is needed, including writing values to the DB
|
||||||
# return to the panel with error message
|
if ($trt eq 'LIST') {
|
||||||
$c->stash(error => $c->l($ret));
|
|
||||||
$c->stash(
|
#do whatever is required ...
|
||||||
title => $title,
|
$ret = $c->perform_LIST(\%lets_data);
|
||||||
modul => $modul,
|
|
||||||
lets_data => \%lets_data
|
if ($ret ne "ok") {
|
||||||
);
|
|
||||||
$c->render(template => "letsencrypt");
|
# return to the panel with error message
|
||||||
} else {
|
$c->stash(error => $c->l($ret));
|
||||||
$c->stash( success => $c->l('lets_LIST_panel_action_was_successful')); #A bit bland - edit it in the lex file
|
$c->stash(
|
||||||
}
|
title => $title,
|
||||||
}
|
modul => $modul,
|
||||||
|
lets_data => \%lets_data
|
||||||
if ($trt eq 'PARAMS'){
|
);
|
||||||
#do whatever is required ...
|
$c->render(template => "letsencrypt");
|
||||||
$ret = $c->perform_PARAMS(\%lets_data);
|
} else {
|
||||||
if ($ret ne "ok") {
|
$c->stash(success => $c->l('lets_LIST_panel_action_was_successful'))
|
||||||
# return to the panel with error message
|
; #A bit bland - edit it in the lex file
|
||||||
$c->stash(error => $c->l($ret));
|
}
|
||||||
$c->stash(
|
} ## end if ($trt eq 'LIST')
|
||||||
title => $title,
|
|
||||||
modul => $modul,
|
if ($trt eq 'PARAMS') {
|
||||||
lets_data => \%lets_data
|
|
||||||
);
|
#do whatever is required ...
|
||||||
$c->render(template => "letsencrypt");
|
$ret = $c->perform_PARAMS(\%lets_data);
|
||||||
} else {
|
|
||||||
$c->stash( success => $c->l('lets_PARAMS_panel_action_was_successful')); #A bit bland - edit it in the lex file
|
if ($ret ne "ok") {
|
||||||
}
|
|
||||||
}
|
# return to the panel with error message
|
||||||
|
$c->stash(error => $c->l($ret));
|
||||||
if ($trt eq 'CHECKALLDOMAINS'){
|
$c->stash(
|
||||||
#do whatever is required ...
|
title => $title,
|
||||||
$ret = $c->perform_CHECKALLDOMAINS(\%lets_data);
|
modul => $modul,
|
||||||
if ($ret ne "ok") {
|
lets_data => \%lets_data
|
||||||
# return to the panel with error message
|
);
|
||||||
$c->stash(error => $c->l($ret));
|
$c->render(template => "letsencrypt");
|
||||||
$c->stash(
|
} else {
|
||||||
title => $title,
|
$c->stash(success => $c->l('lets_PARAMS_panel_action_was_successful'))
|
||||||
modul => $modul,
|
; #A bit bland - edit it in the lex file
|
||||||
lets_data => \%lets_data
|
}
|
||||||
);
|
} ## end if ($trt eq 'PARAMS')
|
||||||
$c->render(template => "letsencrypt");
|
|
||||||
} else {
|
if ($trt eq 'CHECKALLDOMAINS') {
|
||||||
$c->stash( success => $c->l('lets_CHECKALLDOMAINS_panel_action_was_successful')); #A bit bland - edit it in the lex file
|
|
||||||
}
|
#do whatever is required ...
|
||||||
}
|
$ret = $c->perform_CHECKALLDOMAINS(\%lets_data);
|
||||||
|
|
||||||
if ($trt eq 'CHECKALLENABLEDDOMAINS'){
|
if ($ret ne "ok") {
|
||||||
#do whatever is required ...
|
|
||||||
$ret = $c->perform_CHECKALLENABLEDDOMAINS(\%lets_data);
|
# return to the panel with error message
|
||||||
if ($ret ne "ok") {
|
$c->stash(error => $c->l($ret));
|
||||||
# return to the panel with error message
|
$c->stash(
|
||||||
$c->stash(error => $c->l($ret));
|
title => $title,
|
||||||
$c->stash(
|
modul => $modul,
|
||||||
title => $title,
|
lets_data => \%lets_data
|
||||||
modul => $modul,
|
);
|
||||||
lets_data => \%lets_data
|
$c->render(template => "letsencrypt");
|
||||||
);
|
} else {
|
||||||
$c->render(template => "letsencrypt");
|
$c->stash(success => $c->l('lets_CHECKALLDOMAINS_panel_action_was_successful'))
|
||||||
} else {
|
; #A bit bland - edit it in the lex file
|
||||||
$c->stash( success => $c->l('lets_CHECKALLENABLEDDOMAINS_panel_action_was_successful')); #A bit bland - edit it in the lex file
|
}
|
||||||
}
|
} ## end if ($trt eq 'CHECKALLDOMAINS')
|
||||||
}
|
|
||||||
|
if ($trt eq 'CHECKALLENABLEDDOMAINS') {
|
||||||
if ($trt eq 'CHECKONEDOMAIN'){
|
|
||||||
#do whatever is required ...
|
#do whatever is required ...
|
||||||
$ret = $c->perform_CHECKONEDOMAIN(\%lets_data);
|
$ret = $c->perform_CHECKALLENABLEDDOMAINS(\%lets_data);
|
||||||
if ($ret ne "ok") {
|
|
||||||
# return to the panel with error message
|
if ($ret ne "ok") {
|
||||||
$c->stash(error => $c->l($ret));
|
|
||||||
$c->stash(
|
# return to the panel with error message
|
||||||
title => $title,
|
$c->stash(error => $c->l($ret));
|
||||||
modul => $modul,
|
$c->stash(
|
||||||
lets_data => \%lets_data
|
title => $title,
|
||||||
);
|
modul => $modul,
|
||||||
$c->render(template => "letsencrypt");
|
lets_data => \%lets_data
|
||||||
} else {
|
);
|
||||||
$c->stash( success => $c->l('lets_CHECKONEDOMAIN_panel_action_was_successful')); #A bit bland - edit it in the lex file
|
$c->render(template => "letsencrypt");
|
||||||
}
|
} else {
|
||||||
}
|
$c->stash(success => $c->l('lets_CHECKALLENABLEDDOMAINS_panel_action_was_successful'))
|
||||||
|
; #A bit bland - edit it in the lex file
|
||||||
# and call any signal-events needed
|
}
|
||||||
#TBD
|
} ## end if ($trt eq 'CHECKALLENABLEDDOMAINS')
|
||||||
# Setup shared data and call panel
|
|
||||||
if ('none' eq 'none') {
|
if ($trt eq 'CHECKONEDOMAIN') {
|
||||||
$lets_data{'trt'} = 'LIST';
|
|
||||||
} else {
|
#do whatever is required ...
|
||||||
$lets_data{'trt'} = 'none';
|
$ret = $c->perform_CHECKONEDOMAIN(\%lets_data);
|
||||||
}
|
|
||||||
$c->do_display($lets_data{'trt'});
|
if ($ret ne "ok") {
|
||||||
}
|
|
||||||
}
|
# return to the panel with error message
|
||||||
|
$c->stash(error => $c->l($ret));
|
||||||
|
$c->stash(
|
||||||
|
title => $title,
|
||||||
|
modul => $modul,
|
||||||
|
lets_data => \%lets_data
|
||||||
|
);
|
||||||
|
$c->render(template => "letsencrypt");
|
||||||
|
} else {
|
||||||
|
$c->stash(success => $c->l('lets_CHECKONEDOMAIN_panel_action_was_successful'))
|
||||||
|
; #A bit bland - edit it in the lex file
|
||||||
|
}
|
||||||
|
} ## end if ($trt eq 'CHECKONEDOMAIN')
|
||||||
|
|
||||||
|
# and call any signal-events needed
|
||||||
|
#TBD
|
||||||
|
# Setup shared data and call panel
|
||||||
|
if ('none' eq 'none') {
|
||||||
|
$lets_data{'trt'} = 'LIST';
|
||||||
|
} else {
|
||||||
|
$lets_data{'trt'} = 'none';
|
||||||
|
}
|
||||||
|
$c->do_display($lets_data{'trt'});
|
||||||
|
} ## end else [ if ($ret ne "ok") ]
|
||||||
|
} ## end sub do_update
|
||||||
|
|
||||||
sub do_display {
|
sub do_display {
|
||||||
#
|
#
|
||||||
# Return after link clicked in table (this is a get) - route is "/<whatever>d"
|
# Return after link clicked in table (this is a get) - route is "/<whatever>d"
|
||||||
# Expects ?trt=PANEL&selected="TableRowName" plus any other required
|
# Expects ?trt=PANEL&selected="TableRowName" plus any other required
|
||||||
#
|
#
|
||||||
# OR it maybe a post from the main panel to add a new record
|
# OR it maybe a post from the main panel to add a new record
|
||||||
#
|
#
|
||||||
#load up all supplied params into prefix_data hash
|
#load up all supplied params into prefix_data hash
|
||||||
#call get-selected-PANEL() - returns hash of all relevent parameters
|
#call get-selected-PANEL() - returns hash of all relevent parameters
|
||||||
#load up returned hash into prefix_data
|
#load up returned hash into prefix_data
|
||||||
#render - to called panel
|
#render - to called panel
|
||||||
|
my ($c, $trt) = @_;
|
||||||
my ($c,$trt) = @_;
|
|
||||||
$c->app->log->info($c->log_req);
|
$c->app->log->info($c->log_req);
|
||||||
|
|
||||||
#The most common ones - you might want to comment out any not used.
|
#The most common ones - you might want to comment out any not used.
|
||||||
my $cdb = esmith::ConfigDB->open() || die("Couldn't open config db");
|
my $cdb = esmith::ConfigDB->open() || die("Couldn't open config db");
|
||||||
my $adb = esmith::AccountsDB->open() || die("Couldn't open Accounts db");
|
my $adb = esmith::AccountsDB->open() || die("Couldn't open Accounts db");
|
||||||
my $ndb = esmith::NetworksDB->open() || die("Couldn't open Network db");
|
my $ndb = esmith::NetworksDB->open() || die("Couldn't open Network db");
|
||||||
my $hdb = esmith::HostsDB->open() || die("Couldn't open Hosts db");
|
my $hdb = esmith::HostsDB->open() || die("Couldn't open Hosts db");
|
||||||
my $ddb = esmith::DomainsDB->open() || die("Couldn't open Domains db");
|
my $ddb = esmith::DomainsDB->open() || die("Couldn't open Domains db");
|
||||||
|
|
||||||
my %lets_data = ();
|
my %lets_data = ();
|
||||||
my $title = $c->l('lets_Letsencrypt_certificate');
|
my $title = $c->l('lets_Letsencrypt_certificate');
|
||||||
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');
|
||||||
|
|
||||||
#Params are available in the hash "params" - copy to the prefix_data hash
|
#Params are available in the hash "params" - copy to the prefix_data hash
|
||||||
#while (my ($key, $value) = each %{$c->req->params->to_hash}) {
|
#while (my ($key, $value) = each %{$c->req->params->to_hash}) {
|
||||||
# $lets_data{$key} = $value;
|
# $lets_data{$key} = $value;
|
||||||
#}
|
#}
|
||||||
|
# the value of trt will tell you which panel has returned
|
||||||
|
if (!$trt) {
|
||||||
|
$trt = $c->param('trt') || 'LIST'; #Indicates where to go now
|
||||||
|
}
|
||||||
|
|
||||||
# the value of trt will tell you which panel has returned
|
|
||||||
if (! $trt){
|
|
||||||
$trt = $c->param('trt') || 'LIST'; #Indicates where to go now
|
|
||||||
}
|
|
||||||
|
|
||||||
# Now add in the params from the selected row from the table
|
# Now add in the params from the selected row from the table
|
||||||
|
|
||||||
my %selectedrow;
|
my %selectedrow;
|
||||||
|
|
||||||
if ($trt eq 'LIST'){
|
if ($trt eq 'LIST') {
|
||||||
#Validate Get selected row (if applicable) LIST
|
|
||||||
%selectedrow = $c->get_selected_LIST($lets_data{'Selected'},$is_new_record);
|
#Validate Get selected row (if applicable) LIST
|
||||||
}
|
%selectedrow = $c->get_selected_LIST($lets_data{'Selected'}, $is_new_record);
|
||||||
|
} ## end if ($trt eq 'LIST')
|
||||||
if ($trt eq 'PARAMS'){
|
|
||||||
#Validate Get selected row (if applicable) PARAMS
|
if ($trt eq 'PARAMS') {
|
||||||
%selectedrow = $c->get_selected_PARAMS($lets_data{'Selected'},$is_new_record);
|
|
||||||
}
|
#Validate Get selected row (if applicable) PARAMS
|
||||||
|
%selectedrow = $c->get_selected_PARAMS($lets_data{'Selected'}, $is_new_record);
|
||||||
if ($trt eq 'CHECKALLDOMAINS'){
|
} ## end if ($trt eq 'PARAMS')
|
||||||
#Validate Get selected row (if applicable) CHECKALLDOMAINS
|
|
||||||
%selectedrow = $c->get_selected_CHECKALLDOMAINS($lets_data{'Selected'},$is_new_record);
|
if ($trt eq 'CHECKALLDOMAINS') {
|
||||||
}
|
|
||||||
|
#Validate Get selected row (if applicable) CHECKALLDOMAINS
|
||||||
if ($trt eq 'CHECKALLENABLEDDOMAINS'){
|
%selectedrow = $c->get_selected_CHECKALLDOMAINS($lets_data{'Selected'}, $is_new_record);
|
||||||
#Validate Get selected row (if applicable) CHECKALLENABLEDDOMAINS
|
} ## end if ($trt eq 'CHECKALLDOMAINS')
|
||||||
%selectedrow = $c->get_selected_CHECKALLENABLEDDOMAINS($lets_data{'Selected'},$is_new_record);
|
|
||||||
}
|
if ($trt eq 'CHECKALLENABLEDDOMAINS') {
|
||||||
|
|
||||||
if ($trt eq 'CHECKONEDOMAIN'){
|
#Validate Get selected row (if applicable) CHECKALLENABLEDDOMAINS
|
||||||
#Validate Get selected row (if applicable) CHECKONEDOMAIN
|
%selectedrow = $c->get_selected_CHECKALLENABLEDDOMAINS($lets_data{'Selected'}, $is_new_record);
|
||||||
%selectedrow = $c->get_selected_CHECKONEDOMAIN($lets_data{'Selected'},$is_new_record);
|
} ## end if ($trt eq 'CHECKALLENABLEDDOMAINS')
|
||||||
}
|
|
||||||
|
if ($trt eq 'CHECKONEDOMAIN') {
|
||||||
|
|
||||||
#Copy in the selected row params to the prefix_data hash to pass to the panel
|
#Validate Get selected row (if applicable) CHECKONEDOMAIN
|
||||||
while (my ($key, $value) = each %selectedrow){
|
%selectedrow = $c->get_selected_CHECKONEDOMAIN($lets_data{'Selected'}, $is_new_record);
|
||||||
|
} ## end if ($trt eq 'CHECKONEDOMAIN')
|
||||||
|
|
||||||
|
#Copy in the selected row params to the prefix_data hash to pass to the panel
|
||||||
|
while (my ($key, $value) = each %selectedrow) {
|
||||||
$lets_data{$key} = $value;
|
$lets_data{$key} = $value;
|
||||||
}
|
}
|
||||||
# Where to go now
|
|
||||||
$lets_data{'trt'} = $trt;
|
# Where to go now
|
||||||
|
$lets_data{'trt'} = $trt;
|
||||||
# Set up other shared data according to the panel to go to
|
|
||||||
|
# Set up other shared data according to the panel to go to
|
||||||
if ($trt eq 'LIST'){
|
if ($trt eq 'LIST') {
|
||||||
# pickup any other contents needed and load them into hash shared with panel
|
|
||||||
my %returned_hash;
|
# pickup any other contents needed and load them into hash shared with panel
|
||||||
# subroutine returns a hash directly
|
my %returned_hash;
|
||||||
%returned_hash = $c->get_data_for_panel_LIST();
|
|
||||||
# Copy each key-value pair from the returned hash to the prefix data hash
|
# subroutine returns a hash directly
|
||||||
while (my ($key, $value) = each %returned_hash) {
|
%returned_hash = $c->get_data_for_panel_LIST();
|
||||||
$lets_data{$key} = $value;
|
|
||||||
}
|
# 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;
|
||||||
if ($trt eq 'PARAMS'){
|
}
|
||||||
# pickup any other contents needed and load them into hash shared with panel
|
} ## end if ($trt eq 'LIST')
|
||||||
my %returned_hash;
|
|
||||||
# subroutine returns a hash directly
|
if ($trt eq 'PARAMS') {
|
||||||
%returned_hash = $c->get_data_for_panel_PARAMS();
|
|
||||||
# Copy each key-value pair from the returned hash to the prefix data hash
|
# pickup any other contents needed and load them into hash shared with panel
|
||||||
while (my ($key, $value) = each %returned_hash) {
|
my %returned_hash;
|
||||||
$lets_data{$key} = $value;
|
|
||||||
}
|
# subroutine returns a hash directly
|
||||||
}
|
%returned_hash = $c->get_data_for_panel_PARAMS();
|
||||||
|
|
||||||
if ($trt eq 'CHECKALLDOMAINS'){
|
# Copy each key-value pair from the returned hash to the prefix data hash
|
||||||
# pickup any other contents needed and load them into hash shared with panel
|
while (my ($key, $value) = each %returned_hash) {
|
||||||
my %returned_hash;
|
$lets_data{$key} = $value;
|
||||||
# subroutine returns a hash directly
|
}
|
||||||
%returned_hash = $c->get_data_for_panel_CHECKALLDOMAINS();
|
} ## end if ($trt eq 'PARAMS')
|
||||||
# Copy each key-value pair from the returned hash to the prefix data hash
|
|
||||||
while (my ($key, $value) = each %returned_hash) {
|
if ($trt eq 'CHECKALLDOMAINS') {
|
||||||
$lets_data{$key} = $value;
|
|
||||||
}
|
# pickup any other contents needed and load them into hash shared with panel
|
||||||
}
|
my %returned_hash;
|
||||||
|
|
||||||
if ($trt eq 'CHECKALLENABLEDDOMAINS'){
|
# subroutine returns a hash directly
|
||||||
# pickup any other contents needed and load them into hash shared with panel
|
%returned_hash = $c->get_data_for_panel_CHECKALLDOMAINS();
|
||||||
my %returned_hash;
|
|
||||||
# subroutine returns a hash directly
|
# Copy each key-value pair from the returned hash to the prefix data hash
|
||||||
%returned_hash = $c->get_data_for_panel_CHECKALLENABLEDDOMAINS();
|
while (my ($key, $value) = each %returned_hash) {
|
||||||
# Copy each key-value pair from the returned hash to the prefix data hash
|
$lets_data{$key} = $value;
|
||||||
while (my ($key, $value) = each %returned_hash) {
|
}
|
||||||
$lets_data{$key} = $value;
|
} ## end if ($trt eq 'CHECKALLDOMAINS')
|
||||||
}
|
|
||||||
}
|
if ($trt eq 'CHECKALLENABLEDDOMAINS') {
|
||||||
|
|
||||||
if ($trt eq 'CHECKONEDOMAIN'){
|
# pickup any other contents needed and load them into hash shared with panel
|
||||||
# pickup any other contents needed and load them into hash shared with panel
|
my %returned_hash;
|
||||||
my %returned_hash;
|
|
||||||
# subroutine returns a hash directly
|
# subroutine returns a hash directly
|
||||||
%returned_hash = $c->get_data_for_panel_CHECKONEDOMAIN();
|
%returned_hash = $c->get_data_for_panel_CHECKALLENABLEDDOMAINS();
|
||||||
# Copy each key-value pair from the returned hash to the prefix data hash
|
|
||||||
while (my ($key, $value) = each %returned_hash) {
|
# Copy each key-value pair from the returned hash to the prefix data hash
|
||||||
$lets_data{$key} = $value;
|
while (my ($key, $value) = each %returned_hash) {
|
||||||
}
|
$lets_data{$key} = $value;
|
||||||
}
|
}
|
||||||
|
} ## end if ($trt eq 'CHECKALLENABLEDDOMAINS')
|
||||||
|
|
||||||
# and table control fields
|
if ($trt eq 'CHECKONEDOMAIN') {
|
||||||
$c->stash(DomainList=>$c->get_DomainList());
|
|
||||||
|
# pickup any other contents needed and load them into hash shared with panel
|
||||||
|
my %returned_hash;
|
||||||
# Data for panel
|
|
||||||
$c->stash(
|
# subroutine returns a hash directly
|
||||||
title => $title,
|
%returned_hash = $c->get_data_for_panel_CHECKONEDOMAIN();
|
||||||
modul => $modul,
|
|
||||||
lets_data => \%lets_data
|
# Copy each key-value pair from the returned hash to the prefix data hash
|
||||||
);
|
while (my ($key, $value) = each %returned_hash) {
|
||||||
$c->render(template => "letsencrypt");
|
$lets_data{$key} = $value;
|
||||||
}
|
}
|
||||||
|
} ## end if ($trt eq 'CHECKONEDOMAIN')
|
||||||
|
|
||||||
|
# and table control fields
|
||||||
|
$c->stash(DomainList => $c->get_DomainList());
|
||||||
|
|
||||||
|
# Data for panel
|
||||||
|
$c->stash(
|
||||||
|
title => $title,
|
||||||
|
modul => $modul,
|
||||||
|
lets_data => \%lets_data
|
||||||
|
);
|
||||||
|
$c->render(template => "letsencrypt");
|
||||||
|
} ## end sub do_display
|
||||||
1;
|
1;
|
||||||
@ -69,13 +69,12 @@ our $ddb = esmith::DomainsDB->open() || die("Couldn't open Domains db");
|
|||||||
|
|
||||||
# Get singleton data for each panel
|
# Get singleton data for each panel
|
||||||
|
|
||||||
sub get_data_for_panel_STATUS {
|
sub get_data_for_panel_STATUS {
|
||||||
# Return a hash with the fields required which will be loaded into the shared data
|
# Return a hash with the fields required which will be loaded into the shared data
|
||||||
my $c = shift;
|
my $c = shift;
|
||||||
my %ret = (
|
my %ret = (
|
||||||
'Data1'=>'Data for STATUS', #Example
|
|
||||||
# fields from Inputs in STATUS $fields['STATUS']
|
# fields from Inputs in STATUS $fields['STATUS']
|
||||||
'UPSStatus'=>'UPSStatus contents',
|
'UPSStatus'=>get_ups_details()
|
||||||
|
|
||||||
);
|
);
|
||||||
return %ret;
|
return %ret;
|
||||||
@ -85,18 +84,18 @@ our $ddb = esmith::DomainsDB->open() || die("Couldn't open Domains db");
|
|||||||
# Return a hash with the fields required which will be loaded into the shared data
|
# Return a hash with the fields required which will be loaded into the shared data
|
||||||
my $c = shift;
|
my $c = shift;
|
||||||
my %ret = (
|
my %ret = (
|
||||||
'Data1'=>'Data for CONFIG', #Example
|
|
||||||
# fields from Inputs in CONFIG $fields['CONFIG']
|
# fields from Inputs in CONFIG $fields['CONFIG']
|
||||||
'status'=>'status contents',
|
'status'=>$cdb->get_prop('nut', 'status', 'disabled'),
|
||||||
'Nutmode'=>'Nutmode contents',
|
'Nutmode'=>$cdb->get_prop('nut', 'mode', 'standalone'),
|
||||||
'SlaveUPS_Name'=>'SlaveUPS_Name contents',
|
'SlaveUPS_Name'=>$cdb->get_prop('nut', 'SlaveUPS', ''),
|
||||||
'MasterUPS_Name'=>'MasterUPS_Name contents',
|
'MasterUPS_Name'=>$cdb->get_prop('nut', 'MasterUPS', ''),
|
||||||
'UPS_Model'=>'UPS_Model contents',
|
'UPS_Model'=>$cdb->get_prop('nut', 'Model', 'usbhid-ups'),
|
||||||
'UPS_Device'=>'UPS_Device contents',
|
'UPS_Device'=>$cdb->get_prop('nut', 'Device', 'auto'),
|
||||||
'UPS_gen_Type'=>'UPS_gen_Type contents',
|
'UPS_gen_Type'=>$cdb->get_prop('nut', 'Type', ''),
|
||||||
'UPS_gen_Mfr'=>'UPS_gen_Mfr contents',
|
'UPS_gen_Mfr'=>$cdb->get_prop('nut', 'mfr', ''),
|
||||||
'UPS_gen_Model'=>'UPS_gen_Model contents',
|
'UPS_gen_Model'=>$cdb->get_prop('nut', 'mdl', ''),
|
||||||
|
'MasterUPS_Password'=>$cdb->get_prop('nut', 'MasterPass', ''),
|
||||||
|
'SlaveUPS_Password'=>$cdb->get_prop('nut', 'SlavePass', ''),
|
||||||
);
|
);
|
||||||
return %ret;
|
return %ret;
|
||||||
}
|
}
|
||||||
@ -114,7 +113,7 @@ our $ddb = esmith::DomainsDB->open() || die("Couldn't open Domains db");
|
|||||||
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;
|
||||||
}
|
}
|
||||||
|
|
||||||
sub get_selected_CONFIG {
|
sub get_selected_CONFIG {
|
||||||
@ -122,7 +121,7 @@ our $ddb = esmith::DomainsDB->open() || die("Couldn't open Domains db");
|
|||||||
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;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
@ -146,27 +145,28 @@ our $ddb = esmith::DomainsDB->open() || die("Couldn't open Domains db");
|
|||||||
my $c = shift;
|
my $c = shift;
|
||||||
my $prefix_data = shift; #Data hash as parameter
|
my $prefix_data = shift; #Data hash as parameter
|
||||||
my $ret = "";
|
my $ret = "";
|
||||||
|
our $cdb = esmith::ConfigDB->open() || die("Couldn't open config db");
|
||||||
my $db = $cdb; #maybe one of the others
|
my $db = $cdb; #maybe one of the others
|
||||||
my $dbkey = 'ChangeThis';
|
my $dbkey = 'nut';
|
||||||
# To make it write to DB as comment, delete this (regex) string in each if statement "TRUE\) \#copy or perform with value: .* e.g."
|
# To make it write to DB as comment, delete this (regex) string in each if statement "TRUE\) \#copy or perform with value: .* e.g."
|
||||||
|
|
||||||
if (! TRUE) #copy or perform with value: status e.g. $db->set_prop($dbkey,'status',$c->param('status'),type=>'service'))
|
if (!$db->set_prop($dbkey,'status',$c->param('status'),type=>'service'))
|
||||||
{$ret .= 'Perform/save failed for status';}
|
{$ret .= 'Perform/save failed for status';}
|
||||||
if (! TRUE) #copy or perform with value: Nutmode e.g. $db->set_prop($dbkey,'Nutmode',$c->param('Nutmode'),type=>'service'))
|
if (!$db->set_prop($dbkey,'Nutmode',$c->param('Nutmode'),type=>'service'))
|
||||||
{$ret .= 'Perform/save failed for Nutmode';}
|
{$ret .= 'Perform/save failed for Nutmode';}
|
||||||
if (! TRUE) #copy or perform with value: SlaveUPS_Name e.g. $db->set_prop($dbkey,'SlaveUPS_Name',$c->param('SlaveUPS_Name'),type=>'service'))
|
if (!$db->set_prop($dbkey,'SlaveUPS_Name',$c->param('SlaveUPS_Name'),type=>'service'))
|
||||||
{$ret .= 'Perform/save failed for SlaveUPS_Name';}
|
{$ret .= 'Perform/save failed for SlaveUPS_Name';}
|
||||||
if (! TRUE) #copy or perform with value: MasterUPS_Name e.g. $db->set_prop($dbkey,'MasterUPS_Name',$c->param('MasterUPS_Name'),type=>'service'))
|
if (!$db->set_prop($dbkey,'MasterUPS_Name',$c->param('MasterUPS_Name'),type=>'service'))
|
||||||
{$ret .= 'Perform/save failed for MasterUPS_Name';}
|
{$ret .= 'Perform/save failed for MasterUPS_Name';}
|
||||||
if (! TRUE) #copy or perform with value: UPS_Model e.g. $db->set_prop($dbkey,'UPS_Model',$c->param('UPS_Model'),type=>'service'))
|
if (!$db->set_prop($dbkey,'Model',$c->param('UPS_Model'),type=>'service'))
|
||||||
{$ret .= 'Perform/save failed for UPS_Model';}
|
{$ret .= 'Perform/save failed for UPS_Model';}
|
||||||
if (! TRUE) #copy or perform with value: UPS_Device e.g. $db->set_prop($dbkey,'UPS_Device',$c->param('UPS_Device'),type=>'service'))
|
if (!$db->set_prop($dbkey,'Device',$c->param('UPS_Device'),type=>'service'))
|
||||||
{$ret .= 'Perform/save failed for UPS_Device';}
|
{$ret .= 'Perform/save failed for UPS_Device';}
|
||||||
if (! TRUE) #copy or perform with value: UPS_gen_Type e.g. $db->set_prop($dbkey,'UPS_gen_Type',$c->param('UPS_gen_Type'),type=>'service'))
|
if (!$db->set_prop($dbkey,'Type',$c->param('UPS_gen_Type'),type=>'service'))
|
||||||
{$ret .= 'Perform/save failed for UPS_gen_Type';}
|
{$ret .= 'Perform/save failed for UPS_gen_Type';}
|
||||||
if (! TRUE) #copy or perform with value: UPS_gen_Mfr e.g. $db->set_prop($dbkey,'UPS_gen_Mfr',$c->param('UPS_gen_Mfr'),type=>'service'))
|
if (!$db->set_prop($dbkey,'mfr',$c->param('UPS_gen_Mfr'),type=>'service'))
|
||||||
{$ret .= 'Perform/save failed for UPS_gen_Mfr';}
|
{$ret .= 'Perform/save failed for UPS_gen_Mfr';}
|
||||||
if (! TRUE) #copy or perform with value: UPS_gen_Model e.g. $db->set_prop($dbkey,'UPS_gen_Model',$c->param('UPS_gen_Model'),type=>'service'))
|
if (!$db->set_prop($dbkey,'mdl',$c->param('UPS_gen_Model'),type=>'service'))
|
||||||
{$ret .= 'Perform/save failed for UPS_gen_Model';}
|
{$ret .= 'Perform/save failed for UPS_gen_Model';}
|
||||||
if ($ret eq "") {$ret = 'ok';}
|
if ($ret eq "") {$ret = 'ok';}
|
||||||
return $ret;
|
return $ret;
|
||||||
@ -183,7 +183,7 @@ sub create_link{
|
|||||||
sub get_model_options {
|
sub get_model_options {
|
||||||
|
|
||||||
# Execute the RPM command and capture the output
|
# Execute the RPM command and capture the output
|
||||||
my @output = qx{rpm -ql nut | grep /usr/sbin};
|
my @output = qx{rpm -ql nut | grep /usr/sbin/};
|
||||||
|
|
||||||
# Check for errors
|
# Check for errors
|
||||||
if ($? != 0) {
|
if ($? != 0) {
|
||||||
@ -192,10 +192,43 @@ sub get_model_options {
|
|||||||
}
|
}
|
||||||
|
|
||||||
# Remove "/usr/sbin" from the front of each line
|
# Remove "/usr/sbin" from the front of each line
|
||||||
s{^/usr/sbin}{} for @output;
|
s{^/usr/sbin/}{} for @output;
|
||||||
|
|
||||||
# Trim whitespace from each element and return the array
|
# Trim whitespace from each element and return the array
|
||||||
chomp(@output); # Remove newline characters from each line
|
chomp(@output); # Remove newline characters from each line
|
||||||
return ["fred","Art"] #@output; # Return the array of modified output lines
|
return @output; # Return the array of modified output lines
|
||||||
|
}
|
||||||
|
|
||||||
|
sub get_ups_details {
|
||||||
|
my ($ups_system_name) = @_;
|
||||||
|
# Determine the default based on $nut
|
||||||
|
if ( ($cdb->get_prop('nut', 'Master', 'yes')) eq 'yes' ) {
|
||||||
|
$ups_system_name //= $cdb->get_prop('nut', 'MasterUPS', 'UPS\@localhost'); # Master from DB
|
||||||
|
} else {
|
||||||
|
$ups_system_name //= $cdb->get_prop('nut', 'SlaveUPS', 'apc\@192.168.1.99'); # Use Slave UPS if Master is "no"
|
||||||
|
}
|
||||||
|
|
||||||
|
# If ups_system_name is still empty or undefined, use the hardcoded default
|
||||||
|
#$ups_system_name //= "apc\@192.168.1.99"; # Fallback default
|
||||||
|
|
||||||
|
|
||||||
|
# Execute the 'upsc' command
|
||||||
|
my $command = "/usr/bin/upsc $ups_system_name";
|
||||||
|
my $result = qx/$command/;
|
||||||
|
|
||||||
|
# Check for execution errors
|
||||||
|
if ($? != 0) {
|
||||||
|
return "Error executing command: $! ($command)";
|
||||||
|
}
|
||||||
|
|
||||||
|
# Format the output
|
||||||
|
my @lines = split /\n/, $result; # Split the result into lines
|
||||||
|
my $formatted_output = "UPS Details for $ups_system_name:\n";
|
||||||
|
|
||||||
|
foreach my $line (@lines) {
|
||||||
|
$formatted_output .= " - $line\n"; # Format each line
|
||||||
|
}
|
||||||
|
|
||||||
|
return $formatted_output;
|
||||||
}
|
}
|
||||||
1;
|
1;
|
||||||
@ -232,10 +232,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');
|
||||||
|
|||||||
@ -7,7 +7,7 @@
|
|||||||
SelectInput();
|
SelectInput();
|
||||||
};
|
};
|
||||||
</script>
|
</script>
|
||||||
% if ($config->{debug} == 1) {
|
% if (config->{debug} == 1) {
|
||||||
<pre>
|
<pre>
|
||||||
%= dumper $nut_data
|
%= dumper $nut_data
|
||||||
</pre>
|
</pre>
|
||||||
@ -17,6 +17,8 @@
|
|||||||
% param 'trt' => $nut_data->{trt} unless param 'trt';
|
% param 'trt' => $nut_data->{trt} unless param 'trt';
|
||||||
%= hidden_field 'trt' => $nut_data->{trt}
|
%= hidden_field 'trt' => $nut_data->{trt}
|
||||||
%# Inputs etc in here.
|
%# Inputs etc in here.
|
||||||
|
%# my $ServerNameReg = '([A-Za-z0-9._%+-]+)@((?:(?:[A-Za-z0-9-]+\.)+[A-Za-z]{2,}|(?:\d{1,3}\.){3}\d{1,3})|(?:[A-Za-z0-9-]+))';
|
||||||
|
% my $ServerNameReg = '(.*)@(.*)';
|
||||||
|
|
||||||
<h2 class='subh2'><%=l('nut_Manage_Nutups-config_settings:')%></h2>
|
<h2 class='subh2'><%=l('nut_Manage_Nutups-config_settings:')%></h2>
|
||||||
|
|
||||||
@ -45,14 +47,15 @@
|
|||||||
%=l('nut_SlaveUPS_UPSNAME@IP')
|
%=l('nut_SlaveUPS_UPSNAME@IP')
|
||||||
</span><span class=data>
|
</span><span class=data>
|
||||||
% param 'SlaveUPS_Name' => $nut_data->{SlaveUPS_Name} unless param 'SlaveUPS_Name';
|
% param 'SlaveUPS_Name' => $nut_data->{SlaveUPS_Name} unless param 'SlaveUPS_Name';
|
||||||
%= text_field 'SlaveUPS_Name', size => '50', class => 'textinput SlaveUPS_Name' , pattern=>'.*' , placeholder=>'SlaveUPS_Name'
|
%= text_field 'SlaveUPS_Name', size => '50', class => 'textinput SlaveUPS_Name', pattern => "$ServerNameReg", placeholder=>'server@ip', title=>"Expecting UPSname\@IP or hostname"
|
||||||
<br></span></p>
|
<br></span></p>
|
||||||
|
|
||||||
<p><span class='label'>
|
<p><span class='label'>
|
||||||
%=l('nut_SlaveUPS_Password')
|
%=l('nut_SlaveUPS_Password')
|
||||||
</span><span class=data>
|
</span><span class=data>
|
||||||
|
% my $placeholder1 = ($nut_data->{MasterUPS_Password} && $nut_data->{MasterUPS_Password} =~ /\S/) ? "password set" : "password not set";
|
||||||
% param 'SlaveUPS_Password' => $nut_data->{SlaveUPS_Password} unless param 'SlaveUPS_Password';
|
% param 'SlaveUPS_Password' => $nut_data->{SlaveUPS_Password} unless param 'SlaveUPS_Password';
|
||||||
%=password_field 'SlaveUPS_Password', class => 'pass4 sme-password'
|
%=password_field 'SlaveUPS_Password', class => 'pass4 sme-password' , placeholder => $placeholder1
|
||||||
</span></p>
|
</span></p>
|
||||||
|
|
||||||
|
|
||||||
@ -68,14 +71,15 @@
|
|||||||
%=l('nut_MasterUPS_UPSNAME@IP')
|
%=l('nut_MasterUPS_UPSNAME@IP')
|
||||||
</span><span class=data>
|
</span><span class=data>
|
||||||
% param 'MasterUPS_Name' => $nut_data->{MasterUPS_Name} unless param 'MasterUPS_Name';
|
% param 'MasterUPS_Name' => $nut_data->{MasterUPS_Name} unless param 'MasterUPS_Name';
|
||||||
%= text_field 'MasterUPS_Name', size => '50', class => 'textinput MasterUPS_Name' , pattern=>'.*' , placeholder=>'MasterUPS_Name'
|
%= text_field 'MasterUPS_Name', size => '50', class => 'textinput MasterUPS_Name' , pattern=>$ServerNameReg , placeholder=>'server@ip', title=>"Expecting UPSname\@IP or hostname"
|
||||||
<br></span></p>
|
<br></span></p>
|
||||||
|
|
||||||
<p><span class='label'>
|
<p><span class='label'>
|
||||||
%=l('nut_MasterUPS_Password')
|
%=l('nut_MasterUPS_Password')
|
||||||
</span><span class=data>
|
</span><span class=data>
|
||||||
|
% my $placeholder2 = ($nut_data->{MasterUPS_Password} && $nut_data->{MasterUPS_Password} =~ /\S/) ? "password set" : "password not set";
|
||||||
% param 'MasterUPS_Password' => $nut_data->{MasterUPS_Password} unless param 'MasterUPS_Password';
|
% param 'MasterUPS_Password' => $nut_data->{MasterUPS_Password} unless param 'MasterUPS_Password';
|
||||||
%=password_field 'MasterUPS_Password', class => 'pass6 sme-password'
|
%=password_field 'MasterUPS_Password', class => 'pass6 sme-password', placeholder => $placeholder2
|
||||||
</span></p>
|
</span></p>
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
@ -125,11 +125,11 @@ sub do_update {
|
|||||||
my %${prefix}_data = ();
|
my %${prefix}_data = ();
|
||||||
my $title = $c->l('${prefix}_${MenuDescription}');
|
my $title = $c->l('${prefix}_${MenuDescription}');
|
||||||
|
|
||||||
# Accessing all POST parameters
|
# Accessing all POST/GET parameters
|
||||||
my %params = $c->req->params->to_hash;
|
my $params = $c->req->params->to_hash;
|
||||||
|
|
||||||
# Get number of POST parameters
|
# Get number of POST parameters
|
||||||
my $num_params = keys %params;
|
my $num_params = keys scaler %$params;
|
||||||
|
|
||||||
#Params are available in the hash "params" - copy to the prefix_data hash
|
#Params are available in the hash "params" - copy to the prefix_data hash
|
||||||
#while (my ($key, $value) = each %{$c->req->params->to_hash}) {
|
#while (my ($key, $value) = each %{$c->req->params->to_hash}) {
|
||||||
|
|||||||
@ -103,7 +103,7 @@ sub get_${tablecontrol[0]} {
|
|||||||
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;
|
||||||
}
|
}
|
||||||
</tal:block>
|
</tal:block>
|
||||||
|
|
||||||
|
|||||||
@ -32,6 +32,7 @@
|
|||||||
%= $c->l($c->stash('success'));
|
%= $c->l($c->stash('success'));
|
||||||
</p>
|
</p>
|
||||||
</div>
|
</div>
|
||||||
|
<br />
|
||||||
|
|
||||||
%} elsif ($c->stash('error')) {
|
%} elsif ($c->stash('error')) {
|
||||||
<div class='sme-error'>
|
<div class='sme-error'>
|
||||||
@ -39,6 +40,7 @@
|
|||||||
%= $c->l($c->stash('error'));
|
%= $c->l($c->stash('error'));
|
||||||
</p>
|
</p>
|
||||||
</div>
|
</div>
|
||||||
|
<br />
|
||||||
%}
|
%}
|
||||||
|
|
||||||
%#Routing to partials according to trt parameter.
|
%#Routing to partials according to trt parameter.
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user