Permalink
Browse files

- Added support for server in DIGEST_MD5

- Refactored Perl.pm where necessary to support client and server

Still experimental
  • Loading branch information...
1 parent aa7ccc1 commit ca9bde61c36f7c70c7aeb401cbd29623683e8706 @yannk yannk committed with gbarr Jan 13, 2009
Showing with 489 additions and 73 deletions.
  1. +13 −2 lib/Authen/SASL/Perl.pm
  2. +310 −69 lib/Authen/SASL/Perl/DIGEST_MD5.pm
  3. +20 −2 t/digest_md5.t
  4. +146 −0 t/server/digest_md5.t
@@ -17,8 +17,19 @@ my %secflags = (
);
my %have;
-sub client_new { _new(@_) }
-sub server_new { _new(@_) }
+sub client_new {
+ my $client = _new(@_);
+ $client->_init_client(@_);
+ return $client;
+}
+sub server_new {
+ my $server = _new(@_);
+ $server->_init_server(@_);
+ return $server;
+}
+
+sub _init_server {}
+sub _init_client {}
sub _new {
my ($pkg, $parent, $service, $host, $secflags) = @_;
Oops, something went wrong.

0 comments on commit ca9bde6

Please sign in to comment.