From 3804fb9f35c7db7e284a37466b4b562b2a96872d Mon Sep 17 00:00:00 2001
From: Rene Krenn <rkrenn@sipwise.com>
Date: Mon, 3 Jan 2022 20:16:57 +0100
Subject: [PATCH] TT#156753 ngcp-provisioning-templates: support "warn"
 loglevel

Change-Id: I0c7117f2cc203b7baee2616f67d642d1dd1fdce7
---
 tools_bin/ngcp-provisioning-template | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/tools_bin/ngcp-provisioning-template b/tools_bin/ngcp-provisioning-template
index 093884089b..68379b771f 100755
--- a/tools_bin/ngcp-provisioning-template
+++ b/tools_bin/ngcp-provisioning-template
@@ -208,11 +208,17 @@ sub _create_c {
                     my @params = @_;
                     print $str . "\n" if ($log_level and grep { $_ eq lc($log_level); } qw(info debug));
                 },
+                warn => sub {
+                    my $self = shift;
+                    my $str = shift;
+                    my @params = @_;
+                    print $str . "\n" if ($log_level and grep { $_ eq lc($log_level); } qw(warn info debug));
+                },
                 error => sub {
                     my $self = shift;
                     my $str = shift;
                     my @params = @_;
-                    print $str . "\n" if ($log_level and grep { $_ eq lc($log_level); } qw(error info debug));
+                    print $str . "\n" if ($log_level and grep { $_ eq lc($log_level); } qw(error warn info debug));
                 },
             );
         },
@@ -369,7 +375,7 @@ Terminate an existing subscriber with duplicate number/aliases first.
 
 =item B<--log_level>
 
-Verbosity of printed messages while processing (degug, info, error).
+Verbosity of printed messages while processing (debug, info, warn, error).
 
 =back