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

[alexmv at bestpractical.com]

Author: alexmv
Date: Tue Oct 16 12:39:07 2007
New Revision: 9323

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

Log:
 r23670 at zoq-fot-pik:  chmrr | 2007-10-16 12:37:03 -0400
  * Whoops -- status was using _oooold_ methods


Modified: Net-Server-IMAP/lib/Net/Server/IMAP/Command/Status.pm
==============================================================================
--- Net-Server-IMAP/lib/Net/Server/IMAP/Command/Status.pm	(original)
+++ Net-Server-IMAP/lib/Net/Server/IMAP/Command/Status.pm	Tue Oct 16 12:39:07 2007
@@ -11,13 +11,13 @@
     return $self->bad_command("Log in first") if $self->connection->is_unauth;
 
     my @options = $self->parsed_options;
-    return $self->bad_command("Not enough options") if @options == 0;
+    return $self->bad_command("Not enough options") if @options < 2;
     return $self->bad_command("Too many options") if @options > 2;
 
     my ( $name, $flags ) = @options;
     return $self->bad_command("Wrong second option") unless ref $flags;
 
-    my $mailbox = $self->server->mailbox( $self->connection, $name );
+    my $mailbox = $self->connection->model->lookup( $name );
     return $self->no_command("Mailbox does not exist") unless $mailbox;
 
     return 1;
@@ -26,7 +26,7 @@
 sub run {
     my $self = shift;
 
-    my $mailbox = $self->server->mailbox( $self->connection, $name );
+    my $mailbox = $self->connection->model->lookup( $self->connection, $name );
 
     my %items;
     $items{ uc $_ } = undef for @{$flags};