File Coverage

blib/lib/DJabberd/Authen/UserLimit.pm

Criterion	Covered	Total	%
statement	7	9	77.7
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	10	12	83.3

package DJabberd::Authen::UserLimit;
use strict;
use base 'DJabberd::Authen';
use DJabberd::Log;
our $logger = DJabberd::Log->get_logger;

use vars qw($VERSION);
$VERSION = '0.30';


use DJabberd::Util qw(as_num);
sub log {
    $logger;
}

sub set_config_userlimit {
    my ($self, $val) = @_;
    $self->{limit} = as_num($val);
}

sub finalize {
    my ($self) = @_;
    die "Missing UserLimit directive" if not $self->{limit};
}


sub check_cleartext {
         my ($self, $cb, %args) = @_;
         # args contain: username and conn
         my $conn = $args{conn};
         my $nb_user = keys %{$conn->vhost->{jid2sock}};
         my $limit = $self->{limit};
         $logger->info("Number of user : $nb_user , limit : $limit ");
         if ($nb_user ge $limit) {
            $cb->reject;
            return;
         };
         $cb->decline;
}

1;

__END__