From 82bc25c78d3b3421df24b3fd6ed9212c7a7de774 Mon Sep 17 00:00:00 2001 From: Digimer Date: Thu, 21 Nov 2019 19:47:21 -0500 Subject: [PATCH] * Adding the test.pl script. Even though it doesn't relate to the program, it's used to sort out logic and the code should be committed, until mainline development is done. Signed-off-by: Digimer --- tools/test.pl | 145 ++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 145 insertions(+) create mode 100755 tools/test.pl diff --git a/tools/test.pl b/tools/test.pl new file mode 100755 index 00000000..20b8e79b --- /dev/null +++ b/tools/test.pl @@ -0,0 +1,145 @@ +#!/usr/bin/perl +# + +use strict; +use warnings; +use Anvil::Tools; +use XML::Simple; +use JSON; +use Math::BigInt; +use Data::Dumper; + +my $THIS_FILE = ($0 =~ /^.*\/(.*)$/)[0]; +my $running_directory = ($0 =~ /^(.*?)\/$THIS_FILE$/)[0]; +if (($running_directory =~ /^\./) && ($ENV{PWD})) +{ + $running_directory =~ s/^\./$ENV{PWD}/; +} + +# Turn off buffering so that the pinwheel will display while waiting for the SSH call(s) to complete. +$| = 1; + +#print "Starting test.\n"; +my $anvil = Anvil::Tools->new({debug => 2}); +$anvil->Log->secure({set => 1}); +$anvil->Log->level({set => 2}); + +$anvil->Database->connect({debug => 3, check_if_configured => 1}); +$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 2, secure => 0, key => "log_0132"}); + +$anvil->System->generate_state_json({debug => 3}); +$anvil->Striker->parse_all_status_json({debug => 3}); + +# print Dumper $anvil->data->{json}{all_status}{hosts}; +# die; + +# foreach my $host_name (sort {$a cmp $b} keys %{$anvil->data->{json}{all_status}{hosts}}) +# { +# print $THIS_FILE." ".__LINE__."; Host: [".$host_name."]\n"; +# foreach my $network_type (sort {$a cmp $b} keys %{$anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}}) +# { +# print $THIS_FILE." ".__LINE__."; - Network type: [".$network_type."]\n"; +# foreach my $interface_name (sort {$a cmp $b} keys %{$anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{$network_type}}) +# { +# print $THIS_FILE." ".__LINE__."; - Interface: [".$interface_name."]\n"; +# foreach my $variable (sort {$a cmp $b} keys %{$anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{$network_type}{$interface_name}}) +# { +# if (ref ($anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{$network_type}{$interface_name}{$variable}) eq "HASH") +# { +# print $THIS_FILE." ".__LINE__."; - ".$variable.";\n"; +# foreach my $value (sort {$a cmp $b} keys %{$anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{$network_type}{$interface_name}{$variable}}) +# { +# print $THIS_FILE." ".__LINE__."; - ".$value." -> [".$anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{$network_type}{$interface_name}{$variable}{$value}{type}."]\n"; +# } +# } +# elsif (ref ($anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{$network_type}{$interface_name}{$variable}) eq "ARRAY") +# { +# print $THIS_FILE." ".__LINE__."; - ".$variable.";\n"; +# foreach my $value (sort {$a cmp $b} @{$anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{$network_type}{$interface_name}{$variable}}) +# { +# print $THIS_FILE." ".__LINE__."; - ".$value."\n"; +# } +# } +# else +# { +# print $THIS_FILE." ".__LINE__."; - ".$variable.": [".$anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{$network_type}{$interface_name}{$variable}."]\n"; +# } +# } +# } +# } +# } + +# print Dumper $anvil->data->{json}{all_status}{hosts}; +#die; + +foreach my $host_name (sort {$a cmp $b} keys %{$anvil->data->{json}{all_status}{hosts}}) +{ + print "Host: [".$host_name." (".$anvil->data->{json}{all_status}{hosts}{$host_name}{short_host_name}.")], Type: [".$anvil->data->{json}{all_status}{hosts}{$host_name}{type}."], Configured: [".$anvil->data->{json}{all_status}{hosts}{$host_name}{configured}."], \n"; + print " - Host UUID: ..... [".$anvil->data->{json}{all_status}{hosts}{$host_name}{host_uuid}."]\n"; + print " - SSH Fingerprint: [".$anvil->data->{json}{all_status}{hosts}{$host_name}{ssh_fingerprint}."]\n"; + + my $highest_mtu = 0; + my $shown = {}; + foreach my $interface_name (sort {$a cmp $b} keys %{$anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{bridge}}) + { + my $uuid = $anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{bridge}{$interface_name}{uuid}; + my $mtu = $anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{bridge}{$interface_name}{mtu}." ".$anvil->Words->string({key => "suffix_0014"}); + my $bridge_id = $anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{bridge}{$interface_name}{bridge_id}; + my $stp_enabled = $anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{bridge}{$interface_name}{stp_enabled}; + my $ip = $anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{bridge}{$interface_name}{ip}; + my $subnet_mask = $anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{bridge}{$interface_name}{subnet_mask}; + my $default_gateway = $anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{bridge}{$interface_name}{default_gateway}; + my $gateway = $anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{bridge}{$interface_name}{gateway}; + my $dns = $anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{bridge}{$interface_name}{dns}; + print " - Bridge: [".$interface_name."], MTU: [".$mtu."], ID: [".$bridge_id."], STP: [".$stp_enabled."]\n"; + if ($ip) + { + if ($gateway) + { + print " - IP: [".$ip."/".$subnet_mask."], Gateway (default?): [".$gateway." (".$default_gateway.")], DNS: [".$dns."]\n"; + } + else + { + print " - IP: [".$ip."/".$subnet_mask."]\n"; + } + } + else + { + print " - No IP on this device\n"; + } + foreach my $connected_interface (sort {$a cmp $b} keys %{$anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{bridge}{$interface_name}{connected_interfaces}}) + { + print " - Connected: [".$connected_interface."], type: [".$anvil->data->{json}{all_status}{hosts}{$host_name}{network_interface}{bridge}{$interface_name}{connected_interfaces}{$connected_interface}{type}."]\n"; + if ($type eq "bond") + { + show_bond($anvil, $connected_interface); + } + else + { + show_interface($anvil, $connected_interface); + } + } + + $shown->{$interface_name} = 1; + } +} + +$anvil->nice_exit({exit_code => 0}); + +sub show_bond +{ + my ($anvil, $connected_interface) = @_; + + + + return(0); +} + +sub show_interface +{ + my ($anvil, $connected_interface) = @_; + + + + return(0); +}