remove 5-year-old unmaintained module in favour of a fork whose
maintainer responds within hours ;) ok jasper@
This commit is contained in:
parent
d575d592e8
commit
bf4fd4a2c5
@ -1,20 +0,0 @@
|
||||
# $OpenBSD: Makefile,v 1.6 2012/06/30 21:27:53 sthen Exp $
|
||||
|
||||
COMMENT= Perl module for SMTP with TLS/AUTH support
|
||||
|
||||
MODULES= cpan
|
||||
DISTNAME= Net-SMTP-TLS-0.12
|
||||
REVISION= 2
|
||||
CATEGORIES= net mail
|
||||
|
||||
# perl
|
||||
PERMIT_PACKAGE_CDROM= Yes
|
||||
PERMIT_PACKAGE_FTP= Yes
|
||||
PERMIT_DISTFILES_CDROM= Yes
|
||||
PERMIT_DISTFILES_FTP= Yes
|
||||
|
||||
RUN_DEPENDS= security/p5-Digest-HMAC \
|
||||
security/p5-Net_SSLeay \
|
||||
security/p5-IO-Socket-SSL
|
||||
|
||||
.include <bsd.port.mk>
|
@ -1,5 +0,0 @@
|
||||
MD5 (Net-SMTP-TLS-0.12.tar.gz) = qEXro2cOVqGX7NN/Vx0VOg==
|
||||
RMD160 (Net-SMTP-TLS-0.12.tar.gz) = Db+FpoOpNxom9YbLgxWRiB5Gt8Q=
|
||||
SHA1 (Net-SMTP-TLS-0.12.tar.gz) = LSQfUNYe1s6y8GA5wJmj+1NLwMM=
|
||||
SHA256 (Net-SMTP-TLS-0.12.tar.gz) = 7+dyZnrDdwK5a221KXzIJ0J6Ozo4GbekMVsIudRE5KU=
|
||||
SIZE (Net-SMTP-TLS-0.12.tar.gz) = 5994
|
@ -1,48 +0,0 @@
|
||||
$OpenBSD: patch-lib_Net_SMTP_TLS_pm,v 1.2 2012/06/30 21:27:53 sthen Exp $
|
||||
|
||||
Add fixes from Net::SMTP::TLS::ButMaintained 0.18 and 0.19
|
||||
|
||||
--- lib/Net/SMTP/TLS.pm.orig Tue Jan 17 14:36:34 2006
|
||||
+++ lib/Net/SMTP/TLS.pm Sat Jun 30 19:45:08 2012
|
||||
@@ -115,10 +115,14 @@ sub new {
|
||||
|
||||
my $me = bless \%args, $pkg;
|
||||
# read the line immediately after connecting
|
||||
- my ($rsp,$txt) = $me->_response();
|
||||
+ my ( $rsp, $txt, $more ) = $me->_response();
|
||||
if(not $rsp == 220){
|
||||
croak "Could not connect to SMTP server: $host $txt\n";
|
||||
}
|
||||
+
|
||||
+ # empty the socket of any continuation lines
|
||||
+ while ( $more eq '-' ) { ( $rsp, $txt, $more ) = $me->_response(); }
|
||||
+
|
||||
$me->hello(); # the first hello, 2nd after starttls
|
||||
$me->starttls() if not $args{NoTLS}; # why we're here, after all
|
||||
$me->login() if($me->{User} and $me->{Password});
|
||||
@@ -179,7 +183,7 @@ sub starttls {
|
||||
croak "Invalid response for STARTTLS: $num $txt\n";
|
||||
}
|
||||
if(not IO::Socket::SSL::socket_to_SSL($me->{sock},
|
||||
- SSL_version => "SSLv3 TLSv1")){
|
||||
+ SSL_version => "TLSv1")){
|
||||
croak "Couldn't start TLS: ".IO::Socket::SSL::errstr."\n";
|
||||
}
|
||||
$me->hello();
|
||||
@@ -251,7 +255,7 @@ sub auth_PLAIN{
|
||||
my $me = shift;
|
||||
my $user= $me->{User};
|
||||
my $pass= $me->{Password};
|
||||
- $me->_command(sprintf("AUTH PLAIN %S",
|
||||
+ $me->_command(sprintf("AUTH PLAIN %s",
|
||||
encode_base64("$user\0$user\0$pass","")));
|
||||
my ($num,$txt) = $me->_response();
|
||||
if(not $num == 235){
|
||||
@@ -367,6 +371,7 @@ sub datasend {
|
||||
return undef;
|
||||
}
|
||||
$len -= $w;
|
||||
+ $offset += $w;
|
||||
}
|
||||
else
|
||||
{
|
@ -1,5 +0,0 @@
|
||||
Net::SMTP::TLS is a TLS and AUTH capable SMTP client which offers
|
||||
an interface that users will find familiar from Net::SMTP.
|
||||
Net::SMTP::TLS implements a subset of the methods provided by that
|
||||
module, but certainly not (yet) a complete mirror image of that
|
||||
API.
|
@ -1,5 +0,0 @@
|
||||
@comment $OpenBSD: PLIST,v 1.1.1.1 2009/11/05 13:23:59 sthen Exp $
|
||||
${P5SITE}/Net/
|
||||
${P5SITE}/Net/SMTP/
|
||||
${P5SITE}/Net/SMTP/TLS.pm
|
||||
@man man/man3p/Net::SMTP::TLS.3p
|
Loading…
Reference in New Issue
Block a user