is_it_a_haiku_app.rb

class IsItAHaikuApp < Sinatra::Application
  require "./lib/haiku"
  require "haml"
  require "sass"
  require "rack-flash"
  require 'json'

  enable :sessions
  use Rack::Flash
  
  @@haikus = $mongo.collection("haikus")
  
  configure :production do
    require "exceptional"
    require "json"

    set :raise_errors, false
    Exceptional.configure ENV['EXCEPTIONAL_API_KEY']
    Exceptional::Remote.startup_announce(::Exceptional::ApplicationEnvironment.to_hash('sinatra'))
    error do
      Exceptional::Catcher.handle_with_rack(request.env['sinatra.error'],request.env, request)
    end
  end
  
  get '/' do
    @random_haiku = random_haiku
    haml :index
  end
  
  post '/' do
    text          = params[:haiku]
    is_it_a_haiku = Haiku.haiku?(text)
    id            = @@haikus.save(:text => text, :haiku => is_it_a_haiku, :timestamp => Time.now, :ip => request.ip)
    redirect "/haikus/#{id}"
  end
  
  get '/haikus/:id' do
    object_id = begin
      BSON::ObjectId.from_string(params[:id])
    rescue BSON::InvalidObjectId
      pass
    end
    
    if @haiku = @@haikus.find_one(object_id)
      haml :haiku
    else
      pass
    end
  end

  get "/raise" do
     raise "Uh-oh!"
  end
  
  get "/ip" do
    "#{request.ip}"
  end
  
  # redirect to a random haiku
  get '/haikus' do
    haiku = random_haiku
    if haiku['_id']
      flash[:show_random_link] = true
      redirect "/haikus/#{random_haiku['_id']}"
    else
      redirect "/"
    end
  end

  get '/haikus/random.json' do
    content_type :json
    haiku = random_haiku
    {:text => haiku['text']}.to_json
  end
  
  get '/stylesheet.css' do
    content_type 'text/css', :charset => 'utf-8'
    sass :stylesheet
  end
  
  get "/broken" do
    @haikus = @@haikus.find(:haiku => false, :dismissed => {"$ne" => true}).limit(10)
    haml :broken
  end
  
  post "/dismiss/:id" do
    raise "not implemented (FIXME)"
    object_id = begin
      BSON::ObjectId.from_string(params[:id])
    rescue BSON::InvalidObjectId
      pass
    end
    
    if @haiku = @@haikus.find_one(object_id)
      @haiku[:dismissed] = true
      @@haikus.save(@haiku)
    end
    ""
  end
  
  helpers do
    def random_haiku
      random_haiku = begin
        count = @@haikus.find(:haiku => true).count()
        if count > 0
          @@haikus.find(:haiku => true).limit(-1).skip(rand(count)).first()
        else
          {'text' => "This is the first line\nand this is the second line\nand this is the third"}
        end
      end
    end
  end
end