Changeset 852

Timestamp:

02/11/09 21:57:08 (10 months ago)

Author:

ykerherve

Message:

Finally got tired of this warning

Files:

• trunk/DJabberd/lib/DJabberd/Authen/AllowedUsers.pm (modified) (3 diffs)

trunk/DJabberd/lib/DJabberd/Authen/AllowedUsers.pm

@@ -3 +3 @@
 use base 'DJabberd::Authen';
 use Carp qw(croak);
+
+use DJabberd::Log;
+
+our $logger = DJabberd::Log->get_logger;
 
 sub set_config_policy {
@@ -34 +38 @@
 
     if ($self->{'policy'} eq "deny") {
-        warn "$self --- user=$user, denying, unless allowed: @{$self->{allowed}}\n";
+        $logger->debug("$self --- user=$user, denying, unless allowed: @{$self->{allowed}}");
         foreach my $allowed (@{$self->{allowed}}) {
             if (ref $allowed eq "Regexp" && $user =~ /$allowed/) {
@@ -49 +53 @@
 
     if ($self->{'policy'} eq "accept") {
-        warn "$self --- user=$user, accepting, unless denied: @{$self->{denied}}\n";
+        $logger->debug("$self --- user=$user, accepting, unless denied: @{$self->{denied}}");
         foreach my $allowed (@{$self->{denied}}) {
             if (ref $allowed eq "Regexp" && $user =~ /$allowed/) {