alphasights-integrity 0.1.9.3

data/lib/integrity.rb

@@ -0,0 +1,77 @@
+$:.unshift File.expand_path(File.dirname(__FILE__))
+
+require "json"
+require "haml"
+require "dm-core"
+require "dm-validations"
+require "dm-types"
+require "dm-timestamps"
+require "dm-aggregates"
+require "sinatra/base"
+
+require "yaml"
+require "logger"
+require "digest/sha1"
+require "timeout"
+require "ostruct"
+require "pathname"
+
+require "integrity/core_ext/object"
+
+require "integrity/project"
+require "integrity/author"
+require "integrity/commit"
+require "integrity/build"
+require "integrity/project_builder"
+require "integrity/scm"
+require "integrity/scm/git"
+require "integrity/notifier"
+require "integrity/helpers"
+require "integrity/app"
+
+module Integrity
+  def self.new(config=nil)
+    if config.is_a?(String) && File.file?(config)
+      self.config = YAML.load_file(config)
+    elsif config.is_a?(Hash)
+      self.config = config
+    end
+
+    DataMapper.setup(:default, self.config[:database_uri])
+  end
+
+  def self.default_configuration
+    @defaults ||= { :database_uri      => "sqlite3::memory:",
+                    :export_directory  => "/tmp/exports",
+                    :log               => STDOUT,
+                    :base_uri          => "http://localhost:8910",
+                    :use_basic_auth    => false,
+                    :build_all_commits => true,
+                    :log_debug_info    => false }
+  end
+
+  def self.config
+    @config ||= default_configuration.dup
+  end
+
+  def self.config=(options)
+    @config = default_configuration.merge(options)
+  end
+
+  def self.log(message, &block)
+    logger.info(message, &block)
+  end
+
+  def self.logger
+    @logger ||= Logger.new(config[:log], "daily").tap do |logger|
+      logger.formatter = LogFormatter.new
+    end
+  end
+  private_class_method :logger
+
+  class LogFormatter < Logger::Formatter
+    def call(severity, time, progname, msg)
+      time.strftime("[%H:%M:%S] ") + msg2str(msg) + "\n"
+    end
+  end
+end

data/lib/integrity/app.rb

@@ -0,0 +1,138 @@
+module Integrity
+  class App < Sinatra::Default
+    set :root,     File.dirname(__FILE__) + "/../.."
+    set :app_file, __FILE__
+    enable :sessions
+
+    include Integrity
+    include Integrity::Helpers
+
+    not_found do
+      status 404
+      show :not_found, :title => "lost, are we?"
+    end
+
+    error do
+      @error = request.env["sinatra.error"]
+      status 500
+      show :error, :title => "something has gone terribly wrong"
+    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 "/integrity.css" do
+      response["Content-Type"] = "text/css; charset=utf-8"
+      etag stylesheet_hash
+      sass :integrity
+    end
+
+    get "/?" do
+      @projects = authorized? ? Project.all : Project.all(:public => true)
+      show :home, :title => "projects"
+    end
+
+    get "/login" do
+      login_required
+
+      session[:user] = current_user
+      redirect root_url.to_s
+    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
+        update_notifiers_of(@project)
+        redirect project_url(@project).to_s
+      else
+        show :new, :title => ["projects", "new project"]
+      end
+    end
+
+    get "/:project.atom" do
+      login_required unless current_project.public?
+      response["Content-Type"] = "application/rss+xml; charset=utf-8"
+      builder :project
+    end
+
+    get "/:project" do
+      login_required unless current_project.public?
+      show :project, :title => ["projects", current_project.name]
+    end
+
+    put "/:project" do
+      login_required
+
+      if current_project.update_attributes(params[:project_data])
+        update_notifiers_of(current_project)
+        redirect project_url(current_project).to_s
+      else
+        show :new, :title => ["projects", current_project.permalink, "edit"]
+      end
+    end
+
+    delete "/:project" do
+      login_required
+
+      current_project.destroy
+      redirect root_url.to_s
+    end
+
+    get "/:project/edit" do
+      login_required
+
+      show :new, :title => ["projects", current_project.permalink, "edit"]
+    end
+
+    post "/:project/push" do
+      login_required
+
+      content_type "text/plain"
+
+      begin
+        current_project.push(params[:payload])
+        201
+      rescue ArgumentError
+        [422, "Invalid Request"]
+      end
+    end
+
+    post "/:project/builds" do
+      login_required
+
+      current_project.build
+      redirect project_url(current_project).to_s
+    end
+
+    get "/:project/commits/:commit" do
+      login_required unless current_project.public?
+
+      show :build, :title => ["projects", current_project.permalink, current_commit.short_identifier]
+    end
+
+    get "/:project/builds/:commit" do
+      redirect "/#{params[:project]}/commits/#{params[:commit]}", 301
+    end
+
+    post "/:project/commits/:commit/builds" do
+      login_required
+
+      current_project.build(params[:commit])
+      redirect commit_url(current_commit).to_s
+    end
+  end
+end

data/lib/integrity/author.rb

@@ -0,0 +1,39 @@
+module Integrity
+  class Author < DataMapper::Type
+    primitive String
+    size      65535
+    lazy      true
+
+    class AuthorStruct < Struct.new(:name, :email)
+      def self.parse(string)
+        raise ArgumentError.new("invalid author string") unless string =~ /^(.*) <(.*)>$/
+
+        new($1.strip, $2.strip)
+      end
+
+      def to_s
+        @full ||= "#{name} <#{email}>"
+      end
+
+      alias_method :full, :to_s
+    end
+
+    def self.load(value, property)
+      AuthorStruct.parse(value) unless value.nil?
+    end
+
+    def self.dump(value, property)
+      return nil if value.nil?
+
+      value.to_s
+    end
+
+    def self.typecast(value, property)
+      case value
+      when AuthorStruct then value
+      when NilClass     then load(nil, property)
+      else load(value.to_s, property)
+      end
+    end
+  end
+end

data/lib/integrity/build.rb

@@ -0,0 +1,52 @@
+module Integrity
+  class Build
+    include DataMapper::Resource
+
+    property :id,           Integer,  :serial => true
+    property :output,       Text,     :default => "", :lazy => false
+    property :successful,   Boolean,  :default => false
+    property :commit_id,    Integer,  :nullable => false
+    property :created_at,   DateTime
+    property :updated_at,   DateTime
+    property :started_at,   DateTime
+    property :completed_at, DateTime
+
+    belongs_to :commit, :class_name => "Integrity::Commit",
+                        :child_key => [:commit_id]
+
+    def self.pending
+      all(:started_at => nil)
+    end
+
+    def self.queue(commit)
+      commit.update_attributes(:build => new)
+
+      # Build on foreground (this will move away, I promise)
+      ProjectBuilder.build(commit)
+    end
+
+    def pending?
+      started_at.nil?
+    end
+
+    def failed?
+      !successful?
+    end
+
+    def status
+      case
+      when pending?    then :pending
+      when successful? then :success
+      when failed?     then :failed
+      end
+    end
+
+    def start!(time=Time.now)
+      self.started_at = time
+    end
+
+    def complete!(time=Time.now)
+      self.completed_at = time
+    end
+  end
+end

data/lib/integrity/commit.rb

@@ -0,0 +1,61 @@
+module Integrity
+  class Commit
+    include DataMapper::Resource
+
+    property :id,           Integer,  :serial => true
+    property :identifier,   String,   :nullable => false
+    property :message,      String,   :length => 255
+    property :author,       Author,   :length => 255
+    property :url,          String
+    property :committed_at, DateTime
+    property :created_at,   DateTime
+    property :updated_at,   DateTime
+
+    has 1,     :build,   :class_name => "Integrity::Build",
+                         :order => [:created_at.desc]
+
+    belongs_to :project, :class_name => "Integrity::Project",
+                         :child_key => [:project_id]
+
+    def message
+      attribute_get(:message) || "<Commit message not loaded>"
+    end
+
+    def author
+      attribute_get(:author) ||
+        Author.load('<Commit author not loaded> <<Commit author not loaded>>', :author)
+    end
+
+    def short_identifier
+      identifier.to_s[0..6]
+    end
+
+    def status
+      build.nil? ? :pending : build.status
+    end
+
+    def successful?
+      status == :success
+    end
+
+    def failed?
+      status == :failed
+    end
+
+    def pending?
+      status == :pending
+    end
+
+    def human_readable_status
+      case status
+      when :success; "Built #{short_identifier} successfully"
+      when :failed;  "Built #{short_identifier} and failed"
+      when :pending; "#{short_identifier} hasn't been built yet"
+      end
+    end
+
+    def output
+      build && build.output
+    end
+  end
+end

data/lib/integrity/core_ext/object.rb

@@ -0,0 +1,6 @@
+class Object
+  def tap
+    yield self
+    self
+  end
+end

data/lib/integrity/helpers.rb

@@ -0,0 +1,16 @@
+Dir["#{File.dirname(__FILE__)}/helpers/*.rb"].each &method(:require)
+
+module Integrity
+  module Helpers
+    include Authorization
+    include Breadcrumbs
+    include PrettyOutput
+    include Rendering
+    include Resources
+    include Urls
+    include Gravatar
+
+    include Rack::Utils
+    alias :h :escape_html
+  end
+end

data/lib/integrity/helpers/authorization.rb

@@ -0,0 +1,33 @@
+require "sinatra/authorization"
+
+module Integrity
+  module Helpers
+    module Authorization
+      include Sinatra::Authorization
+
+      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)
+        response["WWW-Authenticate"] = %(Basic realm="#{realm}")
+        throw :halt, [401, show(:unauthorized, :title => "incorrect credentials")]
+      end
+    end
+  end
+end

data/lib/integrity/helpers/breadcrumbs.rb

@@ -0,0 +1,20 @@
+module Integrity
+  module Helpers
+    module Breadcrumbs
+      def pages
+        @pages ||= [["projects", root_path("/")], ["new project", root_path("/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
+
+    end
+  end
+end