a_b 0.1.0

data/MIT-LICENSE

@@ -0,0 +1,18 @@
+Copyright (c) 2009 Winton Welsh
+
+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.markdown

@@ -0,0 +1,4 @@
+a\_b
+====
+
+A/B test data aggregator as a Sinatra web service.

data/Rakefile

@@ -0,0 +1,74 @@
+require 'rubygems'
+
+gems = [
+  [ 'cucumber', '=0.4.3' ],
+  [ 'rspec', '=1.2.9' ],
+  [ 'active_wrapper', '=0.2.1' ]
+]
+
+gems.each do |name, version|
+  if File.exists?(path = "#{File.dirname(__FILE__)}/vendor/#{name}/lib")
+    $:.unshift path
+  else
+    gem name, version
+  end
+end
+
+require 'rake'
+require 'active_wrapper/tasks'
+require 'cucumber/rake/task'
+require 'rake/gempackagetask'
+require 'spec/rake/spectask'
+require 'gemspec'
+
+ActiveWrapper::Tasks.new(
+  :base => File.dirname(__FILE__),
+  :env => ENV['ENV']
+)
+
+desc "Generate gemspec"
+task :gemspec do
+  File.open("#{Dir.pwd}/#{GEM_NAME}.gemspec", 'w') do |f|
+    f.write(GEM_SPEC.to_ruby)
+  end
+end
+
+desc "Install gem"
+task :install do
+  Rake::Task['gem'].invoke
+  `sudo gem uninstall #{GEM_NAME} -x`
+  `sudo gem install pkg/#{GEM_NAME}*.gem`
+  `rm -Rf pkg`
+end
+
+desc "Package gem"
+Rake::GemPackageTask.new(GEM_SPEC) do |pkg|
+  pkg.gem_spec = GEM_SPEC
+end
+
+desc "Rename project"
+task :rename do
+  name = ENV['NAME'] || File.basename(Dir.pwd)
+  begin
+    dir = Dir['**/gem_template*']
+    from = dir.pop
+    if from
+      rb = from.include?('.rb')
+      to = File.dirname(from) + "/#{name}#{'.rb' if rb}"
+      FileUtils.mv(from, to)
+    end
+  end while dir.length > 0
+  Dir["**/*"].each do |path|
+    next if path.include?('Rakefile')
+    if File.file?(path)
+      `sed -i "" 's/gem_template/#{name}/g' #{path}`
+    end
+  end
+end
+
+desc "Run specs"
+Spec::Rake::SpecTask.new do |t|
+  t.rcov = true
+  t.spec_opts = ["--format", "specdoc", "--colour"]
+  t.spec_files = FileList["spec/**/*_spec.rb"]
+end

data/config.ru

@@ -0,0 +1,3 @@
+require "#{File.dirname(__FILE__)}/lib/a_b"
+
+run Application

data/config/database.example.yml

@@ -0,0 +1,6 @@
+development:
+  adapter: mysql
+  database: a_b
+  username: root
+  password:
+  host: localhost

data/config/externals.yml

@@ -0,0 +1,6 @@
+# active_wrapper:
+#   repo: git@github.com:winton/active_wrapper.git
+#   path: vendor
+authlogic:
+  repo: git@github.com:winton/authlogic.git
+  path: vendor

data/config/mail.example.yml

@@ -0,0 +1,32 @@
+development:
+  imap:
+    password: password
+    port: 993
+    server: imap.gmail.com
+    ssl: true
+    use_login: true
+    username: test@sumapp.com
+  smtp:
+    address: smtp.gmail.com
+    authentication: :plain
+    domain: sumapp.com
+    password: 
+    port: 587
+    enable_starttls_auto: true
+    user_name: test@sumapp.com
+production:
+  imap:
+    password: password
+    port: 993
+    server: imap.gmail.com
+    ssl: true
+    use_login: true
+    username: sum@sumapp.com
+  smtp:
+    address: smtp.gmail.com
+    authentication: :plain
+    domain: sumapp.com
+    password: 
+    port: 587
+    enable_starttls_auto: true
+    user_name: sum@sumapp.com

data/db/migrate/001_a_b_tests.rb

@@ -0,0 +1,14 @@
+class ABTests < ActiveRecord::Migration
+  def self.up
+    create_table :a_b_tests do |t|
+      t.string :name
+      t.string :ticket_url
+      t.timestamps
+    end
+    add_index :a_b_tests, :name
+  end
+
+  def self.down
+    drop_table :a_b_tests
+  end
+end

data/db/migrate/002_a_b_variants.rb

@@ -0,0 +1,19 @@
+class ABVariants < ActiveRecord::Migration
+  def self.up
+    create_table :a_b_variants do |t|
+      t.string :name
+      t.boolean :control, :default => false
+      t.integer :conversions, :default => 0
+      t.integer :visitors, :default => 0
+      t.integer :a_b_test_id
+      t.timestamps
+    end
+    add_index :a_b_variants, :a_b_test_id
+    add_index :a_b_variants, :control
+    add_index :a_b_variants, :name
+  end
+
+  def self.down
+    drop_table :a_b_variants
+  end
+end

data/db/migrate/003_a_b_users.rb

@@ -0,0 +1,25 @@
+class ABUsers < ActiveRecord::Migration
+  def self.up
+    create_table :a_b_users do |t|
+      t.string :login, :null => false                # optional, you can use email instead, or both
+      t.string :crypted_password, :null => false     # optional, see below
+      t.string :password_salt, :null => false        # optional, but highly recommended
+      t.string :persistence_token, :null => false    # required
+      t.string :single_access_token, :null => false  # optional, see Authlogic::Session::Params
+      t.string :perishable_token, :null => false     # optional, see Authlogic::Session::Perishability
+
+      # Magic columns, all optional, see Authlogic::Session::MagicColumns
+      t.integer :login_count, :null => false, :default => 0
+      t.integer :failed_login_count, :null => false, :default => 0
+      t.datetime :last_request_at
+      t.datetime :current_login_at
+      t.datetime :last_login_at
+      t.string :current_login_ip
+      t.string :last_login_ip
+    end
+  end
+
+  def self.down
+    drop_table :users
+  end
+end

data/db/migrate/004_a_b_tokens.rb

@@ -0,0 +1,12 @@
+class ABTokens < ActiveRecord::Migration
+  def self.up
+    create_table :a_b_tokens do |t|
+      t.string :token
+      t.timestamps
+    end
+  end
+
+  def self.down
+    drop_table :a_b_tokens
+  end
+end

data/features/example.feature

@@ -0,0 +1,10 @@
+Feature: Example
+
+  As a user
+  I want
+  In order
+  
+  Scenario: I do something
+    /Given
+    /When
+    /Then

data/features/support/env.rb

@@ -0,0 +1,35 @@
+$testing = true
+$root = File.expand_path(File.dirname(__FILE__) + "/../../")
+$:.unshift "#{$root}/lib"
+
+require 'a_b'
+
+gems = [
+  [ 'rack-test', '=0.5.1' ],
+  [ 'rspec', '=1.2.9' ],
+  [ 'webrat', '=0.5.3' ]
+]
+
+gems.each do |name, version|
+  if File.exists?(path = "#{File.dirname(__FILE__)}/../../vendor/#{name}/lib")
+    $:.unshift path
+  else
+    gem name, version
+  end
+end
+
+require 'rack/test'
+require 'spec/mocks'
+require 'test/unit'
+require 'webrat'
+
+World do
+  def app
+    Application
+  end
+  
+  include Rack::Test::Methods
+  include Test::Unit::Assertions
+  include Webrat::Matchers
+  include Webrat::Methods
+end

data/features/support/rspec.rb

@@ -0,0 +1,11 @@
+Before do
+  $rspec_mocks ||= Spec::Mocks::Space.new
+end
+
+After do
+  begin
+    $rspec_mocks.verify_all
+  ensure
+    $rspec_mocks.reset_all
+  end
+end

data/features/support/webrat.rb

@@ -0,0 +1,3 @@
+Webrat.configure do |config|
+  config.mode = :rack
+end

data/gemspec.rb

@@ -0,0 +1,41 @@
+GEM_NAME = 'a_b'
+GEM_FILES = FileList['**/*'] - FileList[
+  '*.gem',
+  '*.log',
+  'config/database.yml',
+  'config/deploy.rb',
+  'config/mail.yml',
+  'coverage',
+  'coverage/**/*',
+  'log',
+  'log/**/*',
+  'pkg',
+  'pkg/**/*',
+  'tmp',
+  'tmp/**/*'
+]
+GEM_SPEC = Gem::Specification.new do |s|
+  # == CONFIGURE ==
+  s.author = "Winton Welsh"
+  s.email = "mail@wintoni.us"
+  s.homepage = "http://github.com/winton/#{GEM_NAME}"
+  s.summary = "A/B test data aggregator as a Sinatra web service"
+  # == CONFIGURE ==
+  s.add_dependency('active_wrapper', '=0.2.1')
+  s.add_dependency('cucumber', '=0.4.3')
+  s.add_dependency('haml', '=2.2.13')
+  s.add_dependency('rack', '=1.0.1')
+  s.add_dependency('rack-flash', '=0.1.1')
+  s.add_dependency('rack-test', '=0.5.1')
+  s.add_dependency('rspec', '=1.2.9')
+  s.add_dependency('shotgun', '=0.4')
+  s.add_dependency('sinatra', '=0.9.4')
+  s.add_dependency('webrat', '=0.5.3')
+  s.extra_rdoc_files = [ "README.markdown" ]
+  s.files = GEM_FILES.to_a
+  s.has_rdoc = false
+  s.name = GEM_NAME
+  s.platform = Gem::Platform::RUBY
+  s.require_path = "lib"
+  s.version = "0.1.0"
+end

data/lib/a_b.rb

@@ -0,0 +1,31 @@
+require 'rubygems'
+
+gems = [
+  [ 'haml', '=2.2.13' ],
+  [ 'sinatra', '=0.9.4' ],
+  [ 'active_wrapper', '=0.2.1' ],
+  [ 'rack-flash', '=0.1.1' ],
+  [ 'authlogic', '=2.1.3' ]
+]
+
+gems.each do |name, version|
+  if File.exists?(path = "#{File.dirname(__FILE__)}/../vendor/#{name}/lib")
+    $:.unshift path
+  else
+    gem name, version
+  end
+end
+
+require 'haml'
+require 'sass'
+require 'sinatra/base'
+require 'active_wrapper'
+require 'rack-flash'
+require 'authlogic'
+
+class Application < Sinatra::Base
+end
+
+Dir["#{File.dirname(__FILE__)}/a_b/**/*.rb"].each do |path|
+  require path
+end

data/lib/a_b/boot.rb

@@ -0,0 +1,30 @@
+Application.class_eval do
+  
+  # Sinatra
+  enable :raise_errors
+  enable :sessions
+  set :environment, $testing ? :test : environment
+  set :root, File.expand_path("#{File.dirname(__FILE__)}/../../")
+  set :public, "#{root}/public"
+  set :logging, true
+  set :static, true
+  set :views, "#{root}/lib/a_b/view"
+    
+  # Database, logging, and email
+  $db, $log, $mail = ActiveWrapper.setup(
+    :base => root,
+    :env => environment,
+    :stdout => environment != :test
+  )
+  $db.establish_connection
+  if $mail.config
+    ActionMailer::Base.raise_delivery_errors = true
+  end
+  
+  # Rack flash
+  use Rack::Flash, :accessorize => %w(error notice success)
+  
+  # Generate token
+  require File.dirname(__FILE__) + '/model/token'
+  Token.generate!
+end

data/lib/a_b/controller/api.rb

@@ -0,0 +1,32 @@
+Application.class_eval do
+  
+  get '/boot.json' do
+    content_type :json
+    restrict
+    {
+      :user_token => Token.cached,
+      :tests => ABTest.find(:all)
+    }.to_json(
+      :include => :variants,
+      :only => [ :user_token, :tests, :variants, :name, :visitors ]
+    )
+  end
+  
+  get '/convert.js' do
+    return nil unless valid_token?
+    if variant = ABVariant.find_by_name(params[:variant])
+      variant.increment!(:conversions)
+    end
+    'true'
+  end
+  
+  get '/visit.js' do
+    return nil unless valid_token?
+    if params[:variants] && variants = ABVariant.find_all_by_name(params[:variants])
+      variants.each do |variant|
+        variant.increment!(:visitors)
+      end
+    end
+    redirect '/js/visit.js'
+  end
+end

data/lib/a_b/controller/application.rb

@@ -0,0 +1,6 @@
+Application.class_eval do
+  
+  before do
+    @title = 'a_b'
+  end
+end

data/lib/a_b/controller/index.rb

@@ -0,0 +1,16 @@
+Application.class_eval do
+  
+  get '/' do
+    restrict
+    @css = @js = %w(index)
+    @error = flash[:error]
+    @success = flash[:success]
+    @tests = ABTest.find :all, :order => 'updated_at desc'
+    haml :index, :layout => :layout
+  end
+  
+  get '/css/index.css' do
+    headers 'Content-Type' => 'text/css; charset=utf-8'
+    sass :index
+  end
+end