torquebox-backstage 0.1.0

data/lib/has_mbean.rb

@@ -0,0 +1,59 @@
+#
+# Copyright 2011 Red Hat, Inc.
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#
+#     http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+#
+
+module Backstage
+  module HasMBean
+    java_import javax.management.ObjectName
+
+    def self.included(base)
+      base.send( :attr_accessor, :mbean_name, :mbean )
+      base.extend( ClassMethods )
+    end
+
+    def initialize(mbean_name, mbean)
+      self.mbean_name = mbean_name
+      self.mbean = mbean
+    end
+    
+    def full_name
+      mbean_name.to_s
+    end
+
+    def method_missing(method, *args, &block)
+      mbean.send( method, *args, &block )
+    rescue NoMethodError => ex
+      super
+    end
+    
+    module ClassMethods
+      def jmx_server
+        @jmx_server ||= JMX::MBeanServer.new
+      end
+
+      def all(filter_string = filter)
+        jmx_server.query_names( filter_string ).collect { |name| new( name, jmx_server[name] ) }
+      end
+
+      def find(name)
+        name = ObjectName.new( name ) unless name.is_a?( ObjectName )
+        new( name, jmx_server[name] )
+      rescue JMX::NoSuchBeanError => ex
+        nil
+      end
+
+    end
+  end
+end

data/lib/helpers.rb

@@ -0,0 +1,142 @@
+#
+# Copyright 2011 Red Hat, Inc.
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#
+#     http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+#
+
+require 'util'
+require 'authentication'
+require 'sinatra/url_for'
+
+module Backstage
+  class Application < Sinatra::Base
+    
+    helpers do
+      include Backstage::Authentication
+      include Sinatra::UrlForHelper
+
+      def json_url_for(fragment, options = { })
+        options[:format] = 'json'
+        url_for( fragment, :full, options )
+      end
+      
+      def object_path(object)
+        object_action_or_collection_path(*(object.association_chain << nil))
+      end
+
+      def object_action_or_collection_path(*objects)
+        collection_or_action = objects.pop
+        paths = []
+        objects.each do |object|
+          paths << "#{simple_class_name( object )}/#{Util.encode_name( object.full_name )}"
+        end
+        paths << collection_or_action if collection_or_action
+        '/' + paths.join( '/' )
+      end
+      alias_method :object_action_path, :object_action_or_collection_path
+      alias_method :collection_path, :object_action_or_collection_path
+      
+      def redirect_to(location)
+        redirect url_for(location, :full)
+      end
+
+      def link_to(path, text, options = {})
+        "<a href='#{url_for path}' class='#{options[:class]}'>#{text}</a>"
+      end
+
+      def data_row(name, value)
+        dom_class = ['value']
+        dom_class << 'status' << value.downcase if name.to_s.downcase == 'status' # hack
+        "<tr class='data-row'><td class='label'>#{name}</td><td class='#{dom_class.join(' ')}'>#{value}</td></tr>"
+      end
+      
+      def simple_class_name(object)
+        object.class.name.split( "::" ).last.underscore
+      end
+      
+      def truncate(text, length = 30)
+        text.length > length ? text[0...length] + '...' : text
+      end
+      
+      def class_for_body
+        klass = request.path_info.split('/').reverse.select { |part| part =~ /^[A-Za-z_]*$/ }
+        klass.empty? ? 'root' : klass
+      end
+
+      def action_button(object, action, text=nil)
+        text ||= action.capitalize
+        accum = <<-EOF
+<form method="post" action="#{url_for object_action_path(object, action)}">
+  <input type="submit" value="#{text}"/>
+</form>
+        EOF
+      end
+
+      def html_requested?
+        params[:format] != 'json' && env['rack-accept.request'].media_type?( 'text/html' )
+      end
+      
+      def collection_to_json( collection )
+        JSON.generate( collection.collect { |object| object_to_hash( object ) } )
+      end
+
+      def object_to_json(object)
+        JSON.generate( object_to_hash( object ) )  
+      end
+      
+      def object_to_hash(object)
+        response = object.to_hash
+        response[:actions] = object.available_actions.inject({}) do |actions, action|
+          actions[action] = json_url_for( object_action_path( response[:resource], action ) )
+          actions
+        end
+        response.each do |key, value|
+          if value.kind_of?( Resource )
+            response[key] = json_url_for( object_path( value ) )
+          end
+        end
+        response
+      end
+
+    end
+  end
+end
+
+class String
+  def classify
+    if self =~ %r{/}
+      split( '/' ).collect( &:classify ).join( '::' )
+    elsif self =~ %r{_}
+      split( '_' ).collect( &:classify ).join( '' )
+    else
+      capitalize
+    end
+  end
+
+  def constantize
+    eval( classify )
+  end
+  
+  def underscore
+    gsub(/([a-zA-Z])([A-Z])/, '\1_\2').downcase
+  end
+  
+  def humanize
+    split( '_' ).collect( &:capitalize ).join( ' ' )
+  end
+
+  #poor man's...
+  def pluralize
+    "#{self}s"
+  end
+end

data/lib/jobs.rb

@@ -0,0 +1,19 @@
+#
+# Copyright 2011 Red Hat, Inc.
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#
+#     http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+#
+
+require 'jobs/models/job'
+require 'jobs/routes'
+

data/lib/jobs/models/job.rb

@@ -0,0 +1,35 @@
+#
+# Copyright 2011 Red Hat, Inc.
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#
+#     http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+#
+
+module Backstage
+  class Job
+    include HasMBean
+    include TorqueBoxManaged
+    include Resource
+    
+    def self.filter
+      "torquebox.jobs:*"
+    end
+
+    def self.to_hash_attributes
+      super + [:name, :app, :app_name, :ruby_class_name, :status, :cron_expression]
+    end
+
+    def available_actions
+      status == 'Started' ? %w{stop} : %w{start}
+    end
+  end
+end

data/lib/jobs/routes.rb

@@ -0,0 +1,18 @@
+#
+# Copyright 2011 Red Hat, Inc.
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#
+#     http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+#
+
+Backstage::Application.resource :job, :actions => [:start, :stop]
+

data/lib/message_processors.rb

@@ -0,0 +1,18 @@
+#
+# Copyright 2011 Red Hat, Inc.
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#
+#     http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+#
+
+require 'message_processors/models/message_processor'
+require 'message_processors/routes'

data/lib/message_processors/models/message_processor.rb

@@ -0,0 +1,40 @@
+#
+# Copyright 2011 Red Hat, Inc.
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#
+#     http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+#
+
+module Backstage
+  class MessageProcessor
+    include HasMBean
+    include TorqueBoxManaged
+    include Resource
+    
+    def self.filter
+      "torquebox.messaging.processors:*"
+    end
+
+    def self.to_hash_attributes
+      super + [:name, :app, :app_name, :status, :destination_name, :message_selector, :concurrency]
+    end
+    
+    def destination_name
+      name = super
+      name =~ /\[(.*)\]/ ? $1 : name
+    end
+
+    def available_actions
+      status == 'Started' ? %w{ stop } : %w{ start }
+    end
+  end
+end

data/lib/message_processors/routes.rb

@@ -0,0 +1,18 @@
+#
+# Copyright 2011 Red Hat, Inc.
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#
+#     http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+#
+
+Backstage::Application.resource :message_processor, :actions => [:start, :stop]
+

data/lib/pools.rb

@@ -0,0 +1,18 @@
+#
+# Copyright 2011 Red Hat, Inc.
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#
+#     http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+#
+
+require 'pools/models/pool'
+require 'pools/routes'

data/lib/pools/models/pool.rb

@@ -0,0 +1,51 @@
+#
+# Copyright 2011 Red Hat, Inc.
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#
+#     http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+#
+
+module Backstage
+  class Pool
+    include HasMBean
+    include TorqueBoxManaged
+    include Resource
+    
+    def self.filter
+      "torquebox.pools:*"
+    end
+
+    def self.to_hash_attributes
+      super + [:name, :app, :app_name, :pool_type, :size, :available, :borrowed, :minimum_instances, :maximum_instances]
+    end
+
+    def pool_type
+      full_name =~ /type=(.*?)(,|$)/ ? $1 : ''
+    end
+
+    def size
+      shared? ? 1 : mbean.size
+    end
+    
+    %w{ available borrowed minimum_instances maximum_instances }.each do |meth|
+      define_method meth do
+        shared? ? 0 : mbean.__send__( meth )
+      end
+    end
+
+    def shared?
+      pool_type == 'shared'
+    end
+
+  end
+end
+

data/lib/pools/routes.rb

@@ -0,0 +1,41 @@
+#
+# Copyright 2011 Red Hat, Inc.
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#
+#     http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+#
+
+Backstage::Application.resource :pool
+
+
+module Backstage
+  class Application < Sinatra::Base
+    
+    post "/pool/:name/evaluate" do
+      content_type :json
+
+      object = Pool.find( Util.decode_name( params[:name] ) )
+      script = params[:script] || ''
+      response = { :script => script }
+      begin
+        result = object.evaluate( script )
+        response[:result] = result
+      rescue Exception => ex
+        response[:exception] = ex
+        response[:backtrace] = ex.backtrace
+      end
+
+      JSON.generate( response )
+    end
+
+  end
+end