# app.rb
require 'rubygems'
require 'haml'
require 'sinatra'
require 'redis'

helpers do
  def redis
    @redis ||= Redis.new
  end
end

get "/" do
  @keys = redis.keys("*")
  haml :index
end

get "/flushall" do
  redis.flushall
  redirect to('/')
end

get "/:key" do
  @key = params[:key]
  @data = case redis.type(@key)
  when "string"
    Array(redis[@key])
  when "list"
    redis.lrange(@key, 0, -1)
  when "set"
    redis.smembers(@key)
  else
    []
  end
  haml :show
end

__END__

@@ index
%html
%body
  %h1 Current Keys
  %a{:href => "/flushall"}= 'Remove all'
  %ul
    - @keys.each do |key|
      %li
        %a{:href => "/#{key}"}= key

@@ show
%html
%body
  %h1= "Data stored in '#{@key}'"
  %ul
    -@data.each do |data|
      %li
        %p= data