|
|
|
@ -665,25 +665,32 @@ sub collect_local_data |
|
|
|
|
|
|
|
|
|
# Grab screenshots. |
|
|
|
|
print "- Collecting server screenshots... "; |
|
|
|
|
$shell_call = $anvil->data->{path}{exe}{tar}." -cvjf ".$target_directory."/server-screenshots.bz2 ".$anvil->data->{path}{directories}{screenshots}; |
|
|
|
|
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { shell_call => $shell_call }}); |
|
|
|
|
if (-d $anvil->data->{path}{directories}{screenshots}) |
|
|
|
|
{ |
|
|
|
|
$shell_call = $anvil->data->{path}{exe}{tar}." -cvjf ".$target_directory."/server-screenshots.bz2 ".$anvil->data->{path}{directories}{screenshots}; |
|
|
|
|
$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}); |
|
|
|
|
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { |
|
|
|
|
output => $output, |
|
|
|
|
return_code => $return_code, |
|
|
|
|
}}); |
|
|
|
|
if ($return_code) |
|
|
|
|
($output, $return_code) = $anvil->System->call({shell_call => $shell_call}); |
|
|
|
|
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { |
|
|
|
|
output => $output, |
|
|
|
|
return_code => $return_code, |
|
|
|
|
}}); |
|
|
|
|
if ($return_code) |
|
|
|
|
{ |
|
|
|
|
# Failed |
|
|
|
|
print "Failed!\n"; |
|
|
|
|
print "Expected the return code '0', but got: [".$return_code."]. The error, if any, was:\n"; |
|
|
|
|
print "========\n"; |
|
|
|
|
print $output."\n"; |
|
|
|
|
print "========\n"; |
|
|
|
|
$anvil->nice_exit({exit_code => 1}); |
|
|
|
|
} |
|
|
|
|
print "Done!\n"; |
|
|
|
|
} |
|
|
|
|
else |
|
|
|
|
{ |
|
|
|
|
# Failed |
|
|
|
|
print "Failed!\n"; |
|
|
|
|
print "Expected the return code '0', but got: [".$return_code."]. The error, if any, was:\n"; |
|
|
|
|
print "========\n"; |
|
|
|
|
print $output."\n"; |
|
|
|
|
print "========\n"; |
|
|
|
|
$anvil->nice_exit({exit_code => 1}); |
|
|
|
|
print "Failed!\nScreenshot directory: [".$anvil->data->{path}{directories}{screenshots}."] doesn't exist, skipping.\n"; |
|
|
|
|
} |
|
|
|
|
print "Done!\n"; |
|
|
|
|
} |
|
|
|
|
|
|
|
|
|
print "- Grabbing hosts file... "; |
|
|
|
|