[Bps-public-commit] r10176 - in Net-IMAP-Server: lib/Net/IMAP lib/Net/IMAP/Server

[alexmv at bestpractical.com]

Author: alexmv
Date: Fri Dec 28 15:35:20 2007
New Revision: 10176

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

Log:
 r26295 at zoq-fot-pik:  chmrr | 2007-12-28 15:34:33 -0500
  * Allow user and group options for priv-dropping


Modified: Net-IMAP-Server/lib/Net/IMAP/Server.pm
==============================================================================
--- Net-IMAP-Server/lib/Net/IMAP/Server.pm	(original)
+++ Net-IMAP-Server/lib/Net/IMAP/Server.pm	Fri Dec 28 15:35:20 2007
@@ -16,7 +16,7 @@
 our $VERSION = '0.001';
 
 __PACKAGE__->mk_accessors(
-    qw/connections port ssl_port auth_class model_class/);
+    qw/connections port ssl_port auth_class model_class user group/);
 
 sub new {
     my $class = shift;
@@ -40,7 +40,12 @@
         push @port, $self->ssl_port;
     }
     local $Net::IMAP::Server::Server = $self;
-    $self->SUPER::run(proto => \@proto, port => \@port);
+    $self->SUPER::run(
+        proto => \@proto,
+        port  => \@port,
+        user  => $self->user,
+        group => $self->group,
+    );
 }
 
 sub process_request {

Modified: Net-IMAP-Server/lib/Net/IMAP/Server/Connection.pm
==============================================================================
--- Net-IMAP-Server/lib/Net/IMAP/Server/Connection.pm	(original)
+++ Net-IMAP-Server/lib/Net/IMAP/Server/Connection.pm	Fri Dec 28 15:35:20 2007
@@ -79,7 +79,7 @@
     my $self = shift;
     $self->server->connections([grep {$_ ne $self} @{$self->server->connections}]);
     if ($self->io_handle) {
-        warn "Closing connection $self";
+        $self->log("Closing connection $self");
         $self->io_handle->close;
         $self->io_handle(undef);
     }