charted 0.0.1

data/LICENSE.md

@@ -0,0 +1,23 @@
+Copyright (c) 2012, Hugh Bien
+All rights reserved.
+
+Redistribution and use in source and binary forms, with or without modification,
+are permitted provided that the following conditions are met:
+
+Redistributions of source code must retain the above copyright notice, this list
+of conditions and the following disclaimer.
+
+Redistributions in binary form must reproduce the above copyright notice, this
+list of conditions and the following disclaimer in the documentation and/or
+other materials provided with the distribution.
+
+THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND
+ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
+WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
+DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR
+ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
+(INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
+LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON
+ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
+(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
+SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

data/README.md

@@ -0,0 +1,112 @@
+Description
+===========
+
+Charted is a minimal web traffic analytics app.  Still under development!
+
+Installation
+============
+
+    $ gem install charted
+
+Setup a `config.ru` file and run it like any other Sinatra application.
+
+    require 'rubygems'
+    require 'charted'
+
+    Charted.configure do |c|
+      c.email        'john@mailinator.com'      # production exceptions are sent here
+      c.delete_after 365                        # only keep a years worth of data
+      c.db_adapter   'mysql'
+      c.db_host      'localhost'
+      c.db_username  'root'
+      c.db_password  'secret'
+      c.db_database  'charted'
+      c.sites        ['hughbien.com', 'example.com']
+    end
+
+    run Charted::App if !ENV['CHARTED_CMD']
+
+Stick this in your `bashrc` or `zshrc`:
+
+    CHARTED_CONFIG='/path/to/config.ru'
+
+Then initialize the database:
+
+    $ charted --migrate
+
+The app should be mounted to `/charted` path on your domain.  Then in your app,
+include the script right before the closing `</body>` tag:
+
+    <script src="/charted/script.js" async></script>
+
+If you concatenate your JavaScript, you can generate the `script.js` file and
+add it to your project.  The downside being when you update the charted gem,
+you'll also have to remember to update the JavaScript:
+
+    $ charted --js > /path/to/my/project/public/charted.js
+
+Updating
+========
+
+    $ gem install charted
+
+Usage
+=====
+
+The web application is for end users, to get information about your traffic use
+the included command line application.
+
+    $ charted --help
+    $ charted --dashboard --site hugh # just needs the first few letters
+    +-------+--------+--------------------------------------+
+    | Total | Unique | Visits                               |
+    +-------+--------+--------------------------------------+
+    | 7,012 |  5,919 | February 2013                        |
+    | 6,505 |  4,722 | January 2013                         |
+    | 5,342 |  3,988 | December 2012                        |
+    ...
+
+Development
+===========
+
+Put this in your `zshrc` or `bashrc`:
+
+    export CHARTED_CONFIG="/path/to/charted/config.ru"
+
+Then run:
+
+    $ ./charted --migrate
+    $ shotgun
+
+Head on over to `http://localhost:9393/charted/prime.html`.  This is where
+recordings should occur.
+
+Tests are setup to run via `ruby test/*_test.rb` or via `rake`.
+
+TODO
+====
+
+* clean up `--dashboard` code
+* track RSS subscribers
+* add event tracking
+* add funnel conversion tracking
+* add AB testing
+* add stats summary for AB tests
+* add deletion via CLI
+* add deletion every N days for fresh data
+* add `--js` option
+* add plugin system to CLI and recordings
+* add config for dashboards (what to show/hide, how to order)
+* ignore same domain referrers
+* optimize with If-Not-Modified (or use ?timestamp parameter)
+* ignore switch for developers
+* deploy task in Rakefile for development
+* add `--sync` option
+
+License
+=======
+
+`geoip.dat` is provided by MaxMind at <http://dev.maxmind.com/geoip/geolite>.
+
+Copyright Hugh Bien - http://hughbien.com.
+Released under BSD License, see LICENSE.md for more info.

data/charted

@@ -0,0 +1,20 @@
+#!/usr/bin/env ruby
+require 'optparse'
+require File.expand_path('lib/charted', File.dirname(__FILE__))
+require 'dm-migrations'
+require 'date'
+require 'fileutils'
+
+ENV['CHARTED_CMD'] = '1'
+
+ARGV.options do |o|
+  cmd, action = Charted::Command.new, nil
+  o.set_summary_indent('  ')
+  o.banner = "Usage: #{File.basename($0)} [OPTION]"
+  o.on('-d', '--dashboard', 'show dashboard') { action = :dashboard }
+  o.on('-h', '--help', 'show this help message') { puts o; exit }
+  o.on('-m', '--migrate', 'migrates database') { cmd.migrate; exit }
+  o.on('-s', '--site domain', 'set site') { |site| cmd.site = site }
+  o.parse!
+  action.nil? ? puts(o) : cmd.send(action)
+end

data/config.ru

@@ -0,0 +1,15 @@
+require File.expand_path('lib/charted', File.dirname(__FILE__))
+
+Charted.configure(ENV['RACK_ENV'] != 'test') do |c|
+  c.email       'dev@localhost'
+  c.db_adapter  'sqlite3'
+  c.db_host     'localhost'
+  c.db_username 'root'
+  c.db_password 'secret'
+  c.db_database 'db.sqlite3'
+  c.sites       ['localhost', 'example.org']
+end
+
+if !ENV['CHARTED_CMD']
+  map('/charted') { run Charted::App } 
+end

data/lib/charted.rb

@@ -0,0 +1,327 @@
+require 'rubygems'
+require 'sinatra/base'
+require 'dm-core'
+require 'dm-types'
+require 'dm-timestamps'
+require 'dm-validations'
+require 'dm-aggregates'
+require 'date'
+require 'digest/sha1'
+require 'json'
+require 'uri'
+require 'geoip'
+require 'pony'
+require 'useragent'
+require 'search_terms'
+require 'terminal-table'
+require 'colorize'
+require 'dashes'
+
+DataMapper::Model.raise_on_save_failure = true
+
+module Charted
+  VERSION = '0.0.1'
+  GEOIP = GeoIP.new("#{File.dirname(__FILE__)}/../geoip.dat")
+
+  def self.configure(setup_db=true)
+    yield self.config
+    DataMapper.setup(:default,
+      :adapter  => config.db_adapter,
+      :host     => config.db_host,
+      :username => config.db_username,
+      :password => config.db_password,
+      :database => config.db_database
+    ) if setup_db
+  end
+
+  def self.config
+    @config ||= Config.new
+  end
+
+  def self.prev_month(date, delta=1)
+    date = Date.new(date.year, date.month, 1)
+    delta.times { date = Date.new((date - 1).year, (date - 1).month, 1) }
+    date
+  end
+
+  def self.next_month(date, delta=1)
+    date = Date.new(date.year, date.month, 1)
+    delta.times { date = Date.new((date + 32).year, (date + 32).month, 1) }
+    date
+  end
+
+  class Config
+    def self.attr_option(*names)
+      names.each do |name|
+        define_method(name) do |*args|
+          value = args[0]
+          instance_variable_set("@#{name}".to_sym, value) if !value.nil?
+          instance_variable_get("@#{name}".to_sym)
+        end
+      end
+    end
+
+    attr_option :email, :delete_after, :sites,
+                :db_adapter, :db_host, :db_username, :db_password, :db_database
+  end
+
+  class Site
+    include DataMapper::Resource
+
+    property :id, Serial
+    property :domain, String, :required => true, :unique => true
+    property :created_at, DateTime
+
+    has n, :visitors
+    has n, :visits, :through => :visitors
+  end
+
+  class Visitor
+    include DataMapper::Resource
+
+    property :id, Serial
+    property :secret, String, :required => true
+    property :resolution, String
+    property :created_at, DateTime
+    property :platform, String
+    property :browser, String
+    property :browser_version, String
+    property :country, String
+
+    belongs_to :site
+    has n, :visits
+
+    validates_presence_of :site
+
+    def initialize(*args)
+      super
+      self.secret = self.class.generate_secret
+    end
+
+    def cookie
+      "#{self.id}-#{self.secret}"
+    end
+
+    def user_agent=(user_agent)
+      ua = UserAgent.parse(user_agent)
+      self.browser = ua.browser
+      self.browser_version = ua.version
+      self.platform = ua.platform == 'X11' ? 'Linux' : ua.platform
+    end
+
+    def ip_address=(ip)
+      return if ip.to_s =~ /^\s*$/ || ip == '127.0.0.1'
+      name = GEOIP.country(ip).country_name
+
+      return if name =~ /^\s*$/ || name == 'N/A'
+      self.country = name
+    rescue SocketError
+      # invalid IP address, skip setting country
+    end
+
+    def self.get_by_cookie(site, cookie)
+      visitor = Visitor.get(cookie.to_s.split('-').first)
+      visitor && visitor.site == site && visitor.cookie == cookie ?
+        visitor :
+        nil
+    end
+
+    def self.generate_secret
+      Digest::SHA1.hexdigest("#{Time.now}-#{rand(100)}")[0..4]
+    end
+  end
+
+  class Visit
+    include DataMapper::Resource
+
+    property :id, Serial
+    property :path, String, :required => true
+    property :title, String, :required => true
+    property :referrer, String
+    property :search_terms, String
+    property :created_at, DateTime
+
+    belongs_to :visitor
+    has 1, :site, :through => :visitor
+
+    validates_presence_of :visitor
+
+    before :save, :set_search_terms
+
+    def set_search_terms
+      return if self.referrer.to_s =~ /^\s*$/
+      self.search_terms = URI.parse(self.referrer).search_string
+    end
+  end
+
+  DataMapper.finalize
+
+  class App < Sinatra::Base
+    set :logging, true
+
+    get '/' do
+      site = Site.first(:domain => request.host)
+      halt(404) if site.nil?
+
+      if request.cookies['charted']
+        visitor = Visitor.get_by_cookie(site, request.cookies['charted'])
+      end
+
+      if visitor.nil?
+        visitor = Visitor.create(
+          :site => site,
+          :resolution => params[:resolution],
+          :user_agent => request.user_agent,
+          :ip_address => request.ip)
+        response.set_cookie(
+          'charted',
+          :value => visitor.cookie,
+          :expires => (Date.today + 365*2).to_time)
+      end
+
+      visit = Visit.create(
+        :visitor => visitor,
+        :path => params[:path],
+        :title => params[:title],
+        :referrer => params[:referrer])
+      '/**/'
+    end
+
+    error do
+      Pony.mail(
+        :to => Charted.config.email,
+        :from => "charted@#{Charted.config.email.split('@')[1..-1].join}",
+        :subject => 'Charted Error',
+        :body => request.env['sinatra.error'].to_s
+      ) if Charted.config.email && self.class.environment == :production
+    end
+  end
+
+  class Command
+    attr_accessor :config_loaded, :output
+    attr_reader :site
+
+    def dashboard
+      site_required
+      tables = []
+      chart = Dashes::Chart.new
+      chart2 = Dashes::Chart.new
+      max_width = [`tput cols`.to_i / 2, 60].min
+      chart.max_width(max_width)
+      chart2.max_width(max_width)
+      chart.title "Total Visits".colorize(:light_green)
+      chart2.title "Unique Visits".colorize(:light_green)
+      table = Dashes::Table.new
+      table.spacing :min, :min, :max
+      table.row('Total'.colorize(:light_blue),
+        'Unique'.colorize(:light_blue),
+        'Visits'.colorize(:light_green))
+      table.separator
+      table.max_width(max_width)
+      (0..11).each do |delta|
+        date = Charted.prev_month(Date.today, delta)
+        visits = @site.visits.count(
+          :created_at.gte => date,
+          :created_at.lt => Charted.next_month(date))
+        unique = @site.visitors.count(:visits => {
+          :created_at.gte => date,
+          :created_at.lt => Charted.next_month(date)})
+        table.row(format(visits), format(unique), date.strftime('%B %Y'))
+        table.align :right, :right, :left
+        chart.row date.strftime('%b %Y'), visits
+        chart2.row date.strftime('%b %Y'), unique
+      end
+      tables << table
+      tables << chart
+      tables << chart2
+      [[:browser, 'Browsers', :visitors],
+       [:resolution, 'Resolutions', :visitors],
+       [:platform, 'Platforms', :visitors],
+       [:country, 'Countries', :visitors],
+       [:title, 'Pages', :visits],
+       [:referrer, 'Referrers', :visits],
+       [:search_terms, 'Searches', :visits]].each do |field, column, type|
+        table = Dashes::Table.new
+        table.max_width(max_width)
+        table.spacing :min, :min, :max
+        table.row('Total'.colorize(:light_blue),
+          '%'.colorize(:light_blue),
+          column.colorize(:light_green))
+        table.separator
+        rows = []
+        total = @site.send(type).count(field.not => nil)
+        @site.send(type).aggregate(field, :all.count).each do |label, count|
+          label = label.to_s.strip
+          next if label == ""
+          label = "#{label[0..37]}..." if label.length > 40
+          rows << [format(count), "#{((count / total.to_f) * 100).round}%", label]
+        end
+        rows.sort_by { |r| r[1] }.reverse.each { |row| table.row(*row) }
+        table.align :right, :right, :left
+        tables << table
+      end
+
+      grid = Dashes::Grid.new
+      grid.width(`tput cols`.to_i)
+      tables.each { |t| grid.add(t) }
+      print(grid)
+    end
+
+    def migrate
+      load_config
+      DataMapper.auto_upgrade!
+      Charted.config.sites.each do |domain|
+        if Site.first(:domain => domain).nil?
+          Site.create(:domain => domain)
+        end
+      end
+    end
+
+    def site=(domain)
+      load_config
+      sites = Site.all(:domain.like => "%#{domain}%")
+
+      if sites.length > 1
+        sys_exit("\"#{domain}\" ambiguous: #{sites.map(&:domain).join(', ')}")
+      elsif sites.length < 1
+        sys_exit("No sites matching \"#{domain}\"")
+      else
+        @site = sites.first
+      end
+    end
+
+    private
+    def load_config
+      return if @config_loaded
+      file = ENV['CHARTED_CONFIG']
+      load(file)
+      @config_loaded = true
+    rescue LoadError
+      sys_exit("CHARTED_CONFIG not set, please set to `config.ru` file.")
+    end
+
+    def sys_exit(reason)
+      print(reason)
+      ENV['RACK_ENV'] == 'test' ? raise(ExitError.new) : exit
+    end
+
+    def print(string)
+      ENV['RACK_ENV'] == 'test' ?  (@output ||= []) << string : puts(string)
+    end
+
+    def site_required
+      load_config
+      if @site.nil? && Site.count == 1
+        @site = Site.first
+      elsif @site.nil?
+        sys_exit('Please specify website with --site')
+      end
+    end
+
+    def format(num)
+      num.to_s.reverse.gsub(/...(?=.)/,'\&,').reverse
+    end
+  end
+
+  class ExitError < RuntimeError; end
+end

data/test/charted_test.rb

@@ -0,0 +1,253 @@
+ENV['RACK_ENV'] = 'test'
+
+require File.expand_path('../lib/charted', File.dirname(__FILE__))
+require 'dm-migrations'
+require 'minitest/autorun'
+require 'rack'
+require 'rack/test'
+require 'rack/server'
+require 'fileutils'
+
+DataMapper.setup(:default, 'sqlite::memory:')
+DataMapper.auto_migrate!
+
+module Pony
+  def self.mail(fields)
+    @last_mail = fields
+  end
+
+  def self.last_mail
+    @last_mail
+  end
+end
+
+class ChartedTest < MiniTest::Unit::TestCase
+  def setup
+    Charted.configure(false) do |c|
+      c.email       'dev@localhost'
+      c.db_adapter  'sqlite3'
+      c.db_host     'localhost'
+      c.db_username 'root'
+      c.db_password 'secret'
+      c.db_database 'test.sqlite3'
+      c.sites       ['localhost']
+    end
+    Pony.mail(nil)
+  end
+
+  def teardown
+    FileUtils.rm_rf(File.expand_path('../temp', File.dirname(__FILE__)))
+  end
+end
+
+class ConfigTest < ChartedTest
+  def test_db
+    assert_equal('dev@localhost', Charted.config.email)
+    assert_equal('sqlite3', Charted.config.db_adapter)
+    assert_equal('localhost', Charted.config.db_host)
+    assert_equal('root', Charted.config.db_username)
+    assert_equal('secret', Charted.config.db_password)
+    assert_equal('test.sqlite3', Charted.config.db_database)
+    assert_equal(['localhost'], Charted.config.sites)
+  end
+end
+
+class ModelTest < ChartedTest
+  def setup
+    Charted::Site.destroy
+    Charted::Visitor.destroy
+    Charted::Visit.destroy
+  end
+
+  def test_create
+    site = Charted::Site.create(:domain => 'localhost')
+    visitor = Charted::Visitor.create(
+      :site => site,
+      :ip_address => '67.188.42.140',
+      :user_agent =>
+        'Mozilla/5.0 (X11; Linux i686; rv:14.0) Gecko/20100101 Firefox/14.0.1')
+    visit = Charted::Visit.create(
+      :visitor => visitor,
+      :path => '/',
+      :title => 'Prime',
+      :referrer => 'http://www.google.com?q=Charted+Test')
+    assert_equal(site, visit.site)
+    assert_equal([visit], site.visits)
+    assert_equal('Charted Test', visit.search_terms)
+    assert_match(/^\w{5}$/, visitor.secret)
+    assert_equal("#{visitor.id}-#{visitor.secret}", visitor.cookie)
+    assert_equal('Linux', visitor.platform)
+    assert_equal('Firefox', visitor.browser)
+    assert_equal('14.0.1', visitor.browser_version)
+
+    assert_equal(visitor, Charted::Visitor.get_by_cookie(site, visitor.cookie))
+    assert_nil(Charted::Visitor.get_by_cookie(site, "#{visitor.id}-zzzzz"))
+  end
+
+  def test_unique_identifier
+    assert_match(/^\w{5}$/, Charted::Visitor.generate_secret)
+  end
+
+  def test_user_agents
+    visitor = Charted::Visitor.new
+
+    visitor.user_agent = 'Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.0)'
+    assert_equal('Internet Explorer', visitor.browser)
+    assert_equal('7.0', visitor.browser_version)
+    assert_equal('Windows', visitor.platform)
+
+    visitor.user_agent = 'Mozilla/5.0 (Macintosh; U; PPC Mac OS X; en) AppleWebKit/125.2 (KHTML, like Gecko) Safari/125.8'
+    assert_equal('Safari', visitor.browser)
+    assert_equal('1.2.2', visitor.browser_version)
+    assert_equal('Macintosh', visitor.platform)
+
+    visitor.user_agent = 'Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.8.1.19) Gecko/20081216 Ubuntu/8.04 (hardy) Firefox/2.0.0.19'
+    assert_equal('Firefox', visitor.browser)
+    assert_equal('2.0.0.19', visitor.browser_version)
+    assert_equal('Linux', visitor.platform)
+  end
+
+  def test_blanks
+    site = Charted::Site.create(:domain => 'localhost')
+    visitor = Charted::Visitor.create(
+      :site => site,
+      :user_agent => '',
+      :ip_address => '')
+    visit = Charted::Visit.create(
+      :visitor => visitor,
+      :path => '/',
+      :title => 'Prime',
+      :referrer => '')
+    assert(site.id)
+    assert(visitor.id)
+    assert(visit.id)
+  end
+end
+
+class AppTest < ChartedTest
+  include Rack::Test::Methods
+
+  def setup
+    Charted::Site.destroy
+    Charted::Visitor.destroy
+    Charted::Visit.destroy
+    clear_cookies
+
+    @site = Charted::Site.create(:domain => 'example.org')
+    @params = {
+      :path => '/',
+      :title => 'Prime',
+      :referrer => 'localhost',
+      :resolution => '1280x800'
+    }
+    @env = {
+      'HTTP_USER_AGENT' =>
+        'Mozilla/5.0 (X11; Linux i686; rv:14.0) Gecko/20100101 Firefox/14.0.1',
+      'REMOTE_ADDR' => '67.188.42.140'
+    }
+  end
+
+  def test_environment
+    assert_equal(:test, Charted::App.environment)
+  end
+
+  def test_bad_domain
+    get '/charted', @params, 'HTTP_HOST' => 'localhost'
+    assert_equal(404, last_response.status)
+    assert_equal(0, Charted::Visitor.count)
+    assert_equal(0, Charted::Visit.count)
+  end
+
+  def test_new_visitor
+    get '/charted', @params, @env
+    assert(last_response.ok?)
+    assert_equal(1, Charted::Visitor.count)
+    assert_equal(1, Charted::Visit.count)
+
+    visitor = Charted::Visitor.first
+    visit = Charted::Visit.first
+    assert_equal(@site, visitor.site)
+    assert_equal(@site, visit.site)
+    assert_equal('Prime', visit.title)
+    assert_equal('/', visit.path)
+    assert_equal('localhost', visit.referrer)
+    assert_equal('1280x800', visitor.resolution)
+    assert_equal('United States', visitor.country)
+    assert_equal(visitor.cookie, rack_mock_session.cookie_jar['charted'])
+  end
+
+  def test_old_visitor
+    visitor = Charted::Visitor.create(:site => @site)
+    visit = Charted::Visit.create(
+      :visitor => visitor, :path => '/', :title => 'Prime')
+    set_cookie("charted=#{visitor.cookie}")
+
+    get '/charted', @params, @env
+    assert(last_response.ok?)
+    assert_equal(1, Charted::Visitor.count)
+    assert_equal(2, Charted::Visit.count)
+    assert_equal(visitor.cookie, rack_mock_session.cookie_jar['charted'])
+  end
+
+  def test_visitor_bad_cookie
+    visitor = Charted::Visitor.create(:site => @site)
+    visit = Charted::Visit.create(
+      :visitor => visitor, :path => '/', :title => 'Prime')
+    set_cookie("charted=#{visitor.id}-zzzzz")
+
+    get '/charted', @params, @env
+    assert(last_response.ok?)
+    assert_equal(2, Charted::Visitor.count)
+    assert_equal(2, Charted::Visit.count)
+    refute_equal(visitor.cookie, rack_mock_session.cookie_jar['charted'])
+  end
+
+  private
+  def app
+    @app ||= Rack::Server.new.app
+  end
+end
+
+class CommandTest < ChartedTest
+  def setup
+    @cmd = Charted::Command.new
+    @cmd.config_loaded = true
+    Charted::Site.destroy
+    Charted::Visitor.destroy
+    Charted::Visit.destroy
+    Charted::Site.create(:domain => 'localhost')
+    Charted::Site.create(:domain => 'example.org')
+  end
+
+  def test_site
+    assert_raises(Charted::ExitError) { @cmd.site = 'nomatch' }
+    assert_equal(['No sites matching "nomatch"'], @cmd.output)
+    assert_nil(@cmd.site)
+
+    @cmd.output = nil
+    assert_raises(Charted::ExitError) { @cmd.site = 'l' }
+    assert_equal(['"l" ambiguous: localhost, example.org'], @cmd.output)
+
+    @cmd.site = 'local'
+    assert_equal('localhost', @cmd.site.domain)
+
+    @cmd.site = 'ample'
+    assert_equal('example.org', @cmd.site.domain)
+  end
+
+  def test_dashboard
+    assert_raises(Charted::ExitError) { @cmd.dashboard }
+    assert_equal(['Please specify website with --site'], @cmd.output)
+    
+    @cmd.output = nil
+    @cmd.site = 'localhost'
+    @cmd.dashboard
+  end
+
+  def test_format
+    assert_equal('-10,200', @cmd.send(:format, -10200))
+    assert_equal('-1', @cmd.send(:format, -1))
+    assert_equal('1', @cmd.send(:format, 1))
+    assert_equal('1,200,300', @cmd.send(:format, 1200300))
+  end
+end

data/test/fixtures.rb

@@ -0,0 +1,59 @@
+require File.expand_path('../lib/charted', File.dirname(__FILE__))
+require 'date'
+
+module Charted
+  class Fixtures
+    def self.load!
+      Charted::Site.destroy
+      Charted::Visitor.destroy
+      Charted::Visit.destroy
+      localhost = Charted::Site.create(:domain => 'localhost')
+      example = Charted::Site.create(:domain => 'example.org')
+
+      months = (0..11).map { |d| Charted.prev_month(Date.today, d) }
+      1000.times do
+        visitor = Charted::Visitor.create(
+          :site => select_rand([localhost, example]),
+          :created_at => select_rand(months),
+          :resolution => select_rand(%w(1400x900 1280x800 1024x768)),
+          :platform => select_rand(['Linux', 'OS X', 'Windows']),
+          :browser => select_rand(%w(IE Firefox Safari Chrome)),
+          :browser_version => select_rand(%w(1 2 3 4 5)),
+          :country => select_rand(%w(USA CA FR CH)),
+          :ip_address => select_rand(%w(67.188.42.140 67.184.24.140)),
+          :user_agent => select_rand([
+            'Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.0)',
+            'Mozilla/5.0 (X11; Linux i686; rv:14.0) Gecko/20100101 Firefox/14.0.1',
+            'Mozilla/5.0 (Macintosh; U; PPC Mac OS X; en) AppleWebKit/125.2 (KHTML, like Gecko) Safari/125.8',
+            'Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.8.1.19) Gecko/20081216 Ubuntu/8.04 (hardy) Firefox/2.0.0.19']))
+        (rand(2) + 1).times do |index|
+          Charted::Visit.create(
+            :visitor => visitor,
+            :created_at => Charted.next_month(visitor.created_at, select_rand([0, index])),
+            :path => select_rand(%w(/ /page-one/ /page-two/ /page-three/)),
+            :title => select_rand(%w(Prime Optimus Alpha Beta Omega)),
+            :referrer => select_rand([
+              'http://www.google.com?q=Charted+Test',
+              'http://coverstrap.com',
+              'http://news.ycombinator.com',
+              'http://example.org']),
+            :search_terms => select_rand([
+              'Charted Keywords',
+              'Web Analytics',
+              'Command Line Analytics']))
+        end
+      end
+    end
+
+    private
+    def self.select_rand(items)
+      items[rand(items.length)]
+    end
+  end
+end
+
+if __FILE__ == $0
+  ENV['CHARTED_CMD'] = '1'
+  load(File.expand_path('../config.ru', File.dirname(__FILE__)))
+  Charted::Fixtures.load!
+end

metadata

@@ -0,0 +1,199 @@
+--- !ruby/object:Gem::Specification
+name: charted
+version: !ruby/object:Gem::Version
+  version: 0.0.1
+  prerelease: 
+platform: ruby
+authors:
+- Hugh Bien
+autorequire: 
+bindir: .
+cert_chain: []
+date: 2013-03-03 00:00:00.000000000 Z
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: sinatra
+  requirement: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :runtime
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+- !ruby/object:Gem::Dependency
+  name: data_mapper
+  requirement: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :runtime
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+- !ruby/object:Gem::Dependency
+  name: geoip
+  requirement: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :runtime
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+- !ruby/object:Gem::Dependency
+  name: pony
+  requirement: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :runtime
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+- !ruby/object:Gem::Dependency
+  name: useragent
+  requirement: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :runtime
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+- !ruby/object:Gem::Dependency
+  name: search_terms
+  requirement: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :runtime
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+- !ruby/object:Gem::Dependency
+  name: colorize
+  requirement: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :runtime
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+- !ruby/object:Gem::Dependency
+  name: dashes
+  requirement: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :runtime
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+- !ruby/object:Gem::Dependency
+  name: minitest
+  requirement: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+description: A Sinatra app for tracking web traffic on multiple sites.
+email:
+- hugh@hughbien.com
+executables:
+- charted
+extensions: []
+extra_rdoc_files: []
+files:
+- LICENSE.md
+- README.md
+- config.ru
+- geoip.dat
+- charted
+- lib/charted.rb
+- test/charted_test.rb
+- test/fixtures.rb
+- ./charted
+homepage: https://github.com/hughbien/charted
+licenses: []
+post_install_message: 
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+required_rubygems_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: 1.3.6
+requirements: []
+rubyforge_project: 
+rubygems_version: 1.8.23
+signing_key: 
+specification_version: 3
+summary: Minimal web traffic analytics
+test_files: []