[Bps-public-commit] r9317 - in Net-Server-IMAP: . lib/Net/Server/IMAP lib/Net/Server/IMAP/Command

[alexmv at bestpractical.com]

Author: alexmv
Date: Mon Oct 15 20:08:50 2007
New Revision: 9317

Modified:
   Net-Server-IMAP/   (props changed)
   Net-Server-IMAP/lib/Net/Server/IMAP.pm
   Net-Server-IMAP/lib/Net/Server/IMAP/Command/Capability.pm
   Net-Server-IMAP/lib/Net/Server/IMAP/Connection.pm

Log:
 r23621 at zoq-fot-pik:  chmrr | 2007-10-15 20:06:50 -0400
  * Remove debugging statement
  * Call capability with the connection, so we can limit auth to under a layer, for instance


Modified: Net-Server-IMAP/lib/Net/Server/IMAP.pm
==============================================================================
--- Net-Server-IMAP/lib/Net/Server/IMAP.pm	(original)
+++ Net-Server-IMAP/lib/Net/Server/IMAP.pm	Mon Oct 15 20:08:50 2007
@@ -82,6 +82,9 @@
 }
 
 sub capability {
+    my $self = shift;
+    my ($connection) = @_;
+
     return "IMAP4rev1 STARTTLS AUTH=PLAIN";
 }
 

Modified: Net-Server-IMAP/lib/Net/Server/IMAP/Command/Capability.pm
==============================================================================
--- Net-Server-IMAP/lib/Net/Server/IMAP/Command/Capability.pm	(original)
+++ Net-Server-IMAP/lib/Net/Server/IMAP/Command/Capability.pm	Mon Oct 15 20:08:50 2007
@@ -16,7 +16,7 @@
 
 sub run {
     my $self = shift;
-    $self->tagged_response( $self->server->capability );
+    $self->tagged_response( $self->server->capability($self->connection) );
     $self->ok_completed;
 }
 

Modified: Net-Server-IMAP/lib/Net/Server/IMAP/Connection.pm
==============================================================================
--- Net-Server-IMAP/lib/Net/Server/IMAP/Connection.pm	(original)
+++ Net-Server-IMAP/lib/Net/Server/IMAP/Connection.pm	Mon Oct 15 20:08:50 2007
@@ -104,7 +104,6 @@
 sub auth {
     my $self = shift;
     if (@_) {
-        warn "@{[caller]}\n";
         $self->{auth} = shift;
         $self->server->model_class->require || warn $@;
         $self->model(