bivouac.rb

require 'rubygems'
require 'sinatra'
require 'sinatra/authorization'
require 'haml'
require 'active_record'
require 'helpers'
require 'connection'

#TODO use set -look up sinatra docs
USER_NAME = 'bivouac'
SITE_ROOT = "#{ENV['HOME']}/apps"

connect_to_db

unless ActiveRecord::Base.connection.tables.include?('sites')
  puts "Creating sites table..."
  ActiveRecord::Base.connection.create_table("sites") do |t|
    t.string "name"
    t.text "ssh_public_key"
  end
end

class Site < ActiveRecord::Base
  attr_reader :error

  def directory
    File.join(SITE_ROOT, name) + '.bivou.ac'
  end

  def repo
    "#{USER_NAME}@bivou.ac:~/apps/#{name}"
  end

  def domain_name
    "http://#{name}.bivou.ac"
  end

  def valid?
    @error = nil
    name_valid?(name) && name_available?(name) && ssh_key_entered
  end

  private
  def name_available?(name)
    site = Site.find_by_name(name)
    @error =  conjure_error_message("App name already snaffled. Be more creative and try another!") unless site.nil?
    return site.nil?
  end

  def name_valid?(name)
    valid = true
    if name.nil? || name.length == 0 || name[0] == "-" || name[name.length - 1] == "-"
      valid = false
    else
      parts = name.split('-')
      parts.each do |part|
        if part.match(/^[a-z][a-z\d-]*[a-z\d]$/).nil?
          valid = false
        end
      end
    end
    @error = conjure_error_message("Sadly formed name. Try again you palooka!") unless valid
    @error.nil?
  end
  
  def ssh_key_entered
    if ssh_public_key.nil? || ssh_public_key.length == 0
      @error = conjure_error_message("Wake up camper and enter your public ssh key!")
    end
    @error.nil?
  end

  def conjure_error_message(error)
    bogus_messages = [
        "Watch out, wombats on the rampage!",
        "Your billy is boiling over!",
        "Strewth, your tent's blown over!",
        "Crikey, Bindi Irwin's on the loose!",
        "Those wallabies for your stew have escaped!",
        "Blimey, the beer has run out!",
        "Shiver me timbers, the fire has gone out!",
        "Look out, it's Dylan in his gorilla suit!",
        "It's dark, it's spooky and the strangler figs are about!",
        "Warning camper, Myles is about to pontificate!",
        "Shit, the server is down!",
        "Careful camper, that fire is hot!",
        "So you think you're a guitar hero?",
        "Bloody bananajour is buggered again!",
        "Careful villager, the werewolves are coming!"
      ]
    "#{bogus_messages[rand(bogus_messages.size - 1)]} #{error}"
  end
end

get '/:name' do
  login_required
  @site = Site.find_by_name params[:name]
  haml :site
end

post '/sites/create' do
  login_required
  @site = Site.new(params[:site])
  @site.name = @site.name.downcase
  if @site.valid? && @site.save!
    create_site(@site)
    redirect "/#{@site.name}"
  else
    @sites = Site.find(:all, :order => 'name')
    haml :index
  end
end

get '/' do
  @sites = Site.find(:all, :order => 'name')
  @site = Site.new
  haml :index
end