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);