File Coverage

blib/lib/Mail/SendEasy/AUTH.pm

Criterion	Covered	Total	%
statement	13	71	18.3
branch	0	46	0.0
condition	0	36	0.0
subroutine	5	14	35.7
pod	0	9	0.0
total	18	176	10.2

#############################################################################
## This file was generated automatically by Class::HPLOO/0.12
##
## Original file:    ./lib/Mail/SendEasy/AUTH.hploo
## Generation date:  2004-04-09 04:49:29
##
## ** Do not change this file, use the original HPLOO source! **
#############################################################################

#############################################################################
## Name:        AUTH.pm
## Purpose:     Mail::SendEasy::AUTH
## Author:      Graciliano M. P.
## Modified by:
## Created:     2004-01-23
## RCS-ID:
## Copyright:   (c) 2004 Graciliano M. P.
## Licence:     This program is free software; you can redistribute it and/or
##              modify it under the same terms as Perl itself
#############################################################################


{ package Mail::SendEasy::AUTH ;

  use strict qw(vars) ; no warnings ;

  my (%CLASS_HPLOO) ;

  sub new {
    my $class = shift ;
    my $this = bless({} , $class) ;
    no warnings ;
    my $undef = \'' ;
    sub UNDEF {$undef} ;
    if ( $CLASS_HPLOO{ATTR} ) {
    foreach my $Key ( keys %{$CLASS_HPLOO{ATTR}} ) {
    tie( $this->{$Key} => 'Class::HPLOO::TIESCALAR' , $CLASS_HPLOO{ATTR}{$Key}{tp} , $CLASS_HPLOO{ATTR}{$Key}{pr} , \$this->{CLASS_HPLOO_ATTR}{$Key} ) if !exists $this->{$Key} ;
    } }  my $ret_this = defined &AUTH ? $this->AUTH(@_) : undef ;
    if ( ref($ret_this) && UNIVERSAL::isa($ret_this,$class) ) {
    $this = $ret_this ;
    if ( $CLASS_HPLOO{ATTR} && UNIVERSAL::isa($this,'HASH') ) {
    foreach my $Key ( keys %{$CLASS_HPLOO{ATTR}} ) {
    tie( $this->{$Key} => 'Class::HPLOO::TIESCALAR' , $CLASS_HPLOO{ATTR}{$Key}{tp} , $CLASS_HPLOO{ATTR}{$Key}{pr} , \$this->{CLASS_HPLOO_ATTR}{$Key} ) if !exists $this->{$Key} ;
    } } } elsif ( $ret_this == $undef ) {
    $this = undef ;
    }  return $this ;
  }


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

  my %AUTH_TYPES = (
  PLAIN => 1 ,
  LOGIN => 1 ,
  CRAM_MD5 => 0 ,
  ) ;

  {
    eval(q`use Digest::HMAC_MD5 qw(hmac_md5_hex)`) ;
    $AUTH_TYPES{CRAM_MD5} = 1 if defined &hmac_md5_hex ;
  }

  sub AUTH {
    my $this = ref($_[0]) && UNIVERSAL::isa($_[0],'UNIVERSAL') ? shift : undef ;
    my $user = shift(@_) ;
    my $pass = shift(@_) ;
    my @authtypes = @_ ;
    @_ = () ;

    my $auth_sub ;
    foreach my $auth ( @authtypes ) {
      my $name = uc($auth) ;
      if ( $AUTH_TYPES{$name} ) { $auth_sub = $name ; last ;}
    }

    $auth_sub = 'PLAIN' if !@authtypes && !$auth_sub ;

    return UNDEF if !$auth_sub || $user eq '' || $pass eq ''  ;

    $this->{USER} = $user ;
    $this->{PASS} = $pass ;
    $this->{AUTHSUB} = $auth_sub ;
  }

  sub type { my $this = ref($_[0]) && UNIVERSAL::isa($_[0],'UNIVERSAL') ? shift : undef ; $this->{AUTHSUB} }

  sub start {
    my $this = ref($_[0]) && UNIVERSAL::isa($_[0],'UNIVERSAL') ? shift : undef ;

    my $start = $this->{AUTHSUB} . "_start" ;
    return &$start($this , @_) if defined &$start ;
    return ;
  }

  sub step {
    my $this = ref($_[0]) && UNIVERSAL::isa($_[0],'UNIVERSAL') ? shift : undef ;

    my $step = $this->{AUTHSUB} . "_step" ;
    return &$step($this , @_) if defined &$step ;
    return ;
  }

  #############

  sub PLAIN_start {
    my $this = ref($_[0]) && UNIVERSAL::isa($_[0],'UNIVERSAL') ? shift : undef ;

    my @parts = map { defined $this->{$_} ? $this->{$_} : ''} qw(USER USER PASS);
    return join("\0", @parts) ;
  }

  #############

  sub LOGIN_step {
    my $this = ref($_[0]) && UNIVERSAL::isa($_[0],'UNIVERSAL') ? shift : undef ;
    my $string = shift(@_) ;

    $string =~ /password/i ? $this->{PASS} :
    $string =~ /username/i ? $this->{USER} :
    '' ;
  }

  #############

  sub CRAM_MD5_step {
    my $this = ref($_[0]) && UNIVERSAL::isa($_[0],'UNIVERSAL') ? shift : undef ;
    my $string = shift(@_) ;

    my ($user, $pass) = map { defined $this->{$_} ? $this->{$_} : '' } qw(USER PASS) ;
    $user . " " . hmac_md5_hex($string,$pass);
    return $user ;
  }


}


1;

__END__