diff options
| author | Bill MacAllister <whm@dropbox.com> | 2017-05-02 18:36:59 +0000 |
|---|---|---|
| committer | Russ Allbery <eagle@eyrie.org> | 2018-05-27 17:33:31 -0700 |
| commit | 9cfbabe0b72738976ffb47002cc0df1255502d2d (patch) | |
| tree | 60cde90dbe6f29d7e0af754f19d3814834645784 /perl/lib/Wallet | |
| parent | 48a2962830eccfd28bc5d7f0541bf28e0a3ff7b1 (diff) | |
Minor syslog updates in AD support
Diffstat (limited to 'perl/lib/Wallet')
| -rw-r--r-- | perl/lib/Wallet/Kadmin/AD.pm | 6 |
1 files 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"; } |