#!/usr/bin/perl
#
# This uses data in the 'upses' database table (any that use this agent' to get a list of APC-brand UPSes to scan.
#
# Examples;
#
# Exit codes;
# 0 - Success
# 1 - Something went wrong, agent aborted run.
#
# 255 - The host's UUID isn't in the hosts table yet, ScanCore itself hasn't been run.
#
# TODO:
The core logic is done!!!! Still need to finish end-points for the WebUI to hook into, but the core of M3 is complete! Many, many bugs are expected, of course. :)
* Created DRBD->check_if_syncsource() and ->check_if_synctarget() that return '1' if the target host is currently SyncSource or SyncTarget for any resource, respectively.
* Updated DRBD->update_global_common() to return the unified-format diff if any changes were made to global-common.conf.
* Created ScanCore->check_health() that returns the health score for a host. Created ->count_servers() that returns the number of servers on a host, how much RAM is used by those servers and, if available, the estimated migration time of the servers. Updated ->check_temperature() to set/clear/return the time that a host has been in a warning or critical temperature state.
* Finished ScanCore->post_scan_analysis_node()!!! It certainly has bugs, and much testing is needed, but the logic is all in place! Oh what a slog that was... It should be far more intelligent than M2 though, once flushed out and tested.
* Created Server->active_migrations() that returns '1' if any servers are in a migration on an Anvil! system. Updated ->migrate_virsh() to record how long a migration took in the "server::migration_duration" variable, which is averaged by ScanCore->count_servers() to estimate migration times.
* Updated scan-drbd to check/update the global-common.conf file's config at the end of a scan.
* Updated ScanCore itself to not scan when in maintenance mode. Also updated it to call 'anvil-safe-start' when ScanCore starts, so long as it is within ten minutes of the host booting.
Signed-off-by: Digimer <digimer@alteeve.ca>
4 years ago
# - Set a health score if we lose one or both/all UPSes.
# - Support UPSes with extended runtime batteries
# - Pick a battery temperature where the UPS will automatically shut down if it passes over.
# - Add support for sudden temperature jumps in process_temperature().
# - It might be possible that a battery goes over temp, then is removed and not replaced, the UPS could keep
# reporting a temp anomoly.
#
# Use my modules.
use strict;
use warnings;
use Anvil::Tools;
use Data::Dumper;
use Socket;
no warnings 'recursion';
# Disable buffering
$| = 1;
# Prevent a discrepency between UID/GID and EUID/EGID from throwing an error.
$< = $>;
$( = $);
my $THIS_FILE = ($0 =~ /^.*\/(.*)$/)[0];
my $running_directory = ($0 =~ /^(.*?)\/$THIS_FILE$/)[0];
if (($running_directory =~ /^\./) && ($ENV{PWD}))
{
$running_directory =~ s/^\./$ENV{PWD}/;
}
my $anvil = Anvil::Tools->new();
# Make sure we're running as 'root'
# $< == real UID, $> == effective UID
if (($< != 0) && ($> != 0))
{
# Not root
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 0, 'print' => 1, key => "error_0005"});
$anvil->nice_exit({exit_code => 1});
}
# Get the handle to the AN::Tools and preset some variables I will use.
$anvil->data->{'scan-apc-ups'} = {
# Starts at '2' so that anything set to '1' manually shows first
alert_sort => 2,
disable => 0,
# By default, a temperature sensor will go into warning state when it goes over this number of °C
# below the alert temperature reported by the UPS.
temperature_warning_delta => 3,
# This is the number of °C below a warning or critical level where an alert is cleared.
temperature_clear_delta => 5,
# If the temperature jumps by more than this amount in less than set time, an alert will be
# generated. This is meant to help detect cooling loss.
temperature_jump_threshold => 5, # degrees C
temperature_jump_time => 60, # seconds
# If the battery charge drops below this level, a warning level alert will be
# triggered.
low_charge_percentage_warning => 20,
# If the battery charge rate climbs above this level, the user will be informed that
# the UPS is back to an acceptible charge
low_charge_percentage_ok => 25,
# This is the number of volts above the low voltage trasfer lever or below the high
# voltage transfer level needed to clear the alert.
transfer_voltage_clear_delta => 2,
# This is the number of scans in a row that an alert state needs to exist for before
# we trigger an alarm.
sensor_loss_count_to_alarm => 3,
# This is the load percentage over which we trigger a high-load alert.
high_load_threshold => 80,
high_load_clear_threshold => 60,
# This is the estimated hold-up time (in seconds) under which we trigger a low-hold-up-time alert.
low_hold_up_threshold => 900,
low_hold_up_clear_threshold => 1200,
};
$anvil->data->{oids} = {
battery => {
# Estimated next replacement date (in 'mm/dd/yy' or 'mm/dd/yyyy' format.)
next_replacement_date => ".1.3.6.1.4.1.318.1.1.1.2.2.21.0",
# 1 => OK, 2 => Replacement needed
health => ".1.3.6.1.4.1.318.1.1.1.2.2.4.0",
model => ".1.3.6.1.4.1.318.1.1.1.2.2.19.0",
# High precision, (1000 = 100.0% charge)
percentage_charge_hp => ".1.3.6.1.4.1.318.1.1.1.2.3.1.0",
# Last approximate replacement date (mm/dd/yy or yyyy format)
last_replacement_date => ".1.3.6.1.4.1.318.1.1.1.2.1.3.0",
# 1 => unknown, 2 => batteryNormal, 3 => batteryLow,
# 4 => batteryInFaultCondition
'state' => ".1.3.6.1.4.1.318.1.1.1.2.1.1.0",
# High-precision, (315 == 31.5)
temperature_hp => ".1.3.6.1.4.1.318.1.1.1.2.3.2.0",
# Temperature alarm upper limit (in even degrees, 40 = 40*C or *F
# (see ups::temperature_units))
alarm_temperature => ".1.3.6.1.4.1.318.1.1.10.1.2.2.1.3.1",
# High precision voltage (271 = 27.1 vDC)
voltage_hp => ".1.3.6.1.4.1.318.1.1.1.2.3.4.0",
},
input => {
# High precision, (600 == 60.0 Hz)
frequency_hp => ".1.3.6.1.4.1.318.1.1.1.3.3.4.0",
# 1 => Auto, 2 => Low, 3 => Medium, 4 => High
sensitivity => ".1.3.6.1.4.1.318.1.1.1.5.2.7.0",
# High precision, (1245 => "124.5 vAC)
voltage_hp => ".1.3.6.1.4.1.318.1.1.1.3.3.1.0",
# High precision; Maximum and minimum voltage in the last 60 seconds (1245 == 124.5 vAC)
'1m_maximum_input_voltage_hp' => ".1.3.6.1.4.1.318.1.1.1.3.3.2.0",
'1m_minimum_input_voltage_hp' => ".1.3.6.1.4.1.318.1.1.1.3.3.3.0",
},
ups => {
# Time in tickss after AC restore before UPS powers on (ie: 1000 = 10 seconds)
ac_restore_delay => ".1.3.6.1.4.1.318.1.1.1.5.2.9.0",
# How many batteries are in the UPS.
battery_count => ".1.3.6.1.4.1.318.1.1.1.2.2.5.0",
# Delay time from when the shutdown command is sent until when the UPS
# actually powers off (measured in ticks)
shutdown_delay => ".1.3.6.1.4.1.318.1.1.1.5.2.10.0",
firmware_version => ".1.3.6.1.4.1.318.1.1.1.1.2.1.0",
# The modes are documented as 'scan_apc_ups_health_00{01..20}' with
# the integer value correlating to the returned health integer value.
health => ".1.3.6.1.4.1.318.1.1.1.4.1.1.0",
# Voltage at which TRIM ONLINE kicks in (127 == 127 vAC)
high_transfer_voltage => ".1.3.6.1.4.1.318.1.1.1.5.2.2.0",
# 1 => noTransfer, 2 => highLineVoltage, 3 => brownout,
# 4 => blackout, 5 => smallMomentarySag, 6 => deepMomentarySag,
# 7 => smallMomentarySpike, 8 => largeMomentarySpike,
# 9 => selfTest, 10 => rateOfVoltageChange
last_transfer_reason => ".1.3.6.1.4.1.318.1.1.1.3.2.5.0",
# Voltage at which BOOST ONLINE kicks in (106 == 106vAC)
low_transfer_voltage => ".1.3.6.1.4.1.318.1.1.1.5.2.3.0",
# Manufactured date (in 'mm/dd/yy' or 'mm/dd/yyyy' format.)
manufactured_date => ".1.3.6.1.4.1.318.1.1.1.1.2.2.0",
model => ".1.3.6.1.4.1.318.1.1.1.1.2.5.0",
# Temperature units (1 = *C, 2 = *F)
temperature_units => ".1.3.6.1.4.1.318.1.1.10.1.2.2.1.5.1",
serial_number => ".1.3.6.1.4.1.318.1.1.1.1.2.3.0",
# This is used to power off the UPS. Set:
# 2 = turnUpsOff (no delay),
# 3 = turnUpsOffGracefully (use delay)
power_off => ".1.3.6.1.4.1.318.1.1.1.6.2.1.0",
},
nmc => {
firmware_version => ".1.3.6.1.4.1.318.1.4.2.4.1.4.1",
serial_number => ".1.3.6.1.4.1.318.1.4.2.4.1.2.1",
mac_address => ".1.3.6.1.2.1.4.30.1.4.2",
},
output => {
# High precision, Current load percentage (58 = 5.8%)
load_percentage_hp => ".1.3.6.1.4.1.318.1.1.1.4.3.3.0",
# Time in ticks on batteries, 0 == not on batteries
time_on_batteries => ".1.3.6.1.4.1.318.1.1.1.2.1.2.0",
# In ticks (10ms)
estimated_runtime => ".1.3.6.1.4.1.318.1.1.1.2.2.3.0",
# high-precision, (600 == 60.0 Hz)
frequency_hp => ".1.3.6.1.4.1.318.1.1.1.4.3.2.0",
# High precision (1245 = 124.5 vAC)
voltage_hp => ".1.3.6.1.4.1.318.1.1.1.4.3.1.0",
# Total output power (in 10 watt-hour increments, divide by 100
# for kW/hr
total_output => ".1.3.6.1.4.1.318.1.1.1.4.3.6.0",
},
};
$anvil->data->{snmp} = {
alternate => {
'SUART' => {
},
},
community => {
'read' => "public",
version => "2c",
'write' => "private",
},
};
$anvil->Storage->read_config();
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 2, key => "log_0115", variables => { program => $THIS_FILE }});
# Read switches
$anvil->Get->switches;
# Too many connections cause the UPS to lag out, so we only run on Strikers.
my $host_type = $anvil->Get->host_type();
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { host_type => $host_type }});
if (($host_type ne "striker") && (not $anvil->data->{switches}{force}))
{
$anvil->nice_exit({exit_code => 1});
}
# Handle start-up tasks
my $problem = $anvil->ScanCore->agent_startup({agent => $THIS_FILE});
if ($problem)
{
$anvil->nice_exit({exit_code => 1});
}
if ($anvil->data->{switches}{purge})
{
# This can be called when doing bulk-database purges.
my $schema_file = $anvil->data->{path}{directories}{scan_agents}."/".$THIS_FILE."/".$THIS_FILE.".sql";
$anvil->Database->purge_data({
debug => 2,
tables => $anvil->Database->get_tables_from_schema({schema_file => $schema_file}),
});
$anvil->nice_exit({exit_code => 0});
}
# Find the UPSes. The number of UPSes found is returned. If 0, we exit
if (not find_upses($anvil))
{
# No UPSes found.
$anvil->Log->entry({log_level => 1, 'print' => 1, message_key => "scan_apc_ups_message_0001", file => $THIS_FILE, line => __LINE__});
$anvil->nice_exit({exit_code => 1});
}
# Read the last state of any UPSes we already know about
read_last_scan($anvil);
# Gather details on UPSes.
gather_ups_data($anvil);
# Look for changes.
find_changes($anvil);
# Shut down.
$anvil->ScanCore->agent_shutdown({agent => $THIS_FILE});
#############################################################################################################
# Functions #
#############################################################################################################
# This reads in the last scan data from one of the databases and compares it against the just-read data. If
# anything changed, register an alert.
sub find_changes
{
my ($anvil) = @_;
# This stores all the queries so that they're committed in one transaction.
$anvil->data->{sys}{queries} = [];
$anvil->data->{'scan-apc-ups'}{alert_sort} = 1;
# Loop through each UPS we've seen this pass
foreach my $scan_apc_ups_uuid (sort {$a cmp $b} keys %{$anvil->data->{ups}{scan_apc_ups_uuid}})
{
my $new_ups = $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{new_ups};
my $ups_uuid = $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_upses}{scan_apc_ups_ups_uuid};
my $scan_apc_ups_serial_number = $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_serial_number};
my $scan_apc_ups_name = $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_name};
my $scan_apc_ups_ip = $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_ip};
my $scan_apc_ups_ac_restore_delay = $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_ac_restore_delay};
my $scan_apc_ups_shutdown_delay = $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_shutdown_delay};
my $scan_apc_ups_firmware_version = $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_firmware_version};
my $scan_apc_ups_health = $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_health};
my $scan_apc_ups_high_transfer_voltage = $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_high_transfer_voltage};
my $scan_apc_ups_low_transfer_voltage = $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_low_transfer_voltage};
my $scan_apc_ups_last_transfer_reason = $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_last_transfer_reason};
my $scan_apc_ups_manufactured_date = $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_manufactured_date};
my $scan_apc_ups_model = $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_model};
my $scan_apc_ups_nmc_firmware_version = $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_nmc_firmware_version};
my $scan_apc_ups_nmc_serial_number = $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_nmc_serial_number};
my $scan_apc_ups_nmc_mac_address = $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_nmc_mac_address};
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
new_ups => $new_ups,
ups_uuid => $ups_uuid,
scan_apc_ups_serial_number => $scan_apc_ups_serial_number,
scan_apc_ups_ip => $scan_apc_ups_ip,
scan_apc_ups_ac_restore_delay => $scan_apc_ups_ac_restore_delay,
scan_apc_ups_shutdown_delay => $scan_apc_ups_shutdown_delay,
scan_apc_ups_firmware_version => $scan_apc_ups_firmware_version,
scan_apc_ups_health => $scan_apc_ups_health,
scan_apc_ups_high_transfer_voltage => $scan_apc_ups_high_transfer_voltage,
scan_apc_ups_low_transfer_voltage => $scan_apc_ups_low_transfer_voltage,
scan_apc_ups_last_transfer_reason => $scan_apc_ups_last_transfer_reason,
scan_apc_ups_manufactured_date => $scan_apc_ups_manufactured_date,
scan_apc_ups_model => $scan_apc_ups_model,
scan_apc_ups_nmc_firmware_version => $scan_apc_ups_nmc_firmware_version,
scan_apc_ups_nmc_serial_number => $scan_apc_ups_nmc_serial_number,
scan_apc_ups_nmc_mac_address => $scan_apc_ups_nmc_mac_address,
}});
# These are loaded now as some variables are needed when examining others from other tables.
my $scan_apc_ups_input_1m_minimum_input_voltage = $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_input_1m_minimum_input_voltage};
my $scan_apc_ups_input_1m_maximum_input_voltage = $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_input_1m_maximum_input_voltage};
my $scan_apc_ups_input_voltage = $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_input_voltage};
my $scan_apc_ups_input_sensitivity = $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_input_sensitivity};
my $scan_apc_ups_input_frequency = $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_input_frequency};
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
scan_apc_ups_input_1m_minimum_input_voltage => $scan_apc_ups_input_1m_minimum_input_voltage,
scan_apc_ups_input_1m_maximum_input_voltage => $scan_apc_ups_input_1m_maximum_input_voltage,
scan_apc_ups_input_voltage => $scan_apc_ups_input_voltage,
scan_apc_ups_input_sensitivity => $scan_apc_ups_input_sensitivity,
scan_apc_ups_input_frequency => $scan_apc_ups_input_frequency,
}});
my $scan_apc_ups_output_voltage = $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_output_voltage};
my $scan_apc_ups_output_total_output = $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_output_total_output};
my $scan_apc_ups_output_frequency = $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_output_frequency};
my $scan_apc_ups_output_time_on_batteries = $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_output_time_on_batteries};
my $scan_apc_ups_output_estimated_runtime = $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_output_estimated_runtime};
my $scan_apc_ups_output_load_percentage = $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_output_load_percentage};
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
scan_apc_ups_output_voltage => $scan_apc_ups_output_voltage,
scan_apc_ups_output_total_output => $scan_apc_ups_output_total_output,
scan_apc_ups_output_frequency => $scan_apc_ups_output_frequency,
scan_apc_ups_output_time_on_batteries => $scan_apc_ups_output_time_on_batteries,
scan_apc_ups_output_estimated_runtime => $scan_apc_ups_output_estimated_runtime,
scan_apc_ups_output_load_percentage => $scan_apc_ups_output_load_percentage,
}});
# Have I seen this UPS before?
if ($new_ups)
{
# New, INSERT it.
my $query = "
INSERT INTO
scan_apc_upses
(
scan_apc_ups_uuid,
scan_apc_ups_ups_uuid,
scan_apc_ups_name,
scan_apc_ups_ip,
scan_apc_ups_ac_restore_delay,
scan_apc_ups_shutdown_delay,
scan_apc_ups_firmware_version,
scan_apc_ups_health,
scan_apc_ups_high_transfer_voltage,
scan_apc_ups_low_transfer_voltage,
scan_apc_ups_last_transfer_reason,
scan_apc_ups_manufactured_date,
scan_apc_ups_model,
scan_apc_ups_serial_number,
scan_apc_ups_nmc_firmware_version,
scan_apc_ups_nmc_serial_number,
scan_apc_ups_nmc_mac_address,
modified_date
) VALUES (
".$anvil->Database->quote($scan_apc_ups_uuid).",
".$anvil->Database->quote($ups_uuid).",
".$anvil->Database->quote($scan_apc_ups_name).",
".$anvil->Database->quote($scan_apc_ups_ip).",
".$anvil->Database->quote($scan_apc_ups_ac_restore_delay).",
".$anvil->Database->quote($scan_apc_ups_shutdown_delay).",
".$anvil->Database->quote($scan_apc_ups_firmware_version).",
".$anvil->Database->quote($scan_apc_ups_health).",
".$anvil->Database->quote($scan_apc_ups_high_transfer_voltage).",
".$anvil->Database->quote($scan_apc_ups_low_transfer_voltage).",
".$anvil->Database->quote($scan_apc_ups_last_transfer_reason).",
".$anvil->Database->quote($scan_apc_ups_manufactured_date).",
".$anvil->Database->quote($scan_apc_ups_model).",
".$anvil->Database->quote($scan_apc_ups_serial_number).",
".$anvil->Database->quote($scan_apc_ups_nmc_firmware_version).",
".$anvil->Database->quote($scan_apc_ups_nmc_serial_number).",
".$anvil->Database->quote($scan_apc_ups_nmc_mac_address).",
".$anvil->Database->quote($anvil->Database->refresh_timestamp)."
);";
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { query => $query }});
$anvil->Database->write({query => $query, source => $THIS_FILE, line => __LINE__});
my $variables = {
name => $scan_apc_ups_name,
model => $scan_apc_ups_model,
serial_number => $scan_apc_ups_serial_number,
manufactured_date => $scan_apc_ups_manufactured_date,
firmware_version => $scan_apc_ups_firmware_version,
ip_address => $scan_apc_ups_ip,
nmc_serial_number => $scan_apc_ups_nmc_serial_number,
nmc_firmware_version => $scan_apc_ups_nmc_firmware_version,
nmc_mac_address => $scan_apc_ups_nmc_mac_address,
ac_restore_delay => $scan_apc_ups_ac_restore_delay,
shutdown_delay => $scan_apc_ups_shutdown_delay,
health => "#!string!scan_apc_ups_health_".sprintf("%04d", $scan_apc_ups_health)."!#",
high_transfer_voltage => $scan_apc_ups_high_transfer_voltage,
low_transfer_voltage => $scan_apc_ups_low_transfer_voltage,
last_transfer_reason => "#!string!scan_apc_ups_last_xfer_".sprintf("%04d", $scan_apc_ups_last_transfer_reason)."!#",
};
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 1, key => "scan_apc_ups_message_0002", variables => $variables});
$anvil->Alert->register({alert_level => "warning", message => "scan_apc_ups_message_0002", variables => $variables, set_by => $THIS_FILE, sort_position => $anvil->data->{'scan-apc-ups'}{alert_sort}++});
# Add any batteries.
foreach my $battery_number (sort {$a cmp $b} keys %{$anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{battery}})
{
my $scan_apc_ups_battery_uuid = insert_battery($anvil, $scan_apc_ups_uuid, $battery_number);
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { scan_apc_ups_battery_uuid => $scan_apc_ups_battery_uuid }});
}
# Record input data
my $scan_apc_ups_input_uuid = insert_input($anvil, $scan_apc_ups_uuid);
# Record output data
my $scan_apc_ups_output_uuid = insert_output($anvil, $scan_apc_ups_uuid);
}
else
{
# Existing UPS, look for changes.
my $old_scan_apc_ups_ups_uuid = $anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_ups_uuid};
my $old_scan_apc_ups_serial_number = $anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_serial_number};
my $old_scan_apc_ups_name = $anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_name};
my $old_scan_apc_ups_ip = $anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_ip};
my $old_scan_apc_ups_ac_restore_delay = $anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_ac_restore_delay};
my $old_scan_apc_ups_shutdown_delay = $anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_shutdown_delay};
my $old_scan_apc_ups_firmware_version = $anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_firmware_version};
my $old_scan_apc_ups_health = $anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_health};
my $old_scan_apc_ups_high_transfer_voltage = $anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_high_transfer_voltage};
my $old_scan_apc_ups_low_transfer_voltage = $anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_low_transfer_voltage};
my $old_scan_apc_ups_last_transfer_reason = $anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_last_transfer_reason};
my $old_scan_apc_ups_manufactured_date = $anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_manufactured_date};
my $old_scan_apc_ups_model = $anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_model};
my $old_scan_apc_ups_nmc_firmware_version = $anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_nmc_firmware_version};
my $old_scan_apc_ups_nmc_serial_number = $anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_nmc_serial_number};
my $old_scan_apc_ups_nmc_mac_address = $anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_nmc_mac_address};
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
old_scan_apc_ups_ups_uuid => $old_scan_apc_ups_ups_uuid,
old_scan_apc_ups_serial_number => $old_scan_apc_ups_serial_number,
old_scan_apc_ups_name => $old_scan_apc_ups_name,
old_scan_apc_ups_ip => $old_scan_apc_ups_ip,
old_scan_apc_ups_ac_restore_delay => $old_scan_apc_ups_ac_restore_delay,
old_scan_apc_ups_shutdown_delay => $old_scan_apc_ups_shutdown_delay,
old_scan_apc_ups_firmware_version => $old_scan_apc_ups_firmware_version,
old_scan_apc_ups_health => $old_scan_apc_ups_health,
old_scan_apc_ups_high_transfer_voltage => $old_scan_apc_ups_high_transfer_voltage,
old_scan_apc_ups_low_transfer_voltage => $old_scan_apc_ups_low_transfer_voltage,
old_scan_apc_ups_last_transfer_reason => $old_scan_apc_ups_last_transfer_reason,
old_scan_apc_ups_manufactured_date => $old_scan_apc_ups_manufactured_date,
old_scan_apc_ups_model => $old_scan_apc_ups_model,
old_scan_apc_ups_nmc_firmware_version => $old_scan_apc_ups_nmc_firmware_version,
old_scan_apc_ups_nmc_serial_number => $old_scan_apc_ups_nmc_serial_number,
old_scan_apc_ups_nmc_mac_address => $old_scan_apc_ups_nmc_mac_address,
}});
my $ups_changed = 0;
if ($scan_apc_ups_name ne $old_scan_apc_ups_name)
{
$ups_changed = 1;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { ups_changed => $ups_changed }});
my $variables = {
old_name => $scan_apc_ups_name,
new_name => $old_scan_apc_ups_name,
};
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 1, key => "scan_apc_ups_warning_0005", variables => $variables});
$anvil->Alert->register({alert_level => "notice", message => "scan_apc_ups_warning_0005", variables => $variables, set_by => $THIS_FILE, sort_position => $anvil->data->{'scan-apc-ups'}{alert_sort}++});
}
if ($scan_apc_ups_serial_number ne $old_scan_apc_ups_serial_number)
{
# Likely a replacement UPS.
$ups_changed = 1;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { ups_changed => $ups_changed }});
my $variables = {
ups_name => $scan_apc_ups_name,
old_value => $old_scan_apc_ups_serial_number,
new_value => $scan_apc_ups_serial_number,
};
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 1, key => "scan_apc_ups_warning_0006", variables => $variables});
$anvil->Alert->register({alert_level => "notice", message => "scan_apc_ups_warning_0006", variables => $variables, set_by => $THIS_FILE, sort_position => $anvil->data->{'scan-apc-ups'}{alert_sort}++});
}
if ($scan_apc_ups_ip ne $old_scan_apc_ups_ip)
{
$ups_changed = 1;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { ups_changed => $ups_changed }});
my $variables = {
ups_name => $scan_apc_ups_name,
old_value => $old_scan_apc_ups_ip,
new_value => $scan_apc_ups_ip,
};
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 1, key => "scan_apc_ups_warning_0007", variables => $variables});
$anvil->Alert->register({alert_level => "notice", message => "scan_apc_ups_warning_0007", variables => $variables, set_by => $THIS_FILE, sort_position => $anvil->data->{'scan-apc-ups'}{alert_sort}++});
}
if ($scan_apc_ups_model ne $old_scan_apc_ups_model)
{
# Likely a replacement UPS.
$ups_changed = 1;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { ups_changed => $ups_changed }});
my $variables = {
ups_name => $scan_apc_ups_name,
old_value => $old_scan_apc_ups_model,
new_value => $scan_apc_ups_model,
};
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 1, key => "scan_apc_ups_warning_0008", variables => $variables});
$anvil->Alert->register({alert_level => "notice", message => "scan_apc_ups_warning_0008", variables => $variables, set_by => $THIS_FILE, sort_position => $anvil->data->{'scan-apc-ups'}{alert_sort}++});
}
if ($scan_apc_ups_ac_restore_delay ne $old_scan_apc_ups_ac_restore_delay)
{
$ups_changed = 1;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { ups_changed => $ups_changed }});
my $variables = {
ups_name => $scan_apc_ups_name,
old_value => $old_scan_apc_ups_ac_restore_delay,
new_value => $scan_apc_ups_ac_restore_delay,
};
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 1, key => "scan_apc_ups_warning_0009", variables => $variables});
$anvil->Alert->register({alert_level => "notice", message => "scan_apc_ups_warning_0009", variables => $variables, set_by => $THIS_FILE, sort_position => $anvil->data->{'scan-apc-ups'}{alert_sort}++});
}
if ($scan_apc_ups_shutdown_delay ne $old_scan_apc_ups_shutdown_delay)
{
$ups_changed = 1;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { ups_changed => $ups_changed }});
my $variables = {
ups_name => $scan_apc_ups_name,
old_value => $old_scan_apc_ups_shutdown_delay,
new_value => $scan_apc_ups_shutdown_delay,
};
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 1, key => "scan_apc_ups_warning_0010", variables => $variables});
$anvil->Alert->register({alert_level => "notice", message => "scan_apc_ups_warning_0010", variables => $variables, set_by => $THIS_FILE, sort_position => $anvil->data->{'scan-apc-ups'}{alert_sort}++});
}
if ($scan_apc_ups_firmware_version ne $old_scan_apc_ups_firmware_version)
{
$ups_changed = 1;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { ups_changed => $ups_changed }});
my $variables = {
ups_name => $scan_apc_ups_name,
old_value => $old_scan_apc_ups_firmware_version,
new_value => $scan_apc_ups_firmware_version,
};
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 1, key => "scan_apc_ups_warning_0011", variables => $variables});
$anvil->Alert->register({alert_level => "notice", message => "scan_apc_ups_warning_0011", variables => $variables, set_by => $THIS_FILE, sort_position => $anvil->data->{'scan-apc-ups'}{alert_sort}++});
}
# Has the health changed? This is fairly complex as there are many possible health
# values.
if ($scan_apc_ups_health ne $old_scan_apc_ups_health)
{
my $level = "notice";
$ups_changed = 1;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { ups_changed => $ups_changed }});
### There are 20 possible states
### (* == warning, rest are notice):
# *1 - The UPS's health is in an unknown state.
# 2 - The UPS is operating normally.
# 3 - The UPS is running on its batteries. See below for checks if input
# voltage remains. If not, this will indicate a power loss event.
# 4 - The UPS is compensating for low input power. This is treated as being
# on batteries.
# 5 - The UPS is in a timed sleep. It will power back on when the timer has
# expired.
# 6 - The UPS is in bypass-mode and was placed in this mode by software.
# Power is passing to downstream devices through a radio frequency
# interference filter, but is not conditioned in any other way. Batter
# protection is not available.
# *7 - The UPS is off. No power is being provided to down-stream equipment.
# *8 - The UPS is currently rebooting.
# 9 - The UPS is in bypass-mode and was placed in this mode by a hardware
# switch. Power is passing to downstream devices through a radio
# frequency interference filter, but is not conditioned in any other
# way. Batter protection is not available.
# 10 - The UPS is in bypass-mode because of an internal failure. Power is
# passing to downstream devices through a radio frequency interference
# filter, but is not conditioned in any other way. Batter protection is
# not available.
# *11 - The UPS has lost input power and is sleeping. It will restore output
# power once input power has been restored.
# 12 - The UPS is compensating for high input voltage.
# 13 - The UPS is operating in low-power mode. In this mode, the UPS is in
# static bypass mode and it is drawing very little power. If a fault is
# detected, it will switch to either normal operation or forced static
# bypass mode.
# 14 - The UPS is operating in hot-standby mode.
# 15 - The UPS is performing a test of its batteries.
# *16 - The UPS has been placed in emergency static bypass mode. Power is
# passing to downstream devices through a radio frequency interference
# filter, but is not conditioned in any other way. Batter protection is
# not available.
# 17 - The UPS is in static bypass standby mode. It is not currently
# providing power to downstream devices.
# 18 - The UPS is in power saving mode. The front panel display will be off
# but the UPS is operating normally.
# 19 - The UPS is in SPoT (Self Power Test) operating mode.
# - http://www.apcmedia.com/salestools/COCR-9TZK8N/COCR-9TZK8N_R0_EN.pdf
# 20 - The UPS is in ECOnversion mode. The UPS is providing power to the
# downstream devices via the bypass. The UPS's inverter is operational
# and ready to take over the output load if an input fault occurs.
# - http://www.apcmedia.com/salestools/MBPN-9HCLNT/MBPN-9HCLNT_R0_EN.pdf
# ----[ Fake ones ]----
# 30 - The UPS is running on batteries but there is still input voltage, but
# it is higher than the high transfer voltage so we're TRIMing.
# 31 - The UPS is running on batteries but there is still input voltage, but
# it is lower than the low transfer voltage so we're BOOSTing
# 32 - The UPS is running on batteries but there is still nominal input
# voltage, so it is likely a self-test.
# Make sure we have a valid health integer
my $say_scan_apc_ups_health = $scan_apc_ups_health;
my $say_old_scan_apc_ups_health = $old_scan_apc_ups_health;
if (($scan_apc_ups_health =~ /\D/) or (($scan_apc_ups_health < 0) or ($scan_apc_ups_health > 20)))
{
# We'll use '99' as a generic "this is not known"
$say_scan_apc_ups_health = 99;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { say_scan_apc_ups_health => $say_scan_apc_ups_health }});
}
elsif (($old_scan_apc_ups_health =~ /\D/) or (($old_scan_apc_ups_health < 0) or ($old_scan_apc_ups_health > 20)))
{
# We'll use '99' as a generic "this is not known"
$say_old_scan_apc_ups_health = 99;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { say_old_scan_apc_ups_health => $say_old_scan_apc_ups_health }});
}
# If the UPS is on batteries, check the input voltage. If there is
# still power we'll indicate a self-test.
if ($scan_apc_ups_health eq "3")
{
if ($scan_apc_ups_input_voltage > $scan_apc_ups_high_transfer_voltage)
{
$scan_apc_ups_health = 30;
}
elsif ($scan_apc_ups_input_voltage < 10)
{
# Actual power loss.
$scan_apc_ups_health = 3;
$level = "warning";
}
elsif ($scan_apc_ups_input_voltage < $scan_apc_ups_low_transfer_voltage)
{
$scan_apc_ups_health = 31;
}
else
{
$scan_apc_ups_health = 32;
}
}
# Now check if power is back.
if ($old_scan_apc_ups_health eq "3")
{
# Clear the alert.
$level = "warning";
}
# If the old or new level is one worthy of a warning, set the alert level to
# warning.
if (($scan_apc_ups_health eq "1") or
($scan_apc_ups_health eq "7") or
($scan_apc_ups_health eq "8") or
($scan_apc_ups_health eq "11") or
($scan_apc_ups_health eq "16"))
{
# Entered a warning state.
$level = "warning";
}
elsif (($old_scan_apc_ups_health eq "1") or
($old_scan_apc_ups_health eq "7") or
($old_scan_apc_ups_health eq "8") or
($old_scan_apc_ups_health eq "11") or
($old_scan_apc_ups_health eq "16"))
{
# Warning state cleared.
$level = "warning";
}
my $variables = {
ups_name => $scan_apc_ups_name,
new_value => "#!string!scan_apc_ups_health_".sprintf("%04d", $say_scan_apc_ups_health)."!#",
old_value => "#!string!scan_apc_ups_health_".sprintf("%04d", $say_old_scan_apc_ups_health)."!#",
};
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 1, key => "scan_apc_ups_warning_0012", variables => $variables});
$anvil->Alert->register({alert_level => $level, message => "scan_apc_ups_warning_0012", variables => $variables, set_by => $THIS_FILE, sort_position => $anvil->data->{'scan-apc-ups'}{alert_sort}++});
}
if ($scan_apc_ups_low_transfer_voltage ne $old_scan_apc_ups_low_transfer_voltage)
{
$ups_changed = 1;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { ups_changed => $ups_changed }});
# This is a 'notice' level alert. Which message we use will depend on whether
# the threshold increased or decreased.
my $message_key = "scan_apc_ups_warning_0013";
if ($scan_apc_ups_low_transfer_voltage < $old_scan_apc_ups_low_transfer_voltage)
{
$message_key = "scan_apc_ups_warning_0014";
}
my $variables = {
ups_name => $scan_apc_ups_name,
new_value => $scan_apc_ups_low_transfer_voltage,
old_value => $old_scan_apc_ups_low_transfer_voltage,
};
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 1, key => $message_key, variables => $variables});
$anvil->Alert->register({alert_level => "notice", message => $message_key, variables => $variables, set_by => $THIS_FILE, sort_position => $anvil->data->{'scan-apc-ups'}{alert_sort}++});
}
# Has the last transfer reason changed? There are 10 reasons why this might happen,
# some being more critical than others.
if ($scan_apc_ups_last_transfer_reason ne $old_scan_apc_ups_last_transfer_reason)
{
$ups_changed = 1;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { ups_changed => $ups_changed }});
### NOTE: This used to be 'warning' level, but it caused way too many false
### alarms. If a serious issue arises, the input voltage will trigger a
### 'warning' level alert.
### There are 10 possible states
# 0 - There is no information on when the UPS last transferred to battery.
# 1 - The UPS has not transferred to battery power since the last time it booted.
# 2 - The UPS last transferred to batteries because of high input voltage.
# 3 - The UPS last transferred to batteries because of a brown out. That is, a prolonged drop in input voltage from the mains circuit.
# 4 - The UPS last transferred to batteries because of a black out. That is, a prolonged loss of input voltage from the mains circuit.
# 5 - The UPS last transferred to batteries because of a brief, minor reduction of input voltage from the mains circuit.
# 6 - The UPS last transferred to batteries because of a brief, significant reduction of input voltage from the mains circuit.
# 7 - The UPS last transferred to batteries because of a brief, minor increase of input voltage from the mains circuit.
# 8 - The UPS last transferred to batteries because of a brief, significant spike of input voltage from the mains circuit.
# 9 - The UPS last transferred to batteries as part of a planned self-test.
# 10 - The UPS last transferred to batteries because of a significant change of input voltage from the mains circuit.
# Make sure we have a valid health integer
my $say_scan_apc_ups_last_transfer_reason = $scan_apc_ups_last_transfer_reason;
my $say_old_scan_apc_ups_last_transfer_reason = $old_scan_apc_ups_last_transfer_reason;
if (($scan_apc_ups_last_transfer_reason =~ /\D/) or (($scan_apc_ups_last_transfer_reason < 0) or ($scan_apc_ups_last_transfer_reason > 10)))
{
# We'll use '99' as a generic "this is not known"
$say_scan_apc_ups_last_transfer_reason = 99;
}
elsif (($old_scan_apc_ups_last_transfer_reason =~ /\D/) or (($old_scan_apc_ups_last_transfer_reason < 0) or ($old_scan_apc_ups_last_transfer_reason > 10)))
{
# We'll use '99' as a generic "this is not known"
$say_old_scan_apc_ups_last_transfer_reason = 99;
}
# The level of the alert will depends on the now/old state
my $log_level = 3;
my $alert_level = "info";
if (($scan_apc_ups_last_transfer_reason eq "2") or ($old_scan_apc_ups_last_transfer_reason eq "2") or
($scan_apc_ups_last_transfer_reason eq "3") or ($old_scan_apc_ups_last_transfer_reason eq "3") or
($scan_apc_ups_last_transfer_reason eq "4") or ($old_scan_apc_ups_last_transfer_reason eq "3") or
($scan_apc_ups_last_transfer_reason eq "6") or ($old_scan_apc_ups_last_transfer_reason eq "6") or
($scan_apc_ups_last_transfer_reason eq "8") or ($old_scan_apc_ups_last_transfer_reason eq "8") or
($scan_apc_ups_last_transfer_reason eq "10") or ($old_scan_apc_ups_last_transfer_reason eq "10"))
{
$log_level = 2;
$alert_level = "notice";
}
my $variables = {
ups_name => $scan_apc_ups_name,
new_value => "#!string!scan_apc_ups_last_transfer_".sprintf("%04d", $say_scan_apc_ups_last_transfer_reason)."!#",
old_value => "#!string!scan_apc_ups_last_transfer_".sprintf("%04d", $say_old_scan_apc_ups_last_transfer_reason)."!#",
};
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => $log_level, key => "scan_apc_ups_warning_0015", variables => $variables});
$anvil->Alert->register({alert_level => $alert_level, message => "scan_apc_ups_warning_0015", variables => $variables, set_by => $THIS_FILE, sort_position => $anvil->data->{'scan-apc-ups'}{alert_sort}++});
}
if ($scan_apc_ups_manufactured_date ne $old_scan_apc_ups_manufactured_date)
{
# Likely a replacement UPS.
$ups_changed = 1;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { ups_changed => $ups_changed }});
my $variables = {
ups_name => $scan_apc_ups_name,
old_value => $old_scan_apc_ups_manufactured_date,
new_value => $scan_apc_ups_manufactured_date,
};
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 1, key => "scan_apc_ups_warning_0016", variables => $variables});
$anvil->Alert->register({alert_level => "notice", message => "scan_apc_ups_warning_0016", variables => $variables, set_by => $THIS_FILE, sort_position => $anvil->data->{'scan-apc-ups'}{alert_sort}++});
}
# Has the NMC's firmware changed?
if ($scan_apc_ups_nmc_firmware_version ne $old_scan_apc_ups_nmc_firmware_version)
{
# NMC was either updated or replaced.
$ups_changed = 1;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { ups_changed => $ups_changed }});
my $variables = {
ups_name => $scan_apc_ups_name,
old_value => $old_scan_apc_ups_nmc_firmware_version,
new_value => $scan_apc_ups_nmc_firmware_version,
};
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 1, key => "scan_apc_ups_warning_0017", variables => $variables});
$anvil->Alert->register({alert_level => "notice", message => "scan_apc_ups_warning_0017", variables => $variables, set_by => $THIS_FILE, sort_position => $anvil->data->{'scan-apc-ups'}{alert_sort}++});
}
# Has the NMC serial number changed? If the user changed the network card,
# this could be triggered.
if ($scan_apc_ups_nmc_serial_number ne $old_scan_apc_ups_nmc_serial_number)
{
# NMC was probably replaced
$ups_changed = 1;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { ups_changed => $ups_changed }});
my $variables = {
ups_name => $scan_apc_ups_name,
old_value => $old_scan_apc_ups_nmc_serial_number,
new_value => $scan_apc_ups_nmc_serial_number,
};
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 1, key => "scan_apc_ups_warning_0018", variables => $variables});
$anvil->Alert->register({alert_level => "notice", message => "scan_apc_ups_warning_0018", variables => $variables, set_by => $THIS_FILE, sort_position => $anvil->data->{'scan-apc-ups'}{alert_sort}++});
}
# As with above, if the MAC address changed, it is probably because the NMC
# was replaced.
if ($scan_apc_ups_nmc_mac_address ne $old_scan_apc_ups_nmc_mac_address)
{
# NMC was probably replaced
$ups_changed = 1;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { ups_changed => $ups_changed }});
my $variables = {
ups_name => $scan_apc_ups_name,
old_value => $old_scan_apc_ups_nmc_mac_address,
new_value => $scan_apc_ups_nmc_mac_address,
};
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 1, key => "scan_apc_ups_warning_0019", variables => $variables});
$anvil->Alert->register({alert_level => "notice", message => "scan_apc_ups_warning_0019", variables => $variables, set_by => $THIS_FILE, sort_position => $anvil->data->{'scan-apc-ups'}{alert_sort}++});
}
if ($ups_changed)
{
my $query = "
UPDATE
scan_apc_upses
SET
scan_apc_ups_name = ".$anvil->Database->quote($scan_apc_ups_name).",
scan_apc_ups_ip = ".$anvil->Database->quote($scan_apc_ups_ip).",
scan_apc_ups_serial_number = ".$anvil->Database->quote($scan_apc_ups_serial_number).",
scan_apc_ups_ac_restore_delay = ".$anvil->Database->quote($scan_apc_ups_ac_restore_delay).",
scan_apc_ups_shutdown_delay = ".$anvil->Database->quote($scan_apc_ups_shutdown_delay).",
scan_apc_ups_firmware_version = ".$anvil->Database->quote($scan_apc_ups_firmware_version).",
scan_apc_ups_health = ".$anvil->Database->quote($scan_apc_ups_health).",
scan_apc_ups_high_transfer_voltage = ".$anvil->Database->quote($scan_apc_ups_high_transfer_voltage).",
scan_apc_ups_low_transfer_voltage = ".$anvil->Database->quote($scan_apc_ups_low_transfer_voltage).",
scan_apc_ups_last_transfer_reason = ".$anvil->Database->quote($scan_apc_ups_last_transfer_reason).",
scan_apc_ups_manufactured_date = ".$anvil->Database->quote($scan_apc_ups_manufactured_date).",
scan_apc_ups_model = ".$anvil->Database->quote($scan_apc_ups_model).",
scan_apc_ups_nmc_firmware_version = ".$anvil->Database->quote($scan_apc_ups_nmc_firmware_version).",
scan_apc_ups_nmc_serial_number = ".$anvil->Database->quote($scan_apc_ups_nmc_serial_number).",
scan_apc_ups_nmc_mac_address = ".$anvil->Database->quote($scan_apc_ups_nmc_mac_address).",
modified_date = ".$anvil->Database->quote($anvil->Database->refresh_timestamp)."
WHERE
scan_apc_ups_uuid = ".$anvil->Database->quote($scan_apc_ups_uuid)."
;";
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { query => $query }});
$anvil->Database->write({query => $query, source => $THIS_FILE, line => __LINE__});
}
# Input changes. This can only change, never come new
my $input_changed = 0;
my $scan_apc_ups_input_uuid = $anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_input_uuid};
my $old_scan_apc_ups_input_sensitivity = $anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_input_sensitivity};
my $old_scan_apc_ups_input_voltage = $anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_input_voltage};
my $old_scan_apc_ups_input_1m_maximum_input_voltage = $anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_input_1m_maximum_input_voltage};
my $old_scan_apc_ups_input_1m_minimum_input_voltage = $anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_input_1m_minimum_input_voltage};
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
old_scan_apc_ups_input_sensitivity => $old_scan_apc_ups_input_sensitivity,
old_scan_apc_ups_input_voltage => $old_scan_apc_ups_input_voltage,
old_scan_apc_ups_input_1m_maximum_input_voltage => $old_scan_apc_ups_input_1m_maximum_input_voltage,
old_scan_apc_ups_input_1m_minimum_input_voltage => $old_scan_apc_ups_input_1m_minimum_input_voltage,
}});
# Output changes. This can only change, never come new
my $output_changed = 0;
my $scan_apc_ups_output_uuid = $anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_output_uuid};
my $old_scan_apc_ups_output_load_percentage = $anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_output_load_percentage};
my $old_scan_apc_ups_output_time_on_batteries = $anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_output_time_on_batteries};
my $old_scan_apc_ups_output_estimated_runtime = $anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_output_estimated_runtime};
my $old_scan_apc_ups_output_frequency = $anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_output_frequency};
my $old_scan_apc_ups_output_voltage = $anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_output_voltage};
my $old_scan_apc_ups_output_total_output = $anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_output_total_output};
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
old_scan_apc_ups_output_voltage => $old_scan_apc_ups_output_voltage,
old_scan_apc_ups_output_total_output => $old_scan_apc_ups_output_total_output,
old_scan_apc_ups_output_frequency => $old_scan_apc_ups_output_frequency,
old_scan_apc_ups_output_time_on_batteries => $old_scan_apc_ups_output_time_on_batteries,
old_scan_apc_ups_output_estimated_runtime => $old_scan_apc_ups_output_estimated_runtime,
old_scan_apc_ups_output_load_percentage => $old_scan_apc_ups_output_load_percentage,
}});
if ($scan_apc_ups_input_sensitivity ne $old_scan_apc_ups_input_sensitivity)
{
$input_changed = 1;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { input_changed => $input_changed }});
# Make sure we have a valid health integer
my $say_scan_apc_ups_input_sensitivity = $scan_apc_ups_input_sensitivity;
my $say_old_scan_apc_ups_input_sensitivity = $old_scan_apc_ups_input_sensitivity;
if (($scan_apc_ups_input_sensitivity =~ /\D/) or (($scan_apc_ups_input_sensitivity < 0) or ($scan_apc_ups_input_sensitivity > 4)))
{
# We'll use '99' as a generic "this is not known"
$say_scan_apc_ups_input_sensitivity = 99;
}
elsif (($old_scan_apc_ups_input_sensitivity =~ /\D/) or (($old_scan_apc_ups_input_sensitivity < 0) or ($old_scan_apc_ups_input_sensitivity > 4)))
{
# We'll use '99' as a generic "this is not known"
$say_old_scan_apc_ups_input_sensitivity = 99;
}
my $variables = {
ups_name => $scan_apc_ups_name,
new_value => "#!string!scan_apc_ups_sensitivity_".sprintf("%04d", $say_scan_apc_ups_input_sensitivity)."!#",
old_value => "#!string!scan_apc_ups_sensitivity_".sprintf("%04d", $say_old_scan_apc_ups_input_sensitivity)."!#",
};
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 2, key => "scan_apc_ups_warning_0020", variables => $variables});
$anvil->Alert->register({alert_level => "notice", message => "scan_apc_ups_warning_0020", variables => $variables, set_by => $THIS_FILE, sort_position => $anvil->data->{'scan-apc-ups'}{alert_sort}++});
}
# Has the input voltage changed?
if ($scan_apc_ups_input_voltage ne $old_scan_apc_ups_input_voltage)
{
$input_changed = 1;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { input_changed => $input_changed }});
# This is always changing, so normally we will use an 'info' level alert.
my $message_key = "scan_apc_ups_warning_0024";
# These are thresholds
my $high_transfer_voltage = $scan_apc_ups_high_transfer_voltage;
my $clear_high_transfer = ($scan_apc_ups_high_transfer_voltage - $anvil->data->{'scan-apc-ups'}{transfer_voltage_clear_delta});
my $low_transfer_voltage = $scan_apc_ups_low_transfer_voltage;
my $clear_low_transfer = ($scan_apc_ups_low_transfer_voltage + $anvil->data->{'scan-apc-ups'}{transfer_voltage_clear_delta});
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
high_transfer_voltage => $high_transfer_voltage,
clear_high_transfer => $clear_high_transfer,
low_transfer_voltage => $low_transfer_voltage,
clear_low_transfer => $clear_low_transfer,
}});
my $variables = {
ups_name => $scan_apc_ups_name,
new_value => $anvil->Convert->round({places => 1, number => $scan_apc_ups_input_voltage}),
old_value => $anvil->Convert->round({places => 1, number => $old_scan_apc_ups_input_voltage}),
holdup_time => $anvil->Convert->time({'time' => $scan_apc_ups_output_estimated_runtime}),
high_transfer_voltage => $high_transfer_voltage,
clear_high_transfer => $clear_high_transfer,
low_transfer_voltage => $low_transfer_voltage,
clear_low_transfer => $clear_low_transfer,
};
# holdup_time => $anvil->Convert->time({'time' => $scan_apc_ups_output_estimated_runtime}),
my $lost_voltage_key = $scan_apc_ups_uuid."::scan_apc_ups_input_voltage_lost";
my $low_voltage_key = $scan_apc_ups_uuid."::scan_apc_ups_input_voltage_low";
my $high_voltage_key = $scan_apc_ups_uuid."::scan_apc_ups_input_voltage_high";
# Is the voltage rising or falling?
if ($scan_apc_ups_input_voltage > $old_scan_apc_ups_input_voltage)
{
### It is rising.
# Has it crossed over the high-voltage transfer threshold? If not,
# has it crossed over the low-voltage clear level?
if ($old_scan_apc_ups_input_voltage == 0)
{
# Power has been restored.
my $changed = $anvil->Alert->check_alert_sent({clear => 1, record_locator => $lost_voltage_key, set_by => $THIS_FILE });
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { changed => $changed }});
if ($changed)
{
# Register an alert.
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 0, priority => "err", key => "scan_apc_ups_warning_0021", variables => $variables});
$anvil->Alert->register({alert_level => "warning", clear_alert => 1, message => "scan_apc_ups_warning_0021", variables => $variables, sort_position => 1, set_by => $THIS_FILE});
}
}
elsif ($scan_apc_ups_input_voltage > $high_transfer_voltage)
{
# Voltage is too high, see if the alert exists already
my $changed = $anvil->Alert->check_alert_sent({record_locator => $high_voltage_key, set_by => $THIS_FILE });
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { changed => $changed }});
if ($changed)
{
# Register an alert.
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 0, priority => "err", key => "scan_apc_ups_warning_0022", variables => $variables});
$anvil->Alert->register({alert_level => "warning", message => "scan_apc_ups_warning_0022", variables => $variables, sort_position => 1, set_by => $THIS_FILE});
}
}
elsif ($scan_apc_ups_input_voltage > $clear_low_transfer)
{
# Above the low transfer clear level.
my $changed = $anvil->Alert->check_alert_sent({clear => 1, record_locator => $low_voltage_key, set_by => $THIS_FILE });
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { changed => $changed }});
if ($changed)
{
# Register an alert.
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 0, priority => "err", key => "scan_apc_ups_warning_0023", variables => $variables});
$anvil->Alert->register({alert_level => "warning", clear_alert => 1, message => "scan_apc_ups_warning_0023", variables => $variables, sort_position => 1, set_by => $THIS_FILE});
}
}
}
else
{
# It is falling.
$message_key = "scan_apc_ups_warning_0025";
# Has it dropped below the low transfer voltage? If not, has
# it dropped below the high-voltage clear level?
if ($scan_apc_ups_input_voltage == 0)
{
# Power lost entirely
my $changed = $anvil->Alert->check_alert_sent({clear => 1, record_locator => $lost_voltage_key, set_by => $THIS_FILE });
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { changed => $changed }});
if ($changed)
{
# Register an alert.
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 0, priority => "err", key => "scan_apc_ups_warning_0026", variables => $variables});
$anvil->Alert->register({alert_level => "warning", clear_alert => 1, message => "scan_apc_ups_warning_0026", variables => $variables, sort_position => 1, set_by => $THIS_FILE});
}
}
elsif ($scan_apc_ups_input_voltage < $low_transfer_voltage)
{
# It is below the low-transfer limit, set an alert if needed.
my $changed = $anvil->Alert->check_alert_sent({record_locator => $low_voltage_key, set_by => $THIS_FILE });
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { changed => $changed }});
if ($changed)
{
# Register an alert.
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 0, priority => "err", key => "scan_apc_ups_warning_0027", variables => $variables});
$anvil->Alert->register({alert_level => "warning", message => "scan_apc_ups_warning_0027", variables => $variables, sort_position => 1, set_by => $THIS_FILE});
}
}
elsif ($scan_apc_ups_input_voltage < $clear_high_transfer)
{
# The voltage is below the high transfer voltage.
my $changed = $anvil->Alert->check_alert_sent({clear => 1, record_locator => $high_voltage_key, set_by => $THIS_FILE });
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { changed => $changed }});
if ($changed)
{
# Register an alert.
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 0, priority => "err", key => "scan_apc_ups_warning_0028", variables => $variables});
$anvil->Alert->register({alert_level => "warning", clear_alert => 1, message => "scan_apc_ups_warning_0028", variables => $variables, sort_position => 1, set_by => $THIS_FILE});
}
}
}
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 2, key => $message_key, variables => $variables});
$anvil->Alert->register({alert_level => "info", message => $message_key, variables => $variables, sort_position => $anvil->data->{'scan-apc-ups'}{alert_sort}++, set_by => $THIS_FILE});
}
# Has the maximum input voltage seen in the last 60 seconds changed?
if ($scan_apc_ups_input_1m_maximum_input_voltage ne $old_scan_apc_ups_input_1m_maximum_input_voltage)
{
# This is expected to always happen.
$input_changed = 1;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { input_changed => $input_changed }});
my $variables = {
ups_name => $scan_apc_ups_name,
new_value => $anvil->Convert->round({places => 1, number => $scan_apc_ups_input_1m_maximum_input_voltage}),
old_value => $anvil->Convert->round({places => 1, number => $old_scan_apc_ups_input_1m_maximum_input_voltage}),
};
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 2, key => "scan_apc_ups_warning_0029", variables => $variables});
$anvil->Alert->register({alert_level => "info", message => "scan_apc_ups_warning_0029", variables => $variables, sort_position => $anvil->data->{'scan-apc-ups'}{alert_sort}++, set_by => $THIS_FILE});
}
# Has the minimum input voltage seen in the last 60 seconds changed?
if ($scan_apc_ups_input_1m_minimum_input_voltage ne $old_scan_apc_ups_input_1m_minimum_input_voltage)
{
$input_changed = 1;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { input_changed => $input_changed }});
my $variables = {
ups_name => $scan_apc_ups_name,
new_value => $anvil->Convert->round({places => 1, number => $scan_apc_ups_input_1m_minimum_input_voltage}),
old_value => $anvil->Convert->round({places => 1, number => $old_scan_apc_ups_input_1m_minimum_input_voltage}),
};
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 2, key => "scan_apc_ups_warning_0030", variables => $variables});
$anvil->Alert->register({alert_level => "info", message => "scan_apc_ups_warning_0030", variables => $variables, sort_position => $anvil->data->{'scan-apc-ups'}{alert_sort}++, set_by => $THIS_FILE});
}
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { input_changed => $input_changed }});
if ($input_changed)
{
my $query = "
UPDATE
scan_apc_ups_input
SET
scan_apc_ups_input_scan_apc_ups_uuid = ".$anvil->Database->quote($scan_apc_ups_uuid).",
scan_apc_ups_input_frequency = ".$anvil->Database->quote($scan_apc_ups_input_frequency).",
scan_apc_ups_input_sensitivity = ".$anvil->Database->quote($scan_apc_ups_input_sensitivity).",
scan_apc_ups_input_voltage = ".$anvil->Database->quote($scan_apc_ups_input_voltage).",
scan_apc_ups_input_1m_maximum_input_voltage = ".$anvil->Database->quote($scan_apc_ups_input_1m_maximum_input_voltage).",
scan_apc_ups_input_1m_minimum_input_voltage = ".$anvil->Database->quote($scan_apc_ups_input_1m_minimum_input_voltage).",
modified_date = ".$anvil->Database->quote($anvil->Database->refresh_timestamp)."
WHERE
scan_apc_ups_input_uuid = ".$anvil->Database->quote($scan_apc_ups_input_uuid)."
;";
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { query => $query }});
$anvil->Database->write({query => $query, source => $THIS_FILE, line => __LINE__});
}
# Look for changes in output data now.
if ($scan_apc_ups_output_load_percentage ne $old_scan_apc_ups_output_load_percentage)
{
$output_changed = 1;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { output_changed => $output_changed }});
# Is it rising or falling?
my $log_normal = 1;
my $high_load_key = $scan_apc_ups_uuid."::scan_apc_ups_high_load";
my $variables = {
ups_name => $scan_apc_ups_name,
new_value => $scan_apc_ups_output_load_percentage,
old_value => $old_scan_apc_ups_output_load_percentage,
high_load => $anvil->data->{'scan-apc-ups'}{high_load_threshold},
high_clear => $anvil->data->{'scan-apc-ups'}{high_load_clear_threshold},
};
if ($scan_apc_ups_output_load_percentage > $old_scan_apc_ups_output_load_percentage)
{
# Rising, is it over the high-load alert?
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 3, list => {
scan_apc_ups_output_load_percentage => $scan_apc_ups_output_load_percentage,
"scan-apc-ups::high_load_threshold" => $anvil->data->{'scan-apc-ups'}{high_load_threshold},
}});
if ($scan_apc_ups_output_load_percentage > $anvil->data->{'scan-apc-ups'}{high_load_threshold})
{
# Over high load, is this a first?
my $changed = $anvil->Alert->check_alert_sent({record_locator => $high_load_key, set_by => $THIS_FILE });
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { changed => $changed }});
if ($changed)
{
# Register an alert.
$log_normal = 0;
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 0, priority => "err", key => "scan_apc_ups_warning_0032", variables => $variables});
$anvil->Alert->register({alert_level => "warning", message => "scan_apc_ups_warning_0032", variables => $variables, sort_position => 1, set_by => $THIS_FILE});
}
}
}
else
{
# Falling, is it below the high-load clear threshold?
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 3, list => {
scan_apc_ups_output_load_percentage => $scan_apc_ups_output_load_percentage,
"scan-apc-ups::high_load_clear_threshold" => $anvil->data->{'scan-apc-ups'}{high_load_clear_threshold},
}});
if ($scan_apc_ups_output_load_percentage < $anvil->data->{'scan-apc-ups'}{high_load_clear_threshold})
{
# It's below the clear high-load value, is this new?
my $changed = $anvil->Alert->check_alert_sent({clear => 1, record_locator => $high_load_key, set_by => $THIS_FILE });
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { changed => $changed }});
if ($changed)
{
# Register an alert.
$log_normal = 0;
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 0, priority => "err", key => "scan_apc_ups_warning_0033", variables => $variables});
$anvil->Alert->register({alert_level => "warning", message => "scan_apc_ups_warning_0033", variables => $variables, sort_position => 1, set_by => $THIS_FILE});
}
}
}
if ($log_normal)
{
# This is an info level alert as it changes all the time.
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 2, key => "scan_apc_ups_warning_0031", variables => $variables});
$anvil->Alert->register({alert_level => "info", message => "scan_apc_ups_warning_0031", variables => $variables, sort_position => $anvil->data->{'scan-apc-ups'}{alert_sort}++, set_by => $THIS_FILE});
}
}
# Has the time on batteries value changed?
if ($scan_apc_ups_output_time_on_batteries ne $old_scan_apc_ups_output_time_on_batteries)
{
$output_changed = 1;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { output_changed => $output_changed }});
# If the old value was '0', we just switched to batteries. This will be a
# 'notice' level event. Likewise if the new time is '0'. Otherwise, it is
# 'info'. We don't do 'warning' because that is caught by the loss of input
# voltage.
my $level = "info";
my $message_key = "scan_apc_ups_warning_0034";
my $variables = {
ups_name => $scan_apc_ups_name,
new_value => $anvil->Convert->time({'time' => $scan_apc_ups_output_time_on_batteries}),
old_value => $anvil->Convert->time({'time' => $old_scan_apc_ups_output_time_on_batteries}),
};
# Is the old time '0'?
if ($scan_apc_ups_output_time_on_batteries eq "0")
{
# We're on batteries now.
$level = "notice";
$message_key = "scan_apc_ups_warning_0035";
}
elsif ($old_scan_apc_ups_output_time_on_batteries eq "0")
{
# We're no longer on batteries.
$level = "notice";
$message_key = "scan_apc_ups_warning_0036";
}
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
level => $level,
message_key => $message_key,
}});
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 2, key => $message_key, variables => $variables});
$anvil->Alert->register({alert_level => $level, message => $message_key, variables => $variables, sort_position => $anvil->data->{'scan-apc-ups'}{alert_sort}++, set_by => $THIS_FILE});
}
# Has the estimated runtime changed?
if ($scan_apc_ups_output_estimated_runtime ne $old_scan_apc_ups_output_estimated_runtime)
{
$output_changed = 1;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { output_changed => $output_changed }});
# If the estimated hold-up time is below 15 minutes, send an alert. If the
# estimated hold-up time is greater than 20 minutes, clear it.
my $send_alert = 1;
my $low_hold_up_key = $scan_apc_ups_uuid."::scan_apc_ups_low_holdup_time";
my $variables = {
ups_name => $scan_apc_ups_name,
new_value => $anvil->Convert->time({'time' => $scan_apc_ups_output_estimated_runtime}),
old_value => $anvil->Convert->time({'time' => $old_scan_apc_ups_output_estimated_runtime}),
low_threshold => $anvil->Convert->time({'time' => $anvil->data->{'scan-apc-ups'}{low_hold_up_threshold}}),
clear_threshold => $anvil->Convert->time({'time' => $anvil->data->{'scan-apc-ups'}{low_hold_up_clear_threshold}}),
};
if ($scan_apc_ups_output_estimated_runtime < $anvil->data->{'scan-apc-ups'}{low_hold_up_threshold})
{
# Low hold up time, has an alert been sent?
my $changed = $anvil->Alert->check_alert_sent({record_locator => $low_hold_up_key, set_by => $THIS_FILE });
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { changed => $changed }});
if ($changed)
{
# Register an alert.
$send_alert = 0;
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 1, priority => "err", key => "scan_apc_ups_warning_0038", variables => $variables});
$anvil->Alert->register({alert_level => "note", message => "scan_apc_ups_warning_0038", variables => $variables, sort_position => 1, set_by => $THIS_FILE});
}
}
elsif ($scan_apc_ups_output_estimated_runtime > $anvil->data->{'scan-apc-ups'}{low_hold_up_clear_threshold})
{
# Above the clear threshold, was an alert set?
my $changed = $anvil->Alert->check_alert_sent({clear => 1, record_locator => $low_hold_up_key, set_by => $THIS_FILE });
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { changed => $changed }});
if ($changed)
{
# Register an alert.
$send_alert = 0;
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 1, priority => "err", key => "scan_apc_ups_warning_0039", variables => $variables});
$anvil->Alert->register({alert_level => "note", clear_alert => 1, message => "scan_apc_ups_warning_0039", variables => $variables, sort_position => 1, set_by => $THIS_FILE});
}
}
if ($send_alert)
{
# A normal minor change.
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 2, key => "scan_apc_ups_warning_0037", variables => $variables});
$anvil->Alert->register({alert_level => "info", message => "scan_apc_ups_warning_0037", variables => $variables, sort_position => $anvil->data->{'scan-apc-ups'}{alert_sort}++, set_by => $THIS_FILE});
}
}
# Has the output frequency changed?
if ($scan_apc_ups_output_frequency ne $old_scan_apc_ups_output_frequency)
{
$output_changed = 1;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { output_changed => $output_changed }});
# This changes often, so it's info
my $variables = {
ups_name => $scan_apc_ups_name,
new_value => $anvil->Convert->round({places => 1, number => $scan_apc_ups_output_frequency}),
old_value => $anvil->Convert->round({places => 1, number => $old_scan_apc_ups_output_frequency}),
};
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 2, key => "scan_apc_ups_warning_0040", variables => $variables});
$anvil->Alert->register({alert_level => "info", message => "scan_apc_ups_warning_0040", variables => $variables, sort_position => $anvil->data->{'scan-apc-ups'}{alert_sort}++, set_by => $THIS_FILE});
}
# Has the output voltage changed?
if ($scan_apc_ups_output_voltage ne $old_scan_apc_ups_output_voltage)
{
$output_changed = 1;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { output_changed => $output_changed }});
# This changes often and is generally not a concern.
my $variables = {
ups_name => $scan_apc_ups_name,
new_value => $anvil->Convert->round({places => 1, number => $scan_apc_ups_output_voltage}),
old_value => $anvil->Convert->round({places => 1, number => $old_scan_apc_ups_output_voltage}),
};
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 2, key => "scan_apc_ups_warning_0041", variables => $variables});
$anvil->Alert->register({alert_level => "info", message => "scan_apc_ups_warning_0041", variables => $variables, sort_position => $anvil->data->{'scan-apc-ups'}{alert_sort}++, set_by => $THIS_FILE});
}
# This is always changing...
if ($scan_apc_ups_output_total_output ne $old_scan_apc_ups_output_total_output)
{
$output_changed = 1;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { output_changed => $output_changed }});
# This changes every scan and is not a concern.
my $say_scan_apc_ups_output_total_output = $anvil->Convert->round({places => 2, number => $scan_apc_ups_output_total_output});
$say_scan_apc_ups_output_total_output = $anvil->Convert->add_commas({number => $say_scan_apc_ups_output_total_output});
my $say_old_scan_apc_ups_output_total_output = $anvil->Convert->round({places => 2, number => $old_scan_apc_ups_output_total_output});
$say_old_scan_apc_ups_output_total_output = $anvil->Convert->add_commas({number => $say_old_scan_apc_ups_output_total_output});
my $variables = {
ups_name => $scan_apc_ups_name,
new_value => $say_scan_apc_ups_output_total_output,
old_value => $say_old_scan_apc_ups_output_total_output,
};
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 2, key => "scan_apc_ups_warning_0042", variables => $variables});
$anvil->Alert->register({alert_level => "info", message => "scan_apc_ups_warning_0042", variables => $variables, sort_position => $anvil->data->{'scan-apc-ups'}{alert_sort}++, set_by => $THIS_FILE});
}
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { output_changed => $output_changed }});
if ($output_changed)
{
# Update the DB table
my $query = "
UPDATE
scan_apc_ups_output
SET
scan_apc_ups_output_scan_apc_ups_uuid = ".$anvil->Database->quote($scan_apc_ups_uuid).",
scan_apc_ups_output_load_percentage = ".$anvil->Database->quote($scan_apc_ups_output_load_percentage).",
scan_apc_ups_output_time_on_batteries = ".$anvil->Database->quote($scan_apc_ups_output_time_on_batteries).",
scan_apc_ups_output_estimated_runtime = ".$anvil->Database->quote($scan_apc_ups_output_estimated_runtime).",
scan_apc_ups_output_frequency = ".$anvil->Database->quote($scan_apc_ups_output_frequency).",
scan_apc_ups_output_voltage = ".$anvil->Database->quote($scan_apc_ups_output_voltage).",
scan_apc_ups_output_total_output = ".$anvil->Database->quote($scan_apc_ups_output_total_output).",
modified_date = ".$anvil->Database->quote($anvil->Database->refresh_timestamp)."
WHERE
scan_apc_ups_output_uuid = ".$anvil->Database->quote($scan_apc_ups_output_uuid)."
";
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { query => $query }});
$anvil->Database->write({query => $query, source => $THIS_FILE, line => __LINE__});
}
# Look for batteries, these can come, go and be replaced.
foreach my $battery_number (sort {$a cmp $b} keys %{$anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{battery}})
{
my $scan_apc_ups_battery_uuid = "";
my $scan_apc_ups_battery_next_replacement_date = $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{battery}{$battery_number}{scan_apc_ups_battery_next_replacement_date};
my $scan_apc_ups_battery_health = $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{battery}{$battery_number}{scan_apc_ups_battery_health};
my $scan_apc_ups_battery_model = $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{battery}{$battery_number}{scan_apc_ups_battery_model};
my $scan_apc_ups_battery_percentage_charge = $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{battery}{$battery_number}{scan_apc_ups_battery_percentage_charge};
my $scan_apc_ups_battery_last_replacement_date = $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{battery}{$battery_number}{scan_apc_ups_battery_last_replacement_date};
my $scan_apc_ups_battery_state = $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{battery}{$battery_number}{scan_apc_ups_battery_state};
my $scan_apc_ups_battery_temperature = $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{battery}{$battery_number}{scan_apc_ups_battery_temperature};
my $scan_apc_ups_battery_alarm_temperature = $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{battery}{$battery_number}{scan_apc_ups_battery_alarm_temperature};
my $scan_apc_ups_battery_voltage = $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{battery}{$battery_number}{scan_apc_ups_battery_voltage};
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
scan_apc_ups_battery_next_replacement_date => $scan_apc_ups_battery_next_replacement_date,
scan_apc_ups_battery_health => $scan_apc_ups_battery_health,
scan_apc_ups_battery_model => $scan_apc_ups_battery_model,
scan_apc_ups_battery_percentage_charge => $scan_apc_ups_battery_percentage_charge,
scan_apc_ups_battery_last_replacement_date => $scan_apc_ups_battery_last_replacement_date,
scan_apc_ups_battery_state => $scan_apc_ups_battery_state,
scan_apc_ups_battery_temperature => $scan_apc_ups_battery_temperature,
scan_apc_ups_battery_alarm_temperature => $scan_apc_ups_battery_alarm_temperature,
scan_apc_ups_battery_voltage => $scan_apc_ups_battery_voltage,
}});
if (exists $anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{battery_number}{$battery_number}{scan_apc_ups_battery_uuid})
{
$scan_apc_ups_battery_uuid = $anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{battery_number}{$battery_number}{scan_apc_ups_battery_uuid};
my $old_scan_apc_ups_battery_next_replacement_date = $anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_battery_uuid}{$scan_apc_ups_battery_uuid}{scan_apc_ups_battery_next_replacement_date};
my $old_scan_apc_ups_battery_health = $anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_battery_uuid}{$scan_apc_ups_battery_uuid}{scan_apc_ups_battery_health};
my $old_scan_apc_ups_battery_model = $anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_battery_uuid}{$scan_apc_ups_battery_uuid}{scan_apc_ups_battery_model};
my $old_scan_apc_ups_battery_percentage_charge = $anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_battery_uuid}{$scan_apc_ups_battery_uuid}{scan_apc_ups_battery_percentage_charge};
my $old_scan_apc_ups_battery_last_replacement_date = $anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_battery_uuid}{$scan_apc_ups_battery_uuid}{scan_apc_ups_battery_last_replacement_date};
my $old_scan_apc_ups_battery_state = $anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_battery_uuid}{$scan_apc_ups_battery_uuid}{scan_apc_ups_battery_state};
my $old_scan_apc_ups_battery_temperature = $anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_battery_uuid}{$scan_apc_ups_battery_uuid}{scan_apc_ups_battery_temperature};
my $old_scan_apc_ups_battery_alarm_temperature = $anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_battery_uuid}{$scan_apc_ups_battery_uuid}{scan_apc_ups_battery_alarm_temperature};
my $old_scan_apc_ups_battery_voltage = $anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_battery_uuid}{$scan_apc_ups_battery_uuid}{scan_apc_ups_battery_voltage};
my $last_update_unixtime = $anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_battery_uuid}{$scan_apc_ups_battery_uuid}{last_update_unixtime};
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
scan_apc_ups_battery_uuid => $scan_apc_ups_battery_uuid,
old_scan_apc_ups_battery_next_replacement_date => $old_scan_apc_ups_battery_next_replacement_date,
old_scan_apc_ups_battery_health => $old_scan_apc_ups_battery_health,
old_scan_apc_ups_battery_model => $old_scan_apc_ups_battery_model,
old_scan_apc_ups_battery_percentage_charge => $old_scan_apc_ups_battery_percentage_charge,
old_scan_apc_ups_battery_last_replacement_date => $old_scan_apc_ups_battery_last_replacement_date,
old_scan_apc_ups_battery_state => $old_scan_apc_ups_battery_state,
old_scan_apc_ups_battery_temperature => $old_scan_apc_ups_battery_temperature,
old_scan_apc_ups_battery_alarm_temperature => $old_scan_apc_ups_battery_alarm_temperature,
old_scan_apc_ups_battery_voltage => $old_scan_apc_ups_battery_voltage,
last_update_unixtime => $last_update_unixtime,
}});
# Looks for changes
my $battery_changed = 0;
# Has the estimated replacement date changed?
if ($scan_apc_ups_battery_next_replacement_date ne $old_scan_apc_ups_battery_next_replacement_date)
{
$battery_changed = 1;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { battery_changed => $battery_changed }});
# This changes often with load shifts, so it's an info alert.
my $variables = {
ups_name => $scan_apc_ups_name,
new_value => $scan_apc_ups_battery_next_replacement_date,
old_value => $old_scan_apc_ups_battery_next_replacement_date,
battery_number => $battery_number,
};
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 2, key => "scan_apc_ups_message_0008", variables => $variables});
$anvil->Alert->register({alert_level => "info", message => "scan_apc_ups_message_0008", variables => $variables, sort_position => $anvil->data->{'scan-apc-ups'}{alert_sort}++, set_by => $THIS_FILE});
}
# Has the battery health changed?
if ($scan_apc_ups_battery_health ne $old_scan_apc_ups_battery_health)
{
$battery_changed = 1;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { battery_changed => $battery_changed }});
my $bad_value = "";
my $level = "notice";
my $message_key = "scan_apc_ups_message_0009";
# Make sure we have a valid health integer
my $say_scan_apc_ups_battery_health = $scan_apc_ups_battery_health;
my $say_old_scan_apc_ups_battery_health = $old_scan_apc_ups_battery_health;
if (($scan_apc_ups_battery_health =~ /\D/) or (($scan_apc_ups_battery_health < 0) or ($scan_apc_ups_battery_health > 2)))
{
# We'll use '99' as a generic "this is not known"
$bad_value = $scan_apc_ups_battery_health;
$scan_apc_ups_battery_health = 99;
}
elsif (($old_scan_apc_ups_battery_health =~ /\D/) or (($old_scan_apc_ups_battery_health < 0) or ($old_scan_apc_ups_battery_health > 2)))
{
# We'll use '99' as a generic "this is not known"
$bad_value = $old_scan_apc_ups_battery_health;
$old_scan_apc_ups_battery_health = 99;
}
### There are 2 possible states (* == warning):
# 1 - The UPS battery is healthy.
# *2 - The UPS battery has failed and needs to be replaced.
if ($scan_apc_ups_battery_health eq "2")
{
# Entered a warning state.
$level = "warning";
$message_key = "scan_apc_ups_message_0010";
}
elsif ($old_scan_apc_ups_battery_health eq "2")
{
# Warning state cleared.
$level = "warning";
$message_key = "scan_apc_ups_message_0011";
}
my $sort_position = $level eq "warning" ? 1 : $anvil->data->{'scan-apc-ups'}{alert_sort}++;
my $variables = {
ups_name => $scan_apc_ups_name,
battery_number => $battery_number,
bad_value => $bad_value,
new_value => "#!string!scan_apc_ups_battery_health_".sprintf("%04d", $say_scan_apc_ups_battery_health)."!#",
old_value => "#!string!scan_apc_ups_battery_health_".sprintf("%04d", $say_old_scan_apc_ups_battery_health)."!#",
battery_model => $scan_apc_ups_battery_model,
};
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 2, key => $message_key, variables => $variables});
$anvil->Alert->register({alert_level => $level, message => $message_key, variables => $variables, sort_position => $sort_position, set_by => $THIS_FILE});
}
# Has the battery model changed?
if ($scan_apc_ups_battery_model ne $old_scan_apc_ups_battery_model)
{
# This is almost certainly an event the admin knows about.
$battery_changed = 1;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { battery_changed => $battery_changed }});
my $variables = {
battery_number => $battery_number,
ups_name => $scan_apc_ups_name,
new_value => $scan_apc_ups_battery_model,
old_value => $old_scan_apc_ups_battery_model,
};
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 2, key => "scan_apc_ups_message_0012", variables => $variables});
$anvil->Alert->register({alert_level => "notice", message => "scan_apc_ups_message_0012", variables => $variables, sort_position => $anvil->data->{'scan-apc-ups'}{alert_sort}++, set_by => $THIS_FILE});
}
# If the battery charge percentage has changed, it will usually be an 'info'
# level event, unless it drops below the warning threshold, climbs above the
# OK threshold or hits 100%
if ($scan_apc_ups_battery_percentage_charge ne $old_scan_apc_ups_battery_percentage_charge)
{
$battery_changed = 1;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { battery_changed => $battery_changed }});
my $low_charge_key = $scan_apc_ups_uuid."::battery-".$battery_number."::scan_apc_ups_low_charge";
my $level = "info";
my $message_key = "scan_apc_ups_note_0022";
my $alert_sent = 0;
my $variables = {
ups_name => $scan_apc_ups_name,
new_value => $scan_apc_ups_battery_percentage_charge,
old_value => $old_scan_apc_ups_battery_percentage_charge,
battery_number => $battery_number,
low_charge_clear => $anvil->data->{'scan-apc-ups'}{low_charge_percentage_ok},
low_charge_alert => $anvil->data->{'scan-apc-ups'}{low_charge_percentage_warning},
};
# Is the battery charging or discharging?
if ($scan_apc_ups_battery_percentage_charge > $old_scan_apc_ups_battery_percentage_charge)
{
# Charging
if ($scan_apc_ups_battery_percentage_charge eq "100")
{
# For cases where the UPS's input voltage
# often drops a little below the low-transfer
# volage, causing frequent small discharge/
# charge cycles, we don't want to constantly
# sent "battery has charged" alerts. To
# handle this, we check to see how long ago
# the input voltage was less than half the
# low transfer voltage.
my $low_limit = int($scan_apc_ups_low_transfer_voltage / 2);
$low_limit = 0 if $low_limit =~ /\D/;
$low_limit = 0 if $low_limit < 0;
my $query = "
SELECT
round(extract(epoch from modified_date))
FROM
scan_apc_ups_input
WHERE
* Created Convert->fence_ipmilan_to_ipmitool() that takes a 'fence_ipmilan' call and converts it into a direct 'ipmitool' call.
* Created Database->get_power() that loads data from the special 'power' table.
* Fixed a bug in calls to Network->ping() where some weren't formatted properly for receiving two string variables.
* Updated Database->get_anvils() to record the machine types when recording host information.
* Updated Database->get_hosts_info() to also load the 'host_ipmi' column.
* Updated Database->get_upses() to store the link to the 'power' -> 'power_uuid', when available.
* Created ScanCore->call_scan_agents() that does the work of actually calling scan agents, moving the logic out from the scancore daemon.
* Created ScanCore->check_power() that takes a host and the anvil it is in and returns if it's on batteries or not. If it is, the time on batteries and estimate hold-up time is returned. If not, the highest charge percentage is returned.
* Created ScanCore->post_scan_analysis() that is a wrapper for calling the new ->post_scan_analysis_dr(), ->post_scan_analysis_node() and ->post_scan_analysis_striker(). Of which, _dr and _node are still empty, but _striker is complete.
** ->post_scan_analysis_striker() is complete. It now boots a node after a power loss if the UPSes powering it are OK (at least one has mains power, and the main-powered UPS(es) have reached the minimum charge percentage). If it's thermal, IPMI is called and so long as at least one thermal sensor is found and it/they are all OK, it is booted. For now, M2's thermal reboot delay logic hasn't been replicated, as it added a lot of complexity and didn't prove practically useful.
* Created System->collect_ipmi_data() and moved 'scan_ipmitool's ipmitool call and parse into that method. This was done to allow ScanCore->post_scan_analysis_striker() to also call IPMI on a remote machine during thermal down events without reimplementing the logic.
* Updated scan-ipmitool to only record temperature data for data collected locally. Also renamed 'machine' variables and hash keys to 'host_name' to clarify what is being stored.
* Updated scancore to clear the 'system::stop_reason' variable.
* Added missing packages to striker-manage-install-target.
Signed-off-by: Digimer <digimer@alteeve.ca>
4 years ago
scan_apc_ups_input_scan_apc_ups_uuid = ".$anvil->Database->quote($scan_apc_ups_uuid)."
AND
scan_apc_ups_input_1m_minimum_input_voltage < ".$low_limit."
ORDER BY
modified_date DESC
LIMIT 1
;";
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { query => $query }});
# Do the query...
my $last_power_loss = $anvil->Database->query({query => $query, source => $THIS_FILE, line => __LINE__})->[0]->[0];
$last_power_loss = 0 if not defined $last_power_loss;
my $current_time = time;
my $difference = ($current_time - $last_power_loss);
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
last_power_loss => $last_power_loss,
current_time => $current_time,
difference => $difference,
}});
# if it's less than six hours, well assume it has finished charging.
if ($difference < 21600)
{
$level = "notice";
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { level => $level }});
}
else
{
$level = "info";
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { level => $level }});
}
$message_key = "scan_apc_ups_message_0013";
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { message_key => $message_key }});
}
elsif ($scan_apc_ups_battery_percentage_charge > $anvil->data->{'scan-apc-ups'}{low_charge_percentage_ok})
{
# Crossed the "now OK" threshold. Was there an alert?
# If so, tell the user.
my $changed = $anvil->Alert->check_alert_sent({clear => 1, record_locator => $low_charge_key, set_by => $THIS_FILE });
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { changed => $changed }});
if ($changed)
{
# Register an alert.
$alert_sent = 1;
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 0, priority => "err", key => "scan_apc_ups_message_0014", variables => $variables});
$anvil->Alert->register({alert_level => "warning", clear_alert => 1, message => "scan_apc_ups_message_0014", variables => $variables, sort_position => 1, set_by => $THIS_FILE});
}
}
}
else
{
# Discharging
$message_key = "scan_apc_ups_message_0015";
if ($scan_apc_ups_battery_percentage_charge < $anvil->data->{'scan-apc-ups'}{low_charge_percentage_warning})
{
# Crossed the "oh crap" threshold. Is this the first
# time? 'set' is set to 1 if so.
my $changed = $anvil->Alert->check_alert_sent({record_locator => $low_charge_key, set_by => $THIS_FILE });
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { changed => $changed }});
if ($changed)
{
# Register an alert.
$alert_sent = 1;
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 0, priority => "err", key => "scan_apc_ups_message_0016", variables => $variables});
$anvil->Alert->register({alert_level => "warning", message => "scan_apc_ups_message_0016", variables => $variables, sort_position => 1, set_by => $THIS_FILE});
}
}
}
# If we didn't send a threshold alert, send a normal alert now.
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { alert_sent => $alert_sent }});
if (not $alert_sent)
{
my $sort_position = $level eq "warning" ? 1 : $anvil->data->{'scan-apc-ups'}{alert_sort}++;
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 2, key => $message_key, variables => $variables});
$anvil->Alert->register({alert_level => $level, message => $message_key, variables => $variables, sort_position => $sort_position, set_by => $THIS_FILE});
}
}
# Has the replacement date changed?
if ($scan_apc_ups_battery_last_replacement_date ne $old_scan_apc_ups_battery_last_replacement_date)
{
$battery_changed = 1;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { battery_changed => $battery_changed }});
my $variables = {
ups_name => $scan_apc_ups_name,
new_value => $scan_apc_ups_battery_last_replacement_date,
old_value => $old_scan_apc_ups_battery_last_replacement_date,
battery_number => $battery_number,
};
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 2, key => "scan_apc_ups_message_0017", variables => $variables});
$anvil->Alert->register({alert_level => "notice", message => "scan_apc_ups_message_0017", variables => $variables, sort_position => $anvil->data->{'scan-apc-ups'}{alert_sort}++, set_by => $THIS_FILE});
}
# Has the battery state changed? There are four possible battery states.
if ($scan_apc_ups_battery_state ne $old_scan_apc_ups_battery_state)
{
$battery_changed = 1;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { battery_changed => $battery_changed }});
my $level = "notice";
my $message_key = "scan_apc_ups_message_0018";
my $clear_alert = 0;
### There are four possible states (* == warning):
# *1 - The UPS battery is in an unknown state.
# 2 - The UPS battery is operating normally.
# 3 - The UPS battery is in a low voltage state.
# *4 - The UPS battery is in a failed state and needs to be replaced.
# Make sure we have a valid health integer
my $say_scan_apc_ups_battery_state = $scan_apc_ups_battery_state;
my $say_old_scan_apc_ups_battery_state = $old_scan_apc_ups_battery_state;
if (($scan_apc_ups_battery_state =~ /\D/) or (($scan_apc_ups_battery_state < 0) or ($scan_apc_ups_battery_state > 4)))
{
# We'll use '99' as a generic "this is not known"
$say_scan_apc_ups_battery_state = 99;
}
elsif (($old_scan_apc_ups_battery_state =~ /\D/) or (($old_scan_apc_ups_battery_state < 0) or ($old_scan_apc_ups_battery_state > 4)))
{
# We'll use '99' as a generic "this is not known"
$say_old_scan_apc_ups_battery_state = 99;
}
if (($scan_apc_ups_battery_state eq "1") or ($scan_apc_ups_battery_state eq "4"))
{
# Entered a warning state.
$level = "warning";
}
elsif (($old_scan_apc_ups_battery_state eq "1") or ($old_scan_apc_ups_battery_state eq "4"))
{
# Warning state cleared.
$level = "warning";
$message_key = "scan_apc_ups_message_0019";
$clear_alert = 1;
}
my $sort_position = $level eq "warning" ? 1 : $anvil->data->{'scan-apc-ups'}{alert_sort}++;
my $variables = {
ups_name => $scan_apc_ups_name,
new_value => "#!string!scan_apc_ups_battery_state_".sprintf("%04d", $say_scan_apc_ups_battery_state)."!#",
old_value => "#!string!scan_apc_ups_battery_state_".sprintf("%04d", $say_old_scan_apc_ups_battery_state)."!#",
battery_model => $scan_apc_ups_battery_model,
battery_number => $battery_number,
};
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 2, key => $message_key, variables => $variables});
$anvil->Alert->register({alert_level => $level, clear_alert => $clear_alert, message => $message_key, variables => $variables, sort_position => $sort_position, set_by => $THIS_FILE});
}
# Has the battery's temperature changed? Alerts will be processed
# later (in process_alerts() below). Here, we just log the change as
# an info level alert.
if ($scan_apc_ups_battery_temperature ne $old_scan_apc_ups_battery_temperature)
{
$battery_changed = 1;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { battery_changed => $battery_changed }});
my $send_alert = 1;
# Did the temperature jump?
if ($scan_apc_ups_battery_alarm_temperature > $old_scan_apc_ups_battery_alarm_temperature)
{
my $difference = $scan_apc_ups_battery_alarm_temperature - $old_scan_apc_ups_battery_alarm_temperature;
my $time_span = time - $last_update_unixtime;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
difference => $difference,
time_span => $time_span,
"scan-apc-ups::temperature_jump_threshold" => $anvil->data->{'scan-apc-ups'}{temperature_jump_threshold},
"scan-apc-ups::temperature_jump_time" => $anvil->data->{'scan-apc-ups'}{temperature_jump_time},
}});
if (($difference >= $anvil->data->{'scan-apc-ups'}{temperature_jump_threshold}) &&
($time_span <= $anvil->data->{'scan-apc-ups'}{temperature_jump_time}))
{
# Send a temp jump alert.
$send_alert = 0;
my $variables = {
ups_name => $scan_apc_ups_name,
new_value => $scan_apc_ups_battery_alarm_temperature,
old_value => $old_scan_apc_ups_battery_alarm_temperature,
battery_number => $battery_number,
difference => $difference,
time_span => $time_span,
};
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 2, key => "scan_apc_ups_message_0023", variables => $variables});
$anvil->Alert->register({alert_level => "notice", message => "scan_apc_ups_message_0023", variables => $variables, sort_position => 1, set_by => $THIS_FILE});
}
}
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { send_alert => $send_alert }});
if ($send_alert)
{
my $variables = {
ups_name => $scan_apc_ups_name,
new_value => $scan_apc_ups_battery_temperature,
old_value => $old_scan_apc_ups_battery_temperature,
battery_number => $battery_number,
};
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 2, key => "scan_apc_ups_message_0020", variables => $variables});
$anvil->Alert->register({alert_level => "info", message => "scan_apc_ups_message_0020", variables => $variables, sort_position => $anvil->data->{'scan-apc-ups'}{alert_sort}++, set_by => $THIS_FILE});
}
}
# Has the alarm temperature changed?
if ($scan_apc_ups_battery_alarm_temperature ne $old_scan_apc_ups_battery_alarm_temperature)
{
$battery_changed = 1;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { battery_changed => $battery_changed }});
my $variables = {
ups_name => $scan_apc_ups_name,
new_value => $scan_apc_ups_battery_alarm_temperature,
old_value => $old_scan_apc_ups_battery_alarm_temperature,
battery_number => $battery_number,
};
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 2, key => "scan_apc_ups_message_0021", variables => $variables});
$anvil->Alert->register({alert_level => "notice", message => "scan_apc_ups_message_0021", variables => $variables, sort_position => $anvil->data->{'scan-apc-ups'}{alert_sort}++, set_by => $THIS_FILE});
}
# Has the UPS battery voltage changed?
if ($scan_apc_ups_battery_voltage ne $old_scan_apc_ups_battery_voltage)
{
$battery_changed = 1;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { battery_changed => $battery_changed }});
# This is normal and is therefor an info level alert.
my $variables = {
ups_name => $scan_apc_ups_name,
new_value => $anvil->Convert->round({places => 1, number => $scan_apc_ups_battery_voltage}),
old_value => $anvil->Convert->round({places => 1, number => $old_scan_apc_ups_battery_voltage}),
battery_number => $battery_number,
};
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 2, key => "scan_apc_ups_message_0022", variables => $variables});
$anvil->Alert->register({alert_level => "info", message => "scan_apc_ups_message_0022", variables => $variables, sort_position => $anvil->data->{'scan-apc-ups'}{alert_sort}++, set_by => $THIS_FILE});
}
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { battery_changed => $battery_changed }});
if ($battery_changed)
{
# Save the changes.
my $query = "
UPDATE
scan_apc_ups_batteries
SET
scan_apc_ups_battery_scan_apc_ups_uuid = ".$anvil->Database->quote($scan_apc_ups_uuid).",
scan_apc_ups_battery_number = ".$anvil->Database->quote($battery_number).",
scan_apc_ups_battery_next_replacement_date = ".$anvil->Database->quote($scan_apc_ups_battery_next_replacement_date).",
scan_apc_ups_battery_health = ".$anvil->Database->quote($scan_apc_ups_battery_health).",
scan_apc_ups_battery_model = ".$anvil->Database->quote($scan_apc_ups_battery_model).",
scan_apc_ups_battery_percentage_charge = ".$anvil->Database->quote($scan_apc_ups_battery_percentage_charge).",
scan_apc_ups_battery_last_replacement_date = ".$anvil->Database->quote($scan_apc_ups_battery_last_replacement_date).",
scan_apc_ups_battery_state = ".$anvil->Database->quote($scan_apc_ups_battery_state).",
scan_apc_ups_battery_temperature = ".$anvil->Database->quote($scan_apc_ups_battery_temperature).",
scan_apc_ups_battery_alarm_temperature = ".$anvil->Database->quote($scan_apc_ups_battery_alarm_temperature).",
scan_apc_ups_battery_voltage = ".$anvil->Database->quote($scan_apc_ups_battery_voltage).",
modified_date = ".$anvil->Database->quote($anvil->Database->refresh_timestamp)."
WHERE
scan_apc_ups_battery_uuid = ".$anvil->Database->quote($scan_apc_ups_battery_uuid)."
";
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { query => $query }});
$anvil->Database->write({query => $query, source => $THIS_FILE, line => __LINE__});
}
}
else
{
# New battery
$scan_apc_ups_battery_uuid = insert_battery($anvil, $scan_apc_ups_uuid, $battery_number);
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { scan_apc_ups_battery_uuid => $scan_apc_ups_battery_uuid }});
}
# Check battery temperatures.
process_temperature($anvil, $scan_apc_ups_battery_uuid, $battery_number, $scan_apc_ups_uuid);
}
}
# If the UPS health is '4' (boosting for low input voltage), or if there is no input voltage,
# we'll set that we're on batteries.
my $scan_apc_ups_on_battery = 0;
if (($scan_apc_ups_input_voltage eq "0") or ($scan_apc_ups_health eq "4"))
{
$scan_apc_ups_on_battery = 1;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
scan_apc_ups_health => $scan_apc_ups_health,
scan_apc_ups_input_voltage => $scan_apc_ups_input_voltage,
scan_apc_ups_on_battery => $scan_apc_ups_on_battery,
}});
}
my $power_uuid = $anvil->Database->insert_or_update_power({
debug => 3,
power_ups_uuid => $ups_uuid,
power_on_battery => $scan_apc_ups_on_battery,
power_seconds_left => $scan_apc_ups_output_estimated_runtime,
power_charge_percentage => $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{highest_charge_percent},
});
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { power_uuid => $power_uuid }});
}
return(0);
}
# This reads in the last scan's data.
sub read_last_scan
{
my ($anvil) = @_;
# Read in existing data, if any.
my $query = "
SELECT
scan_apc_ups_uuid,
scan_apc_ups_ups_uuid,
scan_apc_ups_serial_number,
scan_apc_ups_name,
scan_apc_ups_ip,
scan_apc_ups_ac_restore_delay,
scan_apc_ups_shutdown_delay,
scan_apc_ups_firmware_version,
scan_apc_ups_health,
scan_apc_ups_high_transfer_voltage,
scan_apc_ups_low_transfer_voltage,
scan_apc_ups_last_transfer_reason,
scan_apc_ups_manufactured_date,
scan_apc_ups_model,
scan_apc_ups_nmc_firmware_version,
scan_apc_ups_nmc_serial_number,
scan_apc_ups_nmc_mac_address
FROM
scan_apc_upses
;";
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 3, list => { query => $query }});
my $results = $anvil->Database->query({query => $query, source => $THIS_FILE, line => __LINE__});
my $count = @{$results};
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 3, list => {
results => $results,
count => $count,
}});
# One or more records were found.
foreach my $row (@{$results})
{
my $scan_apc_ups_uuid = $row->[0];
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 3, list => { scan_apc_ups_uuid => $scan_apc_ups_uuid }});
$anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_ups_uuid} = $row->[1];
$anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_serial_number} = $row->[2];
$anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_name} = $row->[3];
$anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_ip} = $row->[4];
$anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_ac_restore_delay} = $row->[5];
$anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_shutdown_delay} = $row->[6];
$anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_firmware_version} = $row->[7];
$anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_health} = $row->[8];
$anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_high_transfer_voltage} = $row->[9];
$anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_low_transfer_voltage} = $row->[10];
$anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_last_transfer_reason} = $row->[11];
$anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_manufactured_date} = $row->[12];
$anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_model} = $row->[13];
$anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_nmc_firmware_version} = $row->[14];
$anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_nmc_serial_number} = $row->[15];
$anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_nmc_mac_address} = $row->[16];
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
"sql::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_ups_uuid" => $anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_ups_uuid},
"sql::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_serial_number" => $anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_serial_number},
"sql::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_name" => $anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_name},
"sql::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_ip" => $anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_ip},
"sql::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_ac_restore_delay" => $anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_ac_restore_delay},
"sql::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_shutdown_delay" => $anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_shutdown_delay},
"sql::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_firmware_version" => $anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_firmware_version},
"sql::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_health" => $anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_health},
"sql::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_high_transfer_voltage" => $anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_high_transfer_voltage},
"sql::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_low_transfer_voltage" => $anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_low_transfer_voltage},
"sql::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_last_transfer_reason" => $anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_last_transfer_reason},
"sql::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_manufactured_date" => $anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_manufactured_date},
"sql::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_model" => $anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_model},
"sql::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_nmc_firmware_version" => $anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_nmc_firmware_version},
"sql::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_nmc_serial_number" => $anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_nmc_serial_number},
"sql::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_nmc_mac_address" => $anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_nmc_mac_address},
}});
# Make it possible to find the UPS by ups_uuid and by serial number.
my $scan_apc_ups_ups_uuid = $anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_ups_uuid};
my $scan_apc_ups_serial_number = $anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_serial_number};
$anvil->data->{sql}{ups_uuid_to_apc_ups_uuid}{$scan_apc_ups_ups_uuid} = $scan_apc_ups_uuid;
$anvil->data->{sql}{serial_number_to_apc_ups_uuid}{$scan_apc_ups_serial_number} = $scan_apc_ups_uuid;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
"sql::ups_uuid_to_apc_ups_uuid::${scan_apc_ups_ups_uuid}" => $anvil->data->{sql}{ups_uuid_to_apc_ups_uuid}{$scan_apc_ups_ups_uuid},
"sql::serial_number_to_apc_ups_uuid::${scan_apc_ups_serial_number}" => $anvil->data->{sql}{serial_number_to_apc_ups_uuid}{$scan_apc_ups_serial_number},
}});
}
undef $results;
# Read in the battery data
$query = "
SELECT
scan_apc_ups_battery_uuid,
scan_apc_ups_battery_scan_apc_ups_uuid,
scan_apc_ups_battery_number,
scan_apc_ups_battery_next_replacement_date,
scan_apc_ups_battery_health,
scan_apc_ups_battery_model,
scan_apc_ups_battery_percentage_charge,
scan_apc_ups_battery_last_replacement_date,
scan_apc_ups_battery_state,
scan_apc_ups_battery_temperature,
scan_apc_ups_battery_alarm_temperature,
scan_apc_ups_battery_voltage,
round(extract(epoch from modified_date))
FROM
scan_apc_ups_batteries
;";
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { query => $query }});
# Do the query against the source DB and loop through the results.
$results = $anvil->Database->query({query => $query, source => $THIS_FILE, line => __LINE__});
$count = @{$results};
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
results => $results,
count => $count,
}});
foreach my $row (@{$results})
{
my $scan_apc_ups_battery_uuid = $row->[0];
my $scan_apc_ups_uuid = $row->[1];
my $scan_apc_ups_battery_number = $row->[2];
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
scan_apc_ups_battery_uuid => $scan_apc_ups_battery_uuid,
scan_apc_ups_uuid => $scan_apc_ups_uuid,
scan_apc_ups_battery_number => $scan_apc_ups_battery_number,
}});
$anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_battery_uuid}{$scan_apc_ups_battery_uuid}{scan_apc_ups_battery_next_replacement_date} = $row->[3];
$anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_battery_uuid}{$scan_apc_ups_battery_uuid}{scan_apc_ups_battery_health} = $row->[4];
$anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_battery_uuid}{$scan_apc_ups_battery_uuid}{scan_apc_ups_battery_model} = $row->[5];
$anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_battery_uuid}{$scan_apc_ups_battery_uuid}{scan_apc_ups_battery_percentage_charge} = $row->[6];
$anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_battery_uuid}{$scan_apc_ups_battery_uuid}{scan_apc_ups_battery_last_replacement_date} = $row->[7];
$anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_battery_uuid}{$scan_apc_ups_battery_uuid}{scan_apc_ups_battery_state} = $row->[8];
$anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_battery_uuid}{$scan_apc_ups_battery_uuid}{scan_apc_ups_battery_temperature} = $row->[9];
$anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_battery_uuid}{$scan_apc_ups_battery_uuid}{scan_apc_ups_battery_alarm_temperature} = $row->[10];
$anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_battery_uuid}{$scan_apc_ups_battery_uuid}{scan_apc_ups_battery_voltage} = $row->[11];
$anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_battery_uuid}{$scan_apc_ups_battery_uuid}{last_update_unixtime} = $row->[12];
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
"sql::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_battery_uuid::${scan_apc_ups_battery_uuid}::scan_apc_ups_battery_next_replacement_date" => $anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_battery_uuid}{$scan_apc_ups_battery_uuid}{scan_apc_ups_battery_next_replacement_date},
"sql::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_battery_uuid::${scan_apc_ups_battery_uuid}::scan_apc_ups_battery_health" => $anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_battery_uuid}{$scan_apc_ups_battery_uuid}{scan_apc_ups_battery_health},
"sql::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_battery_uuid::${scan_apc_ups_battery_uuid}::scan_apc_ups_battery_model" => $anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_battery_uuid}{$scan_apc_ups_battery_uuid}{scan_apc_ups_battery_model},
"sql::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_battery_uuid::${scan_apc_ups_battery_uuid}::scan_apc_ups_battery_percentage_charge" => $anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_battery_uuid}{$scan_apc_ups_battery_uuid}{scan_apc_ups_battery_percentage_charge},
"sql::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_battery_uuid::${scan_apc_ups_battery_uuid}::scan_apc_ups_battery_last_replacement_date" => $anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_battery_uuid}{$scan_apc_ups_battery_uuid}{scan_apc_ups_battery_last_replacement_date},
"sql::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_battery_uuid::${scan_apc_ups_battery_uuid}::scan_apc_ups_battery_state" => $anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_battery_uuid}{$scan_apc_ups_battery_uuid}{scan_apc_ups_battery_state},
"sql::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_battery_uuid::${scan_apc_ups_battery_uuid}::scan_apc_ups_battery_temperature" => $anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_battery_uuid}{$scan_apc_ups_battery_uuid}{scan_apc_ups_battery_temperature},
"sql::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_battery_uuid::${scan_apc_ups_battery_uuid}::scan_apc_ups_battery_alarm_temperature" => $anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_battery_uuid}{$scan_apc_ups_battery_uuid}{scan_apc_ups_battery_alarm_temperature},
"sql::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_battery_uuid::${scan_apc_ups_battery_uuid}::scan_apc_ups_battery_voltage" => $anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_battery_uuid}{$scan_apc_ups_battery_uuid}{scan_apc_ups_battery_voltage},
"sql::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_battery_uuid::${scan_apc_ups_battery_uuid}::last_update_unixtime" => $anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_battery_uuid}{$scan_apc_ups_battery_uuid}{last_update_unixtime},
}});
$anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{battery_number}{$scan_apc_ups_battery_number}{scan_apc_ups_battery_uuid} = $scan_apc_ups_battery_uuid;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
"sql::scan_apc_ups_uuid::${scan_apc_ups_uuid}::battery_number::${scan_apc_ups_battery_number}::scan_apc_ups_battery_uuid" => $anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{battery_number}{$scan_apc_ups_battery_number}{scan_apc_ups_battery_uuid},
}});
}
undef $results;
# Read in the input voltage data
$query = "
SELECT
scan_apc_ups_input_uuid,
scan_apc_ups_input_scan_apc_ups_uuid,
scan_apc_ups_input_frequency,
scan_apc_ups_input_sensitivity,
scan_apc_ups_input_voltage,
scan_apc_ups_input_1m_maximum_input_voltage,
scan_apc_ups_input_1m_minimum_input_voltage
FROM
scan_apc_ups_input
;";
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 3, list => { query => $query }});
# Do the query against the source DB and loop through the results.
$results = $anvil->Database->query({query => $query, source => $THIS_FILE, line => __LINE__});
$count = @{$results};
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 3, list => {
results => $results,
count => $count,
}});
foreach my $row (@{$results})
{
my $scan_apc_ups_uuid = $row->[1];
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 3, list => { scan_apc_ups_uuid => $scan_apc_ups_uuid }});
$anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_input_uuid} = $row->[0];
$anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_input_frequency} = $row->[2];
$anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_input_sensitivity} = $row->[3];
$anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_input_voltage} = $row->[4];
$anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_input_1m_maximum_input_voltage} = $row->[5];
$anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_input_1m_minimum_input_voltage} = $row->[6];
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
"sql::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_input_uuid" => $anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_input_uuid},
"sql::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_input_frequency" => $anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_input_frequency},
"sql::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_input_sensitivity" => $anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_input_sensitivity},
"sql::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_input_voltage" => $anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_input_voltage},
"sql::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_input_1m_maximum_input_voltage" => $anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_input_1m_maximum_input_voltage},
"sql::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_input_1m_minimum_input_voltage" => $anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_input_1m_minimum_input_voltage},
}});
}
undef $results;
# And finally, the output voltage data
$query = "
SELECT
scan_apc_ups_output_uuid,
scan_apc_ups_output_scan_apc_ups_uuid,
scan_apc_ups_output_load_percentage,
scan_apc_ups_output_time_on_batteries,
scan_apc_ups_output_estimated_runtime,
scan_apc_ups_output_frequency,
scan_apc_ups_output_voltage,
scan_apc_ups_output_total_output
FROM
scan_apc_ups_output
;";
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 3, list => { query => $query }});
# Do the query against the source DB and loop through the results.
$results = $anvil->Database->query({query => $query, source => $THIS_FILE, line => __LINE__});
$count = @{$results};
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 3, list => {
results => $results,
count => $count,
}});
foreach my $row (@{$results})
{
my $scan_apc_ups_uuid = $row->[1];
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 3, list => { scan_apc_ups_uuid => $scan_apc_ups_uuid }});
$anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_output_uuid} = $row->[0];
$anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_output_load_percentage} = $row->[2];
$anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_output_time_on_batteries} = $row->[3];
$anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_output_estimated_runtime} = $row->[4];
$anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_output_frequency} = $row->[5];
$anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_output_voltage} = $row->[6];
$anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_output_total_output} = $row->[7];
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
"sql::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_output_uuid" => $anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_output_uuid},
"sql::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_output_load_percentage" => $anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_output_load_percentage},
"sql::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_output_time_on_batteries" => $anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_output_time_on_batteries},
"sql::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_output_estimated_runtime" => $anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_output_estimated_runtime},
"sql::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_output_frequency" => $anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_output_frequency},
"sql::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_output_voltage" => $anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_output_voltage},
"sql::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_output_total_output" => $anvil->data->{sql}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_output_total_output},
}});
}
undef $results;
return(0);
}
# This calls each UPS, first to get the model number and update the OIDs to use if needed, then gathers the
# information from the UPS.
sub gather_ups_data
{
my ($anvil) = @_;
### TODO: If the network with the UPS is congested, it is possible that, despite connecting to the
### UPS, some OID reads may fail with '#!no_connection!#'. Try to read them a second time in
### these cases. Regardless, be sure to check all returned OID values for 'no connection' and
### handle such cases more gracefully.
# Loop through the UPSes we found in upses.
foreach my $ups_uuid (sort {$a cmp $b} keys %{$anvil->data->{upses}{ups_uuid}})
{
my $ups_ip = $anvil->data->{upses}{ups_uuid}{$ups_uuid}{ip_address};
my $ups_name = $anvil->data->{upses}{ups_uuid}{$ups_uuid}{name};
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
ups_uuid => $ups_uuid,
ups_ip => $ups_ip,
ups_name => $ups_name,
}});
# Have we seen this UPS before?
my $scan_apc_ups_uuid = "";
my $new_ups = 1;
if ((exists $anvil->data->{sql}{ups_uuid_to_apc_ups_uuid}{$ups_uuid}) && (defined $anvil->data->{sql}{ups_uuid_to_apc_ups_uuid}{$ups_uuid}))
{
# Yup!
$scan_apc_ups_uuid = $anvil->data->{sql}{ups_uuid_to_apc_ups_uuid}{$ups_uuid};
$new_ups = 0;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
scan_apc_ups_uuid => $scan_apc_ups_uuid,
new_ups => $new_ups,
}});
}
# Can I ping it? This returns '1' if it was pingable, '0' if not.
my ($pinged, $average_time) = $anvil->Network->ping({ping => $ups_ip, debug => 2});
* Created Convert->fence_ipmilan_to_ipmitool() that takes a 'fence_ipmilan' call and converts it into a direct 'ipmitool' call.
* Created Database->get_power() that loads data from the special 'power' table.
* Fixed a bug in calls to Network->ping() where some weren't formatted properly for receiving two string variables.
* Updated Database->get_anvils() to record the machine types when recording host information.
* Updated Database->get_hosts_info() to also load the 'host_ipmi' column.
* Updated Database->get_upses() to store the link to the 'power' -> 'power_uuid', when available.
* Created ScanCore->call_scan_agents() that does the work of actually calling scan agents, moving the logic out from the scancore daemon.
* Created ScanCore->check_power() that takes a host and the anvil it is in and returns if it's on batteries or not. If it is, the time on batteries and estimate hold-up time is returned. If not, the highest charge percentage is returned.
* Created ScanCore->post_scan_analysis() that is a wrapper for calling the new ->post_scan_analysis_dr(), ->post_scan_analysis_node() and ->post_scan_analysis_striker(). Of which, _dr and _node are still empty, but _striker is complete.
** ->post_scan_analysis_striker() is complete. It now boots a node after a power loss if the UPSes powering it are OK (at least one has mains power, and the main-powered UPS(es) have reached the minimum charge percentage). If it's thermal, IPMI is called and so long as at least one thermal sensor is found and it/they are all OK, it is booted. For now, M2's thermal reboot delay logic hasn't been replicated, as it added a lot of complexity and didn't prove practically useful.
* Created System->collect_ipmi_data() and moved 'scan_ipmitool's ipmitool call and parse into that method. This was done to allow ScanCore->post_scan_analysis_striker() to also call IPMI on a remote machine during thermal down events without reimplementing the logic.
* Updated scan-ipmitool to only record temperature data for data collected locally. Also renamed 'machine' variables and hash keys to 'host_name' to clarify what is being stored.
* Updated scancore to clear the 'system::stop_reason' variable.
* Added missing packages to striker-manage-install-target.
Signed-off-by: Digimer <digimer@alteeve.ca>
4 years ago
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
pinged => $pinged,
average_time => $average_time,
}});
if (not $pinged)
{
# Can't reach it.
$anvil->data->{upses}{ups_uuid}{$ups_uuid}{ping} = 0;
$anvil->data->{upses}{ups_uuid}{$ups_uuid}{connected} = 0;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
"upses::ups_uuid::${ups_uuid}::ping" => $anvil->data->{upses}{ups_uuid}{$ups_uuid}{ping},
"upses::ups_uuid::${ups_uuid}::connected" => $anvil->data->{upses}{ups_uuid}{$ups_uuid}{connected},
}});
next;
}
### NOTE: At this time, we've only seen SNMP v2c, but it's possible we may need to test other
### versions on a per-UPS bases down the road.
$anvil->data->{upses}{ups_uuid}{$ups_uuid}{ping} = 1;
$anvil->data->{upses}{ups_uuid}{$ups_uuid}{snmp_version} = $anvil->data->{snmp}{community}{version};
$anvil->data->{upses}{ups_uuid}{$ups_uuid}{scan_apc_ups_uuid} = $scan_apc_ups_uuid;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
"upses::ups_uuid::${ups_uuid}::ping" => $anvil->data->{upses}{ups_uuid}{$ups_uuid}{ping},
"upses::ups_uuid::${ups_uuid}::snmp_version" => $anvil->data->{upses}{ups_uuid}{$ups_uuid}{snmp_version},
"upses::ups_uuid::${ups_uuid}::scan_apc_ups_uuid" => $anvil->data->{upses}{ups_uuid}{$ups_uuid}{scan_apc_ups_uuid},
}});
my ($scan_apc_ups_serial_number, $data_type) = $anvil->Remote->read_snmp_oid({
debug => 3,
target => $ups_ip,
oid => $anvil->data->{oids}{ups}{serial_number},
version => $anvil->data->{upses}{ups_uuid}{$ups_uuid}{snmp_version},
community => $anvil->data->{snmp}{community}{'read'}
});
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
scan_apc_ups_serial_number => $scan_apc_ups_serial_number,
data_type => $data_type,
}});
# If the serial number is '!!no_connection!!', this isn't the UPS we want or SNMP is disabled.
if ($scan_apc_ups_serial_number eq "!!no_connection!!")
{
$scan_apc_ups_serial_number = "";
$anvil->data->{upses}{ups_uuid}{$ups_uuid}{connected} = 0;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
scan_apc_ups_serial_number => $scan_apc_ups_serial_number,
"upses::ups_uuid::${ups_uuid}::connected" => $anvil->data->{upses}{ups_uuid}{$ups_uuid}{connected},
}});
}
# If we didn't find the UPS using the ups_uuid, see if we can find it by the serial number.
if ($new_ups)
{
if (($scan_apc_ups_serial_number) && (exists $anvil->data->{sql}{serial_number_to_apc_ups_uuid}{$scan_apc_ups_serial_number}))
{
# It's new, generate the UUID now. We'll set 'scan_apc_ups_new' so we know to INSERT
# it later.
$scan_apc_ups_uuid = $anvil->data->{sql}{serial_number_to_apc_ups_uuid}{$scan_apc_ups_serial_number};
$new_ups = 0;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
scan_apc_ups_uuid => $scan_apc_ups_uuid,
new_ups => $new_ups,
}});
}
else
{
# It's new, generate the UUID now. We'll set 'scan_apc_ups_new' so we know to INSERT
# it later.
$scan_apc_ups_uuid = $anvil->Get->uuid();
$new_ups = 1;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
scan_apc_ups_uuid => $scan_apc_ups_uuid,
new_ups => $new_ups,
}});
}
}
# These are set to avoid 'undefined' variable warnings later if we fail to reach this UPS.
$anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{highest_charge_percent} = 0;
$anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{new_ups} = $new_ups;
$anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_upses}{scan_apc_ups_ups_uuid} = $ups_uuid;
$anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_serial_number} = $scan_apc_ups_serial_number;
$anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_name} = $ups_name;
$anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_ip} = $ups_ip;
$anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_ac_restore_delay} = "";
$anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_shutdown_delay} = "";
$anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_firmware_version} = "";
$anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_health} = "";
$anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_high_transfer_voltage} = "";
$anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_low_transfer_voltage} = "";
$anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_last_transfer_reason} = "";
$anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_manufactured_date} = "";
$anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_model} = "";
$anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_nmc_firmware_version} = "";
$anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_nmc_serial_number} = "";
$anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_nmc_mac_address} = "";
$anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_input_1m_minimum_input_voltage} = "";
$anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_input_1m_maximum_input_voltage} = "";
$anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_input_sensitivity} = "";
$anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_input_frequency} = "";
$anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_output_voltage} = "";
$anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_output_total_output} = "";
$anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_output_frequency} = "";
$anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_output_time_on_batteries} = "";
$anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_output_load_percentage} = "";
# If I got the serial number, I found the UPS.
next if not $scan_apc_ups_serial_number;
# Now that I can trust my OIDs, lets start gathering data! Keep track of how long it took to
# query the OIDs.
#############################################################################################
# Base UPS info #
#############################################################################################
# Get the AC restore delay, if set. (High-precision, divide by 10 to get seconds).
($anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_ac_restore_delay}, $data_type) = $anvil->Remote->read_snmp_oid({
debug => 3,
target => $ups_ip,
oid => $anvil->data->{oids}{ups}{ac_restore_delay},
version => $anvil->data->{upses}{ups_uuid}{$ups_uuid}{snmp_version},
community => $anvil->data->{snmp}{community}{'read'}
});
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
"ups::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_ac_restore_delay" => $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_ac_restore_delay},
data_type => $data_type,
}});
if (($anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_ac_restore_delay} eq "--") or ($anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_ac_restore_delay} =~ /\D/))
{
$anvil->Log->entry({log_level => 1, message_key => "scan_apc_ups_error_0001", variables => {
name => "ups::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_ac_restore_delay",
value => $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_ac_restore_delay},
}, file => $THIS_FILE, line => __LINE__});
$anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_ac_restore_delay} = -1;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
"ups::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_ac_restore_delay" => $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_ac_restore_delay},
}});
}
# Get the shut down delay, if set. (in ticks, divide by 100).
($anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_shutdown_delay}, $data_type) = $anvil->Remote->read_snmp_oid({
debug => 3,
target => $ups_ip,
oid => $anvil->data->{oids}{ups}{shutdown_delay},
version => $anvil->data->{upses}{ups_uuid}{$ups_uuid}{snmp_version},
community => $anvil->data->{snmp}{community}{'read'}
});
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
"ups::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_shutdown_delay" => $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_shutdown_delay},
data_type => $data_type,
}});
if (($anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_shutdown_delay} eq "--") or ($anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_shutdown_delay} =~ /\D/))
{
$anvil->Log->entry({log_level => 1, message_key => "scan_apc_ups_error_0001", variables => {
name => "ups::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_shutdown_delay",
value => $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_shutdown_delay},
}, file => $THIS_FILE, line => __LINE__});
$anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_shutdown_delay} = -1;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
"ups::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_shutdown_delay" => $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_shutdown_delay},
}});
}
# Get the UPS's firmware version.
($anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_firmware_version}, $data_type) = $anvil->Remote->read_snmp_oid({
debug => 3,
target => $ups_ip,
oid => $anvil->data->{oids}{ups}{firmware_version},
version => $anvil->data->{upses}{ups_uuid}{$ups_uuid}{snmp_version},
community => $anvil->data->{snmp}{community}{'read'}
});
$anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_firmware_version} =~ s/^\s+//;
$anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_firmware_version} =~ s/\s+$//;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
"ups::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_firmware_version" => $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_firmware_version},
data_type => $data_type,
}});
### Gather the main UPS data. The returned integer value maps to the appropriate
### 'scan_apc_ups_health_00xx' string.
# 1 => Unknown, 2 => Online, 3 => On Battery,
# 4 => onSmartBoost, 5 => timedSleeping, 6 => softwareBypass,
# 7 => off, 8 => rebooting, 9 => switchedBypass,
# 10 => hardwareFailureBypass, 11 => sleepingUntilPowerReturn,
# 12 => onSmartTrim, 13 => ecoMode, 14 => hotStandby,
# 15 => onBatteryTest, 15 => emergencyStaticBypass,
# 17 => staticBypassStandby, 18 => powerSavingMode,
# 19 => spotMode, 20 => eConversion
($anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_health}, $data_type) = $anvil->Remote->read_snmp_oid({
debug => 3,
target => $ups_ip,
oid => $anvil->data->{oids}{ups}{health},
version => $anvil->data->{upses}{ups_uuid}{$ups_uuid}{snmp_version},
community => $anvil->data->{snmp}{community}{'read'}
});
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
"ups::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_health" => $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_health},
data_type => $data_type,
}});
# Get the high and low transfer voltages.
($anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_high_transfer_voltage}, $data_type) = $anvil->Remote->read_snmp_oid({
debug => 3,
target => $ups_ip,
oid => $anvil->data->{oids}{ups}{high_transfer_voltage},
version => $anvil->data->{upses}{ups_uuid}{$ups_uuid}{snmp_version},
community => $anvil->data->{snmp}{community}{'read'}
});
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
"ups::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_high_transfer_voltage" => $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_high_transfer_voltage},
data_type => $data_type,
}});
($anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_low_transfer_voltage}, $data_type) = $anvil->Remote->read_snmp_oid({
debug => 3,
target => $ups_ip,
oid => $anvil->data->{oids}{ups}{low_transfer_voltage},
version => $anvil->data->{upses}{ups_uuid}{$ups_uuid}{snmp_version},
community => $anvil->data->{snmp}{community}{'read'}
});
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
"ups::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_low_transfer_voltage" => $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_low_transfer_voltage},
data_type => $data_type,
}});
### Get the last transfer reason. The returned integer maps to the appropriate
### 'scan_apc_ups_last_transfer_00xx' string.
# 1 => noTransfer, 2 => highLineVoltage, 3 => brownout,
# 4 => blackout, 5 => smallMomentarySag, 6 => deepMomentarySag,
# 7 => smallMomentarySpike, 8 => largeMomentarySpike,
# 9 => selfTest, 10 => rateOfVoltageChange
($anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_last_transfer_reason}, $data_type) = $anvil->Remote->read_snmp_oid({
debug => 3,
target => $ups_ip,
oid => $anvil->data->{oids}{ups}{last_transfer_reason},
version => $anvil->data->{upses}{ups_uuid}{$ups_uuid}{snmp_version},
community => $anvil->data->{snmp}{community}{'read'}
});
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
"ups::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_last_transfer_reason" => $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_last_transfer_reason},
data_type => $data_type,
}});
# Get the manufacture date of the UPS. This really should never change, but we need to record
# it at least once.
($anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_manufactured_date}, $data_type) = $anvil->Remote->read_snmp_oid({
debug => 3,
target => $ups_ip,
oid => $anvil->data->{oids}{ups}{manufactured_date},
version => $anvil->data->{upses}{ups_uuid}{$ups_uuid}{snmp_version},
community => $anvil->data->{snmp}{community}{'read'}
});
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
"ups::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_manufactured_date" => $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_manufactured_date},
data_type => $data_type,
}});
# Convert the format.
$anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_manufactured_date} = $anvil->Convert->format_mmddyy_to_yymmdd({date => $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_manufactured_date}});
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
"ups::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_manufactured_date" => $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_manufactured_date},
}});
# Get the model of the UPS.
($anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_model}, $data_type) = $anvil->Remote->read_snmp_oid({
debug => 3,
target => $ups_ip,
oid => $anvil->data->{oids}{ups}{model},
version => $anvil->data->{upses}{ups_uuid}{$ups_uuid}{snmp_version},
community => $anvil->data->{snmp}{community}{'read'}
});
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
"ups::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_model" => $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_model},
data_type => $data_type,
}});
# Get the temperature units. 1 == C, 2 == F
($anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_temperature_units}, $data_type) = $anvil->Remote->read_snmp_oid({
debug => 3,
target => $ups_ip,
oid => $anvil->data->{oids}{ups}{temperature_units},
version => $anvil->data->{upses}{ups_uuid}{$ups_uuid}{snmp_version},
community => $anvil->data->{snmp}{community}{'read'}
});
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
"ups::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_temperature_units" => $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_temperature_units},
data_type => $data_type,
}});
$anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_temperature_units} = $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_temperature_units} eq "2" ? "F" : "C";
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
"ups::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_temperature_units" => $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_temperature_units},
}});
# If the UPS was replaced, these values could change
($anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_serial_number}, $data_type) = $anvil->Remote->read_snmp_oid({
debug => 3,
target => $ups_ip,
oid => $anvil->data->{oids}{ups}{serial_number},
version => $anvil->data->{upses}{ups_uuid}{$ups_uuid}{snmp_version},
community => $anvil->data->{snmp}{community}{'read'}
});
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
"ups::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_serial_number" => $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_serial_number},
data_type => $data_type,
}});
#############################################################################################
# NMC information #
#############################################################################################
# Get the NMC firmware.
($anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_nmc_firmware_version}, $data_type) = $anvil->Remote->read_snmp_oid({
debug => 3,
target => $ups_ip,
oid => $anvil->data->{oids}{nmc}{firmware_version},
version => $anvil->data->{upses}{ups_uuid}{$ups_uuid}{snmp_version},
community => $anvil->data->{snmp}{community}{'read'}
});
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
"ups::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_nmc_firmware_version" => $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_nmc_firmware_version},
data_type => $data_type,
}});
# Get the NMC serial number.
($anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_nmc_serial_number}, $data_type) = $anvil->Remote->read_snmp_oid({
debug => 3,
target => $ups_ip,
oid => $anvil->data->{oids}{nmc}{serial_number},
version => $anvil->data->{upses}{ups_uuid}{$ups_uuid}{snmp_version},
community => $anvil->data->{snmp}{community}{'read'}
});
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
"ups::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_nmc_serial_number" => $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_nmc_serial_number},
data_type => $data_type,
}});
# Now the MAC address.
($anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_nmc_mac_address}, $data_type) = $anvil->Remote->read_snmp_oid({
debug => 3,
target => $ups_ip,
oid => $anvil->data->{oids}{nmc}{mac_address},
version => $anvil->data->{upses}{ups_uuid}{$ups_uuid}{snmp_version},
community => $anvil->data->{snmp}{community}{'read'}
});
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
"ups::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_nmc_mac_address" => $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_nmc_mac_address},
data_type => $data_type,
}});
# Convert the MAC format.
$anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_nmc_mac_address} =~ s/([0-9a-fA-F]{2}) ([0-9a-fA-F]{2}) ([0-9a-fA-F]{2}) ([0-9a-fA-F]{2}) ([0-9a-fA-F]{2}) ([0-9a-fA-F]{2})/$1:$2:$3:$4:$5:$6/g;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
"ups::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_nmc_mac_address" => $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_nmc_mac_address},
}});
#############################################################################################
# Battery information #
#############################################################################################
# NOTE: In the future, we'll try to read multi-battery UPSes. For now, this is basically a
# place-holder. Also note; There is no unique identifiers for UPS batteries. So we
# simply track them by sequence number (possibly tied to the OID, to be determined...)
foreach my $battery_number (1..1)
{
$anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{battery}{$battery_number}{scan_apc_ups_battery_next_replacement_date} = "";
$anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{battery}{$battery_number}{scan_apc_ups_battery_health} = "";
$anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{battery}{$battery_number}{scan_apc_ups_battery_model} = "";
$anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{battery}{$battery_number}{scan_apc_ups_battery_percentage_charge} = "";
$anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{battery}{$battery_number}{scan_apc_ups_battery_last_replacement_date} = "";
$anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{battery}{$battery_number}{scan_apc_ups_battery_state} = "";
$anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{battery}{$battery_number}{scan_apc_ups_battery_temperature} = "";
$anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{battery}{$battery_number}{scan_apc_ups_battery_alarm_temperature} = "";
$anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{battery}{$battery_number}{scan_apc_ups_battery_voltage} = "";
# Read the estimated battery replacement date. This only has value if the user remembered to
# mark the date the battery was replaced.
($anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{battery}{$battery_number}{scan_apc_ups_battery_next_replacement_date}, $data_type) = $anvil->Remote->read_snmp_oid({
debug => 3,
target => $ups_ip,
oid => $anvil->data->{oids}{battery}{next_replacement_date},
version => $anvil->data->{upses}{ups_uuid}{$ups_uuid}{snmp_version},
community => $anvil->data->{snmp}{community}{'read'}
});
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
"ups::scan_apc_ups_uuid::${scan_apc_ups_uuid}::battery::${battery_number}::scan_apc_ups_battery_next_replacement_date" => $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{battery}{$battery_number}{scan_apc_ups_battery_next_replacement_date},
data_type => $data_type,
}});
# Convert the date format
$anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{battery}{$battery_number}{scan_apc_ups_battery_next_replacement_date} = $anvil->Convert->format_mmddyy_to_yymmdd({date => $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{battery}{$battery_number}{scan_apc_ups_battery_next_replacement_date}});
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
"ups::scan_apc_ups_uuid::${scan_apc_ups_uuid}::battery::${battery_number}::scan_apc_ups_battery_next_replacement_date" => $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{battery}{$battery_number}{scan_apc_ups_battery_next_replacement_date},
}});
# Read the battery's health. 1 == OK, 2 == Failed, replace.
($anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{battery}{$battery_number}{scan_apc_ups_battery_health}, $data_type) = $anvil->Remote->read_snmp_oid({
debug => 3,
target => $ups_ip,
oid => $anvil->data->{oids}{battery}{health},
version => $anvil->data->{upses}{ups_uuid}{$ups_uuid}{snmp_version},
community => $anvil->data->{snmp}{community}{'read'}
});
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
"ups::scan_apc_ups_uuid::${scan_apc_ups_uuid}::battery::${battery_number}::scan_apc_ups_battery_health" => $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{battery}{$battery_number}{scan_apc_ups_battery_health},
data_type => $data_type,
}});
# Read the battery's model number.
($anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{battery}{$battery_number}{scan_apc_ups_battery_model}, $data_type) = $anvil->Remote->read_snmp_oid({
debug => 3,
target => $ups_ip,
oid => $anvil->data->{oids}{battery}{model},
version => $anvil->data->{upses}{ups_uuid}{$ups_uuid}{snmp_version},
community => $anvil->data->{snmp}{community}{'read'}
});
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
"ups::scan_apc_ups_uuid::${scan_apc_ups_uuid}::battery::${battery_number}::scan_apc_ups_battery_model" => $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{battery}{$battery_number}{scan_apc_ups_battery_model},
data_type => $data_type,
}});
# Read the percentage charge. This is high-precision, so divide by 10 to get the actual
# percentage (ie: 1000 == 100.0%).
($anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{battery}{$battery_number}{scan_apc_ups_battery_percentage_charge}, $data_type) = $anvil->Remote->read_snmp_oid({
debug => 3,
target => $ups_ip,
oid => $anvil->data->{oids}{battery}{percentage_charge_hp},
version => $anvil->data->{upses}{ups_uuid}{$ups_uuid}{snmp_version},
community => $anvil->data->{snmp}{community}{'read'}
});
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
"ups::scan_apc_ups_uuid::${scan_apc_ups_uuid}::battery::${battery_number}::scan_apc_ups_battery_percentage_charge" => $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{battery}{$battery_number}{scan_apc_ups_battery_percentage_charge},
data_type => $data_type,
}});
if (($anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{battery}{$battery_number}{scan_apc_ups_battery_percentage_charge} eq "--") or ($anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{battery}{$battery_number}{scan_apc_ups_battery_percentage_charge} =~ /\D/))
{
$anvil->Log->entry({log_level => 1, message_key => "scan_apc_ups_error_0001", variables => {
name => "ups::scan_apc_ups_uuid::${scan_apc_ups_uuid}::battery::${battery_number}::scan_apc_ups_battery_percentage_charge",
value => $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{battery}{$battery_number}{scan_apc_ups_battery_percentage_charge},
}, file => $THIS_FILE, line => __LINE__});
$anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{battery}{$battery_number}{scan_apc_ups_battery_percentage_charge} = -1;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
"ups::scan_apc_ups_uuid::${scan_apc_ups_uuid}::battery::${battery_number}::scan_apc_ups_battery_percentage_charge" => $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{battery}{$battery_number}{scan_apc_ups_battery_percentage_charge},
}});
}
$anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{battery}{$battery_number}{scan_apc_ups_battery_percentage_charge} /= 10;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
"ups::scan_apc_ups_uuid::${scan_apc_ups_uuid}::battery::${battery_number}::scan_apc_ups_battery_percentage_charge" => $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{battery}{$battery_number}{scan_apc_ups_battery_percentage_charge},
}});
if ($anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{battery}{$battery_number}{scan_apc_ups_battery_percentage_charge} > $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{highest_charge_percent})
{
$anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{highest_charge_percent} = $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{battery}{$battery_number}{scan_apc_ups_battery_percentage_charge};
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
"ups::scan_apc_ups_uuid::${scan_apc_ups_uuid}::highest_charge_percent" => $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{highest_charge_percent},
}});
}
# Get the date that the UPS was last replaced. (mm/dd/yy or yyyy format)
($anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{battery}{$battery_number}{scan_apc_ups_battery_last_replacement_date}, $data_type) = $anvil->Remote->read_snmp_oid({
debug => 3,
target => $ups_ip,
oid => $anvil->data->{oids}{battery}{last_replacement_date},
version => $anvil->data->{upses}{ups_uuid}{$ups_uuid}{snmp_version},
community => $anvil->data->{snmp}{community}{'read'}
});
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
"ups::scan_apc_ups_uuid::${scan_apc_ups_uuid}::battery::${battery_number}::scan_apc_ups_battery_last_replacement_date" => $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{battery}{$battery_number}{scan_apc_ups_battery_last_replacement_date},
data_type => $data_type,
}});
# Convert the format.
$anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{battery}{$battery_number}{scan_apc_ups_battery_last_replacement_date} = $anvil->Convert->format_mmddyy_to_yymmdd({date => $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{battery}{$battery_number}{scan_apc_ups_battery_last_replacement_date}});
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
"ups::scan_apc_ups_uuid::${scan_apc_ups_uuid}::battery::${battery_number}::scan_apc_ups_battery_last_replacement_date" => $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{battery}{$battery_number}{scan_apc_ups_battery_last_replacement_date},
}});
### The battery state is expressed as an integer and maps to 'scan_apc_ups_battery_000x'.
# 1 => unknown, 2 => batteryNormal, 3 => batteryLow,
# 4 => batteryInFaultCondition
($anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{battery}{$battery_number}{scan_apc_ups_battery_state}, $data_type) = $anvil->Remote->read_snmp_oid({
debug => 3,
target => $ups_ip,
oid => $anvil->data->{oids}{battery}{'state'},
version => $anvil->data->{upses}{ups_uuid}{$ups_uuid}{snmp_version},
community => $anvil->data->{snmp}{community}{'read'}
});
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
"ups::scan_apc_ups_uuid::${scan_apc_ups_uuid}::battery::${battery_number}::scan_apc_ups_battery_state" => $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{battery}{$battery_number}{scan_apc_ups_battery_state},
data_type => $data_type,
}});
# This is the temperature of the UPS battery. It is high-precision, so divide by 10 to get
# the actual temperature. It is always celsius, so don't convert it.
($anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{battery}{$battery_number}{scan_apc_ups_battery_temperature}, $data_type) = $anvil->Remote->read_snmp_oid({
debug => 3,
target => $ups_ip,
oid => $anvil->data->{oids}{battery}{temperature_hp},
version => $anvil->data->{upses}{ups_uuid}{$ups_uuid}{snmp_version},
community => $anvil->data->{snmp}{community}{'read'}
});
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
"ups::scan_apc_ups_uuid::${scan_apc_ups_uuid}::battery::${battery_number}::scan_apc_ups_battery_temperature" => $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{battery}{$battery_number}{scan_apc_ups_battery_temperature},
data_type => $data_type,
}});
if (($anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{battery}{$battery_number}{scan_apc_ups_battery_temperature} eq "--") or ($anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{battery}{$battery_number}{scan_apc_ups_battery_temperature} =~ /\D/))
{
$anvil->Log->entry({log_level => 1, message_key => "scan_apc_ups_error_0001", variables => {
name => "ups::scan_apc_ups_uuid::${scan_apc_ups_uuid}::battery::${battery_number}::scan_apc_ups_battery_temperature",
value => $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{battery}{$battery_number}{scan_apc_ups_battery_temperature},
}, file => $THIS_FILE, line => __LINE__});
$anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{battery}{$battery_number}{scan_apc_ups_battery_temperature} = -1;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
"ups::scan_apc_ups_uuid::${scan_apc_ups_uuid}::battery::${battery_number}::scan_apc_ups_battery_temperature" => $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{battery}{$battery_number}{scan_apc_ups_battery_temperature},
}});
}
$anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{battery}{$battery_number}{scan_apc_ups_battery_temperature} /= 10;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
"ups::scan_apc_ups_uuid::${scan_apc_ups_uuid}::battery::${battery_number}::scan_apc_ups_battery_temperature" => $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{battery}{$battery_number}{scan_apc_ups_battery_temperature},
}});
# Get the temperature at which the system throws a fit. This is stated as a standard integer,
# no need to divide by 10.
($anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{battery}{$battery_number}{scan_apc_ups_battery_alarm_temperature}, $data_type) = $anvil->Remote->read_snmp_oid({
debug => 3,
target => $ups_ip,
oid => $anvil->data->{oids}{battery}{alarm_temperature},
version => $anvil->data->{upses}{ups_uuid}{$ups_uuid}{snmp_version},
community => $anvil->data->{snmp}{community}{'read'}
});
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
"ups::scan_apc_ups_uuid::${scan_apc_ups_uuid}::battery::${battery_number}::scan_apc_ups_battery_alarm_temperature" => $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{battery}{$battery_number}{scan_apc_ups_battery_alarm_temperature},
data_type => $data_type,
}});
if (($anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{battery}{$battery_number}{scan_apc_ups_battery_alarm_temperature} eq "--") or ($anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{battery}{$battery_number}{scan_apc_ups_battery_alarm_temperature} =~ /\D/))
{
$anvil->Log->entry({log_level => 1, message_key => "scan_apc_ups_error_0001", variables => {
name => "ups::scan_apc_ups_uuid::${scan_apc_ups_uuid}::battery::${battery_number}::scan_apc_ups_battery_alarm_temperature",
value => $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{battery}{$battery_number}{scan_apc_ups_battery_alarm_temperature},
}, file => $THIS_FILE, line => __LINE__});
$anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{battery}{$battery_number}{scan_apc_ups_battery_alarm_temperature} = 40 ;
$anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_temperature_units} = "C";
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
"ups::scan_apc_ups_uuid::${scan_apc_ups_uuid}::battery::${battery_number}::scan_apc_ups_battery_alarm_temperature" => $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{battery}{$battery_number}{scan_apc_ups_battery_alarm_temperature},
"ups::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_temperature_units" => $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_temperature_units},
}});
}
if ($anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_temperature_units} eq "F")
{
# We live in a metric world!
$anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{battery}{$battery_number}{scan_apc_ups_battery_alarm_temperature} = $anvil->Convert->fahrenheit_to_celsius({temperature => $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{battery}{$battery_number}{scan_apc_ups_battery_alarm_temperature}});
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
"ups::scan_apc_ups_uuid::${scan_apc_ups_uuid}::battery::${battery_number}::scan_apc_ups_battery_alarm_temperature" => $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{battery}{$battery_number}{scan_apc_ups_battery_alarm_temperature},
}});
}
# Read the current battery voltage (vDC). It is a high-precision value, so divide by 10.
($anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{battery}{$battery_number}{scan_apc_ups_battery_voltage}, $data_type) = $anvil->Remote->read_snmp_oid({
debug => 3,
target => $ups_ip,
oid => $anvil->data->{oids}{battery}{temperature_hp},
version => $anvil->data->{upses}{ups_uuid}{$ups_uuid}{snmp_version},
community => $anvil->data->{snmp}{community}{'read'}
});
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
"ups::scan_apc_ups_uuid::${scan_apc_ups_uuid}::battery::${battery_number}::scan_apc_ups_battery_voltage" => $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{battery}{$battery_number}{scan_apc_ups_battery_voltage},
data_type => $data_type,
}});
if (($anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{battery}{$battery_number}{scan_apc_ups_battery_voltage} eq "--") or ($anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{battery}{$battery_number}{scan_apc_ups_battery_voltage} =~ /\D/))
{
$anvil->Log->entry({log_level => 1, message_key => "scan_apc_ups_error_0001", variables => {
name => "ups::scan_apc_ups_uuid::${scan_apc_ups_uuid}::battery::${battery_number}::scan_apc_ups_battery_voltage",
value => $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{battery}{$battery_number}{scan_apc_ups_battery_voltage},
}, file => $THIS_FILE, line => __LINE__});
$anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{battery}{$battery_number}{scan_apc_ups_battery_voltage} = -1;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
"ups::scan_apc_ups_uuid::${scan_apc_ups_uuid}::battery::${battery_number}::scan_apc_ups_battery_voltage" => $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{battery}{$battery_number}{scan_apc_ups_battery_voltage},
}});
}
$anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{battery}{$battery_number}{scan_apc_ups_battery_voltage} /= 10;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
"ups::scan_apc_ups_uuid::${scan_apc_ups_uuid}::battery::${battery_number}::scan_apc_ups_battery_voltage" => $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{battery}{$battery_number}{scan_apc_ups_battery_voltage},
}});
}
#############################################################################################
# Input Information #
#############################################################################################
# This is the current input frequency. It is high-precision, so divide by 10.
($anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_input_frequency}, $data_type) = $anvil->Remote->read_snmp_oid({
debug => 3,
target => $ups_ip,
oid => $anvil->data->{oids}{input}{frequency_hp},
version => $anvil->data->{upses}{ups_uuid}{$ups_uuid}{snmp_version},
community => $anvil->data->{snmp}{community}{'read'}
});
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
"ups::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_input_frequency" => $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_input_frequency},
data_type => $data_type,
}});
if (($anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_input_frequency} eq "--") or ($anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_input_frequency} =~ /\D/))
{
$anvil->Log->entry({log_level => 1, message_key => "scan_apc_ups_error_0001", variables => {
name => "ups::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_input_frequency",
value => $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_input_frequency},
}, file => $THIS_FILE, line => __LINE__});
$anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_input_frequency} = -1;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
"ups::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_input_frequency" => $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_input_frequency},
}});
}
$anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_input_frequency} /= 10;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
"ups::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_input_frequency" => $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_input_frequency},
}});
### The input sensitivity is an integer that maps to 'scan_apc_ups_sensitivity_000x'. If the
### UPS is an 'online' (dual-conversion model), this will return '0'.
# 1 => Auto, 2 => Low, 3 => Medium, 4 => High
# We set this to '0' if no value was returned to indicate an 'Online' UPS.
($anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_input_sensitivity}, $data_type) = $anvil->Remote->read_snmp_oid({
debug => 3,
target => $ups_ip,
oid => $anvil->data->{oids}{input}{sensitivity},
version => $anvil->data->{upses}{ups_uuid}{$ups_uuid}{snmp_version},
community => $anvil->data->{snmp}{community}{'read'}
});
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
"ups::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_input_sensitivity" => $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_input_sensitivity},
data_type => $data_type,
}});
if (($anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_input_sensitivity} eq "--") or ($anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_input_sensitivity} =~ /\D/))
{
$anvil->Log->entry({log_level => 1, message_key => "scan_apc_ups_error_0001", variables => {
name => "ups::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_input_sensitivity",
value => $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_input_sensitivity},
}, file => $THIS_FILE, line => __LINE__});
$anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_input_sensitivity} = -1;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
"ups::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_input_sensitivity" => $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_input_sensitivity},
}});
}
$anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_input_sensitivity} /= 10;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
"ups::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_input_sensitivity" => $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_input_sensitivity},
}});
# High-precision input voltage
($anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_input_voltage}, $data_type) = $anvil->Remote->read_snmp_oid({
debug => 3,
target => $ups_ip,
oid => $anvil->data->{oids}{input}{voltage_hp},
version => $anvil->data->{upses}{ups_uuid}{$ups_uuid}{snmp_version},
community => $anvil->data->{snmp}{community}{'read'}
});
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
"ups::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_input_voltage" => $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_input_voltage},
data_type => $data_type,
}});
if (($anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_input_voltage} eq "--") or ($anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_input_voltage} =~ /\D/))
{
$anvil->Log->entry({log_level => 1, message_key => "scan_apc_ups_error_0001", variables => {
name => "ups::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_input_voltage",
value => $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_input_voltage},
}, file => $THIS_FILE, line => __LINE__});
$anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_input_voltage} = -1;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
"ups::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_input_voltage" => $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_input_voltage},
}});
}
$anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_input_voltage} /= 10;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
"ups::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_input_voltage" => $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_input_voltage},
}});
# High-precision maximum and minimum input voltages (vAC) over the last 60 seconds.
($anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_input_1m_maximum_input_voltage}, $data_type) = $anvil->Remote->read_snmp_oid({
debug => 3,
target => $ups_ip,
oid => $anvil->data->{oids}{input}{'1m_maximum_input_voltage_hp'},
version => $anvil->data->{upses}{ups_uuid}{$ups_uuid}{snmp_version},
community => $anvil->data->{snmp}{community}{'read'}
});
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
"ups::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_input_1m_maximum_input_voltage" => $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_input_1m_maximum_input_voltage},
data_type => $data_type,
}});
if (($anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_input_1m_maximum_input_voltage} eq "--") or ($anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_input_1m_maximum_input_voltage} =~ /\D/))
{
$anvil->Log->entry({log_level => 1, message_key => "scan_apc_ups_error_0001", variables => {
name => "ups::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_input_1m_maximum_input_voltage",
value => $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_input_1m_maximum_input_voltage},
}, file => $THIS_FILE, line => __LINE__});
$anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_input_1m_maximum_input_voltage} = -1;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
"ups::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_input_1m_maximum_input_voltage" => $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_input_1m_maximum_input_voltage},
}});
}
$anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_input_1m_maximum_input_voltage} /= 10;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
"ups::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_input_1m_maximum_input_voltage" => $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_input_1m_maximum_input_voltage},
}});
($anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_input_1m_minimum_input_voltage}, $data_type) = $anvil->Remote->read_snmp_oid({
debug => 3,
target => $ups_ip,
oid => $anvil->data->{oids}{input}{'1m_minimum_input_voltage_hp'},
version => $anvil->data->{upses}{ups_uuid}{$ups_uuid}{snmp_version},
community => $anvil->data->{snmp}{community}{'read'}
});
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
"ups::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_input_1m_minimum_input_voltage" => $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_input_1m_minimum_input_voltage},
data_type => $data_type,
}});
if (($anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_input_1m_minimum_input_voltage} eq "--") or ($anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_input_1m_minimum_input_voltage} =~ /\D/))
{
$anvil->Log->entry({log_level => 1, message_key => "scan_apc_ups_error_0001", variables => {
name => "ups::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_input_1m_minimum_input_voltage",
value => $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_input_1m_minimum_input_voltage},
}, file => $THIS_FILE, line => __LINE__});
$anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_input_1m_minimum_input_voltage} = -1;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
"ups::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_input_1m_minimum_input_voltage" => $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_input_1m_minimum_input_voltage},
}});
}
$anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_input_1m_minimum_input_voltage} /= 10;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
"ups::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_input_1m_minimum_input_voltage" => $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_input_1m_minimum_input_voltage},
}});
#############################################################################################
# Output Information #
#############################################################################################
# High-precision output load percentage, divide by 10.
($anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_output_load_percentage}, $data_type) = $anvil->Remote->read_snmp_oid({
debug => 3,
target => $ups_ip,
oid => $anvil->data->{oids}{output}{load_percentage_hp},
version => $anvil->data->{upses}{ups_uuid}{$ups_uuid}{snmp_version},
community => $anvil->data->{snmp}{community}{'read'}
});
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
"ups::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_output_load_percentage" => $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_output_load_percentage},
data_type => $data_type,
}});
if (($anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_output_load_percentage} eq "--") or ($anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_output_load_percentage} =~ /\D/))
{
$anvil->Log->entry({log_level => 1, message_key => "scan_apc_ups_error_0001", variables => {
name => "ups::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_output_load_percentage",
value => $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_output_load_percentage},
}, file => $THIS_FILE, line => __LINE__});
$anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_output_load_percentage} = -1;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
"ups::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_output_load_percentage" => $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_output_load_percentage},
}});
}
$anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_output_load_percentage} /= 10;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
"ups::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_output_load_percentage" => $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_output_load_percentage},
}});
# The time (in ticks, divide by 100) that the UPS has been running on batteries. '0'
# indicates that it is not on batteries.
($anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_output_time_on_batteries}, $data_type) = $anvil->Remote->read_snmp_oid({
debug => 3,
target => $ups_ip,
oid => $anvil->data->{oids}{output}{time_on_batteries},
version => $anvil->data->{upses}{ups_uuid}{$ups_uuid}{snmp_version},
community => $anvil->data->{snmp}{community}{'read'}
});
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
"ups::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_output_time_on_batteries" => $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_output_time_on_batteries},
data_type => $data_type,
}});
if (($anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_output_time_on_batteries} eq "--") or ($anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_output_time_on_batteries} =~ /\D/))
{
$anvil->Log->entry({log_level => 1, message_key => "scan_apc_ups_error_0001", variables => {
name => "ups::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_output_time_on_batteries",
value => $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_output_time_on_batteries},
}, file => $THIS_FILE, line => __LINE__});
$anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_output_time_on_batteries} = -1;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
"ups::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_output_time_on_batteries" => $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_output_time_on_batteries},
}});
}
$anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_output_time_on_batteries} /= 100;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
"ups::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_output_time_on_batteries" => $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_output_time_on_batteries},
}});
($anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_output_estimated_runtime}, $data_type) = $anvil->Remote->read_snmp_oid({
debug => 3,
target => $ups_ip,
oid => $anvil->data->{oids}{output}{estimated_runtime},
version => $anvil->data->{upses}{ups_uuid}{$ups_uuid}{snmp_version},
community => $anvil->data->{snmp}{community}{'read'}
});
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
"ups::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_output_estimated_runtime" => $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_output_estimated_runtime},
data_type => $data_type,
}});
if (($anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_output_estimated_runtime} eq "--") or ($anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_output_estimated_runtime} =~ /\D/))
{
$anvil->Log->entry({log_level => 1, message_key => "scan_apc_ups_error_0001", variables => {
name => "ups::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_output_estimated_runtime",
value => $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_output_estimated_runtime},
}, file => $THIS_FILE, line => __LINE__});
$anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_output_estimated_runtime} = -1;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
"ups::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_output_estimated_runtime" => $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_output_estimated_runtime},
}});
}
$anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_output_estimated_runtime} /= 100;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
"ups::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_output_estimated_runtime" => $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_output_estimated_runtime},
}});
# This is the high-precision output frequency in Hz (divide by 10).
($anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_output_frequency}, $data_type) = $anvil->Remote->read_snmp_oid({
debug => 3,
target => $ups_ip,
oid => $anvil->data->{oids}{output}{frequency_hp},
version => $anvil->data->{upses}{ups_uuid}{$ups_uuid}{snmp_version},
community => $anvil->data->{snmp}{community}{'read'}
});
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
"ups::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_output_frequency" => $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_output_frequency},
data_type => $data_type,
}});
if (($anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_output_frequency} eq "--") or ($anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_output_frequency} =~ /\D/))
{
$anvil->Log->entry({log_level => 1, message_key => "scan_apc_ups_error_0001", variables => {
name => "ups::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_output_frequency",
value => $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_output_frequency},
}, file => $THIS_FILE, line => __LINE__});
$anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_output_frequency} = -1;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
"ups::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_output_frequency" => $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_output_frequency},
}});
}
$anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_output_frequency} /= 10;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
"ups::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_output_frequency" => $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_output_frequency},
}});
# High-precision output voltage (vAC, divide by 10).
($anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_output_voltage}, $data_type) = $anvil->Remote->read_snmp_oid({
debug => 3,
target => $ups_ip,
oid => $anvil->data->{oids}{output}{voltage_hp},
version => $anvil->data->{upses}{ups_uuid}{$ups_uuid}{snmp_version},
community => $anvil->data->{snmp}{community}{'read'}
});
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
"ups::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_output_voltage" => $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_output_voltage},
data_type => $data_type,
}});
if (($anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_output_voltage} eq "--") or ($anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_output_voltage} =~ /\D/))
{
$anvil->Log->entry({log_level => 1, message_key => "scan_apc_ups_error_0001", variables => {
name => "ups::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_output_voltage",
value => $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_output_voltage},
}, file => $THIS_FILE, line => __LINE__});
$anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_output_voltage} = -1;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
"ups::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_output_voltage" => $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_output_voltage},
}});
}
$anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_output_voltage} /= 10;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
"ups::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_output_voltage" => $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_output_voltage},
}});
# This is the total power outputted since the UPS was created. It is measured in tens of
# watt-hours, so divide be 100 to get kW/hr.
($anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_output_total_output}, $data_type) = $anvil->Remote->read_snmp_oid({
debug => 3,
target => $ups_ip,
oid => $anvil->data->{oids}{output}{total_output},
version => $anvil->data->{upses}{ups_uuid}{$ups_uuid}{snmp_version},
community => $anvil->data->{snmp}{community}{'read'}
});
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
"ups::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_output_total_output" => $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_output_total_output},
data_type => $data_type,
}});
if (($anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_output_total_output} eq "--") or ($anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_output_total_output} =~ /\D/))
{
$anvil->Log->entry({log_level => 1, message_key => "scan_apc_ups_error_0001", variables => {
name => "ups::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_output_total_output",
value => $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_output_total_output},
}, file => $THIS_FILE, line => __LINE__});
$anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_output_total_output} = -1;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
"ups::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_output_total_output" => $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_output_total_output},
}});
}
$anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_output_total_output} /= 100;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
"ups::scan_apc_ups_uuid::${scan_apc_ups_uuid}::scan_apc_ups_output_total_output" => $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_output_total_output},
}});
}
return(0);
}
# This looks for APC UPSes.
sub find_upses
{
my ($anvil) = @_;
### TODO: On nodes and DR hosts, limit this to the UPSes selected as powering the given machine.
# Search in 'upses' for UPSes using this scan agent. These aren't bound to hosts (or even Anvil!
# systems), so not all may be available.
my $query = "
SELECT
ups_uuid,
ups_name,
ups_ip_address
FROM
upses
WHERE
ups_agent = ".$anvil->Database->quote($THIS_FILE)."
ORDER BY
ups_name ASC
;";
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { query => $query }});
my $results = $anvil->Database->query({query => $query, source => $THIS_FILE, line => __LINE__});
my $count = @{$results};
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 3, list => {
results => $results,
count => $count,
}});
foreach my $row (@{$results})
{
my $ups_uuid = $row->[0];
my $ups_name = $row->[1];
my $ups_ip_address = $row->[2];
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 3, list => {
ups_uuid => $ups_uuid,
ups_name => $ups_name,
ups_ip_address => $ups_ip_address,
}});
$anvil->data->{upses}{ups_uuid}{$ups_uuid}{name} = $ups_name;
$anvil->data->{upses}{ups_uuid}{$ups_uuid}{ip_address} = $ups_ip_address;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
"upses::ups_uuid::${ups_uuid}::name" => $anvil->data->{upses}{ups_uuid}{$ups_uuid}{name},
"upses::ups_uuid::${ups_uuid}::ip_address" => $anvil->data->{upses}{ups_uuid}{$ups_uuid}{ip_address},
}});
}
my $ups_count = keys %{$anvil->data->{upses}{ups_uuid}};
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { ups_count => $ups_count }});
return($ups_count);
}
sub insert_battery
{
my ($anvil, $scan_apc_ups_uuid, $battery_number) = @_;
my $scan_apc_ups_name = $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_name};
my $scan_apc_ups_battery_next_replacement_date = $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{battery}{$battery_number}{scan_apc_ups_battery_next_replacement_date};
my $scan_apc_ups_battery_health = $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{battery}{$battery_number}{scan_apc_ups_battery_health};
my $scan_apc_ups_battery_model = $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{battery}{$battery_number}{scan_apc_ups_battery_model};
my $scan_apc_ups_battery_percentage_charge = $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{battery}{$battery_number}{scan_apc_ups_battery_percentage_charge};
my $scan_apc_ups_battery_last_replacement_date = $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{battery}{$battery_number}{scan_apc_ups_battery_last_replacement_date};
my $scan_apc_ups_battery_state = $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{battery}{$battery_number}{scan_apc_ups_battery_state};
my $scan_apc_ups_battery_temperature = $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{battery}{$battery_number}{scan_apc_ups_battery_temperature};
my $scan_apc_ups_battery_alarm_temperature = $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{battery}{$battery_number}{scan_apc_ups_battery_alarm_temperature};
my $scan_apc_ups_battery_voltage = $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{battery}{$battery_number}{scan_apc_ups_battery_voltage};
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
scan_apc_ups_battery_next_replacement_date => $scan_apc_ups_battery_next_replacement_date,
scan_apc_ups_battery_health => $scan_apc_ups_battery_health,
scan_apc_ups_battery_model => $scan_apc_ups_battery_model,
scan_apc_ups_battery_percentage_charge => $scan_apc_ups_battery_percentage_charge,
scan_apc_ups_battery_last_replacement_date => $scan_apc_ups_battery_last_replacement_date,
scan_apc_ups_battery_state => $scan_apc_ups_battery_state,
scan_apc_ups_battery_temperature => $scan_apc_ups_battery_temperature,
scan_apc_ups_battery_alarm_temperature => $scan_apc_ups_battery_alarm_temperature,
scan_apc_ups_battery_voltage => $scan_apc_ups_battery_voltage,
}});
my $scan_apc_ups_battery_uuid = $anvil->Get->uuid;
my $query = "
INSERT INTO
scan_apc_ups_batteries
(
scan_apc_ups_battery_uuid,
scan_apc_ups_battery_scan_apc_ups_uuid,
scan_apc_ups_battery_number,
scan_apc_ups_battery_next_replacement_date,
scan_apc_ups_battery_health,
scan_apc_ups_battery_model,
scan_apc_ups_battery_percentage_charge,
scan_apc_ups_battery_last_replacement_date,
scan_apc_ups_battery_state,
scan_apc_ups_battery_temperature,
scan_apc_ups_battery_alarm_temperature,
scan_apc_ups_battery_voltage,
modified_date
) VALUES (
".$anvil->Database->quote($scan_apc_ups_battery_uuid).",
".$anvil->Database->quote($scan_apc_ups_uuid).",
".$anvil->Database->quote($battery_number).",
".$anvil->Database->quote($scan_apc_ups_battery_next_replacement_date).",
".$anvil->Database->quote($scan_apc_ups_battery_health).",
".$anvil->Database->quote($scan_apc_ups_battery_model).",
".$anvil->Database->quote($scan_apc_ups_battery_percentage_charge).",
".$anvil->Database->quote($scan_apc_ups_battery_last_replacement_date).",
".$anvil->Database->quote($scan_apc_ups_battery_state).",
".$anvil->Database->quote($scan_apc_ups_battery_temperature).",
".$anvil->Database->quote($scan_apc_ups_battery_alarm_temperature).",
".$anvil->Database->quote($scan_apc_ups_battery_voltage).",
".$anvil->Database->quote($anvil->Database->refresh_timestamp)."
);";
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { query => $query }});
$anvil->Database->write({query => $query, source => $THIS_FILE, line => __LINE__});
my $variables = {
ups_name => $scan_apc_ups_name,
battery_number => $battery_number,
replacement_date => $scan_apc_ups_battery_next_replacement_date,
health => "#!string!scan_apc_ups_battery_health_".sprintf("%04d", $scan_apc_ups_battery_health)."!#",
model => $scan_apc_ups_battery_model,
charge_percentage => $scan_apc_ups_battery_percentage_charge,
install_date => $scan_apc_ups_battery_last_replacement_date,
'state' => "#!string!scan_apc_ups_battery_state_".sprintf("%04d", $scan_apc_ups_battery_state)."!#",
temperature => $scan_apc_ups_battery_temperature,
alarm_temperature => $scan_apc_ups_battery_alarm_temperature,
voltage => $scan_apc_ups_battery_voltage,
};
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 1, key => "scan_apc_ups_message_0003", variables => $variables});
$anvil->Alert->register({
alert_level => "warning",
message => "scan_apc_ups_message_0003",
variables => $variables,
set_by => $THIS_FILE,
sort_position => $anvil->data->{'scan-apc-ups'}{alert_sort}++,
});
return($scan_apc_ups_battery_uuid);
}
sub insert_input
{
my ($anvil, $scan_apc_ups_uuid) = @_;
my $scan_apc_ups_name = $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_name};
my $scan_apc_ups_input_uuid = $anvil->Get->uuid;
my $scan_apc_ups_input_1m_minimum_input_voltage = $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_input_1m_minimum_input_voltage};
my $scan_apc_ups_input_1m_maximum_input_voltage = $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_input_1m_maximum_input_voltage};
my $scan_apc_ups_input_voltage = $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_input_voltage};
my $scan_apc_ups_input_sensitivity = $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_input_sensitivity};
my $scan_apc_ups_input_frequency = $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_input_frequency};
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
scan_apc_ups_input_1m_minimum_input_voltage => $scan_apc_ups_input_1m_minimum_input_voltage,
scan_apc_ups_input_1m_maximum_input_voltage => $scan_apc_ups_input_1m_maximum_input_voltage,
scan_apc_ups_input_sensitivity => $scan_apc_ups_input_sensitivity,
scan_apc_ups_input_frequency => $scan_apc_ups_input_frequency,
}});
my $query = "
INSERT INTO
scan_apc_ups_input
(
scan_apc_ups_input_uuid,
scan_apc_ups_input_scan_apc_ups_uuid,
scan_apc_ups_input_frequency,
scan_apc_ups_input_sensitivity,
scan_apc_ups_input_voltage,
scan_apc_ups_input_1m_maximum_input_voltage,
scan_apc_ups_input_1m_minimum_input_voltage,
modified_date
) VALUES (
".$anvil->Database->quote($scan_apc_ups_input_uuid).",
".$anvil->Database->quote($scan_apc_ups_uuid).",
".$anvil->Database->quote($scan_apc_ups_input_frequency).",
".$anvil->Database->quote($scan_apc_ups_input_sensitivity).",
".$anvil->Database->quote($scan_apc_ups_input_voltage).",
".$anvil->Database->quote($scan_apc_ups_input_1m_maximum_input_voltage).",
".$anvil->Database->quote($scan_apc_ups_input_1m_minimum_input_voltage).",
".$anvil->Database->quote($anvil->Database->refresh_timestamp)."
);";
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { query => $query }});
$anvil->Database->write({query => $query, source => $THIS_FILE, line => __LINE__});
my $variables = {
ups_name => $scan_apc_ups_name,
'1m_minimum_input_voltage' => $scan_apc_ups_input_1m_minimum_input_voltage,
'1m_maximum_input_voltage' => $scan_apc_ups_input_1m_maximum_input_voltage,
scan_apc_ups_input_voltage => $scan_apc_ups_input_voltage,
input_sensitivity => $scan_apc_ups_input_sensitivity,
input_frequency => $scan_apc_ups_input_frequency,
};
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 1, key => "scan_apc_ups_message_0004", variables => $variables});
$anvil->Alert->register({
alert_level => "warning",
message => "scan_apc_ups_message_0004",
variables => $variables,
set_by => $THIS_FILE,
sort_position => $anvil->data->{'scan-apc-ups'}{alert_sort}++,
});
return($scan_apc_ups_input_uuid);
}
sub insert_output
{
my ($anvil, $scan_apc_ups_uuid) = @_;
my $scan_apc_ups_name = $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_name};
my $scan_apc_ups_output_uuid = $anvil->Get->uuid;
my $scan_apc_ups_output_voltage = $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_output_voltage};
my $scan_apc_ups_output_total_output = $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_output_total_output};
my $scan_apc_ups_output_frequency = $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_output_frequency};
my $scan_apc_ups_output_time_on_batteries = $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_output_time_on_batteries};
my $scan_apc_ups_output_estimated_runtime = $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_output_estimated_runtime};
my $scan_apc_ups_output_load_percentage = $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_output_load_percentage};
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
scan_apc_ups_output_voltage => $scan_apc_ups_output_voltage,
scan_apc_ups_output_total_output => $scan_apc_ups_output_total_output,
scan_apc_ups_output_frequency => $scan_apc_ups_output_frequency,
scan_apc_ups_output_time_on_batteries => $scan_apc_ups_output_time_on_batteries,
scan_apc_ups_output_estimated_runtime => $scan_apc_ups_output_estimated_runtime,
scan_apc_ups_output_load_percentage => $scan_apc_ups_output_load_percentage,
}});
my $query = "
INSERT INTO
scan_apc_ups_output
(
scan_apc_ups_output_uuid,
scan_apc_ups_output_scan_apc_ups_uuid,
scan_apc_ups_output_load_percentage,
scan_apc_ups_output_time_on_batteries,
scan_apc_ups_output_estimated_runtime,
scan_apc_ups_output_frequency,
scan_apc_ups_output_voltage,
scan_apc_ups_output_total_output,
modified_date
) VALUES (
".$anvil->Database->quote($scan_apc_ups_output_uuid).",
".$anvil->Database->quote($scan_apc_ups_uuid).",
".$anvil->Database->quote($scan_apc_ups_output_load_percentage).",
".$anvil->Database->quote($scan_apc_ups_output_time_on_batteries).",
".$anvil->Database->quote($scan_apc_ups_output_estimated_runtime).",
".$anvil->Database->quote($scan_apc_ups_output_frequency).",
".$anvil->Database->quote($scan_apc_ups_output_voltage).",
".$anvil->Database->quote($scan_apc_ups_output_total_output).",
".$anvil->Database->quote($anvil->Database->refresh_timestamp)."
);";
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { query => $query }});
$anvil->Database->write({query => $query, source => $THIS_FILE, line => __LINE__});
my $variables = {
ups_name => $scan_apc_ups_name,
voltage => $scan_apc_ups_output_voltage,
total_output => $scan_apc_ups_output_total_output,
time_on_batteries => $scan_apc_ups_output_time_on_batteries ? "#!string!scan_apc_ups_message_0007!#" : "#!string!scan_apc_ups_message_0006!#",
load_percentage => $scan_apc_ups_output_load_percentage,
};
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 1, key => "scan_apc_ups_message_0005", variables => $variables});
$anvil->Alert->register({
alert_level => "warning",
message => "scan_apc_ups_message_0005",
variables => $variables,
set_by => $THIS_FILE,
sort_position => $anvil->data->{'scan-apc-ups'}{alert_sort}++,
});
return($scan_apc_ups_name);
}
sub process_temperature
{
my ($anvil, $scan_apc_ups_battery_uuid, $battery_number, $scan_apc_ups_uuid) = @_;
### TODO: Left off here, may have delta, warning and critical mixed up.
my $ups_uuid = $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_upses}{scan_apc_ups_ups_uuid};
my $ups_name = $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{scan_apc_ups_name};
my $battery_temperature = $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{battery}{$battery_number}{scan_apc_ups_battery_temperature};
my $critical_temperature = $anvil->data->{ups}{scan_apc_ups_uuid}{$scan_apc_ups_uuid}{battery}{$battery_number}{scan_apc_ups_battery_alarm_temperature};
my $warning_temperature = ($critical_temperature - $anvil->data->{'scan-apc-ups'}{temperature_warning_delta});
my $clear_critical_temperature = ($critical_temperature - $anvil->data->{'scan-apc-ups'}{temperature_clear_delta});
my $clear_warning_temperature = ($warning_temperature - $anvil->data->{'scan-apc-ups'}{temperature_clear_delta});
my $warning_temp_key = "scan-apc-ups::".$scan_apc_ups_battery_uuid."::warning_temperature";
my $critical_temp_key = "scan-apc-ups::".$scan_apc_ups_battery_uuid."::critical_temperature";
my $temperature_state = "ok";
my $temperature_is = "nominal";
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
ups_uuid => $ups_uuid,
ups_name => $ups_name,
battery_temperature => $battery_temperature,
critical_temperature => $critical_temperature,
warning_temperature => $warning_temperature,
clear_critical_temperature => $clear_critical_temperature,
clear_warning_temperature => $clear_warning_temperature,
warning_temp_key => $warning_temp_key,
critical_temp_key => $critical_temp_key,
}});
my $variables = {
ups_name => $ups_name,
battery_number => $battery_number,
temperature => $battery_temperature,
warning_temp => $warning_temperature,
critical_temperature => $critical_temperature,
clear_critical_temp => $clear_critical_temperature,
clear_warning_temp => $clear_warning_temperature,
};
if ($battery_temperature > $critical_temperature)
{
# Critically high. Is this new? (also set the warning temp)
$anvil->Alert->check_alert_sent({clear => 0, record_locator => $warning_temp_key, set_by => $THIS_FILE });
my $changed = $anvil->Alert->check_alert_sent({clear => 0, record_locator => $critical_temp_key, set_by => $THIS_FILE });
$temperature_state = "critical";
$temperature_is = "high";
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
temperature_state => $temperature_state,
temperature_is => $temperature_is.
changed => $changed,
}});
if ($changed)
{
# Register an alert.
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 0, priority => "err", key => "scan_apc_ups_warning_0001", variables => $variables});
$anvil->Alert->register({alert_level => "warning", message => "scan_apc_ups_warning_0001", variables => $variables, sort_position => 1, set_by => $THIS_FILE});
}
}
elsif ($battery_temperature > $critical_temperature)
{
# Above warning, is this new?
my $changed = $anvil->Alert->check_alert_sent({clear => 0, record_locator => $warning_temp_key, set_by => $THIS_FILE });
$temperature_state = "warning";
$temperature_is = "high";
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => {
temperature_state => $temperature_state,
temperature_is => $temperature_is.
changed => $changed,
}});
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { changed => $changed }});
if ($changed)
{
# Register an alert.
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 0, priority => "err", key => "scan_apc_ups_warning_0003", variables => $variables});
$anvil->Alert->register({alert_level => "warning", message => "scan_apc_ups_warning_0003", variables => $variables, sort_position => 1, set_by => $THIS_FILE});
}
}
# Any alerts to clear?
if ($battery_temperature < $clear_warning_temperature)
{
# If we had a warning alert, clear it (and critical, in case the temp dropped from critical to clear in one loop).
$anvil->Alert->check_alert_sent({clear => 1, record_locator => $critical_temp_key, set_by => $THIS_FILE });
my $changed = $anvil->Alert->check_alert_sent({clear => 1, record_locator => $warning_temp_key, set_by => $THIS_FILE });
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { changed => $changed }});
if ($changed)
{
# Register an alert.
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 0, priority => "err", key => "scan_apc_ups_warning_0004", variables => $variables});
$anvil->Alert->register({alert_level => "warning", clear_alert => 1, message => "scan_apc_ups_warning_0004", variables => $variables, sort_position => 1, set_by => $THIS_FILE});
}
}
elsif ($battery_temperature < $clear_critical_temperature)
{
### NOTE: It's possible that the temperature has dropped from critical to warning. So we're
### only clearing the critical alert.
# If we had a critical alert, clear it.
my $changed = $anvil->Alert->check_alert_sent({clear => 1, record_locator => $critical_temp_key, set_by => $THIS_FILE });
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { changed => $changed }});
if ($changed)
{
# Register an alert.
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 0, priority => "err", key => "scan_apc_ups_warning_0002", variables => $variables});
$anvil->Alert->register({alert_level => "warning", clear_alert => 1, message => "scan_apc_ups_warning_0002", variables => $variables, sort_position => 1, set_by => $THIS_FILE});
}
}
my $temperature_uuid = $anvil->Database->insert_or_update_temperature({
debug => 3,
temperature_agent_name => $THIS_FILE,
temperature_sensor_host => $ups_uuid,
temperature_sensor_name => "ups_battery_temperature",
temperature_value_c => $battery_temperature,
temperature_state => $temperature_state,
temperature_is => $temperature_is,
temperature_weight => 1,
});
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { temperature_uuid => $temperature_uuid }});
return(0);
}
