Make Perl speak JMS (1)

To add JMS capability to Plum, I need to find a way to let Perl talk "JMS". Unfortunately there is no standard wire protocol for JMS. The JMS spec. defines the Java API but not the wire protocol. This is understandable as JMS is a Java centric system. Some JMS implementations, such as JBoss 3.x and 4.x, just use the Java serialization as their wire protocol. Others may use their propriate formats. This is an effort to define a generic XML protocol that can be utilized by different JMS implementations, but it is not there yet.

For now, a relatively simple way is to create a web service in Java which will route any requests to JMS server. Then one can make any lanaguage to speak JMS as long as they can consume the web service. Of course the limitation is that only text message will be supported.

Here is my try. I created a simple web service which is defined by following WSDL:

<?xml version="1.0" encoding="UTF-8"?>
<definitions name="MessageRouter" 
 targetNamespace="http://www.simple.code/router.wsdl/2005/11/7"
 xmlns:wsdlns="http://www.simple.code/router.wsdl/2005/11/7"
 xmlns:router="http://www.simple.code/router/2005/11/7"
 xmlns:xsd="http://www.w3.org/2001/XMLSchema"
 xmlns:stk="http://schemas.microsoft.com/soap-toolkit/wsdl-extension"
 xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/"
 xmlns="http://schemas.xmlsoap.org/wsdl/">

 <types>
  <xsd:schema targetNamespace="http://www.simple.code/router/2005/11/7" 
   elementFormDefault="qualified">

  <xsd:complexType name="DestinationType">
   <xsd:sequence>
    <xsd:element name="protocol" type="xsd:string"/>
    <xsd:element name="category" type="xsd:string"/>
    <xsd:element name="server" type="xsd:string"/>
    <xsd:element name="port" type="xsd:long"/>
    <xsd:element name="target" type="xsd:string"/>
    <xsd:element name="user" type="xsd:string" minOccurs="0"/>
    <xsd:element name="password" type="xsd:string" minOccurs="0"/>
   </xsd:sequence>
  </xsd:complexType>

  <xsd:complexType name="MessageHeadType">
   <xsd:sequence>
    <xsd:element name="header" type="xsd:string" maxOccurs="unbound"/>
   </xsd:sequence>
  </xsd:complexType>

  <xsd:complexType name="MessageBodyType">
   <xsd:sequence>
    <xsd:element name="content" type="xsd:string"/>
   </xsd:sequence>
  </xsd:complexType>

  <xsd:complexType name="RouteRequestType">
   <xsd:sequence>
    <xsd:element name="destination" type="router:DestinationType"/>
    <xsd:element name="head" type="router:MessageHeadType" minOccurs="0"/>
    <xsd:element name="request" type="router:MessageBodyType"/>
   </xsd:sequence>
  </xsd:complexType>

  <xsd:complexType name="RouteResponseType">
   <xsd:sequence>
    <xsd:element name="response" type="router:MessageBodyType"/>
   </xsd:sequence>
  </xsd:complexType>

  <xsd:element name="RouteRequest" type="router:RouteRequestType"/>
  <xsd:element name="RouteResponse" type="router:RouteResponseType"/>

  </xsd:schema>
 </types>

 <message name="RouteRequest">
  <part name="document" element="router:RouteRequest"/>
 </message>

 <message name="RouteResponse">
  <part name="document" element="router:RouteResponse"/>
 </message>

 <portType name="MessageRouterPortType">
  <operation name="RouteMessage">
   <input message="wsdlns:RouteRequest" />
   <output message="wsdlns:RouteResponse" />
  </operation>
 </portType>

 <binding name="HttpBinding" type="wsdlns:MessageRouterPortType">
  <stk:binding preferredEncoding="UTF-8" />
  <soap:binding style="document" 
   transport="http://schemas.xmlsoap.org/soap/http" />
  <operation name="RouteMessage">
   <soap:operation 
    soapAction="http://www.simple.code/router/action/RouteMessage" 
    style="document"/>
   <input>
    <soap:body use="literal"/>
   </input>
   <output>
    <soap:body use="literal"/>
   </output>
  </operation>
 </binding>

 <service name="MessageRoutingService">
  <port name="MessageRouterPort" binding="wsdlns:HttpBinding">
   <soap:address
    location="http://localhost:8080/common_router" />
  </port>
 </service>

</definitions>