rboss 0.1.0

data/lib/rboss/components/deploy_folder.rb

@@ -0,0 +1,104 @@
+#                         The MIT License
+#
+# Copyright (c) 2011 Marcelo Guimarães <ataxexe@gmail.com>
+#
+# Permission is hereby granted, free of charge, to any person obtaining a copy
+# of this software and associated documentation files (the "Software"), to deal
+# in the Software without restriction, including without limitation the rights
+# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+# copies of the Software, and to permit persons to whom the Software is
+# furnished to do so, subject to the following conditions:
+#
+# The above copyright notice and this permission notice shall be included in
+# all copies or substantial portions of the Software.
+#
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+# THE SOFTWARE.
+
+require_relative "component"
+
+require "rexml/document"
+
+include REXML
+
+module JBoss
+
+  # A class to add deploy folders to a JBoss Profile.
+  #
+  #
+  # Note: there is a bug in JBoss (https://issues.jboss.org/browse/JBAS-9387) that affect
+  # this class if profile.xml needs to be changed (deploy folder outside
+  # $JBOSS_HOME/server/$PROFILE/deploy)
+  #
+  # author: Marcelo Guimarães <ataxexe@gmail.com>
+  class DeployFolder
+    include Component, FileUtils
+
+    def configure folder
+      @folder = folder.to_s
+
+      @absolute_path = @folder.start_with? '/'
+      @outside_deploy = (!@folder.start_with?('deploy') and not @absolute_path)
+
+      @configure_vsf_and_profile = (@absolute_path or @outside_deploy)
+
+      @path = @absolute_path ? @folder : "#{@jboss.profile}/#{@folder}"
+
+      @folder = "${jboss.server.home.url}#{@folder}" if @outside_deploy
+      @folder = "file://#{@folder}" if @absolute_path
+    end
+
+    def process
+      @logger.info "Creating deploy folder: #{@path}"
+      mkdir_p @path
+
+      if @configure_vsf_and_profile
+        @logger.warn "Please change your profile.xml file according to this issue <https://issues.jboss.org/browse/JBAS-9387>"
+        configure_vfs
+        configure_profile
+      end
+    end
+
+    def configure_profile
+      @logger.info "Updating profile.xml"
+      processor = new_file_processor
+      processor.with "#{@jboss.profile}/conf/bootstrap/profile.xml", :xml do |action|
+        action.to_process do |xml, jboss|
+          element = XPath.first xml, "//property[@name='applicationURIs']"
+          element = XPath.first element, "//list[@elementClass='java.net.URI']"
+          deploy = Element::new "value"
+          deploy.text = @folder
+          element << deploy
+          xml
+        end
+      end
+      processor.process
+    end
+
+    def configure_vfs
+      @logger.info "Updating vfs.xml"
+      processor = new_file_processor
+      processor.with "#{@jboss.profile}/conf/bootstrap/vfs.xml", :xml do |action|
+        action.to_process do |xml, jboss|
+          map = XPath.first xml, "//map[@keyClass='java.net.URL']"
+          entry = Document::new <<XML
+<entry>
+  <key>#{@folder}</key>
+  <value><inject bean="VfsNamesExceptionHandler"/></value>
+</entry>
+XML
+          map << entry
+          xml
+        end
+      end
+      processor.process
+    end
+
+  end
+
+end

data/lib/rboss/components/hypersonic_replacer.rb

@@ -0,0 +1,58 @@
+#                         The MIT License
+#
+# Copyright (c) 2011 Marcelo Guimarães <ataxexe@gmail.com>
+#
+# Permission is hereby granted, free of charge, to any person obtaining a copy
+# of this software and associated documentation files (the "Software"), to deal
+# in the Software without restriction, including without limitation the rights
+# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+# copies of the Software, and to permit persons to whom the Software is
+# furnished to do so, subject to the following conditions:
+#
+# The above copyright notice and this permission notice shall be included in
+# all copies or substantial portions of the Software.
+#
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+# THE SOFTWARE.
+
+require_relative "datasource"
+require_relative "component"
+
+module JBoss
+  # A class to replace the shipped Hypersonic datasource for a JBoss profile.
+  #
+  # Configuration:
+  #
+  # The configuration can be a JBossDatasource or a Hash to configure a JBossDatasource.
+  #
+  # author: Marcelo Guimarães <ataxexe@gmail.com>
+  class HypersonicReplacer
+    include Component, FileUtils
+
+    def configure config
+      @datasource = config if config.is_a? Datasource
+      @datasource ||= Datasource::new(@jboss, @logger, config)
+      @datasource.jndi_name = "DefaultDS"
+    end
+
+    def process
+      @logger.info "Removing Hypersonic..."
+      rm_f "#{@jboss.profile}/deploy/hsqldb-ds.xml"
+      rm_f "#{@jboss.profile}/deploy/messaging/hsqldb-persistence-service.xml"
+
+      @datasource.process
+
+      @logger.info "Copying persistence service template for #{@datasource.type}..."
+      # For postgres, the jms example filename differs from jca
+      @datasource.type = :postgresql if @datasource.type.to_s == "postgres"
+      cp "#{@jboss.home}/docs/examples/jms/#{@datasource.type}-persistence-service.xml", "#{@jboss.profile}/deploy/messaging"
+    end
+
+  end
+
+end

data/lib/rboss/components/jbossweb.rb

@@ -0,0 +1,117 @@
+#                         The MIT License
+#
+# Copyright (c) 2011 Marcelo Guimarães <ataxexe@gmail.com>
+#
+# Permission is hereby granted, free of charge, to any person obtaining a copy
+# of this software and associated documentation files (the "Software"), to deal
+# in the Software without restriction, including without limitation the rights
+# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+# copies of the Software, and to permit persons to whom the Software is
+# furnished to do so, subject to the following conditions:
+#
+# The above copyright notice and this permission notice shall be included in
+# all copies or substantial portions of the Software.
+#
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+# THE SOFTWARE.
+
+require_relative 'component'
+
+require "rexml/document"
+
+include REXML
+
+module JBoss
+  class Web
+    include Component
+
+    def defaults
+      {
+        :connectors => [],
+        :jvm_route => nil
+      }
+    end
+
+    def connector_defaults
+      {
+        :http => {
+          :address => "${jboss.bind.address}",
+          :protocol => "HTTP/1.1",
+          :port => 8080
+        },
+        :ajp => {
+          :address => "${jboss.bind.address}",
+          :protocol => "AJP/1.3",
+          :port => 8009,
+          :redirect_port => 8443
+        },
+        :https => {
+          :addres => "${jboss.bind.address}",
+          :port => 8443,
+          :scheme => "https",
+          :secure => true,
+          :ssl_protocol => "TLS",
+          :client_auth => false,
+          :keystore_file => '${jboss.server.home.dir}/conf/.keystore'
+        },
+        :other => {
+          :address => "${jboss.bind.address}",
+          :protocol => "HTTP/1.1"
+        }
+      }
+    end
+
+    def process
+      @processor = new_file_processor
+      @actions = []
+      configure_connectors
+      configure_engine if @config[:jvm_route]
+      @processor.with "#{@jboss.profile}/deploy/jbossweb.sar/server.xml", :xml do |action|
+        action.to_process do |xml, jboss|
+          @actions.each do |block|
+            xml = block.call(xml, jboss)
+          end
+          xml
+        end
+      end
+      @processor.process
+    end
+
+    def configure_connectors
+      @config[:connectors].each do |type, attributes|
+        defaults = connector_defaults[type.to_sym]
+        defaults ||= connector_defaults[:other]
+        attributes = defaults.merge attributes
+        configure_connector attributes, defaults
+      end
+    end
+
+    def configure_connector attributes, defaults
+      @actions << lambda do |xml, jboss|
+        tag = XPath.first xml, "//Connector[@protocol='#{defaults[:protocol]}'][@port='#{defaults[:port]}']"
+        unless tag
+          tag = Element::new "Connector"
+          xml.insert_after "//Connector", tag
+        end
+        attributes.each do |key, value|
+          key = key.to_s.camelize.uncapitalize if key.is_a? Symbol
+          tag.attributes[key] = value.to_s
+        end
+        xml
+      end
+    end
+
+    def configure_engine
+      @actions << lambda do |xml, jboss|
+        engine = XPath.first xml, "//Engine[@name='jboss.web']"
+        engine.attributes["jvmRoute"] = @config[:jvm_route]
+        xml
+      end
+    end
+  end
+end

data/lib/rboss/components/jmx.rb

@@ -0,0 +1,88 @@
+#                         The MIT License
+#
+# Copyright (c) 2011 Marcelo Guimarães <ataxexe@gmail.com>
+#
+# Permission is hereby granted, free of charge, to any person obtaining a copy
+# of this software and associated documentation files (the "Software"), to deal
+# in the Software without restriction, including without limitation the rights
+# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+# copies of the Software, and to permit persons to whom the Software is
+# furnished to do so, subject to the following conditions:
+#
+# The above copyright notice and this permission notice shall be included in
+# all copies or substantial portions of the Software.
+#
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+# THE SOFTWARE.
+
+require_relative "component"
+
+module JBoss
+  # This class configures the JXM user for a JBoss profile.
+  #
+  # Configuration:
+  #
+  # :user => the jxm user (default: 'admin')
+  # :password => the jmx user password (default: 'admin')
+  # :roles => the roles mapped for the user (default: 'JBossAdmin,HttpInvoker')
+  #
+  # author: Marcelo Guimarães <ataxexe@gmail.com>
+  class JMX
+    include Component
+
+    def configure config
+      @config = config
+      @password = config[:password]
+      @user = config[:user]
+      @roles = config[:roles]
+    end
+
+    def defaults
+      {
+        :user => "admin",
+        :password => "admin",
+        :roles => "JBossAdmin,HttpInvoker"
+      }
+    end
+
+    def process
+      configure_users
+      configure_roles
+    end
+
+    def configure_users
+      processor = new_file_processor
+      processor.with "#{@jboss.profile}/conf/props/#{users_properties_file}" do |action|
+        action.to_process do |content, jboss|
+          [@user, @password].join '='
+        end
+      end
+      processor.process
+    end
+
+    def configure_roles
+      processor = new_file_processor
+      processor.with "#{@jboss.profile}/conf/props/#{roles_properties_file}" do |action|
+        action.to_process do |content, jboss|
+          [@user, @roles].join '='
+        end
+      end
+      processor.process
+    end
+
+    def users_properties_file
+      "jmx-console-users.properties"
+    end
+
+    def roles_properties_file
+      "jmx-console-roles.properties"
+    end
+
+  end
+
+end

data/lib/rboss/components/mod_cluster.rb

@@ -0,0 +1,81 @@
+#                         The MIT License
+#
+# Copyright (c) 2011 Marcelo Guimarães <ataxexe@gmail.com>
+#
+# Permission is hereby granted, free of charge, to any person obtaining a copy
+# of this software and associated documentation files (the "Software"), to deal
+# in the Software without restriction, including without limitation the rights
+# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+# copies of the Software, and to permit persons to whom the Software is
+# furnished to do so, subject to the following conditions:
+#
+# The above copyright notice and this permission notice shall be included in
+# all copies or substantial portions of the Software.
+#
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+# THE SOFTWARE.
+
+require_relative "component"
+require_relative "../jboss_path"
+
+require "logger"
+require "rexml/document"
+
+include REXML
+
+module JBoss
+  # A class to install and configure a mod_cluster service in a JBoss profile
+  #
+  # Configuration:
+  #
+  # :path => where the mod_cluster.sar is located
+  # :folder => where the mod_cluster.sar should be installed (default: $JBOSS_HOME/server/$CONFIG/deploy)
+  #
+  # The additional configurations are the entries in the bean ModClusterConfig (mod_cluster-jboss-beans.xml)
+  # and can be in a String form (using the entry name) or in a Symbol form (using ruby nomenclature - :sticky_session)
+  #
+  # author: Marcelo Guimarães <ataxexe@gmail.com>
+  class ModCluster
+    include Component, FileUtils
+
+    def defaults
+      {:folder => "#{@jboss.profile}/deploy"}
+    end
+
+    def configure config
+      @path = config.delete :path
+      @folder = config.delete :folder
+      @config = config
+    end
+
+    def process
+      @logger.info "Installing mod_cluster.sar"
+      cp_r @path, @folder
+
+      return if @config.empty?
+
+      @logger.info "Configuring mod_cluster.sar"
+      processor = new_file_processor
+      processor.with "#{@folder}/mod_cluster.sar/META-INF/mod_cluster-jboss-beans.xml", :xml do |action|
+        action.to_process do |xml, jboss|
+          config = XPath.first(xml, "//bean[@name='ModClusterConfig']")
+          @config.each do |property, value|
+            element = XPath.first config, "property[@name='#{property.to_s.camelize.uncapitalize}']"
+            if element
+              @logger.debug "Configuring #{element.attribute('name').value} to \"#{value}\""
+              element.text = value
+            end
+          end
+          xml
+        end
+      end
+      processor.process
+    end
+
+  end
+end