foca-integrity 0.1.0

data/README.markdown

@@ -0,0 +1,139 @@
+Integrity
+=========
+
+Integrity is your friendly automated Continuous Integration server.
+
+It's fully usable from within its web interface (backed by [Sinatra][]), 
+allowing you to add a project, set preferences for it (where's the code 
+repository, is it completely private or public, etc), and run the build command
+from there.
+
+It has been designed with ruby projects in mind, but any project that can be
+tested in an unix-y fashion (with a command line tool that returns 0 on success
+and non-zero on failure) works with it.
+
+Integrity works out of the box with [git][] projects, but support for other 
+SCMs like [Subversion][svn] is planned.
+
+Getting Started
+===============
+
+Clone the source from our [git repository][repo]:
+
+    gem install dm-core dm-more data_objects do_sqlite3 bcrypt-ruby sinatra json haml xmpp4r-simple rcov hoe sr-sinatra-diddies --source=http://gems.github.com
+    git clone git://github.com/foca/integrity.git
+    cd integrity
+    git submodule update --init
+    cp config/config.sample.yml config/config.yml
+    $EDITOR config/config.yml
+    rake db:migrate
+    ruby app.rb
+
+Now you can go to http://localhost:4567, add your first project, and enjoy
+safer coding, with integrity.
+
+If you want automatic commit processing, you currently need to be using
+[GitHub][]. Click the edit link on your GitHub project, and add an integrity
+link that looks like the following to the `Post-Receive URL` field:
+
+    http://integrity.domain.tld/projectname/push
+
+Configuration
+=============
+
+The `config.yml` only needs two settings:
+
+* `database_uri`: this should be a complete connection string to your database.
+  For example `mysql://user@localhost/integrity` (you need an `integrity` db
+  created in localhost, of course).
+* `export_directory`: This is where your project's code will be checked out to.
+  Make sure it's writable by the user that runs Integrity.
+
+Resources
+========
+
+We have a [Lighthouse account][lighthouse] where you can submit patches or
+feature requests. Also, someone is usually around [#integrity][irc-channel] on
+Freenode, so don't hesitate to stop by for ideas, help, patches or something.
+
+Future plans
+============
+
+* [Twitter][]/[IRC][]/etc bots
+* Other SCMs like Subversion
+
+Development
+===========
+
+The code is stored in [GitHub][repo]. Feel free to fork, play with it, and send
+a pull request afterwards. 
+
+In order to run the test suite you'll need a few more gems: [rspec][], [rcov][]
+and [hpricot][]. With that installed running `rake` will run the specs and
+ensure the code coverage stays high.
+
+Thanks
+======
+
+Thanks to the fellowing people for their feedbacks, ideas and patches :
+
+* [James Adam][james]
+* [Elliott Cable][ec]
+* [Corey Donohoe][atmos]
+* [Kyle Hargraves][kyle]
+* [Pier-Hugues Pellerin][ph]
+* [Simon Rozet][sr]
+* [Scott Taylor][scott]
+
+[james]: http://github.com/lazyatom
+[ec]: http://github.com/elliotcabble
+[atmos]: http://github.com/atmos
+[kyle]: http://github.com/pd
+[ph]: http://github.com/ph
+[sr]: http://purl.org/net/sr/
+[scott]: http://github.com/smtlaissezfaire
+
+License
+=======
+
+(The MIT License)
+
+Copyright (c) 2008 [Nicolás Sanguinetti][foca], [entp][]
+
+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.
+
+[Sinatra]: http://sinatrarb.com
+[git]: http://git.or.cz
+[svn]: http://subversion.tigris.org
+[Twitter]: http://twitter.com
+[IRC]: http://wikipedia.org/wiki/IRC
+[entp]: http://entp.com
+[GitHub]: http://github.com
+
+[rspec]: http://rspec.info
+[rcov]: http://eigenclass.org/hiki.rb?rcov
+[hpricot]: http://code.whytheluckystiff.net/hpricot
+
+[repo]: http://github.com/foca/integrity
+[lighthouse]: http://integrity.lighthouseapp.com/projects/14308-integrity
+[irc-channel]: irc://irc.freenode.net/integrity
+
+[sr]: http://atonie.org/
+[foca]: http://nicolassanguinetti.info/

data/Rakefile

@@ -0,0 +1,87 @@
+require File.dirname(__FILE__) + "/lib/integrity"
+require 'spec/rake/spectask'
+require 'spec/rake/verify_rcov'
+
+task :default => ["spec:coverage", "spec:coverage:verify"]
+
+Spec::Rake::SpecTask.new(:spec) do |t|
+  t.spec_opts = ["--color", "--format", "progress"]
+  t.spec_files = Dir['spec/**/*_spec.rb'].sort
+  t.libs = ['lib']
+  t.rcov = false
+end
+
+namespace :spec do
+  Spec::Rake::SpecTask.new(:coverage) do |t|
+    t.spec_opts = ["--color", "--format", "progress"]
+    t.spec_files = Dir['spec/**/*_spec.rb'].sort
+    t.libs = ['lib']
+    t.rcov = true
+    t.rcov_opts = ['--exclude-only', '".*"', '--include-file', '^lib']
+  end
+
+  namespace :coverage do
+    RCov::VerifyTask.new(:verify) do |t|
+      t.threshold = 100
+      t.index_html = "coverage" / 'index.html'
+    end
+  end
+end
+
+
+namespace :db do
+  desc "Setup connection."
+  task :connect do
+    ENV['CONFIG'] ? Integrity.new(ENV['CONFIG']) : Integrity.new
+  end
+
+  desc "Automigrate the database"
+  task :migrate => :connect do
+    require "project"
+    require "build"
+    require "notifier"
+    DataMapper.auto_migrate!
+  end
+end
+
+namespace :gem do  
+  desc "Generate the gemspec at the root dir"
+  task :gemspec do
+    files  = `git ls-files`.split("\n").reject {|f| f =~ %r(^spec) || f =~ %r(^vendor/rspec) || f =~ /^\.git/ } 
+    files += %w(spec/spec_helper.rb spec/form_field_matchers.rb)
+    
+    gemspec = <<-GEM
+Gem::Specification.new do |s|
+  s.name              = 'integrity'
+  s.version           = '#{Integrity::VERSION}'
+  s.date              = '#{Date.today.to_s}'
+  s.summary           = 'The easy and fun Continuous Integration server'
+  s.description       = 'Your Friendly Continuous Integration server. Easy, fun and painless!'
+  s.homepage          = 'http://integrityapp.com'
+  s.rubyforge_project = 'integrity'
+  s.email             = 'contacto@nicolassanguinetti.info'
+  s.authors           = ['Nicolás Sanguinetti', 'Simon Rozet']
+  s.has_rdoc          = false
+  s.executables       = ['integrity']
+  s.files             = %w(
+                          #{files.join("\n" + " " * 26)}
+                        )
+
+  s.add_dependency 'sinatra', ['>= 0.3.2']
+  s.add_dependency 'dm-core', ['>= 0.9.5']
+  s.add_dependency 'dm-validations', ['>= 0.9.5']
+  s.add_dependency 'dm-types', ['>= 0.9.5']
+  s.add_dependency 'dm-timestamps', ['>= 0.9.5']
+  s.add_dependency 'dm-aggregates', ['>= 0.9.5']
+  s.add_dependency 'data_objects', ['>= 0.9.5']
+  s.add_dependency 'do_sqlite3', ['>= 0.9.5']        
+  s.add_dependency 'json'
+  s.add_dependency 'foca-sinatra-diddies', ['>= 0.0.2']
+  s.add_dependency 'rspec_hpricot_matchers'
+  s.add_dependency 'thor'
+end
+    GEM
+    
+    File.open(Integrity.root / "integrity.gemspec", "w") {|f| f.puts gemspec }
+  end
+end

data/app.rb

@@ -0,0 +1,247 @@
+require File.dirname(__FILE__) + '/lib/integrity'
+require 'sinatra'
+require 'diddies'
+require 'hacks'
+
+set :root,   Integrity.root
+set :public, Integrity.root / "public"
+set :views,  Integrity.root / "views"
+
+enable :sessions
+
+include Integrity
+
+configure do
+  Integrity.new
+end
+
+not_found do
+  status 404
+  show :not_found, :title => "lost, are we?"
+end
+
+before do
+  # The browser only sends http auth data for requests that are explicitly
+  # required to do so. This way we get the real values of +#logged_in?+ and
+  # +#current_user+
+  login_required if session[:user]
+end
+
+get "/" do
+  @projects = Project.all(authorized? ? {} : { :public => true })
+  show :home, :title => "projects"
+end
+
+get "/login" do
+  login_required
+  session[:user] = current_user
+  redirect "/"
+end
+
+get "/new" do
+  login_required
+
+  @project = Project.new
+  show :new, :title => ["projects", "new project"]
+end
+
+post "/" do
+  login_required
+  
+  @project = Project.new(params[:project_data])
+  if @project.save
+    @project.enable_notifiers(params["enabled_notifiers[]"], params["notifiers"])
+    redirect project_url(@project)
+  else
+    show :new, :title => ["projects", "new project"]
+  end
+end
+
+get "/:project" do
+  login_required unless current_project.public?
+  show :project, :title => ["projects", current_project.permalink]
+end
+
+put "/:project" do
+  login_required
+  
+  if current_project.update_attributes(params[:project_data])
+    current_project.enable_notifiers(params["enabled_notifiers[]"], params["notifiers"])
+    redirect project_url(current_project)
+  else
+    show :new, :title => ["projects", current_project.permalink, "edit"]
+  end
+end
+
+delete "/:project" do
+  login_required
+
+  current_project.destroy
+  redirect "/"
+end
+
+get "/:project/edit" do
+  login_required
+
+  show :new, :title => ["projects", current_project.permalink, "edit"]
+end
+
+post "/:project/push" do
+  content_type 'text/plain'
+
+  begin
+    payload = JSON.parse(params[:payload] || "")
+    payload['commits'].each do |commit|
+      current_project.build(commit['id']) if payload['ref'] =~ /#{current_project.branch}/
+    end
+    'Thanks, build started.'
+  rescue JSON::ParserError => exception
+    invalid_payload!(exception.to_s)
+  end
+end
+
+post "/:project/builds" do
+  login_required
+
+  current_project.build
+  redirect project_url(@project)
+end
+
+get '/:project/builds/:build' do
+  login_required unless current_project.public?
+  show :build, :title => ["projects", current_project.permalink, current_build.short_commit_identifier]
+end
+
+get "/integrity.css" do
+  header "Content-Type" => "text/css; charset=utf-8"
+  sass :integrity
+end
+
+helpers do
+  include Rack::Utils
+  include Sinatra::Authorization
+  alias_method :h, :escape_html
+
+  def authorization_realm
+    "Integrity"
+  end
+
+  def authorized?
+    return true unless Integrity.config[:use_basic_auth]
+    !!request.env['REMOTE_USER']
+  end
+
+  def authorize(user, password)
+    if Integrity.config[:hash_admin_password]
+      password = Digest::SHA1.hexdigest(password)
+    end
+
+    !Integrity.config[:use_basic_auth] ||
+    (Integrity.config[:admin_username] == user &&
+      Integrity.config[:admin_password] == password)
+  end
+
+  def unauthorized!(realm=authorization_realm)
+    header 'WWW-Authenticate' => %(Basic realm="#{realm}")
+    throw :halt, [401, show(:unauthorized, :title => "incorrect credentials")]
+  end
+
+  def invalid_payload!(msg=nil)
+    throw :halt, [422, msg || 'No payload given']
+  end
+
+  def current_project
+    @project ||= Project.first(:permalink => params[:project]) or raise Sinatra::NotFound
+  end
+
+  def current_build
+    @build ||= current_project.builds.first(:commit_identifier => params[:build]) or raise Sinatra::NotFound
+  end
+
+  def show(view, options={})
+    @title = breadcrumbs(*options[:title])
+    haml view
+  end
+
+  def pages
+    @pages ||= [["projects", "/"], ["new project", "/new"]]
+  end
+
+  def breadcrumbs(*crumbs)
+    crumbs[0..-2].map do |crumb|
+      if page_data = pages.detect {|c| c.first == crumb }
+        %Q(<a href="#{page_data.last}">#{page_data.first}</a>)
+      elsif @project && @project.permalink == crumb
+        %Q(<a href="#{project_url(@project)}">#{@project.permalink}</a>)
+      end
+    end + [crumbs.last]
+  end
+
+  def cycle(*values)
+    @cycles ||= {}
+    @cycles[values] ||= -1 # first value returned is 0
+    next_value = @cycles[values] = (@cycles[values] + 1) % values.size
+    values[next_value]
+  end
+
+  def project_url(project, *path)
+    "/" << [project.permalink, *path].join("/")
+  end
+
+  def push_url_for(project)
+    Addressable::URI.parse(Integrity.config[:base_uri]).join("#{project_url(project)}/push").to_s
+  end
+
+  def build_url(build)
+    "/#{build.project.permalink}/builds/#{build.commit_identifier}"
+  end
+
+  def filter_attributes_of(model)
+    valid = model.properties.collect {|p| p.name.to_s }
+    Hash[*params.dup.select {|k,_| valid.include?(k) }.flatten]
+  end
+
+  def errors_on(object, field)
+    return "" unless errors = object.errors.on(field)
+    errors.map {|e| e.gsub(/#{field} /i, "") }.join(", ")
+  end
+
+  def error_class(object, field)
+    object.errors.on(field).nil? ? "" : "with_errors"
+  end
+  
+  def checkbox(name, condition, extras={})
+    attrs = { :name => name, :type => "checkbox" }.merge(condition ? { :checked => "checked" } : {})
+    attrs.merge(extras)
+  end
+
+  def bash_color_codes(string)
+    string.gsub("\e[0m", '</span>').
+      gsub("\e[31m", '<span class="color31">').
+      gsub("\e[32m", '<span class="color32">').
+      gsub("\e[33m", '<span class="color33">').
+      gsub("\e[34m", '<span class="color34">').
+      gsub("\e[35m", '<span class="color35">').
+      gsub("\e[36m", '<span class="color36">').
+      gsub("\e[37m", '<span class="color37">')
+  end
+
+  def pretty_date(date_time)
+    today = Date.today
+    if date_time.day == today.day && date_time.month == today.month && date_time.year == today.year
+      "today"
+    elsif date_time.day == today.day - 1 && date_time.month == today.month && date_time.year == today.year
+      "yesterday"
+    else
+      date_time.strftime("on %b %d%o")
+    end
+  end
+  
+  def notifier_form(notifier)
+    haml(notifier.to_haml, :layout => :notifier, :locals => { 
+      :config => current_project.config_for(notifier), 
+      :notifier => "#{notifier.to_s.split(/::/).last}", 
+      :enabled => current_project.notifies?(notifier) 
+    })
+  end
+end