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

Add space in status messages

Browse Source
This commit is contained in:
Brian Read 2025-03-01 10:52:42 +00:00
parent 865a945233
commit a5205ea14c
8 changed files with 928 additions and 776 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

830
Targets/Letsencrypt/Letsencrypt-Custom.pm
View File

@ -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') if (!TRUE) #validate $c->param('ExternalIP')
{$ret .= 'Validation for InternalIP failed';} {
if (! TRUE) #validate $c->param('ExternalIP') $ret .= 'Validation for ExternalIP failed';
{$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('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('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('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('AllDomainsCheck') if (!TRUE) #validate $c->param('Expiry')
{$ret .= 'Validation for AllDomainsCheck failed';} {
if ($ret eq "") {$ret = 'ok';} $ret .= 'Validation for Expiry failed';
return $ret; }
}
sub validate_CHECKALLENABLEDDOMAINS { if (!TRUE) #validate $c->param('NotBefore')
my $c = shift; {
my $prefix_data = shift; #Data hash as parameter $ret .= 'Validation for NotBefore failed';
# Validation for each field }
my $ret = ""; if ($ret eq "") { $ret = 'ok'; }
return $ret;
} ## end sub validate_LIST
if (! TRUE) #validate $c->param('EnabledDomainsCheck') sub validate_PARAMS {
{$ret .= 'Validation for EnabledDomainsCheck failed';} my $c = shift;
if ($ret eq "") {$ret = 'ok';} my $prefix_data = shift; #Data hash as parameter
return $ret; # Validation for each field
} my $ret = "";
sub validate_CHECKONEDOMAIN { if (!TRUE) #validate $c->param('status')
my $c = shift; {
my $prefix_data = shift; #Data hash as parameter $ret .= 'Validation for status failed';
# Validation for each field }
my $ret = "";
if (! TRUE) #validate $c->param('OneDomainToCheck') if (!TRUE) #validate $c->param('hookScript')
{$ret .= 'Validation for OneDomainToCheck failed';} {
if (! TRUE) #validate $c->param('OneDomainsCheck') $ret .= 'Validation for hookScript failed';
{$ret .= 'Validation for OneDomainsCheck failed';} }
if ($ret eq "") {$ret = 'ok';}
return $ret;
}
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', ''),
'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_CHECKALLDOMAINS {
return %ret;
}
sub get_data_for_panel_CHECKALLENABLEDDOMAINS { # 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 CHECKALLENABLEDDOMAINS', #Example # fields from Inputs in CHECKALLDOMAINS $fields['CHECKALLDOMAINS']
# fields from Inputs in CHECKALLENABLEDDOMAINS $fields['CHECKALLENABLEDDOMAINS'] 'AllDomainsCheck' => $c->update_all_domains(),
'EnabledDomainsCheck'=>$c->update_enabled_domains(), );
return %ret;
} ## end sub get_data_for_panel_CHECKALLDOMAINS
); sub get_data_for_panel_CHECKALLENABLEDDOMAINS {
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 CHECKALLENABLEDDOMAINS', #Example
'Data1'=>'Data for CHECKONEDOMAIN', #Example # fields from Inputs in CHECKALLENABLEDDOMAINS $fields['CHECKALLENABLEDDOMAINS']
# fields from Inputs in CHECKONEDOMAIN $fields['CHECKONEDOMAIN'] 'EnabledDomainsCheck' => $c->update_enabled_domains(),
'OneDomainToCheck'=>$c->param("CHECKONEDOMAIN"), );
'OneDomainsCheck'=>$c->update_one_domain($c->param("CHECKONEDOMAIN")) return %ret;
); } ## end sub get_data_for_panel_CHECKALLENABLEDDOMAINS
return %ret;
}
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')) if (!TRUE
{$ret .= 'Perform/save failed for InternalIP';} ) #copy or perform with value: ExternalIP e.g. $db->set_prop($dbkey,'ExternalIP',$c->param('ExternalIP'),type=>'service'))
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';} $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')) } ## end if (!TRUE)
{$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: 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 = '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')) if (!TRUE
{$ret .= 'Perform/save failed for status';} ) #copy or perform with value: Issuer e.g. $db->set_prop($dbkey,'Issuer',$c->param('Issuer'),type=>'service'))
if (! $db->set_prop($dbkey,'hookScript',$c->param('hookScript'),type=>'service')) {
{$ret .= 'Perform/save failed for hookScript';} $ret .= 'Perform/save failed for Issuer';
if (! $db->set_prop($dbkey,'hostOverride',$c->param('hostOverride'),type=>'service')) } ## end if (!TRUE)
{$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 { if (!TRUE
my $c = shift; ) #copy or perform with value: Expiry e.g. $db->set_prop($dbkey,'Expiry',$c->param('Expiry'),type=>'service'))
my $prefix_data = shift; #Data hash as parameter {
my $ret = ""; $ret .= 'Perform/save failed for Expiry';
my $db = $cdb; #maybe one of the others } ## end if (!TRUE)
my $dbkey = 'ChangeThis';
if (! TRUE) #copy or perform with value: AllDomainsCheck e.g. $db->set_prop($dbkey,'AllDomainsCheck',$c->param('AllDomainsCheck'),type=>'service')) if (!TRUE
{$ret .= 'Perform/save failed for AllDomainsCheck';} ) #copy or perform with value: NotBefore e.g. $db->set_prop($dbkey,'NotBefore',$c->param('NotBefore'),type=>'service'))
if ($ret eq "") {$ret = 'ok';} {
return $ret; $ret .= 'Perform/save failed for NotBefore';
} } ## end if (!TRUE)
if ($ret eq "") { $ret = 'ok'; }
return $ret;
} ## end sub perform_LIST
sub perform_CHECKALLENABLEDDOMAINS { sub perform_PARAMS {
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 = "";
my $db = $cdb; #maybe one of the others my $db = $cdb; #maybe one of the others
my $dbkey = 'ChangeThis'; my $dbkey = 'letsencrypt';
if (! TRUE) #copy or perform with value: EnabledDomainsCheck e.g. $db->set_prop($dbkey,'EnabledDomainsCheck',$c->param('EnabledDomainsCheck'),type=>'service')) # To make it write to DB as comment, delete this (regex) string in each if statement "TRUE\) \#copy or perform with value: .* e.g."
{$ret .= 'Perform/save failed for EnabledDomainsCheck';} if (!$db->set_prop($dbkey, 'status', $c->param('status'), type => 'service')) {
if ($ret eq "") {$ret = 'ok';} $ret .= 'Perform/save failed for status';
return $ret; }
}
sub perform_CHECKONEDOMAIN { if (!$db->set_prop($dbkey, 'hookScript', $c->param('hookScript'), type => 'service')) {
my $c = shift; $ret .= 'Perform/save failed for hookScript';
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')) if (!$db->set_prop($dbkey, 'hostOverride', $c->param('hostOverride'), type => 'service')) {
{$ret .= 'Perform/save failed for OneDomainToCheck';} $ret .= 'Perform/save failed for hostOverride';
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 (!$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'; }
sub create_link{ if (!$db->set_prop($dbkey, 'keysize', $c->param('keysize'), type => 'service')) {
# WIP $ret .= 'Perform/save failed for keysize';
my ($c,$route, $panel, $index) = @_; }
my $link = "$route?trt=$panel&Selected=$index";
return $link;
}
sub get_my_ip 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;

637
Targets/Letsencrypt/Letsencrypt.pm
View File

@ -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,89 +35,78 @@ 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; my $c = shift;
$c->app->log->info( $c->log_req ); $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");
#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 = ''; my $modul = '';
$lets_data{'trt'} = 'LIST'; $lets_data{'trt'} = 'LIST';
#Load any DB entries into the <prefix>_data area so as they are preset in the form #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 # 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 my $db = $cdb; #pickup local or global db or Default to config
$c->do_display($lets_data{'trt'});
} ## end sub main
$c->do_display($lets_data{'trt'});
}
# Post request with params - submit from the form # Post request with params - submit from the form
sub do_update { sub do_update {
# #
# Return after submit pushed on panel (this is a post) - route is "/<whatever>u" # Return after submit pushed on panel (this is a post) - route is "/<whatever>u"
# parameters in the params hash. # parameters in the params hash.
# #
#load up all params into prefix_data hash: #load up all params into prefix_data hash:
#By panel (series of if statements - only one executed): #By panel (series of if statements - only one executed):
#call validate-PANEL() - return ret = ok or error message #call validate-PANEL() - return ret = ok or error message
#if validation not ok:
#if validation not ok: #render back to current panel with error message in stash
#render back to current panel with error message in stash #otherwise:
#otherwise: #By panel (series of if statements - only one executed):
#By panel (series of if statements - only one executed): #do whatever is required: call perform-PANEL() - return "ok" or Error Message
#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?)
#call signal-event for any global actions specified (check it exists - error and continue?) #if action smeserver-<whatever>-update exists
#if action smeserver-<whatever>-update exists #signal_event smeserver-<whatever>-update
#signal_event smeserver-<whatever>-update #call signal-event for any specific actions for thids panel (check it exists first - error and continue)
#call signal-event for any specific actions for thids panel (check it exists first - error and continue) #set success in stash
#set success in stash #if no "nextpanel" entry:
#if no "nextpanel" entry: #set firstpanel
#set firstpanel #else
#else #set nextpanel
#set nextpanel #call render
#call render
my $c = shift; my $c = shift;
$c->app->log->info($c->log_req); $c->app->log->info($c->log_req);
my $modul = ''; 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 - 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 %lets_data = ();
my $title = $c->l('lets_Letsencrypt_certificate'); my $title = $c->l('lets_Letsencrypt_certificate');
# Accessing all POST parameters # 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
@ -133,178 +116,199 @@ sub do_update {
#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);
$thispanel = 'LIST';
}
if ($trt eq 'PARAMS'){ #Validate form parameters for panel LIST
#Validate form parameters for panel PARAMS $ret = $c->validate_LIST(\%lets_data);
$ret = $c->validate_PARAMS(\%lets_data); $thispanel = 'LIST';
$thispanel = 'PARAMS'; } ## end if ($trt eq 'LIST')
}
if ($trt eq 'CHECKALLDOMAINS'){ if ($trt eq 'PARAMS') {
#Validate form parameters for panel CHECKALLDOMAINS
$ret = $c->validate_CHECKALLDOMAINS(\%lets_data);
$thispanel = 'CHECKALLDOMAINS';
}
if ($trt eq 'CHECKALLENABLEDDOMAINS'){ #Validate form parameters for panel PARAMS
#Validate form parameters for panel CHECKALLENABLEDDOMAINS $ret = $c->validate_PARAMS(\%lets_data);
$ret = $c->validate_CHECKALLENABLEDDOMAINS(\%lets_data); $thispanel = 'PARAMS';
$thispanel = 'CHECKALLENABLEDDOMAINS'; } ## end if ($trt eq 'PARAMS')
}
if ($trt eq 'CHECKONEDOMAIN'){ if ($trt eq 'CHECKALLDOMAINS') {
#Validate form parameters for panel CHECKONEDOMAIN
$ret = $c->validate_CHECKONEDOMAIN(\%lets_data);
$thispanel = 'CHECKONEDOMAIN';
}
if ($ret ne "ok"){ #Validate form parameters for panel CHECKALLDOMAINS
$c->do_display($thispanel); $ret = $c->validate_CHECKALLDOMAINS(\%lets_data);
} else { $thispanel = 'CHECKALLDOMAINS';
#Do whatever is needed, including writing values to the DB } ## end if ($trt eq 'CHECKALLDOMAINS')
if ($trt eq 'CHECKALLENABLEDDOMAINS') {
if ($trt eq 'LIST'){ #Validate form parameters for panel CHECKALLENABLEDDOMAINS
#do whatever is required ... $ret = $c->validate_CHECKALLENABLEDDOMAINS(\%lets_data);
$ret = $c->perform_LIST(\%lets_data); $thispanel = 'CHECKALLENABLEDDOMAINS';
if ($ret ne "ok") { } ## end if ($trt eq 'CHECKALLENABLEDDOMAINS')
# 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_LIST_panel_action_was_successful')); #A bit bland - edit it in the lex file
}
}
if ($trt eq 'PARAMS'){ if ($trt eq 'CHECKONEDOMAIN') {
#do whatever is required ...
$ret = $c->perform_PARAMS(\%lets_data);
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_PARAMS_panel_action_was_successful')); #A bit bland - edit it in the lex file
}
}
if ($trt eq 'CHECKALLDOMAINS'){ #Validate form parameters for panel CHECKONEDOMAIN
#do whatever is required ... $ret = $c->validate_CHECKONEDOMAIN(\%lets_data);
$ret = $c->perform_CHECKALLDOMAINS(\%lets_data); $thispanel = 'CHECKONEDOMAIN';
if ($ret ne "ok") { } ## end if ($trt eq 'CHECKONEDOMAIN')
# 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_CHECKALLDOMAINS_panel_action_was_successful')); #A bit bland - edit it in the lex file
}
}
if ($trt eq 'CHECKALLENABLEDDOMAINS'){ if ($ret ne "ok") {
#do whatever is required ... $c->do_display($thispanel);
$ret = $c->perform_CHECKALLENABLEDDOMAINS(\%lets_data); } else {
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_CHECKALLENABLEDDOMAINS_panel_action_was_successful')); #A bit bland - edit it in the lex file
}
}
if ($trt eq 'CHECKONEDOMAIN'){ #Do whatever is needed, including writing values to the DB
#do whatever is required ... if ($trt eq 'LIST') {
$ret = $c->perform_CHECKONEDOMAIN(\%lets_data);
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
}
}
# and call any signal-events needed #do whatever is required ...
#TBD $ret = $c->perform_LIST(\%lets_data);
# Setup shared data and call panel
if ('none' eq 'none') { if ($ret ne "ok") {
$lets_data{'trt'} = 'LIST';
} else { # return to the panel with error message
$lets_data{'trt'} = 'none'; $c->stash(error => $c->l($ret));
} $c->stash(
$c->do_display($lets_data{'trt'}); title => $title,
} modul => $modul,
} lets_data => \%lets_data
);
$c->render(template => "letsencrypt");
} else {
$c->stash(success => $c->l('lets_LIST_panel_action_was_successful'))
; #A bit bland - edit it in the lex file
}
} ## end if ($trt eq 'LIST')
if ($trt eq 'PARAMS') {
#do whatever is required ...
$ret = $c->perform_PARAMS(\%lets_data);
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_PARAMS_panel_action_was_successful'))
; #A bit bland - edit it in the lex file
}
} ## end if ($trt eq 'PARAMS')
if ($trt eq 'CHECKALLDOMAINS') {
#do whatever is required ...
$ret = $c->perform_CHECKALLDOMAINS(\%lets_data);
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_CHECKALLDOMAINS_panel_action_was_successful'))
; #A bit bland - edit it in the lex file
}
} ## end if ($trt eq 'CHECKALLDOMAINS')
if ($trt eq 'CHECKALLENABLEDDOMAINS') {
#do whatever is required ...
$ret = $c->perform_CHECKALLENABLEDDOMAINS(\%lets_data);
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_CHECKALLENABLEDDOMAINS_panel_action_was_successful'))
; #A bit bland - edit it in the lex file
}
} ## end if ($trt eq 'CHECKALLENABLEDDOMAINS')
if ($trt eq 'CHECKONEDOMAIN') {
#do whatever is required ...
$ret = $c->perform_CHECKONEDOMAIN(\%lets_data);
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');
@ -313,117 +317,132 @@ sub do_display {
#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
if (! $trt){ if (!$trt) {
$trt = $c->param('trt') || 'LIST'; #Indicates where to go now $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);
}
if ($trt eq 'PARAMS'){ #Validate Get selected row (if applicable) LIST
#Validate Get selected row (if applicable) PARAMS %selectedrow = $c->get_selected_LIST($lets_data{'Selected'}, $is_new_record);
%selectedrow = $c->get_selected_PARAMS($lets_data{'Selected'},$is_new_record); } ## end if ($trt eq 'LIST')
}
if ($trt eq 'CHECKALLDOMAINS'){ 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 'CHECKALLENABLEDDOMAINS'){ #Validate Get selected row (if applicable) PARAMS
#Validate Get selected row (if applicable) CHECKALLENABLEDDOMAINS %selectedrow = $c->get_selected_PARAMS($lets_data{'Selected'}, $is_new_record);
%selectedrow = $c->get_selected_CHECKALLENABLEDDOMAINS($lets_data{'Selected'},$is_new_record); } ## end if ($trt eq 'PARAMS')
}
if ($trt eq 'CHECKONEDOMAIN'){ if ($trt eq 'CHECKALLDOMAINS') {
#Validate Get selected row (if applicable) CHECKONEDOMAIN
%selectedrow = $c->get_selected_CHECKONEDOMAIN($lets_data{'Selected'},$is_new_record);
}
#Validate Get selected row (if applicable) CHECKALLDOMAINS
%selectedrow = $c->get_selected_CHECKALLDOMAINS($lets_data{'Selected'}, $is_new_record);
} ## end if ($trt eq 'CHECKALLDOMAINS')
#Copy in the selected row params to the prefix_data hash to pass to the panel if ($trt eq 'CHECKALLENABLEDDOMAINS') {
while (my ($key, $value) = each %selectedrow){
#Validate Get selected row (if applicable) CHECKALLENABLEDDOMAINS
%selectedrow = $c->get_selected_CHECKALLENABLEDDOMAINS($lets_data{'Selected'}, $is_new_record);
} ## end if ($trt eq 'CHECKALLENABLEDDOMAINS')
if ($trt eq 'CHECKONEDOMAIN') {
#Validate Get selected row (if applicable) CHECKONEDOMAIN
%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;
# Set up other shared data according to the panel to go to # Where to go now
$lets_data{'trt'} = $trt;
if ($trt eq 'LIST'){ # Set up other shared data according to the panel to go to
# pickup any other contents needed and load them into hash shared with panel if ($trt eq 'LIST') {
my %returned_hash;
# subroutine returns a hash directly
%returned_hash = $c->get_data_for_panel_LIST();
# Copy each key-value pair from the returned hash to the prefix data hash
while (my ($key, $value) = each %returned_hash) {
$lets_data{$key} = $value;
}
}
if ($trt eq 'PARAMS'){ # 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
%returned_hash = $c->get_data_for_panel_PARAMS();
# 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 'CHECKALLDOMAINS'){ # 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_LIST();
my %returned_hash;
# subroutine returns a hash directly
%returned_hash = $c->get_data_for_panel_CHECKALLDOMAINS();
# 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 'CHECKALLENABLEDDOMAINS'){ # 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_CHECKALLENABLEDDOMAINS(); } ## end if ($trt eq 'LIST')
# Copy each key-value pair from the returned hash to the prefix data hash
while (my ($key, $value) = each %returned_hash) {
$lets_data{$key} = $value;
}
}
if ($trt eq 'CHECKONEDOMAIN'){ if ($trt eq 'PARAMS') {
# pickup any other contents needed and load them into hash shared with panel
my %returned_hash;
# subroutine returns a hash directly
%returned_hash = $c->get_data_for_panel_CHECKONEDOMAIN();
# 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;
}
}
# pickup any other contents needed and load them into hash shared with panel
my %returned_hash;
# and table control fields # subroutine returns a hash directly
$c->stash(DomainList=>$c->get_DomainList()); %returned_hash = $c->get_data_for_panel_PARAMS();
# 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;
}
} ## end if ($trt eq 'PARAMS')
# Data for panel if ($trt eq 'CHECKALLDOMAINS') {
$c->stash(
title => $title, # pickup any other contents needed and load them into hash shared with panel
modul => $modul, my %returned_hash;
lets_data => \%lets_data
); # subroutine returns a hash directly
$c->render(template => "letsencrypt"); %returned_hash = $c->get_data_for_panel_CHECKALLDOMAINS();
}
# 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;
}
} ## end if ($trt eq 'CHECKALLDOMAINS')
if ($trt eq 'CHECKALLENABLEDDOMAINS') {
# pickup any other contents needed and load them into hash shared with panel
my %returned_hash;
# subroutine returns a hash directly
%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) {
$lets_data{$key} = $value;
}
} ## end if ($trt eq 'CHECKALLENABLEDDOMAINS')
if ($trt eq 'CHECKONEDOMAIN') {
# pickup any other contents needed and load them into hash shared with panel
my %returned_hash;
# subroutine returns a hash directly
%returned_hash = $c->get_data_for_panel_CHECKONEDOMAIN();
# 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;
}
} ## 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;

89
Targets/Nutups/Nutups-Custom.pm
View File

@ -73,9 +73,8 @@ 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 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;

4
Targets/Nutups/Nutups.pm
View File

@ -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');

14
Targets/Nutups/_nut_CONFIG.html.ep
View File

@ -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>

6
Templates/controller.pm.tem
View File

@ -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}) {

2
Templates/custom.pm.tem
View File

@ -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>

2
Templates/layout.html.ep.tem
View File

@ -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.