Jean-Philippe Pialasse
a768594f0f
- update config for Nut 2.8.2 [SME: 12657] TODO review master/slave mode TODO convert master/slave to primary/secondary TODO convert to new config data + migrate TODO event and action
298 lines
9.8 KiB
Perl
298 lines
9.8 KiB
Perl
#
|
|
# Generated by SM2Gen version:0.9(20Jan2025) Chameleon version:4.5.4 On Python:3.12.3 at 2025-01-20 16:21:33
|
|
#
|
|
#
|
|
# Routines to be edited by the developer to provide content and validation for parameters
|
|
# and provison of the control data for table(s)
|
|
#
|
|
use esmith::util;
|
|
use esmith::util::network;
|
|
use esmith::ConfigDB;
|
|
use esmith::HostsDB;
|
|
use esmith::AccountsDB;
|
|
use esmith::NetworksDB;
|
|
use esmith::DomainsDB;
|
|
|
|
use constant FALSE => 0;
|
|
use constant TRUE => 1;
|
|
|
|
|
|
#The most common ones
|
|
my $cdb = esmith::ConfigDB->open() || die("Couldn't open config db");
|
|
#our $adb = esmith::AccountsDB->open() || die("Couldn't open Accounts db");
|
|
#our $ndb = esmith::NetworksDB->open() || die("Couldn't open Network db");
|
|
#our $hdb = esmith::HostsDB->open() || die("Couldn't open Hosts db");
|
|
#our $ddb = esmith::DomainsDB->open() || die("Couldn't open Domains db");
|
|
|
|
# Validation routines - parameters for each panel
|
|
|
|
sub validate_STATUS {
|
|
my $c = shift;
|
|
my $prefix_data = shift; #Data hash as parameter
|
|
# Validation for each field
|
|
my $ret = "";
|
|
|
|
if (! TRUE) #validate $c->param('UPSStatus')
|
|
{$ret .= 'Validation for UPSStatus failed';}
|
|
if ($ret eq "") {$ret = 'ok';}
|
|
return $ret;
|
|
}
|
|
|
|
sub validate_CONFIG {
|
|
#return "ok";
|
|
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('Nutmode')
|
|
{$ret .= 'Validation for Nutmode failed';}
|
|
#do we want the Slave validated ? we should just display read only
|
|
if (! TRUE) #validate $c->param('SlaveUPS_Name')
|
|
{$ret .= 'Validation for SlaveUPS_Name failed';}
|
|
if (! TRUE) #validate $c->param('ClientUPS_Name')
|
|
{$ret .= 'Validation for ClientUPS_Name failed';}
|
|
if (! TRUE) #validate $c->param('MasterUPS_Name')
|
|
{$ret .= 'Validation for MasterUPS_Name failed';}
|
|
if (! TRUE) #validate $c->param('UPS_Model')
|
|
{$ret .= 'Validation for UPS_Model failed';}
|
|
if (! TRUE) #validate $c->param('UPS_Device')
|
|
{$ret .= 'Validation for UPS_Device failed';}
|
|
if (! TRUE) #validate $c->param('UPS_gen_Type')
|
|
{$ret .= 'Validation for UPS_gen_Type failed';}
|
|
if (! TRUE) #validate $c->param('UPS_gen_Mfr')
|
|
{$ret .= 'Validation for UPS_gen_Mfr failed';}
|
|
if (! TRUE) #validate $c->param('UPS_gen_Model')
|
|
{$ret .= 'Validation for UPS_gen_Model failed';}
|
|
if ($ret eq "") {$ret = 'ok';}
|
|
return $ret;
|
|
}
|
|
|
|
|
|
# Get singleton data for each panel
|
|
|
|
sub get_data_for_panel_STATUS {
|
|
# Return a hash with the fields required which will be loaded into the shared data
|
|
my $c = shift;
|
|
my %ret = (
|
|
#'Data1'=>'Data for STATUS', #Example
|
|
# fields from Inputs in STATUS $fields['STATUS']
|
|
'UPSStatus'=>$c->get_ups_status(),
|
|
'ups_data' => $c->get_ups_status_as_hash()
|
|
);
|
|
return %ret;
|
|
}
|
|
|
|
sub get_data_for_panel_CONFIG {
|
|
# Return a hash with the fields required which will be loaded into the shared data
|
|
my $c = shift;
|
|
$cdb = esmith::ConfigDB->open() || die("Couldn't open config db");
|
|
my %ret = (
|
|
'Data1'=>'Data for CONFIG', #Example
|
|
'localip'=>$cdb->get_value('LocalIP'),
|
|
# fields from Inputs in CONFIG $fields['CONFIG']
|
|
'status'=>$cdb->get_prop('nut', 'status', 'disabled'),
|
|
'Nutmode'=>$cdb->get_prop('nut', 'mode', 'standalone'),
|
|
#'SlaveUPS_Name'=>$cdb->get_prop('nut', 'SlaveUPS'),
|
|
'ClientUPS_Name'=>$cdb->get_prop('nut', 'ClientUPS'),
|
|
'ClientUPS_User'=>$cdb->get_prop('nut', 'ClientUser'),
|
|
'ClientUPS_Pass'=>$cdb->get_prop('nut', 'ClientPass'),
|
|
'SlaveUPS_Pass'=>$cdb->get_prop('nut', 'SlavePass'),
|
|
'MasterUPS_Name'=>$cdb->get_prop('nut', 'MasterUPS'),
|
|
# TODO migrate to nut-driver@ups entry
|
|
'UPS_Model'=>$cdb->get_prop('nut', 'Model') || 'usbhid-ups',
|
|
'UPS_Device'=>$cdb->get_prop('nut', 'Device')|| 'auto',
|
|
'UPS_gen_Type'=>$cdb->get_prop('nut', 'Type', ''),
|
|
'UPS_gen_Mfr'=>$cdb->get_prop('nut', 'mfr', ''),
|
|
'UPS_gen_Model'=>$cdb->get_prop('nut', 'mdl', ''),
|
|
);
|
|
return %ret;
|
|
}
|
|
|
|
|
|
|
|
# Get control data for table(s)
|
|
|
|
|
|
|
|
# Return hash with values from row in which link clicked on table
|
|
|
|
sub get_selected_STATUS {
|
|
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_CONFIG {
|
|
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;
|
|
}
|
|
|
|
|
|
#after sucessful modify or create or whatever and submit then perfom (if the params validate)
|
|
|
|
sub perform_STATUS {
|
|
my $c = shift;
|
|
my $prefix_data = shift; #Data hash as parameter
|
|
my $ret = "";
|
|
my $db = $cdb; #maybe one of the others
|
|
my $dbkey = 'ChangeThis';
|
|
# 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: UPSStatus e.g. $db->set_prop($dbkey,'UPSStatus',$c->param('UPSStatus')))
|
|
{$ret .= 'Perform/save failed for UPSStatus';}
|
|
if ($ret eq "") {$ret = 'ok';}
|
|
return $ret;
|
|
}
|
|
|
|
sub perform_CONFIG {
|
|
my $c = shift;
|
|
my $prefix_data = shift; #Data hash as parameter
|
|
my $ret = "";
|
|
$cdb = esmith::ConfigDB->open() || die("Couldn't open config db");
|
|
my $db = $cdb; #maybe one of the others
|
|
my $dbkey = 'nut';
|
|
my $driverkey = 'nut-driver@UPS';
|
|
# 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')))
|
|
{$ret .= 'Perform/save failed for status';}
|
|
if (!$db->set_prop($dbkey,'mode',$c->param('Nutmode')))
|
|
{$ret .= 'Perform/save failed for Nutmode';}
|
|
# let only save info regarding the current mode
|
|
|
|
# if client mode
|
|
if (! $db->set_prop($dbkey,'ClientUPS',$c->param('ClientUPS_Name')))
|
|
{$ret .= 'Perform/save failed for ClientUPS_Name';}
|
|
if (! $db->set_prop($dbkey,'MasterUPS',$c->param('MasterUPS_Name')))
|
|
{$ret .= 'Perform/save failed for MasterUPS_Name';}
|
|
if (! $db->set_prop($dbkey,'ClientUser',$c->param('ClientUPS_User')))
|
|
{$ret .= 'Perform/save failed for ClientUPS_USer';}
|
|
if (! $db->set_prop($dbkey,'ClientPass',$c->param('ClientUPS_Pass')))
|
|
{$ret .= 'Perform/save failed for ClientUPS_Pass';}
|
|
|
|
# if not client mode
|
|
if (! $db->set_prop($dbkey,'Model',$c->param('UPS_Model')))
|
|
{$ret .= 'Perform/save failed for UPS_Model';}
|
|
if (! $db->set_prop($dbkey,'Device',$c->param('UPS_Device')))
|
|
{$ret .= 'Perform/save failed for UPS_Device';}
|
|
if (! $db->set_prop($dbkey,'Type',$c->param('UPS_gen_Type')))
|
|
{$ret .= 'Perform/save failed for UPS_gen_Type';}
|
|
if (! $db->set_prop($dbkey,'mfr',$c->param('UPS_gen_Mfr')))
|
|
{$ret .= 'Perform/save failed for UPS_gen_Mfr';}
|
|
if (! $db->set_prop($dbkey,'mdl',$c->param('UPS_gen_Model')))
|
|
{$ret .= 'Perform/save failed for UPS_gen_Model';}
|
|
|
|
#changes from sme10 to sme11
|
|
# slave/master is changed to secondary/primary (upstream) should bite the bullet rather sooner than latter
|
|
# we move most properties from nut to nut-driver@UPS, nut-driver@UPS1 (we only handle nut-driver@UPS in panel)
|
|
# we remove Master property (redundant)
|
|
# we add mode property, we have 3 modes :
|
|
# standalone uses primary pass
|
|
# nethserver uses primary pass
|
|
# netclient uses secondary pass
|
|
|
|
|
|
#TODO check if still needed :
|
|
|
|
if ($ret eq "") {
|
|
$ret = 'ok';
|
|
#and set Master and access properties according to values
|
|
if ($db->get_prop($dbkey,"mode",'standalone') eq 'netclient'){
|
|
$db->set_prop($dbkey,'Master','no');
|
|
} else {
|
|
$db->set_prop($dbkey,'Master','yes');
|
|
}
|
|
if ($db->get_prop($dbkey,"mode",'standalone') eq 'netserver'){
|
|
$db->set_prop($dbkey,'access','private');
|
|
} else {
|
|
$db->set_prop($dbkey,'access','localhost');
|
|
}
|
|
#And run signal-event to apply templates for config files and start task.
|
|
my @result = qx{/usr/sbin/e-smith/signal-event smeserver-nutUPS-update};
|
|
if ($? != 0) {
|
|
warn "Error executing signal-event: $!";
|
|
return "Signal-event Error occurred $!";
|
|
}
|
|
}
|
|
return $ret;
|
|
}
|
|
|
|
|
|
sub create_link{
|
|
# WIP
|
|
my ($c,$route, $panel, $index) = @_;
|
|
my $link = "$route?trt=$panel&Selected=$index";
|
|
return $link;
|
|
}
|
|
|
|
sub get_model_options {
|
|
|
|
# Execute the RPM command and capture the output
|
|
my @output = qx{rpm -ql nut | grep /usr/sbin};
|
|
|
|
# Check for errors
|
|
if ($? != 0) {
|
|
warn "Error executing command: $!";
|
|
return ['Error occurred'];
|
|
}
|
|
|
|
# Remove "/usr/sbin/" from the front of each line
|
|
s{^/usr/sbin/}{} for @output;
|
|
|
|
# Trim whitespace from each element and return the array
|
|
chomp(@output); # Remove newline characters from each line
|
|
return @output; # Return the array of modified output lines
|
|
}
|
|
|
|
sub get_ups_status {
|
|
my $c = shift;
|
|
$cdb = esmith::ConfigDB->open() || die("Couldn't open config db");
|
|
my $nutmode = $cdb->get_prop('nut', 'mode','standalone');
|
|
if ($cdb->get_prop('nut', 'status', 'disabled') eq 'disabled'){
|
|
return $c->l('nut_status_is_disabled')
|
|
} elsif ($nutmode eq 'netclient'){
|
|
return $c->get_status_from_device($cdb->get_prop('nut','ClientUPS'));
|
|
} else {
|
|
return $c->get_status_from_device($cdb->get_prop('nut','MasterUPS'));
|
|
}
|
|
}
|
|
|
|
sub get_ups_status_as_hash {
|
|
$c = shift;
|
|
$string = $c->get_ups_status();
|
|
my %hash;
|
|
while ($string =~ /^(.+?):\s*(.+)$/mg) {
|
|
$hash{$1} = $2;
|
|
}
|
|
return \%hash
|
|
}
|
|
|
|
sub get_status_from_device {
|
|
my ($c,$device) = @_;
|
|
my $command = '/usr/bin/upsc';
|
|
|
|
# Check if the file exists and is executable
|
|
return ["$command Not allowed"] unless (-e $command && -x $command) ;
|
|
|
|
$result = qx{$command $device};
|
|
if ($? != 0) {
|
|
warn "Error executing $command command: $!";
|
|
return ["$command $device Error occurred $!"];
|
|
}
|
|
chomp($result);
|
|
$result = $result || 'No results';
|
|
$result = "Status from $device\n\n".$result;
|
|
return $result;
|
|
}
|
|
|
|
|
|
1;
|