Testing STARTTLS (Re: [Patch] STARTTLS support (forkserver only))

[Charlie Brady]

For those interested in dabbling with STARTTLS, it's very useful to have a 
convenient scriptable testing tool. I've been using swaks 
(http://jetmore.org/john/code/#swaks) which has been extremely useful.
Thanks John!
The current version however has a bug which you'll need to fix if you want 
to make any sense of test results. Here's a patch:

--- swaks.20050625.8.orig       2005-07-08 12:04:17.000000000 -0400
+++ swaks.20050625.8    2005-07-08 12:05:00.000000000 -0400
@@ -666,7 +666,9 @@
     } else {
       # The 'do' allows for multi-line responses
       if ($G::link{tls}{active}) {
-        $buff = Net::SSLeay::read($G::link{tls}{ssl});
+        do {
+          $buff .= Net::SSLeay::read($G::link{tls}{ssl});
+        } while ($buff !~ /^\d\d\d /m);
       } else {
         do {
           if ($G::link{type} eq 'pipe') {