emptyd 0.0.1

checksums.yaml

@@ -0,0 +1,7 @@
+---
+SHA1:
+  metadata.gz: d30169c9b6b2194aa9463c384bca30e153180adb
+  data.tar.gz: 1cbb92a9adb7026e0753b540bc48229547e26da0
+SHA512:
+  metadata.gz: 863c278fa138f2a375a7324f385684c609c253acb478d59a8a642aa9340bf4720bef71b4829ed5f634c7d3307f53717e5cc1d5e1403be5e174ca34eb59b855ac
+  data.tar.gz: 721c1cfbcf09a778de8121062eef223292fc182d6f44c1f8eea7815a7e33f925ac747633de7d6ac41cb787323e0da7eea981b8339c6009025cbd4c2b9bee8bfd

data/.gitignore

@@ -0,0 +1,17 @@
+*.gem
+*.rbc
+.bundle
+.config
+.yardoc
+Gemfile.lock
+InstalledFiles
+_yardoc
+coverage
+doc/
+lib/bundler/man
+pkg
+rdoc
+spec/reports
+test/tmp
+test/version_tmp
+tmp

data/Gemfile

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

data/LICENSE.txt

@@ -0,0 +1,22 @@
+Copyright (c) 2014 kmeaw
+
+MIT License
+
+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.

data/README.md

@@ -0,0 +1,29 @@
+# Emptyd
+
+TODO: Write a gem description
+
+## Installation
+
+Add this line to your application's Gemfile:
+
+    gem 'emptyd'
+
+And then execute:
+
+    $ bundle
+
+Or install it yourself as:
+
+    $ gem install emptyd
+
+## Usage
+
+TODO: Write usage instructions here
+
+## Contributing
+
+1. Fork it
+2. Create your feature branch (`git checkout -b my-new-feature`)
+3. Commit your changes (`git commit -am 'Add some feature'`)
+4. Push to the branch (`git push origin my-new-feature`)
+5. Create new Pull Request

data/Rakefile

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

data/bin/emptyd

@@ -0,0 +1,77 @@
+#!/usr/bin/env ruby
+# vim: ai:ts=2:sw=2:et:syntax=ruby
+
+lp = File.expand_path(File.join(File.dirname(__FILE__), "..", "lib"))
+
+unless $LOAD_PATH.include?(lp)
+  $LOAD_PATH.unshift(lp)
+end
+
+require "emptyd"
+require 'evma_httpserver'
+
+class MyHttpServer < EM::Connection
+  include EM::HttpServer
+
+  def post_init
+    super
+    no_environment_strings
+  end
+
+  def process_http_request
+    done = false
+    port, ip = Socket.unpack_sockaddr_in(get_peername)
+    Emptyd::LOG.info "#{ip}:#{port} #{@http_request_method} #{@http_path_info} #{@http_post_content.inspect}"
+
+    response = EM::DelegatedHttpResponse.new(self)
+    response.status = 200
+    response.content_type 'application/json'
+    response.content = JSON.dump({ :okay => true })
+
+    begin
+      case @http_path_info
+      when %r{/session/new}
+        session = Emptyd::Session.new JSON.load(@http_post_content)
+        response.content = JSON.dump({id: session.uuid})
+      when %r{/session/(.*)/run}
+        Emptyd::Session[$1].run @http_post_content
+      when %r{/session/(.*)/read}
+        session = Emptyd::Session[$1]
+        if session.dead? and session.queue.empty?
+          session.destroy!
+          response.content = JSON.dump([nil,:dead,nil])
+        else
+          return session.queue.pop do |data|
+            response.content = JSON.dump(data)
+            response.send_response
+          end
+        end
+      when %r{/session/(.*)/terminate}
+        session = Emptyd::Session[$1]
+        session.terminate @http_post_content
+      when %r{/session/(.*)}
+        session = Emptyd::Session[$1]
+        case @http_request_method
+        when "GET"
+          response.content = JSON.dump(session.status)
+        when "DELETE"
+          session.destroy
+        end
+      when %r{/session}
+        response.content = JSON.dump(Emptyd::Session.ids)
+      else
+        raise KeyError
+      end
+    rescue KeyError
+      response.content = JSON.dump({:okay => false, :error => :not_found})
+      response.status = 404
+    end
+    response.send_response
+  end
+end
+
+EM.run do
+  EM.start_server '0.0.0.0', 8080, MyHttpServer
+  Emptyd::LOG.info "Server started on port 8080."
+end
+

data/emptyd.gemspec

@@ -0,0 +1,26 @@
+# coding: utf-8
+lib = File.expand_path('../lib', __FILE__)
+$LOAD_PATH.unshift(lib) unless $LOAD_PATH.include?(lib)
+require 'emptyd/version'
+
+Gem::Specification.new do |spec|
+  spec.name          = "emptyd"
+  spec.version       = Emptyd::VERSION
+  spec.authors       = ["kmeaw"]
+  spec.email         = ["kmeaw@larkit.ru"]
+  spec.description   = %q{An HTTP interface to run a single command on a cluster.}
+  spec.summary       = %q{Run commands on multiple hosts over SSH}
+  spec.homepage      = "https://github.com/kmeaw/emptyd"
+  spec.license       = "MIT"
+
+  spec.files         = `git ls-files`.split($/)
+  spec.executables   = spec.files.grep(%r{^bin/}) { |f| File.basename(f) }
+  spec.test_files    = spec.files.grep(%r{^(test|spec|features)/})
+  spec.require_paths = ["lib"]
+
+  spec.add_development_dependency "bundler", "~> 1.3"
+  spec.add_development_dependency "rake"
+
+  spec.add_dependency "em-ssh"
+  spec.add_dependency "eventmachine_httpserver"
+end

data/lib/emptyd/version.rb

@@ -0,0 +1,3 @@
+module Emptyd
+  VERSION = "0.0.1"
+end

data/lib/emptyd.rb

@@ -0,0 +1,320 @@
+# vim: ai:ts=2:sw=2:et:syntax=ruby
+require "emptyd/version"
+
+require 'fiber'
+require 'em-ssh'
+require 'securerandom'
+require 'json'
+
+module Emptyd
+  $0 = "emptyd"
+  LOG = Logger.new(STDERR)
+
+  class Connection
+    attr_reader :key, :updated_at, :failed_at, :error
+    EXPIRE_INTERVAL = 600 # 10min
+    MAX_CONNECTIONS = 30
+    HAPPY_RATIO = 0.5
+    @@connections = {}
+    @@count = {}
+
+    def self.[](key)
+      @@connections[key] or Connection.new(key)
+    end
+
+    def initialize(key)
+      raise IOError, "already registered" if @@connections[key]
+      @key = key
+      @sessions = []
+      @user, @host = key.split('@', 2)
+      @user, @host = "root", @user if @host.nil?
+      @@connections[key] = self
+      @run_queue = []
+      self.start
+      @timer = EM::PeriodicTimer.new(rand(5..15)) do
+        start
+        destroy if old? and free?
+      end
+    end
+
+    def destroy
+      raise IOError, "sessions are still alive" unless @sessions.empty?
+      @timer.cancel
+      @start_timer.cancel if @start_timer
+      @@connections.delete @key
+      if @conn
+        @@count.delete self.key
+        conn = @conn
+        @conn = nil
+        Fiber.new do
+          conn.close
+        end.resume
+      end
+      LOG.debug "Destroying connection #{@key}"
+    end
+
+    def start
+      return if @conn or @connecting
+      @connecting = true
+
+      pressure = proc do
+        if @@count.size >= MAX_CONNECTIONS # pressure
+          c = @@count.select{|k,c| c.free?}.values.sample
+          if c
+            c.destroy
+          else
+            LOG.debug "pressure: no free connections: #{@@count.keys}"
+          end
+        end
+      end
+
+      starter = proc do
+        begin
+          pressure[]
+          if @@count.size >= MAX_CONNECTIONS
+            LOG.debug "Quota exceeded by #{@key}: #{@@count.size}"
+            @start_timer = EM::PeriodicTimer.new(rand(1..10)) do
+              pressure[]
+              if @@count.size < MAX_CONNECTIONS
+                @start_timer.cancel
+                EM.next_tick starter
+              else
+                LOG.debug "No more connection quota, deferring #{@key}..."
+              end
+            end
+          else
+            @@count[self.key] = self
+            LOG.debug "Created new conn: #{key}, quota = #{@@count.size}"
+            EM::Ssh.start(@host, @user, user_known_hosts_file: []) do |conn|
+              conn.errback do |err|
+                @@count.delete self.key
+                @conn = nil
+                STDERR.puts "Connection to #{@key} is broken: #{err}"
+                @error = err
+                @failed_at = Time.now
+                @connecting = false
+                @run_queue.each do |cmd,session,callback|
+                  callback.call self, :error
+                end
+              end
+              conn.callback do |ssh|
+                @conn = ssh
+                @error = nil
+                @failed_at = nil
+                @updated_at = Time.now
+                @connecting = false
+                @run_queue.each do |cmd,session,callback|
+                  if session.dead?
+                    LOG.debug "Dropping pending run request from a dead session"
+                    @error = "session is dead"
+                  else
+                    EM.next_tick { run cmd, session, &callback }
+                  end
+                end
+                @run_queue.clear
+                if @error
+                  ssh.close
+                  @@count.delete self.key
+                end
+              end
+            end
+          end
+        rescue EventMachine::ConnectionError => e
+          @@count.delete self.key
+          @conn = nil
+          @error = e
+          @failed_at = Time.now
+          @connecting = false
+          @run_queue.each do |cmd,session,callback|
+            callback.call self, :error
+          end
+        end
+      end
+
+      EM.next_tick starter
+    end
+
+    def bind(session)
+      raise IOError, "already bound" if @sessions.include? session
+      @sessions << session
+    end
+
+    def unbind(session)
+      raise IOError, "not bound" unless @sessions.include? session
+      @run_queue.delete_if{|cmd,sess,cb| sess == session}
+      @sessions.delete session
+    end
+
+    def run cmd, session, &callback
+      unless @conn
+        @run_queue << [cmd, session, callback]
+        return
+      end
+
+      @conn.open_channel do |ch|
+        ch.exec cmd do |ch, success|
+          callback.call self, :init, ch
+
+          STDERR.puts "#{h}: exec failed: #{cmd}" unless success
+          ch.on_data do |c, data|
+            EM.next_tick do
+              @updated_at = Time.now
+              session.queue.push [@key,nil,data]
+            end
+          end
+
+          ch.on_extended_data do |c, type, data|
+            EM.next_tick do
+              @updated_at = Time.now
+              session.queue.push [@key,type,data]
+              LOG.debug [type,data]
+            end
+          end
+
+          ch.on_request "exit-status" do |ch, data|
+            EM.next_tick do
+              @updated_at = Time.now
+              session.queue.push [@key,:exit,data.read_long]
+            end
+          end
+
+          ch.on_close do
+            @updated_at = Time.now
+            callback.call self, :close
+          end
+        end
+      end
+    end
+
+    def old?
+      @updated_at and Time.now - @updated_at > EXPIRE_INTERVAL
+    end
+
+    def free?
+      @sessions.empty?
+    end
+
+    def connecting?
+      @connecting
+    end
+
+    def dead?
+      @failed_at
+    end
+  end
+
+  class Session
+    attr_reader :uuid, :queue
+    @@sessions = {}
+
+    def self.ids
+      @@sessions.keys
+    end
+
+    def self.[](uuid)
+      @@sessions[uuid] or raise KeyError, "no such session"
+    end
+
+    def initialize keys, &callback
+      @uuid = SecureRandom.uuid
+      @@sessions[@uuid] = self
+      @keys = keys
+      @connections = Hash[keys.map{|h| [h, Connection[h]]}]
+      @connections.each_value{|h| h.bind self}
+      @queue = EM::Queue.new
+      @running = {}
+      @dead = false
+      @terminated = {}
+    end
+
+    def destroy
+      LOG.debug "Destroying session #{@uuid}"
+      p @running.map{|h,v| [h, v.class.name]}
+      @running.each do |h,v| 
+        if v.respond_to? :close
+          p "Closing channel for #{h}"
+          v.close
+        end
+      end
+      @connections.each_value do |h| 
+        callback h, :close, "user"
+        h.unbind self
+      end
+      @dead = true
+    end
+
+    def destroy!
+      @@sessions.delete @uuid
+    end
+
+    def done?
+      @running.empty?
+    end
+
+    def dead?
+      @dead
+    end
+
+    def run cmd
+      dead = @connections.values.select(&:dead?)
+      alive = @connections.values.reject(&:dead?)
+      @queue.push [nil,:dead,dead.map(&:key)]
+      alive.each { |h| @running[h.key] = true }
+      alive.each do |h|
+        h.run(cmd, self) { |h,e,c| callback h,e,c }
+      end
+    end
+
+    def status
+      {
+        :children => Hash[@keys.map{|k| [k, 
+          @terminated[k] ? :terminated :
+          @running[k] == true ? :pending : 
+          @running[k] ? :running : 
+          @connections[k] ? 
+            @connections[k].dead? ? :dead : :unknown
+            : :done]}],
+        :dead => @dead
+      }
+    end
+
+    def terminate key
+      chan = @running[key]
+      conn = @connections[key]
+      chan.close if chan.respond_to? :close
+      if conn
+        callback conn, :close, "user"
+        conn.unbind self 
+      end
+      @running.delete key
+      @connections.delete key
+      @terminated[key] = true
+    end
+
+    def callback(h,e,c=nil)
+      EM.next_tick do
+        LOG.debug [h.key,e,c.nil?]
+        case e
+        when :init
+          @queue.push [h.key,:start,nil]
+          @running[h.key] = c
+        when :close, :error
+          h.unbind self unless @dead or not @connections.include? h.key
+          @connections.delete h.key
+          @queue.push [h.key,:dead,nil] if e == :error
+          @queue.push [h.key,:done,nil]
+          @running.delete h.key
+          if done?
+            @queue.push [nil,:done,nil] 
+            LOG.debug "run is done."
+          else
+            LOG.debug "#{@running.size} connections pending"
+          end
+        else
+          LOG.error "Session#run: unexpected callback #{e}"
+        end
+      end
+    end
+  end
+end
+

metadata

@@ -0,0 +1,110 @@
+--- !ruby/object:Gem::Specification
+name: emptyd
+version: !ruby/object:Gem::Version
+  version: 0.0.1
+platform: ruby
+authors:
+- kmeaw
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2014-03-14 00:00:00.000000000 Z
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: bundler
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: '1.3'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: '1.3'
+- !ruby/object:Gem::Dependency
+  name: rake
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+- !ruby/object:Gem::Dependency
+  name: em-ssh
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :runtime
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+- !ruby/object:Gem::Dependency
+  name: eventmachine_httpserver
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :runtime
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+description: An HTTP interface to run a single command on a cluster.
+email:
+- kmeaw@larkit.ru
+executables:
+- emptyd
+extensions: []
+extra_rdoc_files: []
+files:
+- .gitignore
+- Gemfile
+- LICENSE.txt
+- README.md
+- Rakefile
+- bin/emptyd
+- emptyd.gemspec
+- lib/emptyd.rb
+- lib/emptyd/version.rb
+homepage: https://github.com/kmeaw/emptyd
+licenses:
+- MIT
+metadata: {}
+post_install_message: 
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+required_rubygems_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubyforge_project: 
+rubygems_version: 2.1.9
+signing_key: 
+specification_version: 4
+summary: Run commands on multiple hosts over SSH
+test_files: []