Bug#664016: Patch for SSL

[Dennis Boone]

I've attached a patch which adds SSL support.  It depends on the module
Net::SSLeay::Handle, so I don't know if it's acceptable to Debian or
upstream.

De


--- imap_local.monitor  2012-03-14 18:01:02.000000000 -0400
+++ imap_local_ssl.monitor      2012-03-14 19:13:05.000000000 -0400
@@ -36,8 +36,9 @@
 #
 use Getopt::Std;
 use English;
+use Net::SSLeay::Handle;
 
-getopts ("m:p:t:u:w:");
+getopts ("m:p:t:u:w:s");
 $PORT = $opt_p || 143;
 $TIMEOUT = $opt_t || 30;
 $MAILBOX=$opt_m || undef;
@@ -182,10 +183,17 @@
 
     my $that = sockaddr_in ($Port, $OtherHostAddr);
 
-    $result = socket(S, &PF_INET, &SOCK_STREAM, $proto) || return undef;
-
-    $result = connect(S, $that) || return undef;
-
+    if ($opt_s)
+    {
+        tie(*S, "Net::SSLeay::Handle", $OtherHostname, $Port) ||
+            return undef;
+    }
+    else
+    {
+        $result = socket(S, &PF_INET, &SOCK_STREAM, $proto) || return undef;
+    
+        $result = connect(S, $that) || return undef;
+    }
     select(S); $| = 1; select(STDOUT);      # set S to be un-buffered
     return 1;                               # success
 }