pop3s support - rough patch
Jim Cromie <[email protected]> Tue, 08 Nov 2005 12:29:46 -0700
| Newsgroups | gmane.comp.lang.perl.modules.mail-box |
|---|---|
| Message-ID | <[email protected]> |
gents, after a 1 word 'ssl' search on the archives, I concluded that pop3s wasnt started yet. so I started it. Whats attached sort of works, it gives the following progress: $ perl mail-handler.pl ... CA file certs/my-ca.pem not found, using CA path instead. got `+OK Gpop e1pf1946195nzd ready. ' (32:0 bytes, VM=vm_unknown) got `+OK send PASS ' (15:0 bytes, VM=vm_unknown) got `+OK Welcome. ' (14:0 bytes, VM=vm_unknown) got `+OK 0 0 ' (9:0 bytes, VM=vm_unknown) got `+OK ' (5:0 bytes, VM=vm_unknown) got `. ' (3:0 bytes, VM=vm_unknown) got `+OK ' (5:0 bytes, VM=vm_unknown) got `+OK ' (5:0 bytes, VM=vm_unknown) MBOX: pop3s://[email protected]:995 0all ok got `+OK ' (5:0 bytes, VM=vm_unknown) got `+OK Farewell. ' (15:0 bytes, VM=vm_unknown) For some reason that I cant yet fathom, its not seeing the 3 messages that are in the inbox, so the standard chunk does nothing: foreach my $msg ($folder->messages) { $msg->copyTo($outbox); } WRT the patch itself, I copied POP3.pm --> POP3s.pm for both Mail/Box and Mail/Transport then modified the minimum needed bits. Each also use base to extend their inheritance, so later can purge the many methods that are exact duplicates (once we *know* no customization is needed) In making the diff, I also cheated and symlinked the 's' versions so the POP3s - this shows only the changes to the copied files, but wont apply clean w/o a bit of prep. If you all help me get it working, Ill happily clean it up and submit it for inclusion. tia jimc