#!/usr/bin/perl # use strict; use warnings; use Anvil::Tools; use Data::Dumper; use String::ShellQuote; use utf8; binmode(STDERR, ':encoding(utf-8)'); binmode(STDOUT, ':encoding(utf-8)'); 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; my $anvil = Anvil::Tools->new(); $anvil->Log->level({set => 2}); $anvil->Log->secure({set => 1}); $anvil->Get->switches; print "Connecting to the database(s);\n"; $anvil->Database->connect({debug => 3}); $anvil->Log->entry({source => $THIS_FILE, line => __LINE__, 'print' => 1, level => 2, secure => 0, key => "log_0132"}); $anvil->Cluster->shutdown_server({ debug => 2, server => "srv07-el6", }); $anvil->Cluster->shutdown_server({ debug => 2, server => "srv01-sql", }); exit; my $cib = '

'; my $not_in_cluster = $anvil->Cluster->parse_cib({debug => 2, cib => $cib}); if ($not_in_cluster) { print "This node isn't in the cluster.\n"; } else { print "CIB parsed.\n"; }