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

[alexmv at bestpractical.com]

Author: alexmv
Date: Mon Nov 17 17:26:34 2008
New Revision: 16880

Added:
   Net-IMAP-Server/lib/Net/IMAP/Server/Command/Namespace.pm
Modified:
   Net-IMAP-Server/   (props changed)
   Net-IMAP-Server/Changes
   Net-IMAP-Server/META.yml
   Net-IMAP-Server/SIGNATURE
   Net-IMAP-Server/lib/Net/IMAP/Server.pm
   Net-IMAP-Server/lib/Net/IMAP/Server/DefaultModel.pm

Log:
 r39191 at kohr-ah:  chmrr | 2008-11-17 17:08:41 -0500
  * Minimal NAMESPACE support
  * svn:ignore for release tarballs
  * 1.06 releng


Modified: Net-IMAP-Server/Changes
==============================================================================
--- Net-IMAP-Server/Changes	(original)
+++ Net-IMAP-Server/Changes	Mon Nov 17 17:26:34 2008
@@ -1,5 +1,8 @@
 Revision history for Net-IMAP-Server
 
+1.06   Mon Nov 17 17:06:52 2008
+        * Added NAMESPACE support
+
 1.05   Mon Oct 20 16:40:19 2008
         * Fixed spelling of 'separator' -- THIS BREAKS BACKWARDS
           COMPATIBILITY if you had overridden the 'seperator' method.

Modified: Net-IMAP-Server/META.yml
==============================================================================
--- Net-IMAP-Server/META.yml	(original)
+++ Net-IMAP-Server/META.yml	Mon Nov 17 17:26:34 2008
@@ -25,4 +25,4 @@
   Net::Server::Coro: 0.3
   Regexp::Common: 0
   Test::More: 0
-version: 1.05
+version: 1.06

Modified: Net-IMAP-Server/SIGNATURE
==============================================================================
--- Net-IMAP-Server/SIGNATURE	(original)
+++ Net-IMAP-Server/SIGNATURE	Mon Nov 17 17:26:34 2008
@@ -14,9 +14,9 @@
 -----BEGIN PGP SIGNED MESSAGE-----
 Hash: SHA1
 
-SHA1 04f9bc07d848378f9669de577a1e72445b099f1e Changes
+SHA1 64e6bdf06350584b5719b4ba1521b62b968e7e69 Changes
 SHA1 78245bf5055b3e7965e1632b17b25f6cf8cb9963 MANIFEST
-SHA1 0ca62fd64162c01583a1dda50b1bfb34b8e5cf77 META.yml
+SHA1 5aff6d8645902311120089d4ca39206805cecb81 META.yml
 SHA1 ac8dc2041d86b0d5fb25756b3c7421ff62e7bc79 Makefile.PL
 SHA1 f4c6e4793fd7815aec4abfcd69018d8f34d832a8 README
 SHA1 f5333026061a6f347e7f2a3ce8bb6847081c200c certs/server-cert.pem
@@ -30,7 +30,7 @@
 SHA1 7d3be9b158e37b2b2c22084740099955623b1d56 inc/Module/Install/Metadata.pm
 SHA1 0a8b66180229ba2f9deaea1fedd0aacf7a7ace6b inc/Module/Install/Win32.pm
 SHA1 d3352eb33fe43a5f3ead513f645224fe34d73bc9 inc/Module/Install/WriteAll.pm
-SHA1 cdcc0a4132854bc54572618459c3c334bae91b89 lib/Net/IMAP/Server.pm
+SHA1 e32c18667c44cbf22b7f93c6edb4905469164450 lib/Net/IMAP/Server.pm
 SHA1 a9b20e80cfe76e9fed6b3703818306950669a839 lib/Net/IMAP/Server/Command.pm
 SHA1 636e390f8f44ee6c51321220a44c20ceba08b44d lib/Net/IMAP/Server/Command/Append.pm
 SHA1 5c203d47099444ceb8ce9e8927353d91ba0545cd lib/Net/IMAP/Server/Command/Authenticate.pm
@@ -60,7 +60,7 @@
 SHA1 4591be8d501ea8877f3b4d4418620cce094256ab lib/Net/IMAP/Server/Command/Unsubscribe.pm
 SHA1 69b160ff78baf6be4296e0f0c593930c41765b02 lib/Net/IMAP/Server/Connection.pm
 SHA1 6179dda2e20152bb00193b5490c58137fb0a2465 lib/Net/IMAP/Server/DefaultAuth.pm
-SHA1 bc42ff267fc0544228e1a7097008476cd6e6831e lib/Net/IMAP/Server/DefaultModel.pm
+SHA1 64a9c3c244776c4103891f7de908c1f3457e2c2c lib/Net/IMAP/Server/DefaultModel.pm
 SHA1 1ecad572e0aa33e592a7b30cdef96cf2e25f3b5f lib/Net/IMAP/Server/Mailbox.pm
 SHA1 28abf48bfb787289cafcb5781ef4dbdbadbdb1af lib/Net/IMAP/Server/Message.pm
 SHA1 2e67e318edc490da7367ebcc789d35d0810e00e6 t/00.load.t
@@ -69,7 +69,7 @@
 -----BEGIN PGP SIGNATURE-----
 Version: GnuPG v2.0.9 (GNU/Linux)
 
-iEYEARECAAYFAkj87RwACgkQMflWJZZAbqBBIwCdFw2VjVlC8H/wiAcV/ztyvioI
-xaoAoK5YpWt6Ai/BZEQOpHaLgk+tm1W2
-=g+1m
+iEYEARECAAYFAkkh6ywACgkQMflWJZZAbqAqgQCeK6AItCchFg26/HcTNhP0rnvy
+S3YAoK8soTy/5viHRozHH6P+Fex/yCMB
+=5J3a
 -----END PGP SIGNATURE-----

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	Mon Nov 17 17:26:34 2008
@@ -8,7 +8,7 @@
 use UNIVERSAL::require;
 use Coro;
 
-our $VERSION = '1.05';
+our $VERSION = '1.06';
 
 =head1 NAME
 
@@ -314,7 +314,7 @@
 
 sub capability {
     my $self = shift;
-    return "IMAP4rev1 STARTTLS CHILDREN LITERAL+ UIDPLUS ID";
+    return "IMAP4rev1 STARTTLS CHILDREN LITERAL+ UIDPLUS ID NAMESPACE";
 }
 
 =head2 id

Added: Net-IMAP-Server/lib/Net/IMAP/Server/Command/Namespace.pm
==============================================================================
--- (empty file)
+++ Net-IMAP-Server/lib/Net/IMAP/Server/Command/Namespace.pm	Mon Nov 17 17:26:34 2008
@@ -0,0 +1,33 @@
+package Net::IMAP::Server::Command::Namespace;
+
+use warnings;
+use strict;
+
+use base qw/Net::IMAP::Server::Command/;
+
+sub validate {
+    my $self = shift;
+
+    return $self->bad_command("Login first") if $self->connection->is_unauth;
+
+    my @options = $self->parsed_options;
+    return $self->bad_command("Too many options") if @options;
+
+    return 1;
+}
+
+sub run {
+    my $self = shift;
+
+    my @namespaces = $self->connection->model->namespaces;
+    @namespaces = map {
+        ref($_) eq "ARRAY"
+            ? "(" . join( "", map { $self->data_out($_) } @{$_} ) . ")"
+            : $self->data_out($_)
+    } @namespaces;
+    $self->untagged_response("NAMESPACE @namespaces");
+
+    $self->ok_completed();
+}
+
+1;

Modified: Net-IMAP-Server/lib/Net/IMAP/Server/DefaultModel.pm
==============================================================================
--- Net-IMAP-Server/lib/Net/IMAP/Server/DefaultModel.pm	(original)
+++ Net-IMAP-Server/lib/Net/IMAP/Server/DefaultModel.pm	Mon Nov 17 17:26:34 2008
@@ -126,4 +126,17 @@
     return $part;
 }
 
+=head2 namespaces
+
+Returns the namespaces of this model, per RFC 2343.  Defaults to
+"INBOX" being the personal namespace, with no "shared" or "other
+users" namespaces.
+
+=cut
+
+sub namespaces {
+    my $self = shift;
+    return ([["" => $self->root->separator]], undef, undef);
+}
+
 1;