File Coverage

blib/lib/DJabberd/SASL/NTLM.pm

Criterion	Covered	Total	%
statement	18	46	39.1
branch	0	10	0.0
condition	0	3	0.0
subroutine	6	11	54.5
pod	0	4	0.0
total	24	74	32.4

package DJabberd::SASL::NTLM;

use strict;
use warnings;
use base qw/DJabberd::SASL/;
use IPC::Open3;
use IO::Select;
use Carp;

our $VERSION = '0.03';

sub manager_class { 'DJabberd::SASL::NTLMManager' }

sub mechanisms {
    my $plugin = shift;
    return { NTLM => 1 };
}

sub set_config_ntlmauthhelper {
    my ( $self, $val ) = @_;
    $val =~ s/^\s*\b(.+)\b\s*$/$1/;
    my ( $ntlmauthhelper, @params ) = split( /\s+/, $val );
    croak "Invalid NTLM helper: $ntlmauthhelper"
      unless ( -f $ntlmauthhelper && -x $ntlmauthhelper );
    $self->{err} = 1;    # set STDERR for child
    $self->{pid} =
      open3( $self->{out}, $self->{in}, $self->{err}, $ntlmauthhelper,
        @params );
    $self->{s} = IO::Select->new();
    $self->{s}->add( $self->{in} );
    $self->{helper} = $ntlmauthhelper;
    $self->{params} = [@params];

    croak "Can't open bidirectional pipe to NTLM helper"
      unless ( $self->{pid} );
}

## XXX dupe sux
sub register {
    my ( $plugin, $vhost ) = @_;
    $plugin->SUPER::register($vhost);

    $vhost->register_hook(
        "SendFeatures",
        sub {
            my ( $vh, $cb, $conn ) = @_;
            if ( my $sasl_conn = $conn->sasl ) {
                if ( $sasl_conn->is_success ) {
                    return;
                }
            }
            my @mech = $plugin->mechanisms_list;
            my $xml_mechanisms =
              "";
            $xml_mechanisms .= join "",
              map { "$_" } @mech;
            $xml_mechanisms .= "" if $plugin->is_optional;
            $xml_mechanisms .= "";
            $cb->stanza($xml_mechanisms);
        }
    );
}

1;
__END__