r1023 - in packages/libnet-imap-simple-ssl-perl/branches/upstream/current: . lib/Net/IMAP/Simple

[Gunnar Wolf]

Author: gwolf
Date: 2005-05-17 16:00:52 +0000 (Tue, 17 May 2005)
New Revision: 1023

Modified:
   packages/libnet-imap-simple-ssl-perl/branches/upstream/current/Changes
   packages/libnet-imap-simple-ssl-perl/branches/upstream/current/META.yml
   packages/libnet-imap-simple-ssl-perl/branches/upstream/current/Makefile.PL
   packages/libnet-imap-simple-ssl-perl/branches/upstream/current/README
   packages/libnet-imap-simple-ssl-perl/branches/upstream/current/lib/Net/IMAP/Simple/SSL.pm
Log:
Load /tmp/tmp.u9eGqd/libnet-imap-simple-ssl-perl-1.3 into
packages/libnet-imap-simple-ssl-perl/branches/upstream/current.


Modified: packages/libnet-imap-simple-ssl-perl/branches/upstream/current/Changes
===================================================================
--- packages/libnet-imap-simple-ssl-perl/branches/upstream/current/Changes	2005-05-16 17:25:54 UTC (rev 1022)
+++ packages/libnet-imap-simple-ssl-perl/branches/upstream/current/Changes	2005-05-17 16:00:52 UTC (rev 1023)
@@ -1,8 +1,14 @@
-1.1    2004-05-18
+1.3    2004-06-29
 
-  - Initial version.
+  - Allow the connection port to be specified (Matt Bradford).
+  - Changed the internals to reflect Net::IMAP::Simple's 0.95 internals
+    (Casey West).
 
 1.2    2004-05-18
 
   - Really dumb Makefile.PL typo that broke the dist name.
   - Removed extra warning from new() if no connection could be made.
+
+1.1    2004-05-18
+
+  - Initial version.

Modified: packages/libnet-imap-simple-ssl-perl/branches/upstream/current/META.yml
===================================================================
--- packages/libnet-imap-simple-ssl-perl/branches/upstream/current/META.yml	2005-05-16 17:25:54 UTC (rev 1022)
+++ packages/libnet-imap-simple-ssl-perl/branches/upstream/current/META.yml	2005-05-17 16:00:52 UTC (rev 1023)
@@ -1,12 +1,12 @@
 # http://module-build.sourceforge.net/META-spec.html
 #XXXXXXX This is a prototype!!!  It will change in the future!!! XXXXX#
 name:         Net-IMAP-Simple-SSL
-version:      1.2
+version:      1.3
 version_from: lib/Net/IMAP/Simple/SSL.pm
 installdirs:  site
 requires:
     IO::Socket::SSL:               
-    Net::IMAP::Simple:             
+    Net::IMAP::Simple:             0.95
     Test::More:                    
 
 distribution_type: module

Modified: packages/libnet-imap-simple-ssl-perl/branches/upstream/current/Makefile.PL
===================================================================
--- packages/libnet-imap-simple-ssl-perl/branches/upstream/current/Makefile.PL	2005-05-16 17:25:54 UTC (rev 1022)
+++ packages/libnet-imap-simple-ssl-perl/branches/upstream/current/Makefile.PL	2005-05-17 16:00:52 UTC (rev 1023)
@@ -2,12 +2,12 @@
 
 WriteMakefile (
                AUTHOR        => 'Casey West <casey@geeknest.com>',
-               ABSTRACT      => "Connect to IMAPS",
+               ABSTRACT      => "SSL support for Net::IMAP::Simple",
                NAME          => 'Net::IMAP::Simple::SSL',
                PREREQ_PM     => {
                                  'Test::More' => '',
                                  'IO::Socket::SSL' => '',
-                                 'Net::IMAP::Simple' => '',
+                                 'Net::IMAP::Simple' => '0.95',
                                 },
                VERSION_FROM  => 'lib/Net/IMAP/Simple/SSL.pm',
               );

Modified: packages/libnet-imap-simple-ssl-perl/branches/upstream/current/README
===================================================================
--- packages/libnet-imap-simple-ssl-perl/branches/upstream/current/README	2005-05-16 17:25:54 UTC (rev 1022)
+++ packages/libnet-imap-simple-ssl-perl/branches/upstream/current/README	2005-05-17 16:00:52 UTC (rev 1023)
@@ -1,5 +1,5 @@
 NAME
-    Net::IMAP::Simple::SSL - Subclass of Net::IMAP::Simple with SSL support
+    Net::IMAP::Simple::SSL - SSL support for Net::IMAP::Simple
 
 SYNOPSIS
       use Net::IMAP::Simple::SSL;

Modified: packages/libnet-imap-simple-ssl-perl/branches/upstream/current/lib/Net/IMAP/Simple/SSL.pm
===================================================================
--- packages/libnet-imap-simple-ssl-perl/branches/upstream/current/lib/Net/IMAP/Simple/SSL.pm	2005-05-16 17:25:54 UTC (rev 1022)
+++ packages/libnet-imap-simple-ssl-perl/branches/upstream/current/lib/Net/IMAP/Simple/SSL.pm	2005-05-17 16:00:52 UTC (rev 1023)
@@ -1,38 +1,23 @@
 package Net::IMAP::Simple::SSL;
-# $Id: SSL.pm,v 1.2 2004/05/18 16:49:49 cwest Exp $
+# $Id: SSL.pm,v 1.3 2004/06/29 11:52:38 cwest Exp $
 use strict;
 
 use vars qw[$VERSION];
-$VERSION = (qw$Revision: 1.2 $)[1];
+$VERSION = (qw$Revision: 1.3 $)[1];
 
 use IO::Socket::SSL;
 use base qw[Net::IMAP::Simple];
 
-sub new {
-    my ( $class, $server, %options ) = @_;
-    my ( $self );
+sub _port         { 993               }
+sub _sock_from    { 'IO::Socket::SSL' }
 
-    if ( ref( $class ) ) {
-        $class = ref( $class );
-    }
-
-    $self = { %options };
-    $self->{count} = 0;
-    $self->{sock} = new IO::Socket::SSL( "$server:993" )
-        or return;
-    $self->{sock}->getline();
-
-    bless $self, $class;
-    return $self;
-}
-
 1;
 
 __END__
 
 =head1 NAME
 
-Net::IMAP::Simple::SSL - Subclass of Net::IMAP::Simple with SSL support
+Net::IMAP::Simple::SSL - SSL support for Net::IMAP::Simple
 
 =head1 SYNOPSIS