omf_sfa 0.1.1

data/lib/omf-sfa/am/am-rest/am_rest_server.rb

@@ -0,0 +1,255 @@
+require 'rubygems'
+require 'json'
+
+require 'rack'
+require 'rack/showexceptions'
+require 'thin'
+require 'data_mapper'
+require 'omf_base/lobject'
+require 'omf_base/load_yaml'
+
+require 'omf-sfa/am/am_runner'
+#require 'omf-sfa/am/am_manager'
+#require 'omf-sfa/am/am_scheduler'
+
+require 'omf_base/lobject'
+
+module OMF::SFA::AM::Rest
+
+  class Server
+    # Don't use LObject as we haveb't initialized the logging system yet. Happens in 'init_logger'
+    include OMF::Base::Loggable
+    extend OMF::Base::Loggable
+
+    def init_logger
+      OMF::Base::Loggable.init_log 'server', :searchPath => File.join(File.dirname(__FILE__), 'server')
+
+      #@config = OMF::Base::YAML.load('config', :path => [File.dirname(__FILE__) + '/../../../etc/gimi-exp-service'])[:gimi_exp_service]
+    end
+
+    def init_data_mapper(options)
+      #@logger = OMF::Base::Loggable::_logger('am_server')
+      #OMF::Base::Loggable.debug "options: #{options}"
+      debug "options: #{options}"
+
+      # Configure the data store
+      #
+      DataMapper::Logger.new(options[:dm_log] || $stdout, :info)
+      #DataMapper::Logger.new($stdout, :info)
+
+      #DataMapper.setup(:default, config[:data_mapper] || {:adapter => 'yaml', :path => '/tmp/am_test2'})
+      DataMapper.setup(:default, options[:dm_db])
+
+      require 'omf-sfa/resource'
+      DataMapper::Model.raise_on_save_failure = true
+      DataMapper.finalize
+
+      # require  'dm-migrations'
+      # DataMapper.auto_migrate!
+
+      DataMapper.auto_upgrade! if options[:dm_auto_upgrade]
+    end
+
+
+    def load_test_state(options)
+      require 'omf-sfa/am/am-rest/rest_handler'
+      OMF::SFA::AM::Rest::RestHandler.set_service_name("OMF Test AM")
+
+      require  'dm-migrations'
+      DataMapper.auto_migrate!
+
+      am = nil
+
+      require 'omf-sfa/resource/oaccount'
+      #account = am.find_or_create_account(:name => 'foo')
+      account = OMF::SFA::Resource::OAccount.create(:name => 'system')
+      slice1 = OMF::SFA::Resource::OAccount.create(
+                :name => 'slice1',
+                :uuid => UUIDTools::UUID.sha1_create(UUIDTools::UUID_DNS_NAMESPACE, 'slice1')
+      )
+
+      require 'omf-sfa/resource/node'
+      nodes = []
+      3.times do |i|
+        name = "n#{i}"
+        uuid = UUIDTools::UUID.sha1_create(UUIDTools::UUID_DNS_NAMESPACE, name)
+        nodes << (n = OMF::SFA::Resource::Node.create(:name => name, :uuid => uuid, :account => slice1))
+        am.manage_resource(n) if am
+        n.save
+        #puts ">>>> #{n.inspect}"
+      end
+    end
+
+    def run(opts)
+      opts[:handlers] = {
+        # Should be done in a better way
+        :pre_rackup => lambda {
+        },
+        :pre_parse => lambda do |p, options|
+          p.on("--test-load-am", "Load an initial state for testing") do |n| options[:load_test_state] = true end
+          p.separator ""
+          p.separator "Datamapper options:"
+          p.on("--dm-db URL", "Datamapper database [#{options[:dm_db]}]") do |u| options[:dm_db] = u end
+          p.on("--dm-log FILE", "Datamapper log file [#{options[:dm_log]}]") do |n| options[:dm_log] = n end
+          p.on("--dm-auto-upgrade", "Run Datamapper's auto upgrade") do |n| options[:dm_auto_upgrade] = true end
+          p.separator ""
+        end,
+        :pre_run => lambda do |opts|
+          init_logger()
+          init_data_mapper(opts)
+          load_test_state(opts) if opts[:load_test_state]
+        end
+      }
+
+
+      #Thin::Logging.debug = true
+      require 'omf_base/thin/runner'
+      OMF::Base::Thin::Runner.new(ARGV, opts).run!
+    end
+  end # class
+end # module
+
+if __FILE__ == $0
+  opts = {
+    :app_name => 'am_rest_server',
+    :port => 8004,
+    # :am => {
+      # :manager => lambda { OMF::SFA::AM::AMManager.new(OMF::SFA::AM::AMScheduler.new) }
+    # },
+    :ssl => {
+      :cert_file => File.expand_path("~/.gcf/am-cert.pem"),
+      :key_file => File.expand_path("~/.gcf/am-key.pem"),
+      :verify_peer => true
+      #:verify_peer => false
+    },
+    #:log => '/tmp/am_server.log',
+    :dm_db => 'sqlite:///tmp/am_test.db',
+    :dm_log => '/tmp/am_test-dm.log',
+    :rackup => File.dirname(__FILE__) + '/config.ru',
+
+  }
+  OMF::SFA::AM::Rest::Server.new.run(opts)
+
+end
+
+######################
+
+# require 'rubygems'
+# require 'rack'
+# require 'rack/showexceptions'
+# require 'thin'
+# require 'data_mapper'
+# require 'omf_base/lobject'
+# require 'omf_base/load_yaml'
+# require 'uuidtools'
+# require 'omf-sfa/am/am_manager'
+#
+# OMF::Base::Loggable.init_log 'am_server'
+# config = OMF::Base::YAML.load('omf-sfa-am', :path => [File.dirname(__FILE__) + '/../../../../etc/omf-sfa'])[:omf_sfa_am]
+#
+# class MyRunner < Thin::Runner
+  # @@instance = nil
+#
+  # def self.instance
+    # @@instance
+  # end
+#
+  # def initialize(argv, opts = {})
+    # raise "SINGLETON" if @@instance
+#
+    # @argv = argv
+#
+    # # Default options values
+    # @options = {
+      # :chdir                => Dir.pwd,
+      # :environment          => 'development',
+      # :address              => '0.0.0.0',
+      # :port                 => Thin::Server::DEFAULT_PORT,
+      # :timeout              => Thin::Server::DEFAULT_TIMEOUT,
+      # :log                  => 'log/thin.log',
+      # :pid                  => 'tmp/pids/thin.pid',
+      # :max_conns            => Thin::Server::DEFAULT_MAXIMUM_CONNECTIONS,
+      # :max_persistent_conns => Thin::Server::DEFAULT_MAXIMUM_PERSISTENT_CONNECTIONS,
+      # :require              => [],
+      # :wait                 => Thin::Controllers::Cluster::DEFAULT_WAIT_TIME
+    # }.merge(opts)
+#
+    # p = parser
+    # p.separator ""
+    # p.separator "Datamapper options:"
+    # p.on("--dm-db URL", "Datamapper database [#{@options[:dm_db]}]") do |u| @options[:dm_db] = u end
+    # p.on("--dm-log FILE", "Datamapper log file [#{@options[:dm_log]}]") do |n| @options[:dm_log] = n end
+    # p.on("--dm-auto-upgrade", "Run Datamapper's auto upgrade") do |n| @options[:dm_auto_upgrade] = true end
+    # p.separator ""
+    # p.separator "Testing options:"
+    # p.on("--test-load-am", "Load an AM configuration for testing") do |n| @options[:load_test_am] = true end
+    # p.separator ""
+    # p.separator "Common options:"
+#
+    # parse!
+    # @@instance = self
+  # end
+#
+  # def init_data_mapper
+#
+    # # Configure the data store
+    # #
+    # DataMapper::Logger.new(@options[:dm_log] || $stdout, :debug)
+#
+    # #DataMapper.setup(:default, config[:data_mapper] || {:adapter => 'yaml', :path => '/tmp/am_test2'})
+    # dm = DataMapper.setup(:default, @options[:dm_db])
+    # DataMapper::Model.raise_on_save_failure = true
+#
+    # require 'omf-sfa/resource'
+    # DataMapper.finalize
+#
+    # DataMapper.auto_upgrade! if @options[:dm_auto_upgrade]
+#
+    # load_test_am if @options[:load_test_am]
+  # end
+# end
+#
+# def load_test_am
+  # require  'dm-migrations'
+  # DataMapper.auto_migrate!
+#
+  # am = @options[:am_mgr]
+#
+  # require 'omf-sfa/resource/oaccount'
+  # account = am.find_or_create_account(:name => 'foo')
+#
+  # require 'omf-sfa/resource/node'
+  # nodes = []
+  # 3.times do |i|
+    # name = "n#{i}"
+    # uuid = UUIDTools::UUID.sha1_create(UUIDTools::UUID_DNS_NAMESPACE, name)
+    # nodes << (n = OMF::SFA::Resource::Node.create(:name => name, :uuid => uuid))
+    # am.manage_resource(n) if am
+  # end
+# #  am.find_resource 'n1', :requester_account => account
+#
+# end
+#
+# # Configure the web server
+# #
+# opts = {
+  # :port => 8001,
+  # :am => {
+    # #:manager => OMF::SFA::AM::AMManager.new
+  # },
+  # :sslX => {
+    # :cert_chain_file => File.expand_path("~/.gcf/am-cert.pem"),
+    # :private_key_file => File.expand_path("~/.gcf/am-key.pem"),
+    # #:verify_peer => true
+    # :verify_peer => true
+  # },
+  # :log => '/tmp/am_server.log',
+  # :dm_db => 'sqlite::memory:', # 'sqlite:///tmp/am_test.db',
+  # :dm_log => '/tmp/am_server-dm.log',
+  # :rackup => File.dirname(__FILE__) + '/config.ru'
+#
+# }
+#
+#
+# Thin::Logging.debug = true
+# MyRunner.new(ARGV, opts).run!

data/lib/omf-sfa/am/am-rest/api_template.html

@@ -0,0 +1,48 @@
+<html>
+  <head>
+    <link href="http://netdna.bootstrapcdn.com/twitter-bootstrap/2.3.2/css/bootstrap-combined.min.css" rel="stylesheet">
+    <link href="http://netdna.bootstrapcdn.com/bootswatch/2.3.2/journal/bootstrap.min.css" rel="stylesheet">
+    <style>
+      body {
+        padding-top: 80px; /* 60px to make the container go all the way to the bottom of the topbar */
+        font-size: 16px;
+      }
+      a, a:hover, a:focus {
+        color: blue;
+      }
+      span.key {
+        font-weight: bold;
+      }
+      span.empty {
+        font-style: italic;
+      }
+
+      h2 {
+        margin-bottom: 30px;
+      }
+      li {
+        line-height: 140%;
+      }
+    </style>
+    <link href="/assets/css/rest_api.css" rel="stylesheet">
+  </head>
+  <body>
+    <div class="navbar navbar-inverse navbar-fixed-top">
+      <div class="navbar-inner">
+        <div class="container">
+          <a class="brand" href="/">##TITLE##</a>
+        </div>
+      </div>
+    </div>
+
+    <div class="container">
+      <h2>##SERVICE##</h2>
+
+      ##CONTENT##
+
+      <!--##FOOTER##-->
+    </div>
+
+    <script src="http://netdna.bootstrapcdn.com/twitter-bootstrap/2.3.2/js/bootstrap.min.js"></script>
+  </body>
+</html>

data/lib/omf-sfa/am/am-rest/config.ru

@@ -0,0 +1,110 @@
+
+REQUIRE_LOGIN = false
+
+#MyRunner.instance.init_data_mapper
+
+require 'rack/file'
+class MyFile < Rack::File
+  def call(env)
+    c, h, b = super
+    #h['Access-Control-Allow-Origin'] = '*'
+    [c, h, b]
+  end
+end
+
+opts = OMF::Base::Thin::Runner.instance.options
+
+require 'omf-sfa/am/am-rest/session_authenticator'
+use OMF::SFA::AM::Rest::SessionAuthenticator, #:expire_after => 10,
+          :login_url => (REQUIRE_LOGIN ? '/login' : nil),
+          :no_session => ['^/$', '^/login', '^/logout', '^/readme', '^/assets']
+
+#use ::Rack::Lint
+
+require 'omf-sfa/resource/oresource'
+OMF::SFA::Resource::OResource.href_resolver do |res, o|
+  unless @http_prefix ||=
+    @http_prefix = "http://#{Thread.current[:http_host]}"
+  end
+  case res.resource_type.to_sym
+  when :account
+    "#@http_prefix/accounts/#{res.uuid}"
+  else
+    "#@http_prefix/resources/#{res.uuid}"
+  end
+end
+
+map '/accounts' do
+  require 'omf-sfa/am/am-rest/account_handler'
+  run OMF::SFA::AM::Rest::AccountHandler.new(opts)
+end
+
+map '/slices' do
+  require 'omf-sfa/am/am-rest/account_handler'
+  run opts[:account_handler]
+end
+
+map "/resources" do
+  require 'omf-sfa/am/am-rest/resource_handler'
+  #account = opts[:am_mgr].get_default_account()
+  run OMF::SFA::AM::Rest::ResourceHandler.new(opts)
+end
+
+map "/readme" do
+    require 'bluecloth'
+    s = File::read(File.dirname(__FILE__) + '/REST_API.md')
+    frag = BlueCloth.new(s).to_html
+wrapper = %{
+<html>
+  <head>
+    <title>AM REST API</title>
+    <link href="/assets/css/default.css" media="screen" rel="stylesheet" type="text/css">
+    <style type="text/css">
+   circle.node {
+     stroke: #fff;
+     stroke-width: 1.5px;
+   }
+
+      line.link {
+        stroke: #999;
+        stroke-opacity: .6;
+        stroke-width: 2px;
+
+      }
+</style>
+  </head>
+  <body>
+%s
+  </body>
+</html>
+}
+  p = lambda do |env|
+    return [200, {"Content-Type" => "text/html"}, wrapper % frag]
+  end
+  run p
+end
+
+map '/assets' do
+  run MyFile.new(File.dirname(__FILE__) + '/../../../../share/assets')
+end
+
+map "/" do
+  handler = Proc.new do |env|
+    req = ::Rack::Request.new(env)
+    case req.path_info
+    when '/'
+      http_prefix = "http://#{env["HTTP_HOST"]}"
+      toc = {}
+      ['README', :slices, :resources, :accounts].each do |s|
+        toc[s] = "#{http_prefix}/#{s.to_s.downcase}"
+      end
+      [200 ,{'Content-Type' => 'text/html'}, OMF::SFA::AM::Rest::RestHandler.convert_to_html(toc, env)]
+    when '/favicon.ico'
+      [301, {'Location' => '/assets/image/favicon.ico', "Content-Type" => ""}, ['Next window!']]
+    else
+      OMF::Base::Loggable.logger('rack').warn "Can't handle request '#{req.path_info}'"
+      [401, {"Content-Type" => ""}, "Sorry!"]
+    end
+  end
+  run handler
+end

data/lib/omf-sfa/am/am-rest/resource_handler.rb

@@ -0,0 +1,178 @@
+
+require 'omf-sfa/am/am-rest/rest_handler'
+
+module OMF::SFA::AM::Rest
+
+  # Handles an individual resource
+  #
+  class ResourceHandler < RestHandler
+
+    def initialize(opts = {})
+      super
+      @resource_class = OMF::SFA::Resource::OComponent
+      # Define handlers
+      opts[:resource_handler] = self
+      # @coll_handlers = {
+        # projects: (opts[:project_handler] || ProjectHandler.new(opts))
+      # }
+    end
+    # SUPPORTING FUNCTIONS
+
+    def show_resource_list(opts)
+      authenticator = Thread.current["authenticator"]
+      prefix = about = opts[:req].path
+      # if project = opts[:context]
+        # users = project.users
+      # else
+        resources = OMF::SFA::Resource::OComponent.all()
+      # end
+      show_resources(resources, :resources, opts)
+    end
+
+    # def remove_resource_from_context(user, context)
+      # debug "REMOVE #{user} from #{context}"
+      # context.users.delete(user)
+      # context.save
+    # end
+#
+    # def add_resource_to_context(user, context)
+      # debug "ADD #{user} to #{context}"
+      # context.users << user
+      # context.save
+    # end
+
+    # # Return the handler responsible for requests to +path+.
+    # # The default is 'self', but override if someone else
+    # # should take care of it
+    # #
+    # def find_handler(path, opts)
+      # #opts[:account] = @am_manager.get_default_account
+      # opts[:resource_uri] = path.join('/')
+      # debug "find_handler: path: '#{path}' opts: '#{opts.inspect}'"
+      # self
+    # end
+#
+#
+    # def on_get(resource_uri, opts)
+      # authenticator = Thread.current["authenticator"]
+      # unless resource_uri.empty?
+        # opts[:path] = opts[:req].path.split('/')[0 .. -2].join('/')
+        # resource = @am_manager.find_resource(resource_uri, authenticator)
+      # else
+        # resource = @am_manager.find_all_resources_for_account(opts[:account], authenticator)
+      # end
+      # show_resource(resource, opts)
+    # end
+#
+    # def on_put(resource_uri, opts)
+      # resource = update_resource(resource_uri, true, opts)
+      # show_resource(resource, opts)
+    # end
+#
+    # def on_post(resource_uri, opts)
+      # resource = update_resource(resource_uri, false, opts)
+      # show_resource(resource, opts)
+    # end
+#
+    # def on_delete(resource_uri, opts)
+      # delete_resource(resource_uri, opts)
+      # show_resource(nil, opts)
+    # end
+#
+#
+    # # Update resource(s) referred to by +resource_uri+. If +clean_state+ is
+    # # true, reset any other state to it's default.
+    # #
+    # def update_resource(resource_uri, clean_state, opts)
+      # body, format = parse_body(opts)
+      # case format
+      # # when :empty
+        # # # do nothing
+      # when :xml
+        # puts ">>>>> #{body.inspect}"
+        # resource = @am_manager.update_resources_from_xml(body.root, clean_state, opts)
+      # else
+        # raise UnsupportedBodyFormatException.new(format)
+      # end
+      # resource
+    # end
+#
+#
+    # # This methods deletes components, or more broadly defined, removes them
+    # # from a slice.
+    # #
+    # # Currently, we simply transfer components to the +default_sliver+
+    # #
+    # def delete_resource(resource_uri, opts)
+      # @am_manager.delete_resource(resource_uri, opts)
+    # end
+#
+    # # Update the state of +component+ according to inforamtion
+    # # in the http +req+.
+    # #
+    # #
+    # def update_component_xml(component, modifier_el, opts)
+    # end
+#
+    # # Return the state of +component+
+    # #
+    # # +component+ - Component to display information about. !!! Can be nil - show only envelope
+    # #
+    # def show_resource(resource, opts)
+      # unless about = opts[:req].path
+        # throw "Missing 'path' declaration in request"
+      # end
+      # path = opts[:path] || about
+#
+      # case opts[:format]
+      # when 'xml'
+        # show_resources_xml(resource, path, opts)
+      # else
+        # show_resources_json(resource, path, opts)
+      # end
+    # end
+#
+    # def show_resources_xml(resource, path, opts)
+      # #debug "show_resources_xml: #{resource}"
+      # opts[:href_prefix] = path
+      # announcement = OMF::SFA::Resource::OComponent.sfa_advertisement_xml(resource, opts)
+      # ['text/xml', announcement.to_xml]
+    # end
+#
+    # def show_resources_json(resources, path, opts)
+      # res = resources ? resource_to_json(resources, path, opts) : {}
+      # res[:about] = opts[:req].path
+#
+      # ['application/json', JSON.pretty_generate({:resource_response => res}, :for_rest => true)]
+    # end
+#
+    # def resource_to_json(resource, path, opts, already_described = {})
+      # debug "resource_to_json: resource: #{resource}, path: #{path}"
+      # if resource.kind_of? Enumerable
+        # res = []
+        # resource.each do |r|
+          # p = path
+          # res << resource_to_json(r, p, opts, already_described)[:resource]
+        # end
+        # res = {:resources => res}
+      # else
+        # #prefix = path.split('/')[0 .. -2].join('/') # + '/'
+        # prefix = path
+        # if resource.respond_to? :to_sfa_hashXXX
+          # debug "TO_SFA_HASH: #{resource}"
+          # res = {:resource => resource.to_sfa_hash(already_described, :href_prefix => prefix)}
+        # else
+          # rh = resource.to_hash(already_described, opts.merge(:href_prefix => prefix))
+          # # unless (account = resource.account) == @am_manager.get_default_account()
+            # # rh[:account] = {:uuid => account.uuid.to_s, :name => account.name}
+          # # end
+          # res = {:resource => rh}
+        # end
+      # end
+      # res
+    # end
+
+    protected
+
+  end # ResourceHandler
+end # module