From db4f96ba652960eb4455b23ac90637ee81f2710c Mon Sep 17 00:00:00 2001
From: Axel Burri <axel@tty0.ch>
Date: Thu, 15 Jul 2021 13:39:24 +0200
Subject: [PATCH] btrbk: add function INFO_ONCE

---
 btrbk | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/btrbk b/btrbk
index f6cb5b5..267d28c 100755
--- a/btrbk
+++ b/btrbk
@@ -479,10 +479,15 @@ sub INFO  { _log_cont("",          @_)         if($loglevel >= 2) }
 sub WARN  { _log_cont("WARNING: ", @_)         if($loglevel >= 1) }
 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 {
   my $t = shift;
-  if($warn_once{$t}) { TRACE("WARNING(again): $t", @_) if($do_trace); return 0; }
-  else { $warn_once{$t} = 1; WARN($t, @_); return 1; }
+  if($warn_once{WARN}{$t}) { TRACE("INFO(again): $t", @_) if($do_trace); return 0; }
+  else { $warn_once{WARN}{$t} = 1; WARN($t, @_); return 1; }
 }
 
 sub VINFO {