smeserver-nutUPS/root/usr/share/smanager/lib/SrvMngr/Controller/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
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';}	
		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 = (
			#'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
			# 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', 'ups@IPaddress'),
			'MasterUPS_Name'=>$cdb->get_prop('nut', 'MasterUPS', 'ups@localhost'),
			'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'),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 = "";
		$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,'mode',$c->param('Nutmode'),type=>'service'))
			{$ret .= 'Perform/save failed for Nutmode';}
		if (! $db->set_prop($dbkey,'SlaveUPS',$c->param('SlaveUPS_Name'),type=>'service'))
			{$ret .= 'Perform/save failed for SlaveUPS_Name';}
		if (! $db->set_prop($dbkey,'MasterUPS',$c->param('MasterUPS_Name'),type=>'service'))
			{$ret .= 'Perform/save failed for MasterUPS_Name';}
		if (! $db->set_prop($dbkey,'SlavePass',$c->param('SlaveUPS_Pass'),type=>'service'))
			{$ret .= 'Perform/save failed for SlaveUPS_Pass';}
		if (! $db->set_prop($dbkey,'MasterPass',$c->param('MasterUPS_Pass'),type=>'service'))
			{$ret .= 'Perform/save failed for MasterUPS_Pass';}
		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';
			#and set Master and access properties according to values
			if ($db->get_prop($dbkey,"mode",'standalone') eq 'netclient'){
				$db->set_prop($dbkey,'Master','no',type=>'service');
			} else {
				$db->set_prop($dbkey,'Master','yes',type=>'service');
			}
			if ($db->get_prop($dbkey,"mode",'standalone') eq 'netserver'){
				$db->set_prop($dbkey,'access','private',type=>'service');
			} else {
				$db->set_prop($dbkey,'access','localhost',type=>'service');
			}
			#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 'standalone'){
		return $c->get_status_from_device($cdb->get_prop('nut','MasterUPS','ups@localhost'));
	} elsif ($nutmode eq 'netserver'){
		return $c->get_status_from_device($cdb->get_prop('nut','MasterUPS','ups@localhost'));
	} else {
		return $c->get_status_from_device($cdb->get_prop('nut','SlaveUPS','apc@192.168.1.99'));
	}
}

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;