diff options
-rwxr-xr-x | sbocheck | 7 |
1 files changed, 7 insertions, 0 deletions
@@ -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."; } |