* Created Log->language that sets/returns the active log language. * Created Log->variables that takes a hash reference and logs their variable: [$value] pairs. * Created the new /usr/sbin/striker/ directory which is added to the list of search directories. We will store our tools here. * Created the scancore-daemon and scancore-daemon.unit files which will handle all the things we used to use crontab for, minus ScanCore itself. * Created the scancore-update-states that will eventually store some machine state information in a file that the web browser can read. * Created the cgi-bin/home script that will be the main landing page for the Striker UI. * Added some of the initial html files. Signed-off-by: Digimer <digimer@alteeve.ca>main
Digimer
8 years ago
parent
e49d5285c0
commit
753d7a3ba6
15 changed files with 10785 additions and 23 deletions
@ -0,0 +1,126 @@ |
||||
package AN::Tools::System; |
||||
# |
||||
# This module contains methods used to handle common system tasks. |
||||
# |
||||
|
||||
use strict; |
||||
use warnings; |
||||
use Data::Dumper; |
||||
|
||||
our $VERSION = "3.0.0"; |
||||
my $THIS_FILE = "System.pm"; |
||||
|
||||
### Methods; |
||||
# read_file |
||||
|
||||
=pod |
||||
|
||||
=encoding utf8 |
||||
|
||||
=head1 NAME |
||||
|
||||
AN::Tools::System |
||||
|
||||
Provides all methods related to storage on a system. |
||||
|
||||
=head1 SYNOPSIS |
||||
|
||||
use AN::Tools; |
||||
|
||||
# Get a common object handle on all AN::Tools modules. |
||||
my $an = AN::Tools->new(); |
||||
|
||||
# Access to methods using '$an->System->X'. |
||||
# |
||||
# Example using 'read_file()'; |
||||
my $data = $an->System->read_file({file => "/tmp/foo"}); |
||||
|
||||
=head1 METHODS |
||||
|
||||
Methods in this module; |
||||
|
||||
=cut |
||||
sub new |
||||
{ |
||||
my $class = shift; |
||||
my $self = {}; |
||||
|
||||
bless $self, $class; |
||||
|
||||
return ($self); |
||||
} |
||||
|
||||
# Get a handle on the AN::Tools object. I know that technically that is a sibling module, but it makes more |
||||
# sense in this case to think of it as a parent. |
||||
sub parent |
||||
{ |
||||
my $self = shift; |
||||
my $parent = shift; |
||||
|
||||
$self->{HANDLE}{TOOLS} = $parent if $parent; |
||||
|
||||
return ($self->{HANDLE}{TOOLS}); |
||||
} |
||||
|
||||
|
||||
############################################################################################################# |
||||
# Public methods # |
||||
############################################################################################################# |
||||
|
||||
|
||||
=head2 read_file |
||||
|
||||
This reads in a file and returns the contents of the file as a single string variable. |
||||
|
||||
$an->System->read_file({file => "/tmp/foo"}); |
||||
|
||||
If it fails to find the file, or the file is not readable, 'C<< undef >>' is returned. |
||||
|
||||
Parameters; |
||||
|
||||
=head3 file (required) |
||||
|
||||
This is the name of the file to read. |
||||
|
||||
=cut |
||||
sub read_file |
||||
{ |
||||
my $self = shift; |
||||
my $parameter = shift; |
||||
my $an = $self->parent; |
||||
|
||||
my $body = ""; |
||||
my $file = defined $parameter->{file} ? $parameter->{file} : ""; |
||||
|
||||
if (not $file) |
||||
{ |
||||
$an->Log->entry({source => $THIS_FILE, line => __LINE__, level => 0, priority => "err", key => "log_0020"}); |
||||
return(undef); |
||||
} |
||||
elsif (not -e $file) |
||||
{ |
||||
$an->Log->entry({source => $THIS_FILE, line => __LINE__, level => 0, priority => "err", key => "log_0021", variables => { file => $file }}); |
||||
return(undef); |
||||
} |
||||
elsif (not -r $file) |
||||
{ |
||||
$an->Log->entry({source => $THIS_FILE, line => __LINE__, level => 0, priority => "err", key => "log_0022", variables => { file => $file }}); |
||||
return(undef); |
||||
} |
||||
|
||||
my $shell_call = $file; |
||||
$an->Log->entry({source => $THIS_FILE, line => __LINE__, level => 2, key => "log_0012", variables => { shell_call => $shell_call }}); |
||||
open (my $file_handle, "<", $shell_call) or $an->Log->entry({source => $THIS_FILE, line => __LINE__, level => 0, priority => "err", key => "log_0015", variables => { shell_call => $shell_call, error => $! }}); |
||||
while(<$file_handle>) |
||||
{ |
||||
chomp; |
||||
my $line = $_; |
||||
$an->Log->entry({source => $THIS_FILE, line => __LINE__, level => 2, key => "log_0023", variables => { line => $line }}); |
||||
$body .= $line."\n"; |
||||
} |
||||
close $file_handle; |
||||
$body =~ s/\n$//s; |
||||
|
||||
$an->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { body => $body }}); |
||||
return($body); |
||||
} |
||||
@ -0,0 +1,31 @@ |
||||
<?xml version="1.0" encoding="UTF-8"?> |
||||
|
||||
<!-- |
||||
Company: Alteeve's Niche, Inc. |
||||
License: GPL v2+ |
||||
Author: Madison Kelly <mkelly@alteeve.ca> |
||||
|
||||
This is the AN::Tools master 'words' file. |
||||
--> |
||||
|
||||
<words> |
||||
<meta version="3.0.0" languages="en_CA,jp"/> |
||||
<!-- Canadian English --> |
||||
<language name="en_CA" long_name="Canadian English" description="Striker/ScanCore language file."> |
||||
|
||||
<key name="brand_0001">Alteeve</key> |
||||
<key name="brand_0002">Anvil!</key> |
||||
<key name="brand_0003">Striker</key> |
||||
<key name="brand_0004">ScanCore</key> |
||||
|
||||
</language> |
||||
<!-- 日本語 --> |
||||
<language name="jp" long_name="日本語" description="Striker/ScanCore language file."> |
||||
|
||||
<key name="brand_0001">アルティーブ</key> |
||||
<key name="brand_0002">Anvil!</key> |
||||
<key name="brand_0003">ストライカ</key> |
||||
<key name="brand_0004">スカンコア</key> |
||||
|
||||
</language> |
||||
</words> |
||||
File diff suppressed because it is too large
Load Diff
@ -0,0 +1 @@ |
||||
jquery-3.2.1.js |
||||
@ -0,0 +1,14 @@ |
||||
/* |
||||
Colours; |
||||
- Darkest Gray: #343434 |
||||
- Logo Gray: #9ba0a5 |
||||
- Lightest Gray: #f7f7f7 |
||||
- Font Dark Gray: #444444 |
||||
- Font Light Gray: #f2f2f2 |
||||
- Alteeve Red: #d02724 |
||||
*/ |
||||
|
||||
body { |
||||
background-image: url("skins/alteeve/images/Texture.jpg"); |
||||
background-repeat: repeat-y; |
||||
} |
||||
@ -1,38 +1,49 @@ |
||||
<!-- start master --> |
||||
#!replace!header!# |
||||
#!variable!header!# |
||||
|
||||
<table> |
||||
<tr> |
||||
<td> |
||||
#!replace!left_top_bar!# |
||||
#!variable!left_top_bar!# |
||||
</td> |
||||
<td> |
||||
#!replace!center_top_bar!# |
||||
#!variable!center_top_bar!# |
||||
</td> |
||||
<td> |
||||
#!replace!right_top_bar!# |
||||
#!variable!right_top_bar!# |
||||
</td> |
||||
</tr> |
||||
<tr> |
||||
<td colspan="3"> |
||||
#!replace!center_body!# |
||||
#!variable!center_body!# |
||||
</td> |
||||
</tr> |
||||
<tr> |
||||
<td> |
||||
#!replace!left_bottom_bar!# |
||||
#!variable!left_bottom_bar!# |
||||
</td> |
||||
<td> |
||||
#!replace!center_bottom_bar!# |
||||
#!variable!center_bottom_bar!# |
||||
</td> |
||||
<td> |
||||
#!replace!right_bottom_bar!# |
||||
#!variable!right_bottom_bar!# |
||||
</td> |
||||
</tr> |
||||
</table> |
||||
|
||||
#!replace!footer!# |
||||
#!variable!footer!# |
||||
<!-- end master --> |
||||
|
||||
<!-- start header --> |
||||
<!DOCTYPE html> |
||||
<html lang="#!variable!language!#"> |
||||
<head> |
||||
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> |
||||
<title>#!string!brand_0001!# - #!string!brand_0003!#</title> |
||||
<link rel="stylesheet" href="#!variable!skin_directory!#/main.css" media="screen" /> |
||||
<script type="text/javascript" src="#!variable!html_directory!#/jquery-latest.js"></script> |
||||
</head> |
||||
<!-- end header --> |
||||
|
||||
<!-- start button_bar --> |
||||
<!--end button_bar --> |
||||
|
||||
@ -0,0 +1,53 @@ |
||||
#!/usr/bin/perl |
||||
# |
||||
# This is the master daemon that manages all periodically run processes on Striker dashboards and Anvil! |
||||
# nodes. |
||||
# |
||||
use strict; |
||||
use warnings; |
||||
use AN::Tools; |
||||
|
||||
my $THIS_FILE = ($0 =~ /^.*\/(.*)$/)[0]; |
||||
my $running_directory = ($0 =~ /^(.*?)\/$THIS_FILE$/)[0]; |
||||
if (($running_directory =~ /^\./) && ($ENV{PWD})) |
||||
{ |
||||
$running_directory =~ s/^\./$ENV{PWD}/; |
||||
} |
||||
|
||||
my $an = AN::Tools->new(); |
||||
$an->Log->level(2); |
||||
|
||||
# Turn off buffering so that the pinwheel will display while waiting for the SSH call(s) to complete. |
||||
$| = 1; |
||||
|
||||
while(1) |
||||
{ |
||||
update_state_file($an); |
||||
|
||||
sleep 10; |
||||
} |
||||
|
||||
exit(0); |
||||
|
||||
############################################################################################################# |
||||
# Functions # |
||||
############################################################################################################# |
||||
|
||||
# This calls 'scancore-update-states' which will scan the local machine's state (hardware and software) and |
||||
# record write it out to an HTML file |
||||
sub update_state_file |
||||
{ |
||||
my ($an) = @_; |
||||
|
||||
my $shell_call = $an->data->{path}{tools}{'scancore-update-states'}; |
||||
$an->Log->entry({source => $THIS_FILE, line => __LINE__, level => 2, key => "log_0011", variables => { shell_call => $shell_call }}); |
||||
open (my $file_handle, $shell_call." 2>&1 |") or $an->Log->entry({source => $THIS_FILE, line => __LINE__, level => 0, priority => "err", key => "log_0014", variables => { shell_call => $shell_call, error => $! }}); |
||||
while(<$file_handle>) |
||||
{ |
||||
chomp; |
||||
$an->Log->entry({source => $THIS_FILE, line => __LINE__, level => 2, key => "log_0017", variables => { output => $_ }}); |
||||
} |
||||
close $file_handle; |
||||
|
||||
return(0); |
||||
} |
||||
@ -0,0 +1,84 @@ |
||||
#!/usr/bin/perl |
||||
# |
||||
# This is the master daemon that manages all periodically run processes on Striker dashboards and Anvil! |
||||
# nodes. |
||||
# |
||||
use strict; |
||||
use warnings; |
||||
use AN::Tools; |
||||
|
||||
my $THIS_FILE = ($0 =~ /^.*\/(.*)$/)[0]; |
||||
my $running_directory = ($0 =~ /^(.*?)\/$THIS_FILE$/)[0]; |
||||
if (($running_directory =~ /^\./) && ($ENV{PWD})) |
||||
{ |
||||
$running_directory =~ s/^\./$ENV{PWD}/; |
||||
} |
||||
|
||||
my $an = AN::Tools->new(); |
||||
$an->Log->level(2); |
||||
|
||||
# Turn off buffering so that the pinwheel will display while waiting for the SSH call(s) to complete. |
||||
$| = 1; |
||||
|
||||
|
||||
# my $shell_call = "/sys/class/net/ens11/address"; |
||||
# $an->Log->entry({source => $THIS_FILE, line => __LINE__, level => 2, key => "log_0012", variables => { shell_call => $shell_call }}); |
||||
# open (my $file_handle, "<$shell_call") or $an->Log->entry({source => $THIS_FILE, line => __LINE__, level => 0, priority => "err", key => "log_0015", variables => { shell_call => $shell_call, error => $! }});; |
||||
# while(<$file_handle>) |
||||
# { |
||||
# chomp; |
||||
# my $line = $_; |
||||
# $an->Log->entry({source => $THIS_FILE, line => __LINE__, level => 2, key => "log_0023", variables => { output => $line }}); |
||||
# print "line: [$line]\n"; |
||||
# } |
||||
# close |
||||
|
||||
report_network($an); |
||||
|
||||
exit(0); |
||||
|
||||
############################################################################################################# |
||||
# Functions # |
||||
############################################################################################################# |
||||
|
||||
# This reports the current network interface states, tracked by the MAC address. |
||||
sub report_network |
||||
{ |
||||
my ($an) = @_; |
||||
|
||||
my $directory = $an->data->{path}{sysfs}{network_interfaces}; |
||||
local(*DIRECTORY); |
||||
$an->Log->entry({source => $THIS_FILE, line => __LINE__, level => 2, key => "log_0018", variables => { directory => $directory }}); |
||||
opendir(DIRECTORY, $directory); |
||||
while(my $file = readdir(DIRECTORY)) |
||||
{ |
||||
next if $file eq "."; |
||||
next if $file eq ".."; |
||||
next if $file eq "lo"; |
||||
my $full_path = "$directory/$file"; |
||||
$an->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { full_path => $full_path }}); |
||||
if (-d $full_path) |
||||
{ |
||||
# Pull out the data I want. |
||||
my $interface = $file; |
||||
my $mac_address = $an->System->read_file({file => $full_path."/address"}); |
||||
my $link_state = $an->System->read_file({file => $full_path."/carrier"}); |
||||
my $mtu = $an->System->read_file({file => $full_path."/mtu"}); |
||||
my $duplex = $an->System->read_file({file => $full_path."/duplex"}); # full or half? |
||||
my $operational = $an->System->read_file({file => $full_path."/operstate"}); # up or down |
||||
my $speed = $an->System->read_file({file => $full_path."/speed"}); # Mbps (ie: 1000 = Gbps), gives a very high number for unplugged link |
||||
$an->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { |
||||
interface => $interface, |
||||
mac_address => $mac_address, |
||||
link_state => $link_state, |
||||
mtu => $mtu, |
||||
duplex => $duplex, |
||||
operational => $operational, |
||||
speed => $speed, |
||||
}}); |
||||
} |
||||
} |
||||
closedir(DIRECTORY); |
||||
|
||||
return(0); |
||||
} |
||||
@ -0,0 +1,12 @@ |
||||
[Unit] |
||||
Description=ScanCore daemon used to handle several jobs as part of the Anvil! IA suite |
||||
Wants=network.target |
||||
|
||||
[Service] |
||||
Type=simple |
||||
ExecStart=/usr/sbin/striker-daemon |
||||
ExecStop=/bin/kill -WINCH ${MAINPID} |
||||
PrivateTmp=true |
||||
|
||||
[Install] |
||||
WantedBy=multi-user.target |
||||
Loading…
Reference in new issue