rboss 0.1.0

data/.gitignore

@@ -0,0 +1,9 @@
+out
+rboss.iws
+rboss.ipr
+rboss.iml
+*.gem
+.bundle
+Gemfile.lock
+pkg/*
+.rakeTasks

data/Gemfile

@@ -0,0 +1,4 @@
+source "http://rubygems.org"
+
+# Specify your gem's dependencies in rboss.gemspec
+gemspec

data/Rakefile

@@ -0,0 +1 @@
+require 'bundler/gem_tasks'

data/bin/jboss-profile

@@ -0,0 +1,90 @@
+#!/usr/bin/env ruby
+
+#                         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 'rboss'
+require 'optparse'
+require 'yaml'
+require 'logger'
+
+params = {}
+params[:jboss_home] = Dir.pwd unless ENV["JBOSS_HOME"]
+config = nil
+create = true
+
+opts = OptionParser::new
+opts.on('-j', '--jboss-home PATH', 'Defines the JBOSS_HOME variable') do |home|
+  params[:jboss_home] = home
+end
+opts.on('-t', '--type TYPE', 'Defines the JBoss Type (org, eap, soa_p, epp)') do |type|
+  params[:type] = type.to_sym
+end
+opts.on('-v', '--version VERSION', 'Defines the JBoss version (5, 6, 5.1, ...)') do |version|
+  params[:version] = version
+end
+opts.on('-b', '--base-profile PROFILE', 'Defines the base profile') do |profile|
+  params[:base_profile] = profile
+end
+opts.on('-p', '--profile PROFILE', 'Defines the custom profile') do |profile|
+  params[:profile] = profile
+end
+opts.on('-u', '--update', 'Just update the profile folder') do
+  create = false
+end
+opts.on('-c', '--config-file FILE',
+        'Defines the configuration file for the instance
+(see the examples for more details)') do |yaml|
+  config_file = File.expand_path(yaml)
+  config = YAML::load File.open(config_file)
+  config.each do |c|
+    if c.is_a? Hash and c[:params]
+      c.delete(:params).each do |key, value|
+        params[key] = value
+      end
+    end
+  end
+end
+opts.on('-d', '--debug', '--verbose', 'Displays shell commands') do
+  include FileUtils::Verbose
+  params[:log_level] = Logger::DEBUG
+end
+opts.on("-h", "--help", "Shows this help message") { puts opts; exit }
+opts.parse!(ARGV) rescue abort 'Invalid Option! Use --help or -h for usage help.'
+
+profile = JBoss::Profile::new params
+
+if config
+  config.each do |var|
+    if var.is_a? Hash
+      var.each do |key, value|
+        key = key.to_sym if key.is_a? String
+        profile.add key, value
+      end
+    else
+      profile.add var.to_sym
+    end
+  end
+end
+
+profile.create if create
+profile.update unless create

data/bin/twiddle

@@ -0,0 +1,230 @@
+#!/usr/bin/env ruby
+
+#                         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 'rboss'
+require 'optparse'
+require 'yaml'
+
+params = {}
+resources = {}
+list_only = false
+params[:jboss_home] = Dir.pwd unless ENV["JBOSS_HOME"]
+exec_file = nil
+eval_expression = nil
+
+opts = OptionParser::new
+opts.on('-j', '--jboss-home PATH', 'Defines the JBOSS_HOME variable') do |home|
+  params[:jboss_home] = home
+end
+opts.on('-s', '--jboss-server URL', 'Defines the JBoss server') do |server|
+  params[:jboss_server] = server
+end
+opts.on('--jboss-host HOST', 'Defines the JBoss host') do |host|
+  params[:jboss_host] = host
+end
+opts.on('--jboss-port PORT', 'Defines the JBoss jnp port') do |port|
+  params[:jboss_port] = port
+end
+opts.on('-e', '--exec-file PATH',
+        'Defines the ruby file to exec using the vars twiddle and monitor') do |path|
+  exec_file = File.expand_path path
+end
+opts.on('--eval EXPRESSION',
+        'Evaluates the given expression using the vars twiddle and monitor') do |expression|
+  eval_expression = expression
+end
+opts.on('--show-all', 'Shows all resources available') do
+  [
+    :server_info,
+    :deployments,
+    :datasources,
+    :webapps,
+    :connectors,
+    :queues,
+    :ejbs
+  ].each do |option|
+    resources[option] = :all
+  end
+end
+opts.on('--server-info', 'Shows server information') do
+  resources[:server_info] = true
+end
+opts.on('--deployments', 'Shows deployments on server') do
+  resources[:deployments] = true
+end
+opts.on('--connectors [name_a, name_b, name_c, ...]', Array,
+        'Defines the connectors to show or scan if not specified') do |connectors|
+  resources[:connectors] = connectors || :all
+end
+opts.on('--datasources [name_a, name_b, name_c, ...]', Array,
+        'Defines the datasources to show or scan if not specified') do |datasources|
+  resources[:datasources] = datasources || :all
+end
+opts.on('--ejbs [name_a, name_b, name_c, ...]', Array,
+        'Defines the EJBs to show or scan if not specified') do |ejbs|
+  resources[:ejbs] = ejbs || :all
+end
+opts.on('--queues [name_a, name_b, name_c, ...]', Array,
+        'Defines the JMS queues to show or scan if not specified') do |queues|
+  resources[:queues] = queues || :all
+end
+opts.on('--webapps [name_a, name_b, name_c, ...]', Array,
+        'Defines the webapps to show or scan if not specified') do |webapps|
+  resources[:webapps] = webapps || :all
+end
+opts.on('--system-properties [name_a, name_b, name_c, ...]', Array,
+        'Defines the System properties to show or scan if not specified') do |properties|
+  resources[:system_properties] = properties || :all
+end
+opts.on('--list', 'Only lists the required info (datasources, queues, ...)') do
+  list_only = true
+end
+opts.on('-u', '--jmx-user USER', 'Defines the JMX User') do |user|
+  params[:jmx_user] = user
+end
+opts.on('-p', '--jmx-password PASSWORD', 'Defines the JMX Password') do |password|
+  params[:jmx_password] = password
+end
+opts.on("-h", "--help", "Shows this help message") do
+  puts opts; exit
+end
+opts.parse!(ARGV) rescue abort 'Invalid Option! Use --help or -h for usage help.'
+
+twiddle = JBoss::Twiddle::Invoker::new params
+monitor = twiddle.monitor
+
+if resources.empty? and not (exec_file or eval_expression)
+  puts opts
+  exit
+end
+
+eval File.read(exec_file), binding, exec_file if exec_file
+
+puts (eval eval_expression, binding) if eval_expression
+
+if resources[:server_info]
+  puts "Server Info:"
+  monitor.properties[:server].each do |property|
+    puts "  - #{monitor.server[property]}"
+  end
+  monitor.properties[:server_info].each do |property|
+    puts "  - #{monitor.server_info[property]}"
+  end
+end
+if resources[:system_properties]
+  puts "System Properties:"
+  properties = resources[:system_properties]
+  if properties == :all
+    properties = monitor.system_properties.showAll
+    puts properties
+  else
+    properties.each do |property|
+      puts "  - #{property}=#{monitor.system_properties.get(property)}"
+    end
+  end
+end
+if resources[:deployments]
+  puts "Deployments:"
+  monitor.deployments.each do |deployment|
+    puts "  - #{deployment}"
+  end
+end
+if resources[:connectors]
+  puts "Connectors:"
+  connectors = resources[:connectors]
+  connectors = monitor.connectors if connectors == :all
+  connectors.each do |connector|
+    monitor.with connector do
+      puts "  - #{connector}"
+      unless list_only
+        monitor.properties[:connector].each do |property|
+          puts "    - #{monitor.connector[property]}"
+        end
+        monitor.properties[:request].each do |property|
+          puts "    - #{monitor.request[property]}"
+        end
+      end
+    end
+  end
+end
+if resources[:datasources]
+  puts "Datasources:"
+  datasources = resources[:datasources]
+  datasources = monitor.datasources if datasources == :all
+  datasources.each do |datasource|
+    monitor.with datasource do
+      puts "  - #{datasource}"
+      unless list_only
+        monitor.properties[:datasource].each do |property|
+          puts "    - #{monitor.datasource[property]}"
+        end
+      end
+    end
+  end
+end
+if resources[:webapps]
+  puts "Webapps:"
+  webapps = resources[:webapps]
+  webapps = monitor.webapps if webapps == :all
+  webapps.each do |webapp|
+    monitor.with webapp do
+      puts "  - #{webapp}"
+      unless list_only
+        monitor.properties[:webapp].each do |property|
+          puts "    - #{monitor.webapp[property]}"
+        end
+      end
+    end
+  end
+end
+if resources[:ejbs]
+  puts "EJBs:"
+  ejbs = resources[:ejbs]
+  ejbs = monitor.ejbs if ejbs == :all
+  ejbs.each do |ejb|
+    monitor.with ejb do
+      puts "  - #{ejb}"
+      unless list_only
+        monitor.properties[:ejb].each do |property|
+          puts "    - #{monitor.ejb[property]}"
+        end
+      end
+    end
+  end
+end
+if resources[:queues]
+  puts "Queues:"
+  queues = resources[:queues]
+  queues = monitor.queues if queues == :all
+  queues.each do |queue|
+    monitor.with queue do
+      puts "  - #{queue}"
+      unless list_only
+        monitor.properties[:queue].each do |property|
+          puts "    - #{monitor.queue[property]}"
+        end
+      end
+    end
+  end
+end

data/examples/jboss_profile/jbb_profile_1.yaml

@@ -0,0 +1,32 @@
+- :params:
+    :type: org
+    :version: 5.1
+    :base_profile: all
+    :profile: jbb1
+- mod_cluster
+- jms:
+    :peer_id: 1
+- deploy_folder: deploy/datasources
+- deploy_folder: deploy/apps
+- resource:
+    lib: ~/jdbc/postgresql/postgresql.jar
+- jmx:
+    :password: jbb
+- default_ds:
+    :type: postgres
+    :attributes:
+      :user_name: postgres
+      :password: postgres
+      :connection_url: jdbc:postgresql://localhost:5432/jboss_org_db
+      :min_pool_size: 5
+      :max_pool_size: 15
+- jboss_web:
+    :connectors:
+        ajp:
+          :max_threads: 600
+- run_conf:
+    :heap_size: 1024m
+    :perm_size: 512m
+    :stack_size: 128k
+- slimming:
+    - web_console

data/examples/jboss_profile/jbb_profile_2.yaml

@@ -0,0 +1,32 @@
+- :params:
+    :type: org
+    :version: 5.1
+    :base_profile: all
+    :profile: jbb1
+- mod_cluster
+- jms:
+    :peer_id: 2
+- deploy_folder: deploy/datasources
+- deploy_folder: deploy/apps
+- resource:
+    lib: ~/jdbc/postgresql/postgresql.jar
+- jmx:
+    :password: jbb
+- default_ds:
+    :type: postgres
+    :attributes:
+      :user_name: postgres
+      :password: postgres
+      :connection_url: jdbc:postgresql://localhost:5432/jboss_org_db
+      :min_pool_size: 5
+      :max_pool_size: 15
+- jboss_web:
+    :connectors:
+        ajp:
+          :max_threads: 600
+- run_conf:
+    :heap_size: 1024m
+    :perm_size: 512m
+    :stack_size: 128k
+- slimming:
+    - web_console

data/examples/jboss_profile/jboss_profile.yaml

@@ -0,0 +1,7 @@
+- deploy_folder: deploy/datasources
+- deploy_folder: deploy/apps
+- jmx
+- run_conf:
+    :heap_size: 1024m
+    :perm_size: 512m
+    :debug: :socket

data/examples/monitor/simple_monitor.rb

@@ -0,0 +1,61 @@
+#                         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.
+
+puts "Server Info:"
+monitor.properties[:server_info].each do |property|
+  puts "  |--> #{monitor.server_info[property]}"
+end
+
+puts "Connectors:"
+monitor.with :connectors do |connector|
+  puts "  |--> #{connector}"
+  monitor.properties[:connector].each do |property|
+    puts "    |--> #{monitor.connector[property]}"
+  end
+  monitor.properties[:request].each do |property|
+    puts "    |--> #{monitor.request[property]}"
+  end
+end
+
+puts "Datasources:"
+monitor.with :datasources do |datasource|
+  puts "  |--> #{datasource}"
+  monitor.properties[:datasource].each do |property|
+    puts "    |--> #{monitor.datasource[property]}"
+  end
+end
+
+puts "Webapps:"
+monitor.with :webapps do |webapp|
+  puts "  |--> #{webapp}"
+  monitor.properties[:webapp].each do |property|
+    puts "    |--> #{monitor.webapp[property]}"
+  end
+end
+
+puts "Queues:"
+monitor.with :queues do |queue|
+  puts "  |--> #{queue}"
+  monitor.properties[:queue].each do |property|
+    puts "    |--> #{monitor.queue[property]}"
+  end
+end