stomp 1.2.4 → 1.2.5

data/examples/slogger.rb

@@ -1,53 +1,51 @@
 # -*- encoding: utf-8 -*-
 
-=begin
-
-Example STOMP call back logger class.
-
-Optional callback methods:
-
-    on_connecting: connection starting
-    on_connected: successful connect
-    on_connectfail: unsuccessful connect (will usually be retried)
-    on_disconnect: successful disconnect
-
-    on_miscerr: on miscellaneous xmit/recv errors
-
-    on_publish: publish called
-    on_subscribe: subscribe called
-    on_receive: receive called and successful
-
-    on_ssl_connecting: SSL connection starting
-    on_ssl_connected: successful SSL connect
-    on_ssl_connectfail: unsuccessful SSL connect (will usually be retried)
-
-    on_hbread_fail: unsuccessful Heartbeat read
-    on_hbwrite_fail: unsuccessful Heartbeat write
-
-All methods are optional, at the user's requirements.
-
-If a method is not provided, it is not called (of course.)
-
-IMPORTANT NOTE:  in general, call back logging methods *SHOULD* not raise exceptions, 
-otherwise the underlying STOMP connection may fail in mysterious ways.
-
-There are two useful exceptions to this rule for:
-
-    on_connectfail
-    on_ssl_connectfail
-
-These two methods can raise a Stomp::Errors::LoggerConnectionError.  If this
-exception is raised, it is passed up the chain to the caller.
-
-Callback parameters: are a copy of the @parameters instance variable for
-the Stomp::Connection.
-
-=end
-
 require 'logger'	# use the standard Ruby logger .....
 
+# == Example STOMP call back logger class.
+#
+# Optional callback methods:
+#
+# *    on_connecting: connection starting
+# *    on_connected: successful connect
+# *    on_connectfail: unsuccessful connect (will usually be retried)
+# *    on_disconnect: successful disconnect
+#
+# *    on_miscerr: on miscellaneous xmit/recv errors
+#
+# *    on_publish: publish called
+# *    on_subscribe: subscribe called
+# *    on_receive: receive called and successful
+#
+# *    on_ssl_connecting: SSL connection starting
+# *    on_ssl_connected: successful SSL connect
+# *    on_ssl_connectfail: unsuccessful SSL connect (will usually be retried)
+#
+# *    on_hbread_fail: unsuccessful Heartbeat read
+# *    on_hbwrite_fail: unsuccessful Heartbeat write
+# *    on_hbfire: on any send or receive heartbeat
+#
+# All methods are optional, at the user's requirements.
+#
+# If a method is not provided, it is not called (of course.)
+# 
+# IMPORTANT NOTE:  in general, call back logging methods *SHOULD* not raise exceptions, 
+# otherwise the underlying STOMP connection may fail in mysterious ways.
+#
+# There are two useful exceptions to this rule for:
+#
+# *    on_connectfail
+# *    on_ssl_connectfail
+#
+# These two methods can raise a Stomp::Errors::LoggerConnectionError.  If this
+# exception is raised, it is passed up the chain to the caller.
+#
+# Callback parameters: are a copy of the @parameters instance variable for
+# the Stomp::Connection.
+#
 class Slogger
-  #
+
+  # Initialize a new callback logger instance.
   def initialize(init_parms = nil)
     @log = Logger::new(STDOUT)		# User preference
     @log.level = Logger::DEBUG		# User preference
@@ -105,7 +103,7 @@ class Slogger
     end
   end
 
-  # Subscribe
+  # Log Subscribe
   def on_subscribe(parms, headers)
     begin
       @log.debug "Subscribe Parms #{info(parms)}"
@@ -115,7 +113,7 @@ class Slogger
     end
   end
 
-  # Publish
+  # Log Publish
   def on_publish(parms, message, headers)
     begin
       @log.debug "Publish Parms #{info(parms)}"
@@ -126,7 +124,7 @@ class Slogger
     end
   end
 
-  # Receive
+  # Log Receive
   def on_receive(parms, result)
     begin
       @log.debug "Receive Parms #{info(parms)}"
@@ -136,7 +134,7 @@ class Slogger
     end
   end
 
-  # Stomp 1.1+ - heart beat read (receive) failed
+  # Stomp 1.1+ - heart beat read (receive) failed.
   def on_hbread_fail(parms, ticker_data)
     begin
       @log.debug "Hbreadf Parms #{info(parms)}"
@@ -146,7 +144,7 @@ class Slogger
     end
   end
 
-  # Stomp 1.1+ - heart beat send (transmit) failed
+  # Stomp 1.1+ - heart beat send (transmit) failed.
   def on_hbwrite_fail(parms, ticker_data)
     begin
       @log.debug "Hbwritef Parms #{info(parms)}"
@@ -156,6 +154,7 @@ class Slogger
     end
   end
 
+  # Log SSL connection start.
   def on_ssl_connecting(parms)
     begin
       @log.debug "SSL Connecting Parms #{info(parms)}"
@@ -164,6 +163,7 @@ class Slogger
     end
   end
 
+  # Log a successful SSL connect.
   def on_ssl_connected(parms)
     begin
       @log.debug "SSL Connected Parms #{info(parms)}"
@@ -172,6 +172,7 @@ class Slogger
     end
   end
 
+  # Log an unsuccessful SSL connect.
   def on_ssl_connectfail(parms)
     begin
       @log.debug "SSL Connect Fail Parms #{info(parms)}"
@@ -186,11 +187,22 @@ class Slogger
 =end
   end
 
+  # Log heart beat fires
+  def on_hbfire(parms, srind, curt)
+    begin
+      @log.debug "HeartBeat Fire Parms #{info(parms)}"
+      @log.debug "HeartBeat Fire Send/Receive #{srind}"
+    rescue
+      @log.debug "HeartBeat Fire oops"
+    end
+  end
+
   private
 
+  # Example information extract.
   def info(parms)
     #
-    # Available in the Hash:
+    # Available in the parms Hash:
     # parms[:cur_host]
     # parms[:cur_port]
     # parms[:cur_login]
@@ -199,11 +211,12 @@ class Slogger
     # parms[:cur_recondelay]
     # parms[:cur_parseto]
     # parms[:cur_conattempts]
+    # parms[:openstat]
     #
     # For the on_ssl_connectfail callback these are also available:
     # parms[:ssl_exception]
     #
-    "Host: #{parms[:cur_host]}, Port: #{parms[:cur_port]}, Login: Port: #{parms[:cur_login]}, Passcode: #{parms[:cur_passcode]}, ssl: #{parms[:cur_ssl]}"
+    "Host: #{parms[:cur_host]}, Port: #{parms[:cur_port]}, Login: #{parms[:cur_login]}, Passcode: #{parms[:cur_passcode]}, ssl: #{parms[:cur_ssl]}"
   end
 end # of class
 

data/examples/ssl_uc1.rb

@@ -6,7 +6,7 @@
 require "rubygems"
 require "stomp"
 #
-# SSL Use Case 1 - server does *not* authenticate client, client does *not* authenticate server
+# == SSL Use Case 1 - server does *not* authenticate client, client does *not* authenticate server
 #
 # Subcase 1.A - Message broker configuration does *not* require client authentication
 #
@@ -18,18 +18,29 @@ require "stomp"
 #
 # - Expect connection failure (broker must be sent a valid client certificate)
 #
-ssl_opts = Stomp::SSLParams.new
-hash = { :hosts => [ 
-      {:login => 'guest', :passcode => 'guest', :host => 'localhost', :port => 61612, :ssl => ssl_opts},
+class ExampleSSL1
+  # Initialize.
+  def initialize
+  end
+  # Run example.
+  def run
+    ssl_opts = Stomp::SSLParams.new
+    hash = { :hosts => [
+        {:login => 'guest', :passcode => 'guest', :host => 'localhost', :port => 61612, :ssl => ssl_opts},
       ],
-    :reliable => false, # YMMV, to test this in a sane manner
+      :reliable => false, # YMMV, to test this in a sane manner
     }
-#
-puts "Connect starts, SSL Use Case 1"
-c = Stomp::Connection.new(hash)
-puts "Connect completed"
-puts "SSL Verify Result: #{ssl_opts.verify_result}"
-# puts "SSL Peer Certificate:\n#{ssl_opts.peer_cert}"
-#
-c.disconnect
+    #
+    puts "Connect starts, SSL Use Case 1"
+    c = Stomp::Connection.new(hash)
+    puts "Connect completed"
+    puts "SSL Verify Result: #{ssl_opts.verify_result}"
+    # puts "SSL Peer Certificate:\n#{ssl_opts.peer_cert}"
+    #
+    c.disconnect
+  end
+end
+#
+e = ExampleSSL1.new
+e.run
 

data/examples/ssl_uc1_ciphers.rb

@@ -6,28 +6,41 @@
 require "rubygems"
 require "stomp"
 #
+# == SSL Use Case 1 - User Supplied Ciphers
+#
 # If you need your own ciphers list, this is how.
 # Stomp's default list will work in many cases.  If you need to use this, you
 # will know it because SSL connect will fail.  In that case, determining
 # _what_ should be in the list is your responsibility.
 #
-ciphers_list = [["DHE-RSA-AES256-SHA", "TLSv1/SSLv3", 256, 256], ["DHE-DSS-AES256-SHA", "TLSv1/SSLv3", 256, 256], ["AES256-SHA", "TLSv1/SSLv3", 256, 256], ["EDH-RSA-DES-CBC3-SHA", "TLSv1/SSLv3", 168, 168], ["EDH-DSS-DES-CBC3-SHA", "TLSv1/SSLv3", 168, 168], ["DES-CBC3-SHA", "TLSv1/SSLv3", 168, 168], ["DHE-RSA-AES128-SHA", "TLSv1/SSLv3", 128, 128], ["DHE-DSS-AES128-SHA", "TLSv1/SSLv3", 128, 128], ["AES128-SHA", "TLSv1/SSLv3", 128, 128], ["RC4-SHA", "TLSv1/SSLv3", 128, 128], ["RC4-MD5", "TLSv1/SSLv3", 128, 128], ["EDH-RSA-DES-CBC-SHA", "TLSv1/SSLv3", 56, 56], ["EDH-DSS-DES-CBC-SHA", "TLSv1/SSLv3", 56, 56], 
-["DES-CBC-SHA", "TLSv1/SSLv3", 56, 56], ["EXP-EDH-RSA-DES-CBC-SHA", "TLSv1/SSLv3", 40, 56], ["EXP-EDH-DSS-DES-CBC-SHA", "TLSv1/SSLv3", 40, 56], ["EXP-DES-CBC-SHA", "TLSv1/SSLv3", 40, 56], ["EXP-RC2-CBC-MD5", "TLSv1/SSLv3", 40, 128], ["EXP-RC4-MD5", "TLSv1/SSLv3", 40, 128]]
+class ExampleSSL1C
+  # Initialize.
+  def initialize
+  end
+  # Run example.
+  def run
+    ciphers_list = [["DHE-RSA-AES256-SHA", "TLSv1/SSLv3", 256, 256], ["DHE-DSS-AES256-SHA", "TLSv1/SSLv3", 256, 256], ["AES256-SHA", "TLSv1/SSLv3", 256, 256], ["EDH-RSA-DES-CBC3-SHA", "TLSv1/SSLv3", 168, 168], ["EDH-DSS-DES-CBC3-SHA", "TLSv1/SSLv3", 168, 168], ["DES-CBC3-SHA", "TLSv1/SSLv3", 168, 168], ["DHE-RSA-AES128-SHA", "TLSv1/SSLv3", 128, 128], ["DHE-DSS-AES128-SHA", "TLSv1/SSLv3", 128, 128], ["AES128-SHA", "TLSv1/SSLv3", 128, 128], ["RC4-SHA", "TLSv1/SSLv3", 128, 128], ["RC4-MD5", "TLSv1/SSLv3", 128, 128], ["EDH-RSA-DES-CBC-SHA", "TLSv1/SSLv3", 56, 56], ["EDH-DSS-DES-CBC-SHA", "TLSv1/SSLv3", 56, 56],
+    ["DES-CBC-SHA", "TLSv1/SSLv3", 56, 56], ["EXP-EDH-RSA-DES-CBC-SHA", "TLSv1/SSLv3", 40, 56], ["EXP-EDH-DSS-DES-CBC-SHA", "TLSv1/SSLv3", 40, 56], ["EXP-DES-CBC-SHA", "TLSv1/SSLv3", 40, 56], ["EXP-RC2-CBC-MD5", "TLSv1/SSLv3", 40, 128], ["EXP-RC4-MD5", "TLSv1/SSLv3", 40, 128]]
 
-ssl_opts = Stomp::SSLParams.new(:ciphers => ciphers_list)
+    ssl_opts = Stomp::SSLParams.new(:ciphers => ciphers_list)
 
-#
-# SSL Use Case 1
-#
-hash = { :hosts => [ 
-      {:login => 'guest', :passcode => 'guest', :host => 'localhost', :port => 61612, :ssl => ssl_opts},
+    #
+    # SSL Use Case 1
+    #
+    hash = { :hosts => [
+        {:login => 'guest', :passcode => 'guest', :host => 'localhost', :port => 61612, :ssl => ssl_opts},
       ]
     }
-#
-puts "Connect starts, SSL Use Case 1"
-c = Stomp::Connection.new(hash)
-puts "Connect completed"
-puts "SSL Verify Result: #{ssl_opts.verify_result}"
-#
-c.disconnect
+    #
+    puts "Connect starts, SSL Use Case 1"
+    c = Stomp::Connection.new(hash)
+    puts "Connect completed"
+    puts "SSL Verify Result: #{ssl_opts.verify_result}"
+    #
+    c.disconnect
+  end
+end
+#
+e = ExampleSSL1C.new
+e.run
 

data/examples/ssl_uc2.rb

@@ -6,7 +6,7 @@
 require "rubygems"
 require "stomp"
 #
-# SSL Use Case 2 - server does *not* authenticate client, client *does* authenticate server
+# == SSL Use Case 2 - server does *not* authenticate client, client *does* authenticate server
 #
 # Subcase 2.A - Message broker configuration does *not* require client authentication
 #
@@ -18,21 +18,31 @@ require "stomp"
 #
 # - Expect connection failure (broker must be sent a valid client certificate)
 #
-ts_flist = []
-ts_flist << "/home/gmallard/sslwork/twocas_tj/serverCA/ServerTJCA.crt"
-ssl_opts = Stomp::SSLParams.new(:ts_files => ts_flist.join(","))
-#
-hash = { :hosts => [ 
-      {:login => 'guest', :passcode => 'guest', :host => 'localhost', :port => 61612, :ssl => ssl_opts},
+class ExampleSSL2
+  # Initialize.
+  def initialize
+  end
+  # Run example.
+  def run
+    ts_flist = []
+    ts_flist << "/home/gmallard/sslwork/twocas_tj/serverCA/ServerTJCA.crt"
+    ssl_opts = Stomp::SSLParams.new(:ts_files => ts_flist.join(","))
+    #
+    hash = { :hosts => [
+        {:login => 'guest', :passcode => 'guest', :host => 'localhost', :port => 61612, :ssl => ssl_opts},
       ],
-    :reliable => false, # YMMV, to test this in a sane manner
+      :reliable => false, # YMMV, to test this in a sane manner
     }
-#
-puts "Connect starts, SSL Use Case 2"
-c = Stomp::Connection.new(hash)
-puts "Connect completed"
-puts "SSL Verify Result: #{ssl_opts.verify_result}"
-# puts "SSL Peer Certificate:\n#{ssl_opts.peer_cert}"
-c.disconnect
-
+    #
+    puts "Connect starts, SSL Use Case 2"
+    c = Stomp::Connection.new(hash)
+    puts "Connect completed"
+    puts "SSL Verify Result: #{ssl_opts.verify_result}"
+    # puts "SSL Peer Certificate:\n#{ssl_opts.peer_cert}"
+    c.disconnect
+  end
+end
+#
+e = ExampleSSL2.new
+e.run
 

data/examples/ssl_uc2_ciphers.rb

@@ -6,29 +6,42 @@
 require "rubygems"
 require "stomp"
 #
+# == SSL Use Case 2 - User Supplied Ciphers
+#
 # If you need your own ciphers list, this is how.
 # Stomp's default list will work in many cases.  If you need to use this, you
 # will know it because SSL connect will fail.  In that case, determining
 # _what_ should be in the list is your responsibility.
 #
-ciphers_list = [["DHE-RSA-AES256-SHA", "TLSv1/SSLv3", 256, 256], ["DHE-DSS-AES256-SHA", "TLSv1/SSLv3", 256, 256], ["AES256-SHA", "TLSv1/SSLv3", 256, 256], ["EDH-RSA-DES-CBC3-SHA", "TLSv1/SSLv3", 168, 168], ["EDH-DSS-DES-CBC3-SHA", "TLSv1/SSLv3", 168, 168], ["DES-CBC3-SHA", "TLSv1/SSLv3", 168, 168], ["DHE-RSA-AES128-SHA", "TLSv1/SSLv3", 128, 128], ["DHE-DSS-AES128-SHA", "TLSv1/SSLv3", 128, 128], ["AES128-SHA", "TLSv1/SSLv3", 128, 128], ["RC4-SHA", "TLSv1/SSLv3", 128, 128], ["RC4-MD5", "TLSv1/SSLv3", 128, 128], ["EDH-RSA-DES-CBC-SHA", "TLSv1/SSLv3", 56, 56], ["EDH-DSS-DES-CBC-SHA", "TLSv1/SSLv3", 56, 56], 
-["DES-CBC-SHA", "TLSv1/SSLv3", 56, 56], ["EXP-EDH-RSA-DES-CBC-SHA", "TLSv1/SSLv3", 40, 56], ["EXP-EDH-DSS-DES-CBC-SHA", "TLSv1/SSLv3", 40, 56], ["EXP-DES-CBC-SHA", "TLSv1/SSLv3", 40, 56], ["EXP-RC2-CBC-MD5", "TLSv1/SSLv3", 40, 128], ["EXP-RC4-MD5", "TLSv1/SSLv3", 40, 128]]
-#
-# SSL Use Case 2
-#
-ssl_opts = Stomp::SSLParams.new(:key_file => "/home/gmallard/sslwork/twocas_tj/clientCA/ClientTJ.key",
-  :cert_file => "/home/gmallard/sslwork/twocas_tj/clientCA/ClientTJ.crt", :ciphers => ciphers_list)
-
-#
-hash = { :hosts => [ 
-      {:login => 'guest', :passcode => 'guest', :host => 'localhost', :port => 61612, :ssl => ssl_opts},
+class ExampleSSL2C
+  # Initialize.
+  def initialize
+  end
+  # Run example.
+  def run
+    ciphers_list = [["DHE-RSA-AES256-SHA", "TLSv1/SSLv3", 256, 256], ["DHE-DSS-AES256-SHA", "TLSv1/SSLv3", 256, 256], ["AES256-SHA", "TLSv1/SSLv3", 256, 256], ["EDH-RSA-DES-CBC3-SHA", "TLSv1/SSLv3", 168, 168], ["EDH-DSS-DES-CBC3-SHA", "TLSv1/SSLv3", 168, 168], ["DES-CBC3-SHA", "TLSv1/SSLv3", 168, 168], ["DHE-RSA-AES128-SHA", "TLSv1/SSLv3", 128, 128], ["DHE-DSS-AES128-SHA", "TLSv1/SSLv3", 128, 128], ["AES128-SHA", "TLSv1/SSLv3", 128, 128], ["RC4-SHA", "TLSv1/SSLv3", 128, 128], ["RC4-MD5", "TLSv1/SSLv3", 128, 128], ["EDH-RSA-DES-CBC-SHA", "TLSv1/SSLv3", 56, 56], ["EDH-DSS-DES-CBC-SHA", "TLSv1/SSLv3", 56, 56],
+    ["DES-CBC-SHA", "TLSv1/SSLv3", 56, 56], ["EXP-EDH-RSA-DES-CBC-SHA", "TLSv1/SSLv3", 40, 56], ["EXP-EDH-DSS-DES-CBC-SHA", "TLSv1/SSLv3", 40, 56], ["EXP-DES-CBC-SHA", "TLSv1/SSLv3", 40, 56], ["EXP-RC2-CBC-MD5", "TLSv1/SSLv3", 40, 128], ["EXP-RC4-MD5", "TLSv1/SSLv3", 40, 128]]
+    #
+    # SSL Use Case 2
+    #
+    ts_flist = []
+    ts_flist << "/home/gmallard/sslwork/twocas_tj/serverCA/ServerTJCA.crt"
+    ssl_opts = Stomp::SSLParams.new(:ts_files => ts_flist.join(","), :ciphers => ciphers_list)
+    #
+    hash = { :hosts => [
+        {:login => 'guest', :passcode => 'guest', :host => 'localhost', :port => 61612, :ssl => ssl_opts},
       ]
     }
-#
-puts "Connect starts, SSL Use Case 2"
-c = Stomp::Connection.new(hash)
-puts "Connect completed"
-puts "SSL Verify Result: #{ssl_opts.verify_result}"
-# puts "SSL Peer Certificate:\n#{ssl_opts.peer_cert}"
-c.disconnect
+    #
+    puts "Connect starts, SSL Use Case 2"
+    c = Stomp::Connection.new(hash)
+    puts "Connect completed"
+    puts "SSL Verify Result: #{ssl_opts.verify_result}"
+    # puts "SSL Peer Certificate:\n#{ssl_opts.peer_cert}"
+    c.disconnect
+  end
+end
+#
+e = ExampleSSL2C.new
+e.run
 

data/examples/ssl_uc3.rb

@@ -6,7 +6,7 @@
 require "rubygems"
 require "stomp"
 #
-# SSL Use Case 3 - server *does* authenticate client, client does *not* authenticate server
+# == SSL Use Case 3 - server *does* authenticate client, client does *not* authenticate server
 #
 # Subcase 3.A - Message broker configuration does *not* require client authentication
 #
@@ -20,20 +20,31 @@ require "stomp"
 # - Expect a verify result of 20 because the client did not authenticate the
 #   server's certificate.
 #
-ssl_opts = Stomp::SSLParams.new(:key_file => "/home/gmallard/sslwork/twocas_tj/clientCA/ClientTJ.key",
-  :cert_file => "/home/gmallard/sslwork/twocas_tj/clientCA/ClientTJ.crt")
+class ExampleSSL3
+  # Initialize.
+  def initialize
+  end
+  # Run example.
+  def run
+    ssl_opts = Stomp::SSLParams.new(:key_file => "/home/gmallard/sslwork/twocas_tj/clientCA/ClientTJ.key",
+    :cert_file => "/home/gmallard/sslwork/twocas_tj/clientCA/ClientTJ.crt")
 
-#
-hash = { :hosts => [ 
-      {:login => 'guest', :passcode => 'guest', :host => 'localhost', :port => 61612, :ssl => ssl_opts},
+    #
+    hash = { :hosts => [
+        {:login => 'guest', :passcode => 'guest', :host => 'localhost', :port => 61612, :ssl => ssl_opts},
       ],
-    :reliable => false, # YMMV, to test this in a sane manner
+      :reliable => false, # YMMV, to test this in a sane manner
     }
-#
-puts "Connect starts, SSL Use Case 3"
-c = Stomp::Connection.new(hash)
-puts "Connect completed"
-puts "SSL Verify Result: #{ssl_opts.verify_result}"
-# puts "SSL Peer Certificate:\n#{ssl_opts.peer_cert}"
-c.disconnect
+    #
+    puts "Connect starts, SSL Use Case 3"
+    c = Stomp::Connection.new(hash)
+    puts "Connect completed"
+    puts "SSL Verify Result: #{ssl_opts.verify_result}"
+    # puts "SSL Peer Certificate:\n#{ssl_opts.peer_cert}"
+    c.disconnect
+  end
+end
+#
+e = ExampleSSL3.new
+e.run
 

data/examples/ssl_uc3_ciphers.rb

@@ -6,29 +6,42 @@
 require "rubygems"
 require "stomp"
 #
+# == SSL Use Case 3 - User Supplied Ciphers
+#
 # If you need your own ciphers list, this is how.
 # Stomp's default list will work in many cases.  If you need to use this, you
 # will know it because SSL connect will fail.  In that case, determining
 # _what_ should be in the list is your responsibility.
 #
-ciphers_list = [["DHE-RSA-AES256-SHA", "TLSv1/SSLv3", 256, 256], ["DHE-DSS-AES256-SHA", "TLSv1/SSLv3", 256, 256], ["AES256-SHA", "TLSv1/SSLv3", 256, 256], ["EDH-RSA-DES-CBC3-SHA", "TLSv1/SSLv3", 168, 168], ["EDH-DSS-DES-CBC3-SHA", "TLSv1/SSLv3", 168, 168], ["DES-CBC3-SHA", "TLSv1/SSLv3", 168, 168], ["DHE-RSA-AES128-SHA", "TLSv1/SSLv3", 128, 128], ["DHE-DSS-AES128-SHA", "TLSv1/SSLv3", 128, 128], ["AES128-SHA", "TLSv1/SSLv3", 128, 128], ["RC4-SHA", "TLSv1/SSLv3", 128, 128], ["RC4-MD5", "TLSv1/SSLv3", 128, 128], ["EDH-RSA-DES-CBC-SHA", "TLSv1/SSLv3", 56, 56], ["EDH-DSS-DES-CBC-SHA", "TLSv1/SSLv3", 56, 56], 
-["DES-CBC-SHA", "TLSv1/SSLv3", 56, 56], ["EXP-EDH-RSA-DES-CBC-SHA", "TLSv1/SSLv3", 40, 56], ["EXP-EDH-DSS-DES-CBC-SHA", "TLSv1/SSLv3", 40, 56], ["EXP-DES-CBC-SHA", "TLSv1/SSLv3", 40, 56], ["EXP-RC2-CBC-MD5", "TLSv1/SSLv3", 40, 128], ["EXP-RC4-MD5", "TLSv1/SSLv3", 40, 128]]
-#
-# SSL Use Case 3
-#
-ts_flist = []
-ts_flist << "/home/gmallard/sslwork/twocas_tj/serverCA/ServerTJCA.crt"
-ssl_opts = Stomp::SSLParams.new(:ts_files => ts_flist.join(","), :ciphers => ciphers_list)
-#
-hash = { :hosts => [ 
-      {:login => 'guest', :passcode => 'guest', :host => 'localhost', :port => 61612, :ssl => ssl_opts},
+class ExampleSSL3C
+  # Initialize.
+  def initialize
+  end
+  # Run example.
+  def run
+    ciphers_list = [["DHE-RSA-AES256-SHA", "TLSv1/SSLv3", 256, 256], ["DHE-DSS-AES256-SHA", "TLSv1/SSLv3", 256, 256], ["AES256-SHA", "TLSv1/SSLv3", 256, 256], ["EDH-RSA-DES-CBC3-SHA", "TLSv1/SSLv3", 168, 168], ["EDH-DSS-DES-CBC3-SHA", "TLSv1/SSLv3", 168, 168], ["DES-CBC3-SHA", "TLSv1/SSLv3", 168, 168], ["DHE-RSA-AES128-SHA", "TLSv1/SSLv3", 128, 128], ["DHE-DSS-AES128-SHA", "TLSv1/SSLv3", 128, 128], ["AES128-SHA", "TLSv1/SSLv3", 128, 128], ["RC4-SHA", "TLSv1/SSLv3", 128, 128], ["RC4-MD5", "TLSv1/SSLv3", 128, 128], ["EDH-RSA-DES-CBC-SHA", "TLSv1/SSLv3", 56, 56], ["EDH-DSS-DES-CBC-SHA", "TLSv1/SSLv3", 56, 56],
+    ["DES-CBC-SHA", "TLSv1/SSLv3", 56, 56], ["EXP-EDH-RSA-DES-CBC-SHA", "TLSv1/SSLv3", 40, 56], ["EXP-EDH-DSS-DES-CBC-SHA", "TLSv1/SSLv3", 40, 56], ["EXP-DES-CBC-SHA", "TLSv1/SSLv3", 40, 56], ["EXP-RC2-CBC-MD5", "TLSv1/SSLv3", 40, 128], ["EXP-RC4-MD5", "TLSv1/SSLv3", 40, 128]]
+    #
+    # SSL Use Case 3
+    #
+    ssl_opts = Stomp::SSLParams.new(:key_file => "/home/gmallard/sslwork/twocas_tj/clientCA/ClientTJ.key",
+    :cert_file => "/home/gmallard/sslwork/twocas_tj/clientCA/ClientTJ.crt", :ciphers => ciphers_list)
+
+    #
+    hash = { :hosts => [
+        {:login => 'guest', :passcode => 'guest', :host => 'localhost', :port => 61612, :ssl => ssl_opts},
       ]
     }
-#
-puts "Connect starts, SSL Use Case 3"
-c = Stomp::Connection.new(hash)
-puts "Connect completed"
-puts "SSL Verify Result: #{ssl_opts.verify_result}"
-# puts "SSL Peer Certificate:\n#{ssl_opts.peer_cert}"
-c.disconnect
+    #
+    puts "Connect starts, SSL Use Case 3"
+    c = Stomp::Connection.new(hash)
+    puts "Connect completed"
+    puts "SSL Verify Result: #{ssl_opts.verify_result}"
+    # puts "SSL Peer Certificate:\n#{ssl_opts.peer_cert}"
+    c.disconnect
+  end
+end
+#
+e = ExampleSSL3C.new
+e.run
 

data/examples/ssl_uc4.rb

@@ -6,7 +6,7 @@
 require "rubygems"
 require "stomp"
 #
-# SSL Use Case 4 - server *does* authenticate client, client *does* authenticate server
+# == SSL Use Case 4 - server *does* authenticate client, client *does* authenticate server
 #
 # Subcase 4.A - Message broker configuration does *not* require client authentication
 #
@@ -20,20 +20,31 @@ require "stomp"
 # - Expect a verify result of 0 because the client did authenticate the
 #   server's certificate.
 #
-ssl_opts = Stomp::SSLParams.new(:key_file => "/home/gmallard/sslwork/twocas_tj/clientCA/ClientTJ.key",
-  :cert_file => "/home/gmallard/sslwork/twocas_tj/clientCA/ClientTJ.crt",
-  :ts_files => "/home/gmallard/sslwork/twocas_tj/serverCA/ServerTJCA.crt")
-#
-hash = { :hosts => [ 
-      {:login => 'guest', :passcode => 'guest', :host => 'localhost', :port => 61612, :ssl => ssl_opts},
+class ExampleSSL4
+  # Initialize.
+  def initialize
+  end
+  # Run example.
+  def run
+    ssl_opts = Stomp::SSLParams.new(:key_file => "/home/gmallard/sslwork/twocas_tj/clientCA/ClientTJ.key",
+    :cert_file => "/home/gmallard/sslwork/twocas_tj/clientCA/ClientTJ.crt",
+    :ts_files => "/home/gmallard/sslwork/twocas_tj/serverCA/ServerTJCA.crt")
+    #
+    hash = { :hosts => [
+        {:login => 'guest', :passcode => 'guest', :host => 'localhost', :port => 61612, :ssl => ssl_opts},
       ],
-    :reliable => false, # YMMV, to test this in a sane manner
+      :reliable => false, # YMMV, to test this in a sane manner
     }
-#
-puts "Connect starts, SSL Use Case 4"
-c = Stomp::Connection.new(hash)
-puts "Connect completed"
-puts "SSL Verify Result: #{ssl_opts.verify_result}"
-# puts "SSL Peer Certificate:\n#{ssl_opts.peer_cert}"
-c.disconnect
+    #
+    puts "Connect starts, SSL Use Case 4"
+    c = Stomp::Connection.new(hash)
+    puts "Connect completed"
+    puts "SSL Verify Result: #{ssl_opts.verify_result}"
+    # puts "SSL Peer Certificate:\n#{ssl_opts.peer_cert}"
+    c.disconnect
+  end
+end
+#
+e = ExampleSSL4.new
+e.run