Added compression to anvil.log files collected by debug.

Also fixed a bug on validating the collection of remote previous boot
journalctl logs.

Signed-off-by: digimer <mkelly@alteeve.ca>

tools/striker-collect-debug

@@ -357,7 +357,7 @@ sub collect_remote_data
 		source      => "root\@".$anvil->data->{peer}{$short_host_name}{access}{ip}.":/tmp/journalctl-previous-boot.log",
 		destination => $target_directory."/",
 	});
-	my $test_file = $target_directory."/tmp/journalctl-previous-boot.log";
+	my $test_file = $target_directory."/journalctl-previous-boot.log";
 	$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { test_file => $test_file }});
 	if (-e $test_file)
 	{
@@ -366,7 +366,7 @@ sub collect_remote_data
 	else
 	{
 		print "Failed!\n";
-		print "- For some reason, this file was not collected.\n";
+		print " - [ Warning ] - For some reason, this file was not collected.\n";
 		$anvil->Storage->write_file({
 			file      => $test_file, 
 			body      => $failed_body,
@@ -534,6 +534,16 @@ sub collect_remote_data
 	$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { test_file => $test_file }});
 	if (-e $test_file)
 	{
+		# Compress the logs.
+		print "Compressing the log... ";
+		my $shell_call = $anvil->data->{path}{exe}{bzip2}." $test_file";
+		$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { shell_call => $shell_call }});
+		
+		my ($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, 
+		}});
 		print "Done.\n";
 	}
 	else
@@ -717,6 +727,17 @@ sub collect_local_data
 	$shell_call = $anvil->data->{path}{exe}{cp}." /var/log/anvil.log ".$target_directory."/";
 	$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, 
+	}});
+	
+	# Compress the logs.
+	print "Compressing the log... ";
+	$shell_call = $anvil->data->{path}{exe}{bzip2}." ".$target_directory."/anvil.log";
+	$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,