seasharp
/
anvil
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
Local modifications to ClusterLabs/Anvil by Alteeve
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
450 Commits
2 Branches
0 Tags
21 MiB
Tag: Branch: Tree: 818ef23634
Branches Tags
${ item.name }
Create tag ${ searchTerm }
Create branch ${ searchTerm }
from '818ef23634'
${ noResults }
anvil/tools/test.pl

88 lines
3.0 KiB
Raw Normal View History Unescape

* 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 <digimer@alteeve.ca>
5 years ago
#!/usr/bin/perl
#
use strict;
use warnings;
use Anvil::Tools;
use XML::Simple;
use JSON;
use Math::BigInt;
use Data::Dumper;
* Created Network->match_gateway() to check if a gateway applies to a given network. * Got more work done on confirming the user's request to setup the network of a node or DR host. * Reworked network select boxes to sort by the network name instead of the MAC address. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
use Net::Netmask;
* 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 <digimer@alteeve.ca>
5 years ago
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;
* Removed the table host_mail_servers. * Added a check in striker-manage-install-target to watch for and remove bad RPMs. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
print "Starting test.\n";
* Disabled firewalld for now. * Created System->disable_daemon. * Fixed a bug in Database->insert_or_update_bonds() where the bridge_uuid was an empty string instead of NULL. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
my $anvil = Anvil::Tools->new({debug => 3});
* 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 <digimer@alteeve.ca>
5 years ago
$anvil->Log->secure({set => 1});
$anvil->Log->level({set => 2});
* Moved the fences_unified_metadata file from /tmp, which apache can not read, to /var/www/html/. * Fixed a bug (well, made a work-around for an issue without a known reproducer) where, on some occassion, a record will end up in the public table without being copied into the history schema. When this happens, the next resync would crash out because the resynd reads in the history table only. Now, when about to INSERT a record into the public schema during a resync, an explicit check is made to see if the record alread y exists. If it does, the INSERT is instead redirected to the history schema. * Cleaned up the fence agent metadata when displaying to a user, converting the shell codes to underline a string with square brackets instead. We also now replace newlines with <br /> tags. Lastly, to help fence_azure_arm's metadata description to display cleanly, a check is made to format the table correctly. * Began work on the Striker menu for handling fence device management Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
#print "Connecting to the database(s);\b";
* Fixed the order or table creations in anvil.sql (as well as fixed a missing comma) * Fixed / added 'delete' parameters for Database->insert_or_update_bridges(), ->insert_or_update_bonds(), ->insert_or_update_ip_addresses() and ->insert_or_update_network_interfaces(). Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
$anvil->Database->connect({debug => 3});
* 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 <digimer@alteeve.ca>
5 years ago
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 2, secure => 0, key => "log_0132"});
* Moved the fences_unified_metadata file from /tmp, which apache can not read, to /var/www/html/. * Fixed a bug (well, made a work-around for an issue without a known reproducer) where, on some occassion, a record will end up in the public table without being copied into the history schema. When this happens, the next resync would crash out because the resynd reads in the history table only. Now, when about to INSERT a record into the public schema during a resync, an explicit check is made to see if the record alread y exists. If it does, the INSERT is instead redirected to the history schema. * Cleaned up the fence agent metadata when displaying to a user, converting the shell codes to underline a string with square brackets instead. We also now replace newlines with <br /> tags. Lastly, to help fence_azure_arm's metadata description to display cleanly, a check is made to format the table correctly. * Began work on the Striker menu for handling fence device management Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
#print "DB Connections: [".$anvil->data->{sys}{database}{connections}."]\n";
* Disabled firewalld for now. * Created System->disable_daemon. * Fixed a bug in Database->insert_or_update_bonds() where the bridge_uuid was an empty string instead of NULL. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
#$anvil->Network->load_interfces({debug => 2});
* Started adding in front-end support for managing email servers and alert recipients. Added the new 'Email' module to (later) habdle all email-related tasks. * Fixed a bug in Accounts->read_cookies where, when a user's hash had expired, the logged error message didn't show the user's name. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
#$anvil->System->generate_state_json({debug => 2});
* Created Validate->is_email() to validate email addresses, using Mail::RFC822::Address. * Finished (but not yet tested) the menu to manage alert recipients. * Created Words->language_list() that creates a hash reference of available languages. Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
* Moved the fences_unified_metadata file from /tmp, which apache can not read, to /var/www/html/. * Fixed a bug (well, made a work-around for an issue without a known reproducer) where, on some occassion, a record will end up in the public table without being copied into the history schema. When this happens, the next resync would crash out because the resynd reads in the history table only. Now, when about to INSERT a record into the public schema during a resync, an explicit check is made to see if the record alread y exists. If it does, the INSERT is instead redirected to the history schema. * Cleaned up the fence agent metadata when displaying to a user, converting the shell codes to underline a string with square brackets instead. We also now replace newlines with <br /> tags. Lastly, to help fence_azure_arm's metadata description to display cleanly, a check is made to format the table correctly. * Began work on the Striker menu for handling fence device management Signed-off-by: Digimer <digimer@alteeve.ca>
5 years ago
#$anvil->Words->language_list();
#foreach my $iso (sort {$a cmp $b} keys %{$anvil->data->{sys}{languages}})
#{
# print "iso: [".$iso."] -> [".$anvil->data->{sys}{languages}{$iso}."]\n";
#}
# $anvil->Striker->get_fence_data({debug => 3});
# foreach my $fence_agent (sort {$a cmp $b} keys %{$anvil->data->{fences}})
# {
# # We skip fence_ipmilan, that's handled in the host.
# next if $fence_agent eq "fence_ipmilan";
#
# my $agent_description = $anvil->data->{fences}{$fence_agent}{description};
# print "Agent: [".$fence_agent."]\n";
# print "==========\n";
# print $agent_description."\n";
# print "==========\n";
# foreach my $name (sort {$a cmp $b} keys %{$anvil->data->{fences}{$fence_agent}{parameters}})
# {
# next if $anvil->data->{fences}{$fence_agent}{parameters}{$name}{replacement};
# next if $anvil->data->{fences}{$fence_agent}{parameters}{$name}{deprecated};
# my $unique = $anvil->data->{fences}{$fence_agent}{parameters}{$name}{unique};
# my $required = $anvil->data->{fences}{$fence_agent}{parameters}{$name}{required};
# my $description = $anvil->data->{fences}{$fence_agent}{parameters}{$name}{description};
# my $switches = $anvil->data->{fences}{$fence_agent}{parameters}{$name}{switches};
# my $type = $anvil->data->{fences}{$fence_agent}{parameters}{$name}{content_type};
# my $star = $required ? "*" : "";
# my $default = exists $anvil->data->{fences}{$fence_agent}{parameters}{$name}{'default'} ? $anvil->data->{fences}{$fence_agent}{parameters}{$name}{'default'} : "";
# print "- [".$name."]".$star.": Type: [".$type."], default: [".$default."], switches: [".$switches."]: [".$description."]\n";
# print " - Unique!\n" if $unique;
#
# if ($type eq "select")
# {
# # Build the select box
# my $options = "";
# foreach my $option (sort @{$anvil->data->{fences}{$fence_agent}{parameters}{$name}{options}})
# {
# if (($default) && ($option eq $default))
# {
# $options .= " - [".$option."]*\n";
# }
# else
# {
# $options .= " - [".$option."]\n";
# }
# }
# print $options;
# }
# }
#
#
# }