home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2004 December / PCpro_2004_12.ISO / files / webserver / xampp / xampp-perl-addon-1.4.9-installer.exe / PLAIN.pm < prev    next >
Encoding:
Perl POD Document  |  2004-04-10  |  666 b   |  37 lines
  1. # Copyright (c) 2002 Graham Barr <gbarr@pobox.com>. All rights reserved.
  2. # This program is free software; you can redistribute it and/or
  3. # modify it under the same terms as Perl itself.
  4.  
  5. package Authen::SASL::Perl::PLAIN;
  6.  
  7. use strict;
  8. use vars qw($VERSION @ISA);
  9.  
  10. $VERSION = "1.04";
  11. @ISA     = qw(Authen::SASL::Perl);
  12.  
  13. my %secflags = (
  14.     noanonymous => 1,
  15. );
  16.  
  17. sub _order { 1 }
  18. sub _secflags {
  19.   shift;
  20.   grep { $secflags{$_} } @_;
  21. }
  22.  
  23. sub mechanism { 'PLAIN' }
  24.  
  25. sub client_start {
  26.   my $self = shift;
  27.  
  28.   my @parts = map {
  29.     my $v = $self->_call($_);
  30.     defined($v) ? $v : ''
  31.   } qw(authname user pass);
  32.  
  33.   join("\0", @parts);
  34. }
  35.  
  36. 1;
  37.