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