smtp-cli — command line SMTP client

20th September 2007 at 15:58

Fix work with ssmtp(port 465)

Before:
$smtp-client.pl --port=465 -host=localhost --from=spam@rm-rf.kiev.ua --to=spam@rm-rf.kiev.ua --data=/etc/group --verbose=2
^C

After:
$smtp-client.pl --port=465 -host=localhost --from=spam@rm-rf.kiev.ua --to=spam@rm-rf.kiev.ua --data=/etc/group --verbose=2
Starting SSMTP...
Using cipher: AES256-SHA
Subject Name: /C=US/ST=Berkshire/L=Newbury/O=Magic, Inc/OU=Unknown/CN=localhost/emailAddress=spam@rm-rf.kiev.ua
Issuer Name: /C=US/ST=Berkshire/L=Newbury/O=Magic, Inc/OU=Unknown/CN=localhost/emailAddress=spam@rm-rf.kiev.ua
[220] 'localhost ESMTP Exim 4.58'
> EHLO localhost
[250] 'localhost Hello localhost [127.0.0.1]'
[250] 'SIZE 20971520'
[250] '8BITMIME'
[250] 'PIPELINING'
[250] 'AUTH PLAIN LOGIN'
[250] 'HELP'
> MAIL FROM:
[250] 'OK'
> RCPT TO:
[250] 'Accepted'
> DATA
[354] 'Enter message, ending with "." on a line by itself'
[250] 'OK id=1IYMMq-000MLG-C2'
> QUIT
[221] 'localhost closing connection'

patch:
Index: smtp-client.pl
@@ -110,12 +110,18 @@
my (%features);

# Wait for the welcome message of the server.
-($code, $text) = &get_line ($sock);
-die ("Unknown welcome string: '$code $text'\n") if ($code != 220);
-$ehlo_ok-- if ($text !~ /ESMTP/);
+if ($port != 465)
+{
+ ($code, $text) = &get_line ($sock);
+ die ("Unknown welcome string: '$code $text'\n") if ($code != 220);
+ $ehlo_ok-- if ($text !~ /ESMTP/);
+};

# Send EHLO
-&say_hello ($sock, $ehlo_ok, $hello_host, \%features) or exit (1);
+if ($port != 465)
+{
+ &say_hello ($sock, $ehlo_ok, $hello_host, \%features) or exit (1);
+};

# Run the SMTP session
&run_smtp ();
@@ -131,18 +137,22 @@
sub run_smtp
{
# See if we could start encryption
- if ((defined ($features{'STARTTLS'}) || defined ($features{'TLS'})) && $starttls_ok)
+ if ((defined ($features{'STARTTLS'}) || defined ($features{'TLS'}) || $port == 465 ) && $starttl
{
- printf ("Starting TLS...\n") if ($verbose >= 1);
+ printf ("Starting TLS...\n") if ($verbose >= 1 && $port != 465);
+ printf ("Starting SSMTP...\n") if ($verbose >= 1 && $port == 465);

# Do Net::SSLeay initialization
Net::SSLeay::load_error_strings();
Net::SSLeay::SSLeay_add_ssl_algorithms();
Net::SSLeay::randomize();

- &send_line ($sock, "STARTTLS\n");
- ($code, $text) = &get_line ($sock);
- die ("Unknown STARTTLS response '$code'.\n") if ($code != 220);
+ if ($port != 465)
+ {
+ &send_line ($sock, "STARTTLS\n");
+ ($code, $text) = &get_line ($sock);
+ die ("Unknown STARTTLS response '$code'.\n") if ($code != 220);
+ };

if (! IO::Socket::SSL::socket_to_SSL($sock,
SSL_version => 'SSLv3 TLSv1'))
@@ -156,6 +166,14 @@
printf ("%s", $sock->dump_peer_certificate());
}

+ # Wait for the welcome message of the server (for sstmp).
+ if ($port == 465)
+ {
+ ($code, $text, $more) = &get_line ($sock);
+ die ("Unknown welcome string: '$code $text'\n") if ($code != 220);
+ $ehlo_ok-- if ($text !~ /ESMTP/);
+ };
+
# Send EHLO again (required by the SMTP standard).
&say_hello ($sock, $ehlo_ok, $hello_host, \%features) or return 0;
}

smtp-cli — command line SMTP client

Donations