ftl 0.0.1

data/.document

@@ -0,0 +1,5 @@
+README.rdoc
+lib/**/*.rb
+bin/*
+features/**/*.feature
+LICENSE

data/.gems

@@ -0,0 +1,6 @@
+sinatra --version 0.9.6
+activesupport --version  2.3.5
+aws
+httparty
+
+

data/.gitignore

@@ -0,0 +1,21 @@
+## MAC OS
+.DS_Store
+
+## TEXTMATE
+*.tmproj
+tmtags
+
+## EMACS
+*~
+\#*
+.\#*
+
+## VIM
+*.swp
+
+## PROJECT::GENERAL
+coverage
+rdoc
+pkg
+
+## PROJECT::SPECIFIC

data/LICENSE

@@ -0,0 +1,20 @@
+Copyright (c) 2010 Matt Petty
+
+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.rdoc

@@ -0,0 +1,17 @@
+= FTL: Faster Than Light Pair Programing Server
+
+Description goes here.
+
+== Note on Patches/Pull Requests
+ 
+* Fork the project.
+* Make your feature addition or bug fix.
+* Add tests for it. This is important so I don't break it in a
+  future version unintentionally.
+* Commit, do not mess with rakefile, version, or history.
+  (if you want to have your own version, that is fine but bump version in a commit by itself I can ignore when I pull)
+* Send me a pull request. Bonus points for topic branches.
+
+== Copyright
+
+Copyright (c) 2010 Matt Petty matt@kizmeta.com. See LICENSE for details.

data/Rakefile

@@ -0,0 +1,53 @@
+require 'rubygems'
+require 'rake'
+
+begin
+  require 'jeweler'
+  Jeweler::Tasks.new do |gem|
+    gem.name = "ftl"
+    gem.summary = %Q{Easily launch ec2 instances for pair programming}
+    gem.description = %Q{FTL spins up and down Amazon EC2 instances for pair programming}
+    gem.email = "matt@kizmeta.com"
+    gem.homepage = "http://github.com/lodestone/ftl"
+    gem.authors = ["Matt Petty"]
+    gem.add_development_dependency "thoughtbot-shoulda", ">= 0"
+    # gem is a Gem::Specification... see http://www.rubygems.org/read/chapter/20 for additional settings
+  end
+  Jeweler::GemcutterTasks.new
+rescue LoadError
+  puts "Jeweler (or a dependency) not available. Install it with: gem install jeweler"
+end
+
+require 'rake/testtask'
+Rake::TestTask.new(:test) do |test|
+  test.libs << 'lib' << 'test'
+  test.pattern = 'test/**/test_*.rb'
+  test.verbose = true
+end
+
+begin
+  require 'rcov/rcovtask'
+  Rcov::RcovTask.new do |test|
+    test.libs << 'test'
+    test.pattern = 'test/**/test_*.rb'
+    test.verbose = true
+  end
+rescue LoadError
+  task :rcov do
+    abort "RCov is not available. In order to run rcov, you must: sudo gem install spicycode-rcov"
+  end
+end
+
+task :test => :check_dependencies
+
+task :default => :test
+
+require 'rake/rdoctask'
+Rake::RDocTask.new do |rdoc|
+  version = File.exist?('VERSION') ? File.read('VERSION') : ""
+
+  rdoc.rdoc_dir = 'rdoc'
+  rdoc.title = "ftl #{version}"
+  rdoc.rdoc_files.include('README*')
+  rdoc.rdoc_files.include('lib/**/*.rb')
+end

data/TODO

@@ -0,0 +1,24 @@
+TESTS!!!
+
+
+Server:
+  HTTP auth (read from config/ftl.yml)
+
+
+
+Start up script:
+  rvm
+  need dev user
+  .dotfiles:
+    get latest .vim
+    get latest .screenrc
+    get latest .git config
+  git co latest repos
+  make sure login starts screen properly with follow-the-leader setup
+  make sure mysql/postgres is started
+
+
+  LATER:
+  set ASCII art login prompt
+  add hashrocket git pairing switcher thingy
+

data/VERSION

@@ -0,0 +1 @@
+0.0.1

data/bin/ftl

@@ -0,0 +1,5 @@
+#!/usr/bin/env ruby
+require 'rubygems'
+require 'ftl'
+FTL::Client.new(ARGV)
+

data/config.ru

@@ -0,0 +1,3 @@
+require 'lib/ftl/server'
+run FTL::Server
+

data/ftl.gemspec

@@ -0,0 +1,63 @@
+# Generated by jeweler
+# DO NOT EDIT THIS FILE DIRECTLY
+# Instead, edit Jeweler::Tasks in Rakefile, and run the gemspec command
+# -*- encoding: utf-8 -*-
+
+Gem::Specification.new do |s|
+  s.name = %q{ftl}
+  s.version = "0.0.1"
+
+  s.required_rubygems_version = Gem::Requirement.new(">= 0") if s.respond_to? :required_rubygems_version=
+  s.authors = ["Matt Petty"]
+  s.date = %q{2010-07-21}
+  s.default_executable = %q{ftl}
+  s.description = %q{FTL spins up and down Amazon EC2 instances for pair programming}
+  s.email = %q{matt@kizmeta.com}
+  s.executables = ["ftl"]
+  s.extra_rdoc_files = [
+    "LICENSE",
+     "README.rdoc",
+     "TODO"
+  ]
+  s.files = [
+    ".document",
+     ".gems",
+     ".gitignore",
+     "LICENSE",
+     "README.rdoc",
+     "Rakefile",
+     "TODO",
+     "VERSION",
+     "bin/ftl",
+     "config.ru",
+     "ftl.gemspec",
+     "lib/ftl.rb",
+     "lib/ftl/client.rb",
+     "lib/ftl/server.rb",
+     "test/helper.rb",
+     "test/test_ftl.rb"
+  ]
+  s.homepage = %q{http://github.com/lodestone/ftl}
+  s.rdoc_options = ["--charset=UTF-8"]
+  s.require_paths = ["lib"]
+  s.rubygems_version = %q{1.3.6}
+  s.summary = %q{Easily launch ec2 instances for pair programming}
+  s.test_files = [
+    "test/helper.rb",
+     "test/test_ftl.rb"
+  ]
+
+  if s.respond_to? :specification_version then
+    current_version = Gem::Specification::CURRENT_SPECIFICATION_VERSION
+    s.specification_version = 3
+
+    if Gem::Version.new(Gem::RubyGemsVersion) >= Gem::Version.new('1.2.0') then
+      s.add_development_dependency(%q<thoughtbot-shoulda>, [">= 0"])
+    else
+      s.add_dependency(%q<thoughtbot-shoulda>, [">= 0"])
+    end
+  else
+    s.add_dependency(%q<thoughtbot-shoulda>, [">= 0"])
+  end
+end
+

data/lib/ftl.rb

@@ -0,0 +1 @@
+require 'ftl/client'

data/lib/ftl/client.rb

@@ -0,0 +1,114 @@
+require 'httparty'
+require 'json'
+
+module FTL
+
+  class Client
+
+    include HTTParty
+
+    CONFIG = YAML.load_file(ENV['HOME']+'/.ftl/ftl.yml')
+    ACCESS_KEY_ID     = CONFIG['ACCESS_KEY_ID']
+    SECRET_ACCESS_KEY = CONFIG['SECRET_ACCESS_KEY']
+
+    base_uri CONFIG['server']
+    format :json
+
+    def initialize(args={})
+      send(args.reverse!.pop, args)
+    end
+
+    def start(args={})
+      if args.first.nil?
+        puts "Please provide a short name for instance, like: ftl start ninjaserver"
+        return
+      end
+      puts "Spinning up FTL..."
+      self.class.post('/machines', :body => '', :query => {:name => args.first, :ami => CONFIG['ami']})
+    end
+
+    def connect(args={})
+      response = self.class.get('/machines')
+      if response.length == 0
+        puts "No machines running. try: ftl start <servername>"
+      elsif response.length == 1
+        server = response.first
+      elsif response.length > 1 
+        if args.first.nil?
+          puts "Please provide the name (or partial name for the instance(s) you want to delete. For instance, like: ftl destroy ninja"
+        end
+        server = response.detect{|r| r['name'][args.first] }
+        if server.nil?
+          puts "Couldn't find that server name. try: ftl list"
+        end
+      end
+      exec("ssh dev@#{server['dns_name']}") if server['dns_name']
+    end
+
+    def destroy(args={})
+      if args.first.nil?
+        puts "Please provide the name (or partial name for the instance(s) you want to delete. For instance, like: ftl destroy ninja"
+        return
+      end
+      puts "Spinning down FTL..."
+      response = self.class.delete('/machines', :query => {:name => args.first}, :body => {:name => args.first})
+      puts response['message']
+    end
+
+    def list(args={})
+      response = self.class.get('/machines')
+      column_widths = {'#' => 4}
+      if response.blank?
+        puts "No machines are running"
+        return
+      end
+      keys          = response.first.keys
+      display_keys  = ['#'] + keys
+      separator     = ' |'
+            
+                    
+      keys.each {|r|
+        widths = [r.length + separator.length]
+        widths = widths + response.collect {|pm|
+          # WOW right_aws sucks. Why is everything an array. BS
+          pm[r].first.length + separator.length
+        }
+        column_widths[r] = widths.max 
+      }
+
+      # Headers
+      display_keys.sort.each do |key|
+        print key.rjust(column_widths[key])
+        print separator 
+      end
+      print "\n"
+
+      # Machines
+      response.each_with_index do |r,idx|
+        r['#'] = "#{idx+1}"
+        display_keys.sort.each do |key|
+          value = r[key].nil? ? '-' : r[key].first
+          print value.rjust(column_widths[key])
+          print separator
+        end
+        print "\n"
+      end
+    end
+
+  end
+
+end
+
+# TODO:
+# Server:
+#   establish connection
+#   read config (what AMI)
+#   list available pairing instances
+#   start up instance
+#   kill instance
+#
+# Client
+#   list available pairing instances (via server call)
+#   create new instance
+#   connect to new instance
+#   destroy instance

data/lib/ftl/server.rb

@@ -0,0 +1,67 @@
+require 'sinatra'
+require 'active_support'
+require 'right_aws'
+require 'sdb/active_sdb'
+require 'json'
+# require 'fog'
+# ENV["FOG_RC"] = Will need this if we switch to Fog
+
+class PairingMachine < Aws::ActiveSdb::Base
+end
+
+module FTL
+
+  class Server < Sinatra::Base
+
+    ACCESS_KEY_ID     = ENV['ACCESS_KEY_ID']     || YAML.load_file(ENV['HOME']+'/.ftl/ftl.yml')['ACCESS_KEY_ID']
+    SECRET_ACCESS_KEY = ENV['SECRET_ACCESS_KEY'] || YAML.load_file(ENV['HOME']+'/.ftl/ftl.yml')['SECRET_ACCESS_KEY']
+
+    before do
+      Aws::ActiveSdb.establish_connection(ACCESS_KEY_ID, SECRET_ACCESS_KEY)
+      PairingMachine.create_domain # Raises no error if it already exists, but blows up if it doesn't
+    end
+
+    get '/machines' do
+      # List the machines
+      pms = PairingMachine.find(:all)
+      ec2 = Aws::Ec2.new(ACCESS_KEY_ID, SECRET_ACCESS_KEY)
+      pms.each do |pm|
+        i = ec2.describe_instances(pm.attributes['aws_instance_id'])[0]
+        pm[:dns_name] = i[:dns_name]
+        pm.save
+      end
+      pms.collect{|pm| pm.attributes }.to_json
+    end
+
+    post '/machines' do
+      # Create new machine
+      return "Need to name this machine" unless params[:name]
+      return "Please provide an ami" unless params[:ami]
+      pm = PairingMachine.new(params)
+      pm[:instance_type] ||= 'm1.small'
+      ec2 = Aws::Ec2.new(ACCESS_KEY_ID, SECRET_ACCESS_KEY)
+      i = ec2.launch_instances(params[:ami], :user_data => "#!/", :instance_type => pm[:instance_type])[0]
+      pm[:aws_instance_id] = i[:aws_instance_id]
+      pm[:dns_name] = i[:dns_name]
+      pm.save
+      pm.attributes.to_json
+    end
+
+    delete '/machines' do
+      # Destroy the machine by short name
+      pms = PairingMachine.find(:all)
+      pms = pms.select{|pm| pm.attributes['name'].first[params['name']] }
+      return "{message: \"Provide the name of the machine(s) to be terminated\"}" if params['name'].nil? || pms.blank?
+      ec2 = Aws::Ec2.new(ACCESS_KEY_ID, SECRET_ACCESS_KEY)
+      instances = pms.collect{|pm| pm.attributes['aws_instance_id'].first }
+      ec2.terminate_instances(instances)
+      pms.each {|pm|
+        pm.delete 
+      }
+      "{message: \"Shutdown machines matching '#{params['name']}'\"}"
+    end
+
+  end
+
+end
+

data/test/helper.rb

@@ -0,0 +1,10 @@
+require 'rubygems'
+require 'test/unit'
+require 'shoulda'
+
+$LOAD_PATH.unshift(File.join(File.dirname(__FILE__), '..', 'lib'))
+$LOAD_PATH.unshift(File.dirname(__FILE__))
+require 'ftl'
+
+class Test::Unit::TestCase
+end

data/test/test_ftl.rb

@@ -0,0 +1,7 @@
+require 'helper'
+
+class TestFtl < Test::Unit::TestCase
+  should "probably rename this file and start testing for real" do
+    flunk "hey buddy, you should probably rename this file and start testing for real"
+  end
+end

metadata

@@ -0,0 +1,91 @@
+--- !ruby/object:Gem::Specification 
+name: ftl
+version: !ruby/object:Gem::Version 
+  prerelease: false
+  segments: 
+  - 0
+  - 0
+  - 1
+  version: 0.0.1
+platform: ruby
+authors: 
+- Matt Petty
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2010-07-21 00:00:00 -05:00
+default_executable: ftl
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: thoughtbot-shoulda
+  prerelease: false
+  requirement: &id001 !ruby/object:Gem::Requirement 
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        segments: 
+        - 0
+        version: "0"
+  type: :development
+  version_requirements: *id001
+description: FTL spins up and down Amazon EC2 instances for pair programming
+email: matt@kizmeta.com
+executables: 
+- ftl
+extensions: []
+
+extra_rdoc_files: 
+- LICENSE
+- README.rdoc
+- TODO
+files: 
+- .document
+- .gems
+- .gitignore
+- LICENSE
+- README.rdoc
+- Rakefile
+- TODO
+- VERSION
+- bin/ftl
+- config.ru
+- ftl.gemspec
+- lib/ftl.rb
+- lib/ftl/client.rb
+- lib/ftl/server.rb
+- test/helper.rb
+- test/test_ftl.rb
+has_rdoc: true
+homepage: http://github.com/lodestone/ftl
+licenses: []
+
+post_install_message: 
+rdoc_options: 
+- --charset=UTF-8
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      segments: 
+      - 0
+      version: "0"
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      segments: 
+      - 0
+      version: "0"
+requirements: []
+
+rubyforge_project: 
+rubygems_version: 1.3.6
+signing_key: 
+specification_version: 3
+summary: Easily launch ec2 instances for pair programming
+test_files: 
+- test/helper.rb
+- test/test_ftl.rb