Patch to default to storage log rather than display an error
Posted: 26 Feb 2014, 00:32
In Misc.pm, at line 162, add readStorageLog after writeStorageLog.
Again, in Misc.pm around line 3157 or so, add:
In Commands.pm, comment out or remove the error at line 4526 and insert this:
Done. The output isn't as comprehensive as the standard storage command, but it'll do. Really wish you guys were using Git so I could just issue a pull request.
Again, in Misc.pm around line 3157 or so, add:
Code: Select all
sub readStorageLog {
my ($show_error_on_fail) = @_;
my $f;
my @storageLog;
if (open($f, "<:utf8", $Settings::storage_log_file)) {
@storageLog = <$f>;
foreach (@storageLog) {
print "$_";
}
} elsif ($show_error_on_fail) {
error TF("Unable to read from %s\n", $Settings::storage_log_file);
}
}Code: Select all
readStorageLog(1);