|
Packit |
ae5a87 |
# Copyright (c) 2002 Graham Barr <gbarr@pobox.com>. All rights reserved.
|
|
Packit |
ae5a87 |
# This program is free software; you can redistribute it and/or
|
|
Packit |
ae5a87 |
# modify it under the same terms as Perl itself.
|
|
Packit |
ae5a87 |
|
|
Packit |
ae5a87 |
package Authen::SASL::Perl::ANONYMOUS;
|
|
Packit |
ae5a87 |
|
|
Packit |
ae5a87 |
use strict;
|
|
Packit |
ae5a87 |
use vars qw($VERSION @ISA);
|
|
Packit |
ae5a87 |
|
|
Packit |
ae5a87 |
$VERSION = "2.14";
|
|
Packit |
ae5a87 |
@ISA = qw(Authen::SASL::Perl);
|
|
Packit |
ae5a87 |
|
|
Packit |
ae5a87 |
my %secflags = (
|
|
Packit |
ae5a87 |
noplaintext => 1,
|
|
Packit |
ae5a87 |
);
|
|
Packit |
ae5a87 |
|
|
Packit |
ae5a87 |
sub _order { 0 }
|
|
Packit |
ae5a87 |
sub _secflags {
|
|
Packit |
ae5a87 |
shift;
|
|
Packit |
ae5a87 |
grep { $secflags{$_} } @_;
|
|
Packit |
ae5a87 |
}
|
|
Packit |
ae5a87 |
|
|
Packit |
ae5a87 |
sub mechanism { 'ANONYMOUS' }
|
|
Packit |
ae5a87 |
|
|
Packit |
ae5a87 |
sub client_start {
|
|
Packit |
ae5a87 |
shift->_call('authname')
|
|
Packit |
ae5a87 |
}
|
|
Packit |
ae5a87 |
|
|
Packit |
ae5a87 |
sub client_step {
|
|
Packit |
ae5a87 |
shift->_call('authname')
|
|
Packit |
ae5a87 |
}
|
|
Packit |
ae5a87 |
|
|
Packit |
ae5a87 |
1;
|
|
Packit |
ae5a87 |
|
|
Packit |
ae5a87 |
__END__
|
|
Packit |
ae5a87 |
|
|
Packit |
ae5a87 |
=head1 NAME
|
|
Packit |
ae5a87 |
|
|
Packit |
ae5a87 |
Authen::SASL::Perl::ANONYMOUS - Anonymous Authentication class
|
|
Packit |
ae5a87 |
|
|
Packit |
ae5a87 |
=head1 SYNOPSIS
|
|
Packit |
ae5a87 |
|
|
Packit |
ae5a87 |
use Authen::SASL qw(Perl);
|
|
Packit |
ae5a87 |
|
|
Packit |
ae5a87 |
$sasl = Authen::SASL->new(
|
|
Packit |
ae5a87 |
mechanism => 'ANONYMOUS',
|
|
Packit |
ae5a87 |
callback => {
|
|
Packit |
ae5a87 |
authname => $mailaddress
|
|
Packit |
ae5a87 |
},
|
|
Packit |
ae5a87 |
);
|
|
Packit |
ae5a87 |
|
|
Packit |
ae5a87 |
=head1 DESCRIPTION
|
|
Packit |
ae5a87 |
|
|
Packit |
ae5a87 |
This method implements the client part of the ANONYMOUS SASL algorithm,
|
|
Packit |
ae5a87 |
as described in RFC 2245 resp. in IETF Draft draft-ietf-sasl-anon-XX.txt.
|
|
Packit |
ae5a87 |
|
|
Packit |
ae5a87 |
=head2 CALLBACK
|
|
Packit |
ae5a87 |
|
|
Packit |
ae5a87 |
The callbacks used are:
|
|
Packit |
ae5a87 |
|
|
Packit |
ae5a87 |
=over 4
|
|
Packit |
ae5a87 |
|
|
Packit |
ae5a87 |
=item authname
|
|
Packit |
ae5a87 |
|
|
Packit |
ae5a87 |
email address or UTF-8 encoded string to be used as
|
|
Packit |
ae5a87 |
trace information for the server
|
|
Packit |
ae5a87 |
|
|
Packit |
ae5a87 |
=back
|
|
Packit |
ae5a87 |
|
|
Packit |
ae5a87 |
=head1 SEE ALSO
|
|
Packit |
ae5a87 |
|
|
Packit |
ae5a87 |
L<Authen::SASL>,
|
|
Packit |
ae5a87 |
L<Authen::SASL::Perl>
|
|
Packit |
ae5a87 |
|
|
Packit |
ae5a87 |
=head1 AUTHORS
|
|
Packit |
ae5a87 |
|
|
Packit |
ae5a87 |
Software written by Graham Barr <gbarr@pobox.com>,
|
|
Packit |
ae5a87 |
documentation written by Peter Marschall <peter@adpm.de>.
|
|
Packit |
ae5a87 |
|
|
Packit |
ae5a87 |
Please report any bugs, or post any suggestions, to the perl-ldap mailing list
|
|
Packit |
ae5a87 |
<perl-ldap@perl.org>
|
|
Packit |
ae5a87 |
|
|
Packit |
ae5a87 |
=head1 COPYRIGHT
|
|
Packit |
ae5a87 |
|
|
Packit |
ae5a87 |
Copyright (c) 2002-2004 Graham Barr.
|
|
Packit |
ae5a87 |
All rights reserved. This program is free software; you can redistribute
|
|
Packit |
ae5a87 |
it and/or modify it under the same terms as Perl itself.
|
|
Packit |
ae5a87 |
|
|
Packit |
ae5a87 |
Documentation Copyright (c) 2004 Peter Marschall.
|
|
Packit |
ae5a87 |
All rights reserved. This documentation is distributed,
|
|
Packit |
ae5a87 |
and may be redistributed, under the same terms as Perl itself.
|
|
Packit |
ae5a87 |
|
|
Packit |
ae5a87 |
=cut
|