PC Professionell 2004 December/PCpro_2004_12.ISO/files/webserver/xampp/xampp-perl-addon-1.4.9-installer.exe/EXTERNAL.pm

Perl POD Document | 2003-10-21 | 658 b | 37 lines

# Copyright (c) 1998-2002 Graham Barr <[e-mail]> and 2001 Chris Ridd
# <[e-mail]>.  All rights reserved.  This program
# is free software; you can redistribute it and/or modify it under the
# same terms as Perl itself.

package Authen::SASL::Perl::EXTERNAL;

use strict;
use vars qw($VERSION @ISA);

$VERSION = "1.03";
@ISA     = qw(Authen::SASL::Perl);

my %secflags = (
    noplaintext  => 1,
    nodictionary => 1,
);

sub _order { 2 }
sub _secflags {
  shift;
  grep { $secflags{$_} } @_;
}

sub mechanism { 'EXTERNAL' }

sub client_start {
  ''
}

sub client_step {
  shift->_call('user');
}

1;