|
|
@ -40,6 +40,10 @@ $anvil->Get->switches({list => [ |
|
|
|
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => $anvil->data->{switches}}); |
|
|
|
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => $anvil->data->{switches}}); |
|
|
|
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 2, key => "log_0115", variables => { program => $THIS_FILE }}); |
|
|
|
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 2, key => "log_0115", variables => { program => $THIS_FILE }}); |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
### TODO: Disable this before merging into PR |
|
|
|
|
|
|
|
$anvil->Log->level({set => 2}); |
|
|
|
|
|
|
|
$anvil->Log->secure({set => 1}); |
|
|
|
|
|
|
|
|
|
|
|
# Connect to the database(s). If we have no connections, we'll proceed anyway as one of the 'run_once' tasks |
|
|
|
# Connect to the database(s). If we have no connections, we'll proceed anyway as one of the 'run_once' tasks |
|
|
|
# is to setup the database server. |
|
|
|
# is to setup the database server. |
|
|
|
$anvil->Database->connect(); |
|
|
|
$anvil->Database->connect(); |
|
|
@ -551,8 +555,9 @@ sub collect_remote_data |
|
|
|
# If this is a node, grab the shared files. |
|
|
|
# If this is a node, grab the shared files. |
|
|
|
if ($this_host_type eq "node") |
|
|
|
if ($this_host_type eq "node") |
|
|
|
{ |
|
|
|
{ |
|
|
|
|
|
|
|
### NOTE: The pcs wrapper was timing out when dumping the CIB, hence statically calling pcs below. |
|
|
|
print "- Collecting the cluster information base (CIB)... "; |
|
|
|
print "- Collecting the cluster information base (CIB)... "; |
|
|
|
$shell_call = $anvil->data->{path}{exe}{pcs}." cluster cib > /tmp/cib.xml"; |
|
|
|
$shell_call = "/usr/sbin/pcs cluster cib > /tmp/cib.xml"; |
|
|
|
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { shell_call => $shell_call }}); |
|
|
|
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { shell_call => $shell_call }}); |
|
|
|
|
|
|
|
|
|
|
|
($output, $return_code) = $anvil->System->call({shell_call => $shell_call}); |
|
|
|
($output, $return_code) = $anvil->System->call({shell_call => $shell_call}); |
|
|
|