[Bps-public-commit] r14873 - in Net-IMAP-Server: ex

[alexmv at bestpractical.com]

Author: alexmv
Date: Wed Aug  6 18:45:14 2008
New Revision: 14873

Modified:
   Net-IMAP-Server/   (props changed)
   Net-IMAP-Server/ex/trivial-server.pl

Log:
 r35443 at kohr-ah:  chmrr | 2008-08-06 18:44:44 -0400
  * Remove explicit is_inbox, which is no longer needed
  * Add auth->user(...) call to silence warnings
  * Slight perltidy


Modified: Net-IMAP-Server/ex/trivial-server.pl
==============================================================================
--- Net-IMAP-Server/ex/trivial-server.pl	(original)
+++ Net-IMAP-Server/ex/trivial-server.pl	Wed Aug  6 18:45:14 2008
@@ -1,21 +1,26 @@
 #!/usr/bin/perl
 use Net::IMAP::Server;
 
-package Demo::IMAP::Auth; $INC{'Demo/IMAP/Auth.pm'} = 1;
+package Demo::IMAP::Auth;
+$INC{'Demo/IMAP/Auth.pm'} = 1;
 use base 'Net::IMAP::Server::DefaultAuth';
+
 sub auth_plain {
     my ( $self, $user, $pass ) = @_;
+
     # XXX DO AUTH CHECK
+    $self->user($user);
     return 1;
 }
 
-package Demo::IMAP::Model; $INC{'Demo/IMAP/Model.pm'} = 1;
+package Demo::IMAP::Model;
+$INC{'Demo/IMAP/Model.pm'} = 1;
 use base 'Net::IMAP::Server::DefaultModel';
 
 sub init {
     my $self = shift;
     $self->root( Demo::IMAP::Mailbox->new() );
-    $self->root->add_child( name     => "INBOX", is_inbox => 1);
+    $self->root->add_child( name => "INBOX" );
 }
 
 package Demo::IMAP::Mailbox;
@@ -43,5 +48,6 @@
     model_class => "Demo::IMAP::Model",
     user        => 'nobody',
     port        => 143,
-    ssl_port    => 993 )->run();
+    ssl_port    => 993
+)->run();