Added IMAP protocol-test.

2 files changed, 102 insertions, 0 deletions

diff --git a/lib/custodian/protocoltest/imap.rb b/lib/custodian/protocoltest/imap.rb
new file mode 100644
index 0000000..f18cf94
--- /dev/null
+++ b/lib/custodian/protocoltest/imap.rb
@@ -0,0 +1,101 @@
+require 'custodian/protocoltest/tcp'
+
+#
+#  The IMAP-protocol test.
+#
+#  This object is instantiated if the parser sees a line such as:
+#
+###
+### foo.vm.bytemark.co.uk must run imap otherwise 'imap fail'.
+###
+#
+#  The specification of the port is optional and defaults to 143.
+#
+module Custodian
+
+  module ProtocolTest
+
+    class IMAPTest < TCPTest
+
+      #
+      # Constructor
+      #
+      # Ensure we received a port to run the test against.
+      #
+      def initialize( line )
+
+        #
+        # Save the line
+        #
+        @line = line
+
+        #
+        # Save the host
+        #
+        @host  = line.split( /\s+/)[0]
+
+
+        #
+        # Is this test inverted?
+        #
+        if ( line =~ /must\s+not\s+run\s+/ )
+          @inverted = true
+        else
+          @inverted = false
+        end
+
+
+        #
+        # Save the port
+        #
+        if ( line =~ /on\s+([0-9]+)/ )
+          @port = $1.dup
+        else
+          @port = 143
+        end
+      end
+
+
+
+
+      #
+      # Allow this test to be serialized.
+      #
+      def to_s
+        return( @line )
+      end
+
+
+
+
+      #
+      # Run the test.
+      #
+      def run_test
+
+        # reset the error, in case we were previously executed.
+        @error = nil
+
+        run_test_internal( @host, @port, /OK/i, true )
+      end
+
+
+
+
+      #
+      # If the test fails then report the error.
+      #
+      def error
+        @error
+      end
+
+
+
+
+      register_test_type "imap"
+
+
+
+    end
+  end
+end
diff --git a/lib/custodian/protocoltests.rb b/lib/custodian/protocoltests.rb
index 8b236c8..3a18754 100644
--- a/lib/custodian/protocoltests.rb
+++ b/lib/custodian/protocoltests.rb
@@ -15,6 +15,7 @@ require 'custodian/protocoltest/dns'
 require 'custodian/protocoltest/dnsbl'
 require 'custodian/protocoltest/ftp'
 require 'custodian/protocoltest/http'
+require 'custodian/protocoltest/imap'
 require 'custodian/protocoltest/jabber'
 require 'custodian/protocoltest/ldap'
 require 'custodian/protocoltest/mysql'