ambiser
/
btrbk
mirror of https://github.com/digint/btrbk
9
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

btrbk: add function INFO_ONCE

pull/409/head
Axel Burri 2021-07-15 13:39:24 +02:00
parent f5657bffc0
commit db4f96ba65
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
btrbk
View File

@ -479,10 +479,15 @@ sub INFO { _log_cont("", @_) if($loglevel >= 2) }
sub WARN { _log_cont("WARNING: ", @_) if($loglevel >= 1) } sub WARN { _log_cont("WARNING: ", @_) if($loglevel >= 1) }
sub ERROR { _log_cont("ERROR: ", @_) } sub ERROR { _log_cont("ERROR: ", @_) }
sub INFO_ONCE {
my $t = shift;
if($warn_once{INFO}{$t}) { TRACE("WARNING(again): $t", @_) if($do_trace); return 0; }
else { $warn_once{INFO}{$t} = 1; INFO($t, @_); return 1; }
}
sub WARN_ONCE { sub WARN_ONCE {
my $t = shift; my $t = shift;
if($warn_once{$t}) { TRACE("WARNING(again): $t", @_) if($do_trace); return 0; } if($warn_once{WARN}{$t}) { TRACE("INFO(again): $t", @_) if($do_trace); return 0; }
else { $warn_once{$t} = 1; WARN($t, @_); return 1; } else { $warn_once{WARN}{$t} = 1; WARN($t, @_); return 1; }
} }
sub VINFO { sub VINFO {