* Started expanding Alert->register_alert() to actually implement it. * Improved handling errors in Words->key(). * Started work on Striker's "Anvil!" menu section. Also cleaned up the power handling. Signed-off-by: Digimer <digimer@alteeve.ca>main
Digimer
6 years ago
parent
5eb1a41994
commit
f5ae90c941
14 changed files with 650 additions and 363 deletions
@ -0,0 +1,120 @@ |
|||||||
|
#!/usr/bin/perl |
||||||
|
# |
||||||
|
# This is the main ScanCore program. It is started/killed/recovered by anvil-daemon. |
||||||
|
# |
||||||
|
# Examples; |
||||||
|
# |
||||||
|
# Exit codes; |
||||||
|
# 0 = Normal exit. |
||||||
|
# 1 = No database connections available. |
||||||
|
# |
||||||
|
# TODO: |
||||||
|
# |
||||||
|
|
||||||
|
use strict; |
||||||
|
use warnings; |
||||||
|
use Anvil::Tools; |
||||||
|
use Data::Dumper; |
||||||
|
|
||||||
|
# Disable buffering |
||||||
|
$| = 1; |
||||||
|
|
||||||
|
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({log_level => 2, log_secure => 1}); |
||||||
|
|
||||||
|
$anvil->Storage->read_config({file => $anvil->data->{path}{configs}{'anvil.conf'}}); |
||||||
|
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, 'print' => 1, level => 1, key => "log_0115", variables => { program => $THIS_FILE }}); |
||||||
|
|
||||||
|
# Read switches |
||||||
|
$anvil->data->{switches}{'run-once'} = ""; |
||||||
|
$anvil->Get->switches; |
||||||
|
|
||||||
|
# Connect to DBs. |
||||||
|
$anvil->Database->connect; |
||||||
|
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, 'print' => 1, level => 2, key => "log_0132"}); |
||||||
|
if (not $anvil->data->{sys}{database}{connections}) |
||||||
|
{ |
||||||
|
# No databases, exit. |
||||||
|
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, 'print' => 1, level => 0, key => "error_0003"}); |
||||||
|
|
||||||
|
# We sleep before exiting so that we don't get into a high-speed loop of systemd re-invoking us. |
||||||
|
sleep 2; |
||||||
|
$anvil->nice_exit({exit_code => 1}); |
||||||
|
} |
||||||
|
|
||||||
|
# Calculate my sum so that we can exit if it changes later. |
||||||
|
$anvil->Storage->record_md5sums; |
||||||
|
|
||||||
|
# Disconnect. We'll reconnect inside the loop |
||||||
|
$anvil->Database->disconnect(); |
||||||
|
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, 'print' => 1, level => 3, key => "log_0203"}); |
||||||
|
|
||||||
|
# The main loop |
||||||
|
while(1) |
||||||
|
{ |
||||||
|
# Reload defaults, re-read the config and then connect to the database(s) |
||||||
|
$anvil->_set_paths(); |
||||||
|
$anvil->_set_defaults(); |
||||||
|
$anvil->Storage->read_config({force_read => 1, file => $anvil->data->{path}{configs}{'anvil.conf'}}); |
||||||
|
$anvil->Database->connect({check_if_configured => $check_if_database_is_configured}); |
||||||
|
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, 'print' => 1, level => 1, key => "log_0132"}); |
||||||
|
|
||||||
|
# Mark that we don't want to check the database now. |
||||||
|
$check_if_database_is_configured = 0; |
||||||
|
|
||||||
|
if ($anvil->data->{sys}{database}{connections}) |
||||||
|
{ |
||||||
|
# Run the normal tasks |
||||||
|
call_agents($anvil); |
||||||
|
|
||||||
|
|
||||||
|
} |
||||||
|
else |
||||||
|
{ |
||||||
|
# No databases available, we can't do anything this run. Sleep for a couple of seconds and |
||||||
|
# then try again. |
||||||
|
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, 'print' => 1, level => 0, key => "log_0202"}); |
||||||
|
|
||||||
|
my $db_retry_interval = 2; |
||||||
|
if ((exists $anvil->data->{ScanCore}{timing}{db_retry_interval}) && ($anvil->data->{ScanCore}{timing}{db_retry_interval} =~ /^\d+$/)) |
||||||
|
{ |
||||||
|
$db_retry_interval = $anvil->data->{ScanCore}{timing}{db_retry_interval}; |
||||||
|
} |
||||||
|
sleep($db_retry_interval); |
||||||
|
next; |
||||||
|
} |
||||||
|
|
||||||
|
# Exit if 'run-once' selected. |
||||||
|
if ($anvil->data->{switches}{'run-once'}) |
||||||
|
{ |
||||||
|
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, 'print' => 1, level => 0, key => "message_0055"}); |
||||||
|
$anvil->nice_exit({code => 0}); |
||||||
|
} |
||||||
|
|
||||||
|
# Disconnect from the database(s) and sleep now. |
||||||
|
$anvil->Database->disconnect(); |
||||||
|
my $run_interval = 30; |
||||||
|
if ((exists $anvil->data->{ScanCore}{timing}{run_interval}) && ($anvil->data->{ScanCore}{timing}{run_interval} =~ /^\d+$/)) |
||||||
|
{ |
||||||
|
$run_interval = $anvil->data->{ScanCore}{timing}{run_interval}; |
||||||
|
} |
||||||
|
sleep($run_interval); |
||||||
|
} |
||||||
|
|
||||||
|
$anvil->nice_exit({code => 0}); |
||||||
|
|
||||||
|
|
||||||
|
############################################################################################################# |
||||||
|
# Functions # |
||||||
|
############################################################################################################# |
||||||
|
|
||||||
|
# This invokes all scan agents found in 'path::directories::scan_agents' |
||||||
|
sub call_agents |
||||||
|
{ |
||||||
|
} |
||||||
@ -0,0 +1,27 @@ |
|||||||
|
<!-- start main-menu --> |
||||||
|
<table align="center" class="anvil_main_menu"> |
||||||
|
<tr> |
||||||
|
<td colspan="2"> |
||||||
|
|
||||||
|
</td> |
||||||
|
</tr> |
||||||
|
<tr> |
||||||
|
<td colspan="2" class="title"> |
||||||
|
#!string!striker_0113!# |
||||||
|
</td> |
||||||
|
</tr> |
||||||
|
<tr> |
||||||
|
<td colspan="2"> |
||||||
|
|
||||||
|
</td> |
||||||
|
</tr> |
||||||
|
<tr> |
||||||
|
<td rowspan="2" class="icon_button"> |
||||||
|
<a href="?anvil=true&task=create"><img src="#!data!skin::url!#/images/create-anvil.png" class="top_icon" ></a> |
||||||
|
</td> |
||||||
|
<td class="menu_title"> |
||||||
|
<a href="?anvil=true&task=sync">#!string!striker_0114!#</a> |
||||||
|
</td> |
||||||
|
</tr> |
||||||
|
</table> |
||||||
|
<!-- end main-menu --> |
||||||
@ -0,0 +1,12 @@ |
|||||||
|
[Unit] |
||||||
|
Description=Anvil! Intelligent Availability Platform - ScanCore Decision Engine |
||||||
|
Wants=network.target |
||||||
|
|
||||||
|
[Service] |
||||||
|
Type=simple |
||||||
|
ExecStart=/usr/sbin/ScanCore |
||||||
|
ExecStop=/bin/kill -WINCH ${MAINPID} |
||||||
|
Restart=always |
||||||
|
|
||||||
|
[Install] |
||||||
|
WantedBy=multi-user.target |
||||||
Loading…
Reference in new issue