git-lighttp 0.3.0

data/lib/git/lighttp/extensions.rb

@@ -0,0 +1,73 @@
+class Object
+  # Set instance variables by key and value only if object respond
+  # to access method for variable.
+  def instance_variables_set_from(hash)
+    hash.collect do |variable, value|
+      self.instance_variable_set("@#{variable}", value) if self.respond_to? variable
+    end
+    self
+  end
+
+end
+
+class Symbol
+
+  # Method for comparison between symbols.
+  def <=>(other)
+    self.to_s <=> other.to_s
+  end
+
+  # Parse the symbol name to constant name. Example:
+  #
+  #   $ :http_backend.to_const_name
+  #   => "HttpBackend"
+  def to_const_name
+    n = self.to_s.split(/_/).map(&:capitalize).join
+    RUBY_VERSION =~ /1\.8/ ? n : n.to_sym
+  end
+
+end
+
+class Hash
+
+  # Only symbolize all keys, including all key in sub-hashes. 
+  def symbolize_keys
+    return self.clone if self.empty?
+    self.inject({}) do |h, (k, v)|
+      h[k.to_sym] = (v.kind_of? Hash) ? v.symbolize_keys : v
+      h
+    end
+  end
+
+  # Convert to Struct including all values that are Hash class.
+  def to_struct
+    keys    = self.keys.sort
+    members = keys.map(&:to_sym)
+    Struct.new(*members).new(*keys.map do |key|
+      (self[key].kind_of? Hash) ?  self[key].to_struct : self[key]
+    end) unless self.empty?
+  end
+
+end
+
+class String
+
+  def to_semver_h
+    tags   = [:major, :minor, :patch, :status]
+    values = self.split(".").map do |key|
+      # Check pre-release status
+      if key.match(/^(\d{1,})([a-z]+[\d\w]{1,}.*)$/i)
+        [ $1.to_i, $2 ]
+      else
+        key.to_i
+      end
+    end.flatten
+    Hash[tags.zip(values)]
+  end
+
+  def to_attr_name
+    self.split("::").last.gsub(/(.)([A-Z])/){"#{$1}_#{$2.downcase}"}.downcase
+  end
+
+end
+

data/lib/git/lighttp/http_backend.rb

@@ -0,0 +1,178 @@
+module Git::Lighttp
+
+  module HttpBackendHelpers #:nodoc:
+
+    include GitHelpers
+
+    def service_request?
+      not params[:service].nil?
+    end
+
+    # select_service feature
+    def service
+      @service = params[:service]
+      return false if @service.nil?
+      return false if @service[0, 4] != "git-"
+      @service = @service.gsub("git-", "")
+    end
+
+    # pkt_write feature
+    def packet_write(line)
+      (line.size + 4).to_s(base=16).rjust(4, "0") + line
+    end
+
+    # pkt_flush feature
+    def packet_flush
+      "0000"
+    end
+
+    # hdr_nocache feature
+    def header_nocache
+      headers "Expires"       => "Fri, 01 Jan 1980 00:00:00 GMT",
+              "Pragma"        => "no-cache",
+              "Cache-Control" => "no-cache, max-age=0, must-revalidate"
+    end
+
+    # hdr_cache_forever feature
+    def header_cache_forever
+      now = Time.now
+      headers "Date"          => now.to_s,
+              "Expires"       => (now + 31536000).to_s,
+              "Cache-Control" => "public, max-age=31536000"
+    end
+
+    # select_getanyfile feature
+    def read_any_file
+      unless settings.get_any_file
+        halt 403, "Unsupported service: getanyfile"
+      end
+    end
+
+    # get_text_file feature
+    def read_text_file(*file)
+      read_any_file
+      header_nocache
+      content_type "text/plain"
+      repository.read_file(*file)
+    end
+
+    # get_loose_object feature
+    def send_loose_object(prefix, suffix)
+      read_any_file
+      header_cache_forever
+      content_type_for_git :loose, :object
+      send_file(repository.loose_object_path(prefix, suffix))
+    end
+
+    # get_pack_file and get_idx_file
+    def send_pack_idx_file(pack, idx = false)
+      read_any_file
+      header_cache_forever
+      content_type_for_git :packed, :objects, (idx ? :toc : nil)
+      send_file(repository.pack_idx_path(pack))
+    end
+
+    def send_info_packs
+      read_any_file
+      header_nocache
+      content_type "text/plain; charset=utf-8"
+      send_file(repository.info_packs_path)
+    end
+
+    # run_service feature
+    def run_advertisement(service)
+      header_nocache
+      content_type_for_git service, :advertisement
+      response.body.clear
+      response.body << packet_write("# service=git-#{service}\n")
+      response.body << packet_flush
+      response.body << repository.run(service, "--stateless-rpc --advertise-refs .")
+      response.finish
+    end
+
+    def run_process(service)
+      content_type_for_git service, :result
+      input   = request.body.read
+      command = repository.cli(service, "--stateless-rpc #{git.repository}")
+      # This source has extracted from Grack written by Scott Chacon.
+      IO.popen(command, File::RDWR) do |pipe|
+        pipe.write(input)
+        while !pipe.eof?
+          block = pipe.read(8192) # 8M at a time
+          response.write block    # steam it to the client
+        end
+      end # IO
+      response.finish
+    end
+
+  end # HttpBackendHelpers
+
+  # The Smart HTTP handler server. This is the main Web application which respond to following requests:
+  #
+  # <repo.git>/HEAD           :: HEAD contents
+  # <repo.git>/info/refs      :: Text file that contains references.
+  # <repo.git>/objects/info/* :: Text file that contains all list of packets, alternates or http-alternates.
+  # <repo.git>/objects/*/*    :: Git objects, packets or indexes.
+  # <repo.git>/upload-pack    :: Post an upload packets.
+  # <repo.git>/receive-pack   :: Post a receive packets.
+  #
+  # See ::configure for more details.
+  class HttpBackend < Application
+
+    set :authenticate, true
+    set :get_any_file, true
+    set :upload_pack,  true
+    set :receive_pack, false
+
+    helpers HttpBackendHelpers
+
+    before do
+      authenticate! if settings.authenticate
+    end
+
+    # implements the get_text_file function
+    get "/:repository/HEAD" do
+      read_text_file("HEAD")
+    end
+
+    # implements the get_info_refs function
+    get "/:repository/info/refs" do
+      if service_request? # by URL query parameters
+        run_advertisement service
+      else
+        read_text_file(:info, :refs)
+      end
+    end
+
+    # implements the get_text_file and get_info_packs functions
+    get %r{/(.*?)/objects/info/(packs|alternates|http-alternates)$} do |repository, file|
+      if file == "packs"
+        send_info_packs
+      else
+        read_text_file(:objects, :info, file)
+      end
+    end
+
+    # implements the get_loose_object function
+    get %r{/(.*?)/objects/([0-9a-f]{2})/([0-9a-f]{38})$} do |repository, prefix, suffix|
+      send_loose_object(prefix, suffix)
+    end
+
+    # implements the get_pack_file and get_idx_file functions
+    get %r{/(.*?)/objects/pack/(pack-[0-9a-f]{40}.(pack|idx))$} do |repository, pack, ext|
+      send_pack_idx_file(pack, ext == "idx")
+    end
+
+    # implements the service_rpc function
+    post "/:repository/:service" do
+      run_process service
+    end
+
+  private
+
+    helpers AuthenticationHelpers
+
+  end # HttpBackend
+
+end # Git::Lighttp
+

data/lib/git/lighttp/treeish.rb

@@ -0,0 +1,28 @@
+module Git::Lighttp
+
+  class Treeish < Application
+
+    set :authenticate, false
+    
+    helpers GitHelpers
+
+    before do
+      authenticate! if settings.authenticate
+    end
+
+    get %r{/(.*?)/(.*?/{0,1}.*)$} do |name, path|
+      content_type :json
+      path = path.split("/")
+      ref  = path.shift
+      tree = repository.tree(ref, path.join("/"))
+      tree.to_json(:max_nesting => tree.size*6)
+    end
+
+  private
+
+    helpers AuthenticationHelpers
+
+  end
+
+end
+

data/lib/git/lighttp/version.rb

@@ -0,0 +1,26 @@
+module Git
+
+  # The objective of this class is to implement various ideas proposed by the
+  # Semantic Versioning Specification (see reference[http://semver.org/]).
+  module Lighttp #:nodoc:
+
+    VERSION   = "0.3.0"
+    RELEASE   = "2016-01-27"
+    TIMESTAMP = "2011-07-05 12:32:36 -04:00"
+
+    def self.info
+      "#{name} v#{VERSION} (#{RELEASE})"
+    end
+
+    def self.to_h
+      { :name      => name,
+        :version   => VERSION,
+        :semver    => VERSION.to_semver_h,
+        :release   => RELEASE,
+        :timestamp => TIMESTAMP }
+    end
+
+  end
+
+end
+

data/test/all.rb

@@ -0,0 +1,12 @@
+$LOAD_PATH.unshift 'lib'
+$LOAD_PATH.unshift '.'
+
+require 'minitest/autorun'
+require 'minitest/rg'
+require 'test/helpers'
+require 'rack/test'
+require 'git/lighttp'
+
+Dir['test/*_test.rb'].each do |test|
+  load test
+end

data/test/config_test.rb

@@ -0,0 +1,43 @@
+describe 'Configuration' do
+  before do
+    @config = {
+      :default => {
+        :project_root => '/var/git/repos',
+        :git_path     => '/usr/local/bin/git'
+      },
+      :treeish => {
+        :authenticate => true
+      },
+      :http_backend => {
+        :authenticate => true,
+        :get_any_file => true,
+        :upload_pack  => true,
+        :receive_pack => false,
+      }
+    }
+  end
+
+  it 'configure by application' do
+    Git::Lighttp.configure do |app|
+      app.default.project_root = '/var/git/repos'
+      app.default.git_path = '/usr/local/bin/git'
+      app.treeish.authenticate = true
+    end
+  
+    @config.keys.each do |app|
+      @config[app].each do |option, value|
+        assert_equal value, Git::Lighttp.config[app][option]
+      end
+    end
+  end
+
+  it 'load from YAML file' do
+    yaml   = YAML.load_file(fixtures('config.yml')).symbolize_keys
+    config = Git::Lighttp.load_config_file(fixtures('config.yml'))
+    yaml.keys.each do |app|
+      yaml[app].each do |option, value|
+        assert_equal value, config[app][option]
+      end
+    end
+  end
+end

data/test/fixtures/config.yml

@@ -0,0 +1,13 @@
+default:
+  project_root: /var/git/repos
+  git_path    : /usr/bin/git
+
+treeish:
+  authenticate: true
+
+http_backend:
+  authenticate: true
+  get_any_file: true
+  upload_pack : true
+  receive_pack: false
+

data/test/fixtures/htgroup

@@ -0,0 +1,3 @@
+prophets: malachi jeremiah
+writers: matthew mark luke john
+disciples: john peter

data/test/fixtures/htpasswd

@@ -0,0 +1,4 @@
+john:BInD5.JEyr5Ng
+luke:1y687odVzuFJs
+mark:V5.e7XhcXHmQc
+matthew:zKOzsdCzE.mEE

data/test/fixtures/mycode.git/HEAD

@@ -0,0 +1 @@
+ref: refs/heads/master

data/test/fixtures/mycode.git/config

@@ -0,0 +1,4 @@
+[core]
+	repositoryformatversion = 0
+	filemode = true
+	bare = true

data/test/fixtures/mycode.git/description

@@ -0,0 +1 @@
+Unnamed repository; edit this file 'description' to name the repository.

data/test/fixtures/mycode.git/hooks/applypatch-msg.sample

@@ -0,0 +1,15 @@
+#!/bin/sh
+#
+# An example hook script to check the commit log message taken by
+# applypatch from an e-mail message.
+#
+# The hook should exit with non-zero status after issuing an
+# appropriate message if it wants to stop the commit.  The hook is
+# allowed to edit the commit message file.
+#
+# To enable this hook, rename this file to "applypatch-msg".
+
+. git-sh-setup
+test -x "$GIT_DIR/hooks/commit-msg" &&
+	exec "$GIT_DIR/hooks/commit-msg" ${1+"$@"}
+:

data/test/fixtures/mycode.git/hooks/commit-msg.sample

@@ -0,0 +1,24 @@
+#!/bin/sh
+#
+# An example hook script to check the commit log message.
+# Called by "git commit" with one argument, the name of the file
+# that has the commit message.  The hook should exit with non-zero
+# status after issuing an appropriate message if it wants to stop the
+# commit.  The hook is allowed to edit the commit message file.
+#
+# To enable this hook, rename this file to "commit-msg".
+
+# Uncomment the below to add a Signed-off-by line to the message.
+# Doing this in a hook is a bad idea in general, but the prepare-commit-msg
+# hook is more suited to it.
+#
+# SOB=$(git var GIT_AUTHOR_IDENT | sed -n 's/^\(.*>\).*$/Signed-off-by: \1/p')
+# grep -qs "^$SOB" "$1" || echo "$SOB" >> "$1"
+
+# This example catches duplicate Signed-off-by lines.
+
+test "" = "$(grep '^Signed-off-by: ' "$1" |
+	 sort | uniq -c | sed -e '/^[ 	]*1[ 	]/d')" || {
+	echo >&2 Duplicate Signed-off-by lines.
+	exit 1
+}