sbotools2

commit 6d9cfc735afa4b51db9824551b09859b627a757d
parent 522ac347881d78ee9ec26a537a1c24b6805d1154
Author: J Pipkin <j@dawnrazor.net>
Date:   Thu,  3 Jan 2013 04:21:11 -0600

Merge branch 'sbocheck_log', fixes #30

Diffstat:
M
sbocheck
 | 
7
+++++++

1 file changed, 7 insertions(+), 0 deletions(-)
diff --git a/sbocheck b/sbocheck
@@ -64,6 +64,13 @@ sub print_output($) {
 		$tab->configure(tab => '\s');
 		my $output = $tab->format(@$listing);
 		say "\n". $output;
+		# save a log of available updates
+		my $logfile = '/var/log/sbocheck.log';
+		unlink $logfile if -f $logfile;
+		my $log_fh = open_fh($logfile, '>');
+		print {$log_fh} $output;
+		close $log_fh;
+		say "A copy of the above result is kept in $logfile\n";
 	} else {
 		say "\nNo updates available.";
 	}