rboss 0.1.0

data/lib/rboss/twiddle.rb

@@ -0,0 +1,25 @@
+#                         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 'twiddle/base_monitor'
+require_relative 'twiddle/mbean'
+require_relative 'twiddle/monitor'

data/lib/rboss/twiddle/base_monitor.rb

@@ -0,0 +1,57 @@
+#                         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 'monitor'
+require_relative 'scanner'
+require_relative 'twiddle'
+
+module JBoss
+  module Twiddle
+
+    class BaseMonitor
+      include JBoss::Twiddle::Monitor, JBoss::Twiddle::Scanner
+
+      def initialize twiddle
+        @twiddle = twiddle
+        defaults.each do |mbean_id, config|
+          monitor mbean_id, config
+        end
+      end
+
+    end
+
+    class Invoker
+
+      def monitor
+        @monitor ||= BaseMonitor::new self
+        @monitor
+      end
+
+      def mbean id
+        monitor.mbean id
+      end
+
+    end
+
+  end
+
+end

data/lib/rboss/twiddle/mbean.rb

@@ -0,0 +1,82 @@
+#                         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 'twiddle'
+
+module JBoss
+  class MBean
+
+    attr_reader :pattern
+    attr_accessor :resource, :twiddle
+
+    def initialize params
+      @pattern = params[:pattern]
+      @twiddle = params[:twiddle]
+      @env = @twiddle
+    end
+
+    def with resource
+      @resource = resource
+      if block_given?
+        yield
+        @resource = nil
+      end
+      self
+    end
+
+    def [] property
+      resource = @resource
+      env = @env
+      query = eval("\"#{pattern}\"")
+      result = @twiddle.invoke(:get, query, property)
+      def result.value
+        self.split(/=/)[1]
+      end
+      result
+    end
+
+    def []= property, value
+      resource = @resource
+      env = @env
+      query = eval("\"#{pattern}\"")
+      @twiddle.invoke :set, query, property, value
+    end
+
+    def method_missing(method, *args, &block)
+      _invoke_ method, args, block
+    end
+
+    def _invoke_ method, *args, &block
+      resource = @resource
+      env = @env
+      query = eval("\"#{pattern} #{method}\"")
+      return_value = @twiddle.invoke :invoke, query, args
+      if block_given?
+        block.call return_value
+      end
+      return_value
+    end
+
+  end
+
+end
+

data/lib/rboss/twiddle/monitor.rb

@@ -0,0 +1,144 @@
+#                         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 'mbean'
+
+module JBoss
+  module Twiddle
+
+    module Monitor
+
+      def defaults
+        {
+          :webapp => {
+            :pattern => 'jboss.web:type=Manager,host=localhost,path=/#{resource}',
+            :properties => %W(activeSessions maxActive)
+          },
+          :connector => {
+            :pattern => 'jboss.web:type=ThreadPool,name=#{resource}',
+            :properties => %W(maxThreads currentThreadCount currentThreadsBusy)
+          },
+          :server_info => {
+            :pattern => 'jboss.system:type=ServerInfo',
+            :properties => %W(ActiveThreadCount MaxMemory FreeMemory AvailableProcessors
+                              HostAddress JavaVendor JavaVersion OSName OSArch)
+          },
+          :server => {
+            :pattern => 'jboss.system:type=Server',
+            :properties => %W(VersionNumber StartDate)
+          },
+          :system_properties => {
+            :pattern => 'jboss:name=SystemProperties,type=Service'
+          },
+          :request => {
+            :pattern => 'jboss.web:type=GlobalRequestProcessor,name=#{resource}',
+            :properties => %W(requestCount errorCount maxTime)
+          },
+          :datasource => {
+            :pattern => 'jboss.jca:service=ManagedConnectionPool,name=#{resource}',
+            :properties => %W(MinSize MaxSize AvailableConnectionCount InUseConnectionCount ConnectionCount)
+          },
+          :queue => {
+            :pattern => 'jboss.messaging.destination:service=Queue,name=#{resource}',
+            :properties => %W(Name JNDIName MessageCount DeliveringCount
+              ScheduledMessageCount MaxSize FullSize Clustered ConsumerCount)
+          },
+          :ejb => {
+            :pattern => 'jboss.j2ee:#{resource},service=EJB3',
+            :properties => %W(CreateCount RemoveCount CurrentSize AvailableCount)
+          }
+        }
+      end
+
+      def properties mbean_id = nil
+        @properties ||= {}
+        return properties[mbean_id] if mbean_id
+        @properties
+      end
+
+      def mbeans
+        @mbeans ||= {}
+        @mbeans
+      end
+
+      def resources mbean_id = nil, *resources
+        @resources ||= {}
+        return @resources unless mbean_id
+        return @resources[mbean_id] unless resources
+        if mbean_id.is_a? Array
+          mbean_id.each do |id|
+            @resources[id] = resources
+          end
+        else
+          @resources[mbean_id] = resources
+        end
+      end
+
+      def monitor mbean_id, params
+        mbeans[mbean_id] = JBoss::MBean::new :pattern => params[:pattern], :twiddle => @twiddle
+        properties[mbean_id] = params[:properties]
+      end
+
+      def with resource
+        resource = send resource if resource.is_a? Symbol
+        if block_given?
+          if resource.kind_of? Array
+            resource.each do |res|
+              @current_resource = res
+              yield res
+              @current_resource = nil
+            end
+          else
+            @current_resource = resource
+            yield
+            @current_resource = nil
+          end
+        end
+      end
+
+      def mbean mbean_id = nil
+        return get current_scan unless mbean_id
+        mbeans[mbean_id]
+      end
+
+      def get mbean_id
+        mbean = mbeans[mbean_id]
+        if @current_resource
+          mbean.with @current_resource
+        end
+        mbean
+      end
+
+      alias_method :[], :get
+
+      def method_missing(method, *args, &block)
+        mbean_id = method
+        mbean = mbeans[mbean_id]
+        resource = args[0] || @current_resource
+        mbean.with resource
+      end
+
+    end
+
+  end
+
+end

data/lib/rboss/twiddle/scanner.rb

@@ -0,0 +1,92 @@
+#                         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 "set"
+
+module JBoss
+  module Twiddle
+    module Scanner
+
+      def webapps
+        _query_ "jboss.web:type=Manager,*" do |path|
+          path.gsub! "jboss.web:type=Manager,path=/", ""
+          path.gsub! /,host=.+/, ''
+          path
+        end
+      end
+
+      def datasources
+        _query_ "jboss.jca:service=ManagedConnectionPool,*" do |path|
+          path.gsub "jboss.jca:service=ManagedConnectionPool,name=", ""
+        end
+      end
+
+      def connectors
+        _query_ "jboss.web:type=ThreadPool,*" do |path|
+          path.gsub "jboss.web:type=ThreadPool,name=", ""
+        end
+      end
+
+      def queues
+        _query_ "jboss.messaging.destination:service=Queue,*" do |path|
+          path.gsub "jboss.messaging.destination:service=Queue,name=", ""
+        end
+      end
+
+      def ejbs
+        result = _query_ "jboss.j2ee:service=EJB3,*"
+        (result.find_all {|path| path["name="] && path["jar="]}).collect do |path|
+          path.gsub("jboss.j2ee:", '').gsub(/,?service=EJB3/, '')
+        end
+      end
+
+      def deployments
+        wars = _query_ "jboss.web.deployment:*" do |path|
+          path.gsub("jboss.web.deployment:", "").split(/,/).find {|p| p.start_with? "war="}
+        end
+        ears = _query_ "jboss.j2ee:*"
+        ears = (ears.find_all {|path| path["ear="] && path["jar="]}).collect do |path|
+          path.gsub("jboss.j2ee:",'').split(/,/).find {|p| p.start_with? "ear="}
+        end
+        result = Set::new
+        (wars + ears).each do |deployment|
+          result << deployment
+        end
+        result
+      end
+
+      def can_scan? resource
+        self.respond_to? resource.to_sym
+      end
+
+      private
+
+      def _query_ query, &block
+        result = @twiddle.invoke(:query, query)
+        return [] if result["No MBean matches for query"]
+        result = result.split /\s+/
+        block ? result.collect(&block) : result
+      end
+
+    end
+  end
+end

data/lib/rboss/twiddle/twiddle.rb

@@ -0,0 +1,71 @@
+#                         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.
+
+module JBoss
+  module Twiddle
+    class Invoker
+
+      attr_reader :jboss_host, :jboss_port, :jboss_home, :jmx_user, :jmx_password
+      attr_accessor :command
+
+      def initialize params = {}
+        params = {
+          :jboss_home => ENV["JBOSS_HOME"],
+          :jboss_server => nil,
+          :jboss_host => '127.0.0.1',
+          :jboss_port => 1099,
+          :jmx_user => "admin",
+          :jmx_password => "admin"
+        }.merge! params
+        @jboss_home = params[:jboss_home]
+
+        @jboss_host = params[:jboss_host]
+        @jboss_port = params[:jboss_port]
+        @jboss_server = params[:jboss_server]
+        @jboss_server ||= [@jboss_host, @jboss_port].join ':'
+
+        @jmx_user = params[:jmx_user]
+        @jmx_password = params[:jmx_password]
+
+        @command = "#{@jboss_home}/bin/twiddle.sh -s #{@jboss_server} -u '#{@jmx_user}' -p '#{@jmx_password}'"
+      end
+
+      def home
+        @jboss_home
+      end
+
+      def invoke command, *arguments
+        execute(shell command, arguments)
+      end
+
+      def shell operation, *arguments
+        "#{command} #{operation} #{arguments.join " "}"
+      end
+
+      def execute shell
+        `#{shell}`.chomp
+      end
+
+    end
+
+  end
+end