diff options
| author | Bill MacAllister <whm@dropbox.com> | 2015-12-29 13:57:37 -0800 |
|---|---|---|
| committer | Bill MacAllister <whm@dropbox.com> | 2015-12-29 13:57:37 -0800 |
| commit | 2a03ce35be9b900cc0fd5f305dec54ebcf3fed5a (patch) | |
| tree | 1eab358da519de9e98010507537ecd13b87bf485 /perl/lib/Wallet | |
| parent | d1b81776c05b858dca73c58a900c56d41f9c0e9b (diff) | |
Add in missing use statement for Sys::Syslog
Diffstat (limited to 'perl/lib/Wallet')
| -rw-r--r-- | perl/lib/Wallet/Kadmin/AD.pm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/perl/lib/Wallet/Kadmin/AD.pm b/perl/lib/Wallet/Kadmin/AD.pm index 30d4e9e..4efc643 100644 --- a/perl/lib/Wallet/Kadmin/AD.pm +++ b/perl/lib/Wallet/Kadmin/AD.pm @@ -25,6 +25,7 @@ use Wallet::Kadmin (); use Authen::SASL (); use Net::LDAP; use IPC::Run qw( run timeout ); +use Sys::Syslog qw( :standard :macros ); @ISA = qw(Wallet::Kadmin); @@ -146,7 +147,7 @@ sub msktutil { my @cmd = ($Wallet::Config::AD_MSKTUTIL); push @cmd, @args; if ($Wallet::Config::AD_DEBUG) { - $self->ad_debug(LOG_DEBUG, join(' ', @cmd)); + $self->ad_debug('debug', join(' ', @cmd)); } my $in; @@ -176,7 +177,7 @@ sub msktutil { } } if ($Wallet::Config::AD_DEBUG) { - $self->ad_debug(LOG_DEBUG, $out); + $self->ad_debug('debug', $out); } return $out; } @@ -294,7 +295,7 @@ sub create { } if ($self->exists($principal)) { if ($Wallet::Config::AD_DEBUG) { - $self->ad_debug(LOG_DEBUG, "$principal exists"); + $self->ad_debug('debug', "$principal exists"); } return 1; } |