Changeset 726 for trunk/PostOffice

Timestamp:

06/13/08 00:30:06 (18 months ago)

Author:

bchoate

Message:

Support for IMAP w/SSL (requires IO::Socket::SSL).

Location:

trunk/PostOffice/plugins/PostOffice/lib

Files:

• PostOffice.pm (modified) (1 diff)
• PostOffice/Transport/IMAP.pm (modified) (1 diff)

trunk/PostOffice/plugins/PostOffice/lib/PostOffice.pm

@@ -197 +197 @@
 
     # Get Addresses out of plugindata
-    my @addresses = split( ',', lc( $cfg->{allowed_emails} || '' ) );
+    my @addresses = split( /\s*,\s*/, lc( $cfg->{allowed_emails} || '' ) );
     my %addresses;
-    @addresses{@addresses} = 1 if @addresses;
+    $addresses{$_} = 1 for @addresses;
 
     require MT::Permission;

trunk/PostOffice/plugins/PostOffice/lib/PostOffice/Transport/IMAP.pm

@@ -8 +8 @@
     my (%param) = @_;
 
+    my $socket;
+    if ($param{ssl}) {
+        require IO::Socket::SSL;
+        $socket = IO::Socket::SSL->new(
+            Proto    => 'tcp',
+            PeerAddr => $param{host},
+            PeerPort => 993, # IMAP over SSL standard port
+        );
+    }
+
     require Mail::IMAPClient;
     $obj->{client} = new Mail::IMAPClient(
-        Server   => $param{host},
         User     => $param{username},
         Password => $param{password},
+        ($socket ? ( Socket => $socket ) : ( Server => $param{host} )),
     ) or die "Failed to connect: " . $@;