SM2Gen/Targets/Nutups/Nutups-Custom.pm

#
# 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
our $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 {
		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';}	
		if (! TRUE) #validate $c->param('SlaveUPS_Name')
			{$ret .= 'Validation for SlaveUPS_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 = (
			# fields from Inputs in STATUS $fields['STATUS']
			'UPSStatus'=>get_ups_details()
			
		);
		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;
		my %ret = (
			# 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', ''),
			'MasterUPS_Name'=>$cdb->get_prop('nut', 'MasterUPS', ''),
			'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', ''),
			'MasterUPS_Password'=>$cdb->get_prop('nut', 'MasterPass', ''),
			'SlaveUPS_Password'=>$cdb->get_prop('nut', 'SlavePass', ''),
		);
		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'),type=>'service'))
			{$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 = "";
		our $cdb = esmith::ConfigDB->open()   || die("Couldn't open config db");
		my $db = $cdb; #maybe one of the others
		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."
		
		if (!$db->set_prop($dbkey,'status',$c->param('status'),type=>'service'))
			{$ret .= 'Perform/save failed for status';}
		if (!$db->set_prop($dbkey,'Nutmode',$c->param('Nutmode'),type=>'service'))
			{$ret .= 'Perform/save failed for Nutmode';}
		if (!$db->set_prop($dbkey,'SlaveUPS_Name',$c->param('SlaveUPS_Name'),type=>'service'))
			{$ret .= 'Perform/save failed for SlaveUPS_Name';}
		if (!$db->set_prop($dbkey,'MasterUPS_Name',$c->param('MasterUPS_Name'),type=>'service'))
			{$ret .= 'Perform/save failed for MasterUPS_Name';}
		if (!$db->set_prop($dbkey,'Model',$c->param('UPS_Model'),type=>'service'))
			{$ret .= 'Perform/save failed for UPS_Model';}
		if (!$db->set_prop($dbkey,'Device',$c->param('UPS_Device'),type=>'service'))
			{$ret .= 'Perform/save failed for UPS_Device';}
		if (!$db->set_prop($dbkey,'Type',$c->param('UPS_gen_Type'),type=>'service'))
			{$ret .= 'Perform/save failed for UPS_gen_Type';}
		if (!$db->set_prop($dbkey,'mfr',$c->param('UPS_gen_Mfr'),type=>'service'))
			{$ret .= 'Perform/save failed for UPS_gen_Mfr';}
		if (!$db->set_prop($dbkey,'mdl',$c->param('UPS_gen_Model'),type=>'service'))
			{$ret .= 'Perform/save failed for UPS_gen_Model';}
		if ($ret eq "") {$ret = 'ok';}
		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_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;