r1023 - in packages/libnet-imap-simple-ssl-perl/branches/upstream/current: . lib/Net/IMAP/Simple
Gunnar Wolf
gwolf@costa.debian.org
Tue, 17 May 2005 16:00:53 +0000
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