[Bps-public-commit] r9708 - in Net-Server-IMAP: . lib/Net/IMAP lib/Net/IMAP/Server/Command t
alexmv at bestpractical.com
alexmv at bestpractical.com
Tue Nov 20 17:06:33 EST 2007
Author: alexmv
Date: Tue Nov 20 17:06:31 2007
New Revision: 9708
Modified:
Net-Server-IMAP/ (props changed)
Net-Server-IMAP/Changes
Net-Server-IMAP/MANIFEST
Net-Server-IMAP/META.yml
Net-Server-IMAP/Makefile.PL
Net-Server-IMAP/README
Net-Server-IMAP/lib/Net/IMAP/Server.pm
Net-Server-IMAP/lib/Net/IMAP/Server/Command.pm
Net-Server-IMAP/lib/Net/IMAP/Server/Command/Append.pm
Net-Server-IMAP/lib/Net/IMAP/Server/Command/Authenticate.pm
Net-Server-IMAP/lib/Net/IMAP/Server/Command/Capability.pm
Net-Server-IMAP/lib/Net/IMAP/Server/Command/Check.pm
Net-Server-IMAP/lib/Net/IMAP/Server/Command/Close.pm
Net-Server-IMAP/lib/Net/IMAP/Server/Command/Copy.pm
Net-Server-IMAP/lib/Net/IMAP/Server/Command/Create.pm
Net-Server-IMAP/lib/Net/IMAP/Server/Command/Delete.pm
Net-Server-IMAP/lib/Net/IMAP/Server/Command/Examine.pm
Net-Server-IMAP/lib/Net/IMAP/Server/Command/Expunge.pm
Net-Server-IMAP/lib/Net/IMAP/Server/Command/Fetch.pm
Net-Server-IMAP/lib/Net/IMAP/Server/Command/List.pm
Net-Server-IMAP/lib/Net/IMAP/Server/Command/Login.pm
Net-Server-IMAP/lib/Net/IMAP/Server/Command/Logout.pm
Net-Server-IMAP/lib/Net/IMAP/Server/Command/Lsub.pm
Net-Server-IMAP/lib/Net/IMAP/Server/Command/Noop.pm
Net-Server-IMAP/lib/Net/IMAP/Server/Command/Rename.pm
Net-Server-IMAP/lib/Net/IMAP/Server/Command/Search.pm
Net-Server-IMAP/lib/Net/IMAP/Server/Command/Select.pm
Net-Server-IMAP/lib/Net/IMAP/Server/Command/Starttls.pm
Net-Server-IMAP/lib/Net/IMAP/Server/Command/Status.pm
Net-Server-IMAP/lib/Net/IMAP/Server/Command/Store.pm
Net-Server-IMAP/lib/Net/IMAP/Server/Command/Subscribe.pm
Net-Server-IMAP/lib/Net/IMAP/Server/Command/Uid.pm
Net-Server-IMAP/lib/Net/IMAP/Server/Command/Unsubscribe.pm
Net-Server-IMAP/lib/Net/IMAP/Server/Connection.pm
Net-Server-IMAP/lib/Net/IMAP/Server/DefaultAuth.pm
Net-Server-IMAP/lib/Net/IMAP/Server/DefaultModel.pm
Net-Server-IMAP/lib/Net/IMAP/Server/Mailbox.pm
Net-Server-IMAP/lib/Net/IMAP/Server/Message.pm
Net-Server-IMAP/t/00.load.t
Log:
r24980 at zoq-fot-pik: chmrr | 2007-11-20 17:05:07 -0500
* Step two of renaming
Modified: Net-Server-IMAP/Changes
==============================================================================
--- Net-Server-IMAP/Changes (original)
+++ Net-Server-IMAP/Changes Tue Nov 20 17:06:31 2007
@@ -1,4 +1,4 @@
-Revision history for Net-Server-IMAP4
+Revision history for Net-IMAP-Server
0.0.1 Mon Apr 3 11:31:52 2006
Initial release.
Modified: Net-Server-IMAP/MANIFEST
==============================================================================
--- Net-Server-IMAP/MANIFEST (original)
+++ Net-Server-IMAP/MANIFEST Tue Nov 20 17:06:31 2007
@@ -9,32 +9,32 @@
inc/Module/Install/Metadata.pm
inc/Module/Install/Win32.pm
inc/Module/Install/WriteAll.pm
-lib/Net/Server/IMAP.pm
-lib/Net/Server/IMAP/Command.pm
-lib/Net/Server/IMAP/Command/Authenticate.pm
-lib/Net/Server/IMAP/Command/Capability.pm
-lib/Net/Server/IMAP/Command/Check.pm
-lib/Net/Server/IMAP/Command/Close.pm
-lib/Net/Server/IMAP/Command/Create.pm
-lib/Net/Server/IMAP/Command/Examine.pm
-lib/Net/Server/IMAP/Command/Expunge.pm
-lib/Net/Server/IMAP/Command/Fetch.pm
-lib/Net/Server/IMAP/Command/List.pm
-lib/Net/Server/IMAP/Command/Login.pm
-lib/Net/Server/IMAP/Command/Logout.pm
-lib/Net/Server/IMAP/Command/Lsub.pm
-lib/Net/Server/IMAP/Command/Noop.pm
-lib/Net/Server/IMAP/Command/Select.pm
-lib/Net/Server/IMAP/Command/Starttls.pm
-lib/Net/Server/IMAP/Command/Status.pm
-lib/Net/Server/IMAP/Command/Store.pm
-lib/Net/Server/IMAP/Command/Subscribe.pm
-lib/Net/Server/IMAP/Command/Uid.pm
-lib/Net/Server/IMAP/Connection.pm
-lib/Net/Server/IMAP/DefaultAuth.pm
-lib/Net/Server/IMAP/DefaultModel.pm
-lib/Net/Server/IMAP/Mailbox.pm
-lib/Net/Server/IMAP/Message.pm
+lib/Net/IMAP/Server.pm
+lib/Net/IMAP/Server/Command.pm
+lib/Net/IMAP/Server/Command/Authenticate.pm
+lib/Net/IMAP/Server/Command/Capability.pm
+lib/Net/IMAP/Server/Command/Check.pm
+lib/Net/IMAP/Server/Command/Close.pm
+lib/Net/IMAP/Server/Command/Create.pm
+lib/Net/IMAP/Server/Command/Examine.pm
+lib/Net/IMAP/Server/Command/Expunge.pm
+lib/Net/IMAP/Server/Command/Fetch.pm
+lib/Net/IMAP/Server/Command/List.pm
+lib/Net/IMAP/Server/Command/Login.pm
+lib/Net/IMAP/Server/Command/Logout.pm
+lib/Net/IMAP/Server/Command/Lsub.pm
+lib/Net/IMAP/Server/Command/Noop.pm
+lib/Net/IMAP/Server/Command/Select.pm
+lib/Net/IMAP/Server/Command/Starttls.pm
+lib/Net/IMAP/Server/Command/Status.pm
+lib/Net/IMAP/Server/Command/Store.pm
+lib/Net/IMAP/Server/Command/Subscribe.pm
+lib/Net/IMAP/Server/Command/Uid.pm
+lib/Net/IMAP/Server/Connection.pm
+lib/Net/IMAP/Server/DefaultAuth.pm
+lib/Net/IMAP/Server/DefaultModel.pm
+lib/Net/IMAP/Server/Mailbox.pm
+lib/Net/IMAP/Server/Message.pm
Makefile.PL
MANIFEST This list of files
META.yml
Modified: Net-Server-IMAP/META.yml
==============================================================================
--- Net-Server-IMAP/META.yml (original)
+++ Net-Server-IMAP/META.yml Tue Nov 20 17:06:31 2007
@@ -3,7 +3,7 @@
distribution_type: module
generated_by: Module::Install version 0.61
license: perl
-name: Net-Server-IMAP
+name: Net-IMAP-Server
no_index:
directory:
- inc
Modified: Net-Server-IMAP/Makefile.PL
==============================================================================
--- Net-Server-IMAP/Makefile.PL (original)
+++ Net-Server-IMAP/Makefile.PL Tue Nov 20 17:06:31 2007
@@ -1,9 +1,9 @@
use inc::Module::Install;
-name ('Net-Server-IMAP');
+name ('Net-IMAP-Server');
author ('Jesse Vincent <jesse at bestpractical.com>');
-version_from ('lib/Net/Server/IMAP.pm');
-abstract_from('lib/Net/Server/IMAP.pm');
+version_from ('lib/Net/IMAP/Server.pm');
+abstract_from('lib/Net/IMAP/Server.pm');
license('perl');
requires('Class::Accessor');
Modified: Net-Server-IMAP/README
==============================================================================
--- Net-Server-IMAP/README (original)
+++ Net-Server-IMAP/README Tue Nov 20 17:06:31 2007
@@ -1,4 +1,4 @@
-Net-Server-IMAP4 version 0.0.1
+Net-IMAP-Server version 0.0.1
[ REPLACE THIS...
Modified: Net-Server-IMAP/lib/Net/IMAP/Server.pm
==============================================================================
--- Net-Server-IMAP/lib/Net/IMAP/Server.pm (original)
+++ Net-Server-IMAP/lib/Net/IMAP/Server.pm Tue Nov 20 17:06:31 2007
@@ -1,4 +1,4 @@
-package Net::Server::IMAP;
+package Net::IMAP::Server;
use warnings;
use strict;
@@ -12,8 +12,8 @@
use IO::Socket;
use IO::Socket::SSL;
-use Net::Server::IMAP::Mailbox;
-use Net::Server::IMAP::Connection;
+use Net::IMAP::Server::Mailbox;
+use Net::IMAP::Server::Connection;
our $VERSION = '0.001';
@@ -25,8 +25,8 @@
return $class->SUPER::new(
{ port => 8080,
ssl_port => 0,
- auth_class => "Net::Server::IMAP::DefaultAuth",
- model_class => "Net::Server::IMAP::DefaultModel",
+ auth_class => "Net::IMAP::Server::DefaultAuth",
+ model_class => "Net::IMAP::Server::DefaultModel",
@_,
connections => {},
}
@@ -71,7 +71,7 @@
} else {
# Process socket
- local $Net::Server::IMAP::Server = $self;
+ local $Net::IMAP::Server::Server = $self;
local $SIG{PIPE} = sub { warn "Broken pipe\n"; $self->connections->{ $fh->fileno}->close };
$self->connections->{ $fh->fileno }->handle_lines;
}
@@ -102,7 +102,7 @@
sub concurrent_mailbox_connections {
my $class = shift;
- my $self = ref $class ? $class : $Net::Server::IMAP::Server;
+ my $self = ref $class ? $class : $Net::IMAP::Server::Server;
my $selected = shift || $self->connection->selected;
return () unless $selected;
@@ -112,7 +112,7 @@
sub concurrent_user_connections {
my $class = shift;
- my $self = ref $class ? $class : $Net::Server::IMAP::Server;
+ my $self = ref $class ? $class : $Net::IMAP::Server::Server;
my $user = shift || $self->connection->auth->user;
return () unless $user;
@@ -125,7 +125,7 @@
my $handle = shift;
$handle->blocking(0);
$self->select->add($handle);
- my $conn = Net::Server::IMAP::Connection->new(
+ my $conn = Net::IMAP::Server::Connection->new(
io_handle => $handle,
server => $self,
);
@@ -143,12 +143,12 @@
=head1 NAME
-Net::Server::IMAP - [One line description of module's purpose here]
+Net::IMAP::Server - [One line description of module's purpose here]
=head1 SYNOPSIS
- use Net::Server::IMAP;
+ use Net::IMAP::Server;
=for author to fill in:
Brief code example(s) here showing commonest usage(s).
@@ -204,7 +204,7 @@
that can be set. These descriptions must also include details of any
configuration language used.
-Net::Server::IMAP requires no configuration files or environment variables.
+Net::IMAP::Server requires no configuration files or environment variables.
=head1 DEPENDENCIES
@@ -244,7 +244,7 @@
No bugs have been reported.
Please report any bugs or feature requests to
-C<bug-net-server-imap4 at rt.cpan.org>, or through the web interface at
+C<bug-net-imap-server at rt.cpan.org>, or through the web interface at
L<http://rt.cpan.org>.
Modified: Net-Server-IMAP/lib/Net/IMAP/Server/Command.pm
==============================================================================
--- Net-Server-IMAP/lib/Net/IMAP/Server/Command.pm (original)
+++ Net-Server-IMAP/lib/Net/IMAP/Server/Command.pm Tue Nov 20 17:06:31 2007
@@ -1,4 +1,4 @@
-package Net::Server::IMAP::Command;
+package Net::IMAP::Server::Command;
use warnings;
use strict;
Modified: Net-Server-IMAP/lib/Net/IMAP/Server/Command/Append.pm
==============================================================================
--- Net-Server-IMAP/lib/Net/IMAP/Server/Command/Append.pm (original)
+++ Net-Server-IMAP/lib/Net/IMAP/Server/Command/Append.pm Tue Nov 20 17:06:31 2007
@@ -1,9 +1,9 @@
-package Net::Server::IMAP::Command::Append;
+package Net::IMAP::Server::Command::Append;
use warnings;
use strict;
-use base qw/Net::Server::IMAP::Command/;
+use base qw/Net::IMAP::Server::Command/;
use DateTime::Format::Strptime;
Modified: Net-Server-IMAP/lib/Net/IMAP/Server/Command/Authenticate.pm
==============================================================================
--- Net-Server-IMAP/lib/Net/IMAP/Server/Command/Authenticate.pm (original)
+++ Net-Server-IMAP/lib/Net/IMAP/Server/Command/Authenticate.pm Tue Nov 20 17:06:31 2007
@@ -1,10 +1,10 @@
-package Net::Server::IMAP::Command::Authenticate;
+package Net::IMAP::Server::Command::Authenticate;
use warnings;
use strict;
use MIME::Base64;
-use base qw/Net::Server::IMAP::Command/;
+use base qw/Net::IMAP::Server::Command/;
__PACKAGE__->mk_accessors(qw(sasl pending_auth));
Modified: Net-Server-IMAP/lib/Net/IMAP/Server/Command/Capability.pm
==============================================================================
--- Net-Server-IMAP/lib/Net/IMAP/Server/Command/Capability.pm (original)
+++ Net-Server-IMAP/lib/Net/IMAP/Server/Command/Capability.pm Tue Nov 20 17:06:31 2007
@@ -1,9 +1,9 @@
-package Net::Server::IMAP::Command::Capability;
+package Net::IMAP::Server::Command::Capability;
use warnings;
use strict;
-use base qw/Net::Server::IMAP::Command/;
+use base qw/Net::IMAP::Server::Command/;
sub validate {
my $self = shift;
Modified: Net-Server-IMAP/lib/Net/IMAP/Server/Command/Check.pm
==============================================================================
--- Net-Server-IMAP/lib/Net/IMAP/Server/Command/Check.pm (original)
+++ Net-Server-IMAP/lib/Net/IMAP/Server/Command/Check.pm Tue Nov 20 17:06:31 2007
@@ -1,9 +1,9 @@
-package Net::Server::IMAP::Command::Check;
+package Net::IMAP::Server::Command::Check;
use warnings;
use strict;
-use base qw/Net::Server::IMAP::Command/;
+use base qw/Net::IMAP::Server::Command/;
sub validate {
my $self = shift;
Modified: Net-Server-IMAP/lib/Net/IMAP/Server/Command/Close.pm
==============================================================================
--- Net-Server-IMAP/lib/Net/IMAP/Server/Command/Close.pm (original)
+++ Net-Server-IMAP/lib/Net/IMAP/Server/Command/Close.pm Tue Nov 20 17:06:31 2007
@@ -1,9 +1,9 @@
-package Net::Server::IMAP::Command::Close;
+package Net::IMAP::Server::Command::Close;
use warnings;
use strict;
-use base qw/Net::Server::IMAP::Command/;
+use base qw/Net::IMAP::Server::Command/;
sub validate {
my $self = shift;
Modified: Net-Server-IMAP/lib/Net/IMAP/Server/Command/Copy.pm
==============================================================================
--- Net-Server-IMAP/lib/Net/IMAP/Server/Command/Copy.pm (original)
+++ Net-Server-IMAP/lib/Net/IMAP/Server/Command/Copy.pm Tue Nov 20 17:06:31 2007
@@ -1,9 +1,9 @@
-package Net::Server::IMAP::Command::Copy;
+package Net::IMAP::Server::Command::Copy;
use warnings;
use strict;
-use base qw/Net::Server::IMAP::Command/;
+use base qw/Net::IMAP::Server::Command/;
sub validate {
my $self = shift;
Modified: Net-Server-IMAP/lib/Net/IMAP/Server/Command/Create.pm
==============================================================================
--- Net-Server-IMAP/lib/Net/IMAP/Server/Command/Create.pm (original)
+++ Net-Server-IMAP/lib/Net/IMAP/Server/Command/Create.pm Tue Nov 20 17:06:31 2007
@@ -1,9 +1,9 @@
-package Net::Server::IMAP::Command::Create;
+package Net::IMAP::Server::Command::Create;
use warnings;
use strict;
-use base qw/Net::Server::IMAP::Command/;
+use base qw/Net::IMAP::Server::Command/;
sub validate {
my $self = shift;
Modified: Net-Server-IMAP/lib/Net/IMAP/Server/Command/Delete.pm
==============================================================================
--- Net-Server-IMAP/lib/Net/IMAP/Server/Command/Delete.pm (original)
+++ Net-Server-IMAP/lib/Net/IMAP/Server/Command/Delete.pm Tue Nov 20 17:06:31 2007
@@ -1,9 +1,9 @@
-package Net::Server::IMAP::Command::Delete;
+package Net::IMAP::Server::Command::Delete;
use warnings;
use strict;
-use base qw/Net::Server::IMAP::Command/;
+use base qw/Net::IMAP::Server::Command/;
sub validate {
my $self = shift;
Modified: Net-Server-IMAP/lib/Net/IMAP/Server/Command/Examine.pm
==============================================================================
--- Net-Server-IMAP/lib/Net/IMAP/Server/Command/Examine.pm (original)
+++ Net-Server-IMAP/lib/Net/IMAP/Server/Command/Examine.pm Tue Nov 20 17:06:31 2007
@@ -1,11 +1,11 @@
-package Net::Server::IMAP::Command::Examine;
+package Net::IMAP::Server::Command::Examine;
use warnings;
use strict;
-use base qw/Net::Server::IMAP::Command::Select/;
+use base qw/Net::IMAP::Server::Command::Select/;
-# See Net::Server::IMAP::Command::Select, which special-cases the
+# See Net::IMAP::Server::Command::Select, which special-cases the
# "Examine" command to force the mailbox read-only
1;
Modified: Net-Server-IMAP/lib/Net/IMAP/Server/Command/Expunge.pm
==============================================================================
--- Net-Server-IMAP/lib/Net/IMAP/Server/Command/Expunge.pm (original)
+++ Net-Server-IMAP/lib/Net/IMAP/Server/Command/Expunge.pm Tue Nov 20 17:06:31 2007
@@ -1,9 +1,9 @@
-package Net::Server::IMAP::Command::Expunge;
+package Net::IMAP::Server::Command::Expunge;
use warnings;
use strict;
-use base qw/Net::Server::IMAP::Command/;
+use base qw/Net::IMAP::Server::Command/;
sub validate {
my $self = shift;
Modified: Net-Server-IMAP/lib/Net/IMAP/Server/Command/Fetch.pm
==============================================================================
--- Net-Server-IMAP/lib/Net/IMAP/Server/Command/Fetch.pm (original)
+++ Net-Server-IMAP/lib/Net/IMAP/Server/Command/Fetch.pm Tue Nov 20 17:06:31 2007
@@ -1,9 +1,9 @@
-package Net::Server::IMAP::Command::Fetch;
+package Net::IMAP::Server::Command::Fetch;
use warnings;
use strict;
-use base qw/Net::Server::IMAP::Command/;
+use base qw/Net::IMAP::Server::Command/;
sub validate {
my $self = shift;
Modified: Net-Server-IMAP/lib/Net/IMAP/Server/Command/List.pm
==============================================================================
--- Net-Server-IMAP/lib/Net/IMAP/Server/Command/List.pm (original)
+++ Net-Server-IMAP/lib/Net/IMAP/Server/Command/List.pm Tue Nov 20 17:06:31 2007
@@ -1,9 +1,9 @@
-package Net::Server::IMAP::Command::List;
+package Net::IMAP::Server::Command::List;
use warnings;
use strict;
-use base qw/Net::Server::IMAP::Command/;
+use base qw/Net::IMAP::Server::Command/;
sub validate {
my $self = shift;
Modified: Net-Server-IMAP/lib/Net/IMAP/Server/Command/Login.pm
==============================================================================
--- Net-Server-IMAP/lib/Net/IMAP/Server/Command/Login.pm (original)
+++ Net-Server-IMAP/lib/Net/IMAP/Server/Command/Login.pm Tue Nov 20 17:06:31 2007
@@ -1,9 +1,9 @@
-package Net::Server::IMAP::Command::Login;
+package Net::IMAP::Server::Command::Login;
use warnings;
use strict;
-use base qw/Net::Server::IMAP::Command/;
+use base qw/Net::IMAP::Server::Command/;
sub validate {
my $self = shift;
Modified: Net-Server-IMAP/lib/Net/IMAP/Server/Command/Logout.pm
==============================================================================
--- Net-Server-IMAP/lib/Net/IMAP/Server/Command/Logout.pm (original)
+++ Net-Server-IMAP/lib/Net/IMAP/Server/Command/Logout.pm Tue Nov 20 17:06:31 2007
@@ -1,9 +1,9 @@
-package Net::Server::IMAP::Command::Logout;
+package Net::IMAP::Server::Command::Logout;
use warnings;
use strict;
-use base qw/Net::Server::IMAP::Command/;
+use base qw/Net::IMAP::Server::Command/;
sub validate {
my $self = shift;
Modified: Net-Server-IMAP/lib/Net/IMAP/Server/Command/Lsub.pm
==============================================================================
--- Net-Server-IMAP/lib/Net/IMAP/Server/Command/Lsub.pm (original)
+++ Net-Server-IMAP/lib/Net/IMAP/Server/Command/Lsub.pm Tue Nov 20 17:06:31 2007
@@ -1,9 +1,9 @@
-package Net::Server::IMAP::Command::Lsub;
+package Net::IMAP::Server::Command::Lsub;
use warnings;
use strict;
-use base qw/Net::Server::IMAP::Command::List/;
+use base qw/Net::IMAP::Server::Command::List/;
sub traverse {
my $self = shift;
Modified: Net-Server-IMAP/lib/Net/IMAP/Server/Command/Noop.pm
==============================================================================
--- Net-Server-IMAP/lib/Net/IMAP/Server/Command/Noop.pm (original)
+++ Net-Server-IMAP/lib/Net/IMAP/Server/Command/Noop.pm Tue Nov 20 17:06:31 2007
@@ -1,9 +1,9 @@
-package Net::Server::IMAP::Command::Noop;
+package Net::IMAP::Server::Command::Noop;
use warnings;
use strict;
-use base qw/Net::Server::IMAP::Command/;
+use base qw/Net::IMAP::Server::Command/;
sub validate {
my $self = shift;
Modified: Net-Server-IMAP/lib/Net/IMAP/Server/Command/Rename.pm
==============================================================================
--- Net-Server-IMAP/lib/Net/IMAP/Server/Command/Rename.pm (original)
+++ Net-Server-IMAP/lib/Net/IMAP/Server/Command/Rename.pm Tue Nov 20 17:06:31 2007
@@ -1,9 +1,9 @@
-package Net::Server::IMAP::Command::Rename;
+package Net::IMAP::Server::Command::Rename;
use warnings;
use strict;
-use base qw/Net::Server::IMAP::Command/;
+use base qw/Net::IMAP::Server::Command/;
sub validate {
my $self = shift;
Modified: Net-Server-IMAP/lib/Net/IMAP/Server/Command/Search.pm
==============================================================================
--- Net-Server-IMAP/lib/Net/IMAP/Server/Command/Search.pm (original)
+++ Net-Server-IMAP/lib/Net/IMAP/Server/Command/Search.pm Tue Nov 20 17:06:31 2007
@@ -1,10 +1,10 @@
-package Net::Server::IMAP::Command::Search;
+package Net::IMAP::Server::Command::Search;
use warnings;
use strict;
use bytes;
-use base qw/Net::Server::IMAP::Command/;
+use base qw/Net::IMAP::Server::Command/;
sub validate {
my $self = shift;
Modified: Net-Server-IMAP/lib/Net/IMAP/Server/Command/Select.pm
==============================================================================
--- Net-Server-IMAP/lib/Net/IMAP/Server/Command/Select.pm (original)
+++ Net-Server-IMAP/lib/Net/IMAP/Server/Command/Select.pm Tue Nov 20 17:06:31 2007
@@ -1,9 +1,9 @@
-package Net::Server::IMAP::Command::Select;
+package Net::IMAP::Server::Command::Select;
use warnings;
use strict;
-use base qw/Net::Server::IMAP::Command/;
+use base qw/Net::IMAP::Server::Command/;
sub validate {
my $self = shift;
Modified: Net-Server-IMAP/lib/Net/IMAP/Server/Command/Starttls.pm
==============================================================================
--- Net-Server-IMAP/lib/Net/IMAP/Server/Command/Starttls.pm (original)
+++ Net-Server-IMAP/lib/Net/IMAP/Server/Command/Starttls.pm Tue Nov 20 17:06:31 2007
@@ -1,9 +1,9 @@
-package Net::Server::IMAP::Command::Starttls;
+package Net::IMAP::Server::Command::Starttls;
use warnings;
use strict;
-use base qw/Net::Server::IMAP::Command/;
+use base qw/Net::IMAP::Server::Command/;
use IO::Socket::SSL;
Modified: Net-Server-IMAP/lib/Net/IMAP/Server/Command/Status.pm
==============================================================================
--- Net-Server-IMAP/lib/Net/IMAP/Server/Command/Status.pm (original)
+++ Net-Server-IMAP/lib/Net/IMAP/Server/Command/Status.pm Tue Nov 20 17:06:31 2007
@@ -1,9 +1,9 @@
-package Net::Server::IMAP::Command::Status;
+package Net::IMAP::Server::Command::Status;
use warnings;
use strict;
-use base qw/Net::Server::IMAP::Command/;
+use base qw/Net::IMAP::Server::Command/;
sub validate {
my $self = shift;
Modified: Net-Server-IMAP/lib/Net/IMAP/Server/Command/Store.pm
==============================================================================
--- Net-Server-IMAP/lib/Net/IMAP/Server/Command/Store.pm (original)
+++ Net-Server-IMAP/lib/Net/IMAP/Server/Command/Store.pm Tue Nov 20 17:06:31 2007
@@ -1,9 +1,9 @@
-package Net::Server::IMAP::Command::Store;
+package Net::IMAP::Server::Command::Store;
use warnings;
use strict;
-use base qw/Net::Server::IMAP::Command/;
+use base qw/Net::IMAP::Server::Command/;
sub validate {
my $self = shift;
Modified: Net-Server-IMAP/lib/Net/IMAP/Server/Command/Subscribe.pm
==============================================================================
--- Net-Server-IMAP/lib/Net/IMAP/Server/Command/Subscribe.pm (original)
+++ Net-Server-IMAP/lib/Net/IMAP/Server/Command/Subscribe.pm Tue Nov 20 17:06:31 2007
@@ -1,9 +1,9 @@
-package Net::Server::IMAP::Command::Subscribe;
+package Net::IMAP::Server::Command::Subscribe;
use warnings;
use strict;
-use base qw/Net::Server::IMAP::Command/;
+use base qw/Net::IMAP::Server::Command/;
sub validate {
my $self = shift;
Modified: Net-Server-IMAP/lib/Net/IMAP/Server/Command/Uid.pm
==============================================================================
--- Net-Server-IMAP/lib/Net/IMAP/Server/Command/Uid.pm (original)
+++ Net-Server-IMAP/lib/Net/IMAP/Server/Command/Uid.pm Tue Nov 20 17:06:31 2007
@@ -1,10 +1,10 @@
-package Net::Server::IMAP::Command::Uid;
+package Net::IMAP::Server::Command::Uid;
use warnings;
use strict;
-use base qw/Net::Server::IMAP::Command/;
-use Net::Server::IMAP::Command::Search;
+use base qw/Net::IMAP::Server::Command/;
+use Net::IMAP::Server::Command::Search;
sub validate {
my $self = shift;
@@ -120,7 +120,7 @@
sub search {
my $self = shift;
- my $filter = Net::Server::IMAP::Command::Search::filter($self, @_);
+ my $filter = Net::IMAP::Server::Command::Search::filter($self, @_);
return unless $filter;
my @results = map {$_->uid} grep {$filter->($_)} $self->connection->get_messages('1:*');
Modified: Net-Server-IMAP/lib/Net/IMAP/Server/Command/Unsubscribe.pm
==============================================================================
--- Net-Server-IMAP/lib/Net/IMAP/Server/Command/Unsubscribe.pm (original)
+++ Net-Server-IMAP/lib/Net/IMAP/Server/Command/Unsubscribe.pm Tue Nov 20 17:06:31 2007
@@ -1,9 +1,9 @@
-package Net::Server::IMAP::Command::Unsubscribe;
+package Net::IMAP::Server::Command::Unsubscribe;
use warnings;
use strict;
-use base qw/Net::Server::IMAP::Command/;
+use base qw/Net::IMAP::Server::Command/;
sub validate {
my $self = shift;
Modified: Net-Server-IMAP/lib/Net/IMAP/Server/Connection.pm
==============================================================================
--- Net-Server-IMAP/lib/Net/IMAP/Server/Connection.pm (original)
+++ Net-Server-IMAP/lib/Net/IMAP/Server/Connection.pm Tue Nov 20 17:06:31 2007
@@ -1,11 +1,11 @@
-package Net::Server::IMAP::Connection;
+package Net::IMAP::Server::Connection;
use warnings;
use strict;
use base 'Class::Accessor';
-use Net::Server::IMAP::Command;
+use Net::IMAP::Server::Command;
__PACKAGE__->mk_accessors(qw(server io_handle _selected selected_read_only model pending temporary_messages temporary_sequence_map previous_exists untagged_expunge untagged_fetch ignore_flags));
@@ -52,10 +52,10 @@
my ( $id, $cmd, $options ) = $self->parse_command($content);
return unless defined $id;
- my $cmd_class = "Net::Server::IMAP::Command::$cmd";
+ my $cmd_class = "Net::IMAP::Server::Command::$cmd";
$cmd_class->require() || warn $@;
unless ( $cmd_class->can('run') ) {
- $cmd_class = "Net::Server::IMAP::Command";
+ $cmd_class = "Net::IMAP::Server::Command";
}
my $handler = $cmd_class->new(
{ server => $self->server,
@@ -163,7 +163,7 @@
{
# When we poll, the things that we find should affect this
# connection as well; hence, the local to be "connection-less"
- local $Net::Server::IMAP::Server->{connection};
+ local $Net::IMAP::Server::Server->{connection};
$self->selected->poll;
}
@@ -171,7 +171,7 @@
my($m) = $self->get_messages($s);
$self->untagged_response( $s
. " FETCH "
- . Net::Server::IMAP::Command->data_out( [ $m->fetch([keys %{$self->untagged_fetch->{$s}}]) ] ) );
+ . Net::IMAP::Server::Command->data_out( [ $m->fetch([keys %{$self->untagged_fetch->{$s}}]) ] ) );
}
$self->untagged_fetch({});
Modified: Net-Server-IMAP/lib/Net/IMAP/Server/DefaultAuth.pm
==============================================================================
--- Net-Server-IMAP/lib/Net/IMAP/Server/DefaultAuth.pm (original)
+++ Net-Server-IMAP/lib/Net/IMAP/Server/DefaultAuth.pm Tue Nov 20 17:06:31 2007
@@ -1,4 +1,4 @@
-package Net::Server::IMAP::DefaultAuth;
+package Net::IMAP::Server::DefaultAuth;
use warnings;
use strict;
Modified: Net-Server-IMAP/lib/Net/IMAP/Server/DefaultModel.pm
==============================================================================
--- Net-Server-IMAP/lib/Net/IMAP/Server/DefaultModel.pm (original)
+++ Net-Server-IMAP/lib/Net/IMAP/Server/DefaultModel.pm Tue Nov 20 17:06:31 2007
@@ -1,4 +1,4 @@
-package Net::Server::IMAP::DefaultModel;
+package Net::IMAP::Server::DefaultModel;
use warnings;
use strict;
@@ -57,7 +57,7 @@
sub mailbox {
my $self = shift;
- return Net::Server::IMAP::Mailbox->new( { model => $self, @_ } );
+ return Net::IMAP::Server::Mailbox->new( { model => $self, @_ } );
}
1;
Modified: Net-Server-IMAP/lib/Net/IMAP/Server/Mailbox.pm
==============================================================================
--- Net-Server-IMAP/lib/Net/IMAP/Server/Mailbox.pm (original)
+++ Net-Server-IMAP/lib/Net/IMAP/Server/Mailbox.pm Tue Nov 20 17:06:31 2007
@@ -1,9 +1,9 @@
-package Net::Server::IMAP::Mailbox;
+package Net::IMAP::Server::Mailbox;
use warnings;
use strict;
-use Net::Server::IMAP::Message;
+use Net::IMAP::Server::Message;
use base 'Class::Accessor';
__PACKAGE__->mk_accessors(
@@ -53,8 +53,8 @@
sub selected {
my $self = shift;
- return $Net::Server::IMAP::Server->connection->selected
- and $Net::Server::IMAP::Server->connection->selected eq $self;
+ return $Net::IMAP::Server::Server->connection->selected
+ and $Net::IMAP::Server::Server->connection->selected eq $self;
}
sub add_message {
@@ -77,7 +77,7 @@
# Also need to add it to anyone that has this folder as a
# temporary message store
- for my $c (Net::Server::IMAP->concurrent_mailbox_connections($self)) {
+ for my $c (Net::IMAP::Server->concurrent_mailbox_connections($self)) {
next unless $c->temporary_messages;
push @{$c->temporary_messages}, $message;
@@ -166,7 +166,7 @@
sub exists {
my $self = shift;
- $Net::Server::IMAP::Server->connection->previous_exists( scalar @{ $self->messages } )
+ $Net::IMAP::Server::Server->connection->previous_exists( scalar @{ $self->messages } )
if $self->selected;
return scalar @{ $self->messages };
}
@@ -201,10 +201,10 @@
my $offset = 0;
my @messages = @{ $self->messages };
$self->messages( [ grep { not ( $_->has_flag('\Deleted') and (not $only or $only{$_->sequence}))} @messages ] );
- for my $c (Net::Server::IMAP->concurrent_mailbox_connections($self)) {
+ for my $c (Net::IMAP::Server->concurrent_mailbox_connections($self)) {
# Ensure that all other connections with this selected get a
# temporary message list, if they don't already have one
- unless (($Net::Server::IMAP::Server->connection and $c eq $Net::Server::IMAP::Server->connection)
+ unless (($Net::IMAP::Server::Server->connection and $c eq $Net::IMAP::Server::Server->connection)
or $c->temporary_messages) {
$c->temporary_messages([@messages]);
$c->temporary_sequence_map({});
@@ -223,7 +223,7 @@
}
}
- for my $c (Net::Server::IMAP->concurrent_mailbox_connections($self)) {
+ for my $c (Net::IMAP::Server->concurrent_mailbox_connections($self)) {
# Also, each connection gets these added to their expunge list
push @{$c->untagged_expunge}, @ids;
}
@@ -231,7 +231,7 @@
sub append {
my $self = shift;
- my $m = Net::Server::IMAP::Message->new(@_);
+ my $m = Net::IMAP::Server::Message->new(@_);
$m->set_flag('\Recent', 1);
$self->add_message($m);
return $m;
@@ -258,7 +258,7 @@
my $self = shift;
my $message = shift || "";
- return Net::Server::IMAP::Message->new($message);
+ return Net::IMAP::Server::Message->new($message);
}
1;
Modified: Net-Server-IMAP/lib/Net/IMAP/Server/Message.pm
==============================================================================
--- Net-Server-IMAP/lib/Net/IMAP/Server/Message.pm (original)
+++ Net-Server-IMAP/lib/Net/IMAP/Server/Message.pm Tue Nov 20 17:06:31 2007
@@ -1,4 +1,4 @@
-package Net::Server::IMAP::Message;
+package Net::IMAP::Server::Message;
use warnings;
use strict;
@@ -67,7 +67,7 @@
my $changed = not $old;
if ($changed and not @_) {
- for my $c (Net::Server::IMAP->concurrent_mailbox_connections($self->mailbox)) {
+ for my $c (Net::IMAP::Server->concurrent_mailbox_connections($self->mailbox)) {
$c->untagged_fetch->{$c->sequence($self)}{FLAGS}++ unless $c->ignore_flags;
}
}
@@ -84,7 +84,7 @@
my $changed = $old;
if ($changed and not @_) {
- for my $c (Net::Server::IMAP->concurrent_mailbox_connections($self->mailbox)) {
+ for my $c (Net::IMAP::Server->concurrent_mailbox_connections($self->mailbox)) {
$c->untagged_fetch->{$c->sequence($self)}{FLAGS}++ unless $c->ignore_flags;
}
}
@@ -230,7 +230,7 @@
my @parts = $mime->parts;
@parts = () if @parts == 1 and $parts[0] == $mime;
my $parts = join '', map {
- Net::Server::IMAP::Command->data_out( $self->mime_bodystructure( $_, $long ) )
+ Net::IMAP::Server::Command->data_out( $self->mime_bodystructure( $_, $long ) )
} @parts;
return [
Modified: Net-Server-IMAP/t/00.load.t
==============================================================================
--- Net-Server-IMAP/t/00.load.t (original)
+++ Net-Server-IMAP/t/00.load.t Tue Nov 20 17:06:31 2007
@@ -1,7 +1,7 @@
use Test::More tests => 1;
BEGIN {
-use_ok( 'Net::Server::IMAP' );
+use_ok( 'Net::IMAP::Server' );
}
-diag( "Testing Net::Server::IMAP $Net::Server::IMAP::VERSION" );
+diag( "Testing Net::IMAP::Server $Net::IMAP::Server::VERSION" );
More information about the Bps-public-commit
mailing list