File Coverage

blib/lib/DJabberd/Authen/Dovecot.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

#!/usr/bin/perl -w

package DJabberd::Authen::Dovecot;
use strict;
use base 'DJabberd::Authen';
use DJabberd::Log;

our $VERSION = '0.1';

use Socket;
use MIME::Base64;

sub set_config_socket {
    my ($self, $sock) = @_;
    $self->{sock} = $sock;
}

sub set_config_realm {
    my ($self, $realm) = @_;
    $self->{realm} = $realm;
}

sub finalize {
    my $self = shift;
    $self->{realm} ||= '';
    $self->{sock} ||="/var/run/dovecot/auth-client";
}

sub can_retrieve_cleartext { 0 }

sub check_cleartext {
    my $self = shift;
    my $cb = shift;
    my %args = @_;
    my $user=$args{username};
    my $pass=$args{password};
    my $ch=encode_base64("\0$user\0$pass");
    my $auth;
    socket($auth,PF_UNIX,SOCK_STREAM,0);
    connect($auth,scalar(sockaddr_un($self->{sock})));
    my $cpid="CPID\t$$\n";
    my $data;
    sysread($auth,$data,1024);
    my @data=split("\n",$data);
    while(my $l=shift(@data)) {
	if($l eq "DONE") {
	    syswrite($auth,"VERSION\t1\t1\n");
	    syswrite($auth,$cpid);
	    syswrite($auth,"AUTH\t1\tPLAIN\tservice=xmpp\tresp=$ch");
	    sysread($auth,$data,1024);
	    @data=split("\n",$data);
	} elsif($l =~/^FAIL/) {
	    @data=();
	    $cb->reject();
	} elsif($l =~/^OK/) {
	    @data=();
	    $cb->accept();
	}
    }
    close($auth);
    return 1;
}

1;

__END__