e-smith-email/sme8/e-smith-email-5.2.0-StartTLS.patch

diff -ruN e-smith-email-5.2.0.old/root/usr/local/sbin/smtp-auth-proxy.pl e-smith-email-5.2.0/root/usr/local/sbin/smtp-auth-proxy.pl
--- e-smith-email-5.2.0.old/root/usr/local/sbin/smtp-auth-proxy.pl      2012-12-20 03:05:41.000000000 +0000
+++ e-smith-email-5.2.0/root/usr/local/sbin/smtp-auth-proxy.pl  2012-12-20 03:19:59.000000000 +0000
@@ -91,6 +91,27 @@
 
     my @ehlo = $smtp->message;
 
+    if (grep { /STARTTLS$/ } @ehlo)
+    {
+        $smtp->command('STARTTLS');
+        my $response = $smtp->response;
+        my $status = $smtp->message;
+        use IO::Socket::SSL;
+        my $sslret = IO::Socket::SSL->start_SSL(
+            $smtp,
+            Timeout            => 30,
+            SSL_startHandshake => 1
+        );
+        unless ($sslret) {
+        my $error = IO::Socket::SSL::errstr();
+            print("454 TLS not available due to temporary reason [$error]");
+        }
+    bless $smtp, 'Net::SMTP::SSL';
+    $smtp->reset;
+    $smtp->hello("${system_name}.${domain_name}");
+    @ehlo = $smtp->message;
+    }
+
     if ($smtp->supports("AUTH"))
     {
        foreach (split (/ /, $self->get_property('Blacklist')))
1	wellsi	1.1	diff -ruN e-smith-email-5.2.0.old/root/usr/local/sbin/smtp-auth-proxy.pl e-smith-email-5.2.0/root/usr/local/sbin/smtp-auth-proxy.pl
2			--- e-smith-email-5.2.0.old/root/usr/local/sbin/smtp-auth-proxy.pl 2012-12-20 03:05:41.000000000 +0000
3			+++ e-smith-email-5.2.0/root/usr/local/sbin/smtp-auth-proxy.pl 2012-12-20 03:19:59.000000000 +0000
4			@@ -91,6 +91,27 @@
5
6			my @ehlo = $smtp->message;
7
8			+ if (grep { /STARTTLS$/ } @ehlo)
9			+ {
10			+ $smtp->command('STARTTLS');
11			+ my $response = $smtp->response;
12			+ my $status = $smtp->message;
13			+ use IO::Socket::SSL;
14			+ my $sslret = IO::Socket::SSL->start_SSL(
15			+ $smtp,
16			+ Timeout => 30,
17			+ SSL_startHandshake => 1
18			+ );
19			+ unless ($sslret) {
20			+ my $error = IO::Socket::SSL::errstr();
21			+ print("454 TLS not available due to temporary reason [$error]");
22			+ }
23			+ bless $smtp, 'Net::SMTP::SSL';
24			+ $smtp->reset;
25			+ $smtp->hello("${system_name}.${domain_name}");
26			+ @ehlo = $smtp->message;
27			+ }
28			+
29			if ($smtp->supports("AUTH"))
30			{
31			foreach (split (/ /, $self->get_property('Blacklist')))