/usr/local/CPAN/DJabberd/DJabberd/Authen/StaticPassword.pm

• package DJabberd::Authen::StaticPassword
  • set_config_password
  • can_retrieve_cleartext
  • get_password
  • check_cleartext
• EOF

package DJabberd::Authen::StaticPassword;
use strict;
use base 'DJabberd::Authen';

sub set_config_password {
    my ($self, $pass) = @_;
    $self->{password} = $pass;
}

sub can_retrieve_cleartext { 1 }

sub get_password {
    my ($self, $cb, %args) = @_;
    $cb->set($self->{password});
}

sub check_cleartext {
    my ($self, $cb, %args) = @_;
    if ($args{password} eq $self->{password}) {
        $cb->accept;
        return;
    }
    $cb->reject;
}

1;