From 9cfbabe0b72738976ffb47002cc0df1255502d2d Mon Sep 17 00:00:00 2001
From: Bill MacAllister <whm@dropbox.com>
Date: Tue, 2 May 2017 18:36:59 +0000
Subject: Minor syslog updates in AD support

---
 perl/lib/Wallet/Kadmin/AD.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/perl/lib/Wallet/Kadmin/AD.pm b/perl/lib/Wallet/Kadmin/AD.pm
index a599142..b56174c 100644
--- a/perl/lib/Wallet/Kadmin/AD.pm
+++ b/perl/lib/Wallet/Kadmin/AD.pm
@@ -42,7 +42,7 @@ sub ad_syslog {
         openlog('wallet-server', 'ndelay,nofatal', 'local3');
         $self->{SYSLOG} = 1;
     }
-    if ($l !~ /debug|info|err|warning/xms) {
+    if ($l !~ /^(debug|info|err|warning/xms)$) {
         $l = 'err';
     }
     syslog($l, $m);
@@ -346,8 +346,8 @@ sub ad_create_update {
         {
             $self->ad_delete($principal);
             my $m = "ERROR: problem creating keytab for $principal";
-            $self->ad_syslog('error', $m);
-            $self->ad_syslog('error',
+            $self->ad_syslog('err', $m);
+            $self->ad_syslog('err',
                              'Problem command:' . ad_cmd_string(\@cmd));
             die "$m\n";
         }
-- 
cgit v1.2.3