repobrowse 0.0.0

data/lib/repobrowse/git_log.rb

@@ -0,0 +1,4 @@
+# -*- encoding: binary -*-
+# Copyright (C) 2017-2018 all contributors <repobrowse-public@80x24.org>
+# License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>
+# frozen_string_literal: true

data/lib/repobrowse/git_patch.rb

@@ -0,0 +1,55 @@
+# -*- encoding: binary -*-
+# Copyright (C) 2017-2018 all contributors <repobrowse-public@80x24.org>
+# License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>
+# frozen_string_literal: true
+require 'time'
+require_relative 'pipe_body'
+
+# included by Repobrowse::Git
+module Repobrowse::GitPatch
+
+  # mboxrd support requires git 2.10+ (2016/09/02)
+  @@mboxrd = '--pretty=mboxrd'
+
+  # /$REPO_NAME/$HEX.patch
+  def patch(r, repo, objid)
+    rgd = repo.driver.rugged
+    cmt = rgd.rev_parse("#{objid}^{commit}") rescue nil
+    return r404(r) unless Rugged::Commit === cmt
+    time = cmt.author[:time]
+    cmt = cmt.oid
+
+    # disambiguate, expand abbreviated commit IDs to be cache-friendly
+    if objid != cmt
+      loc = r.base_url
+      loc << "#{r.script_name}/#{repo.name}/#{cmt}.patch"
+      return r.redirect(loc)
+    end
+
+    # command should match signature, so not using rugged, here;
+    # and mboxrd support is fairly recent in git.git.  rugged/libgit2
+    # developers also do not use an email+patch-driven workflow, so I
+    # don't expect it to support patch formatting as well as git.git does
+    begin
+      cmd = %W(format-patch -M --stdout --encoding=utf8 -1 #{cmt})
+      mboxrd = @@mboxrd and cmd << mboxrd
+      cmd << "--signature=git #{cmd.join(' ')}"
+      io = repo.driver.popen(cmd)
+      if buf = io.read(0x2000)
+        h = {
+          'Content-Type' => 'text/plain; charset=UTF-8',
+          'Last-Modified' => (time || Time.now).httpdate,
+          'Expires' => (Time.now + 604800).httpdate,
+          'Content-Disposition' => %Q{inline; filename="#{cmt}.patch"},
+        }
+        return r.halt [ 200, h, Repobrowse::PipeBody.new(io, buf) ]
+      end
+      io.close
+      if mboxrd
+        @@mboxrd = nil
+      else
+        return r_err(r, 'Internal Server Error')
+      end
+    end while true
+  end
+end

data/lib/repobrowse/git_raw.rb

@@ -0,0 +1,50 @@
+# -*- encoding: binary -*-
+# Copyright (C) 2017-2018 all contributors <repobrowse-public@80x24.org>
+# License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>
+# frozen_string_literal: true
+
+require_relative 'escape'
+require_relative 'git_raw_tree_html'
+require_relative 'git_disambiguate'
+require_relative 'pipe_body'
+
+module Repobrowse::GitRaw
+  include Repobrowse::GitDisambiguate
+
+  # /$REPO_NAME/raw/$REF:$PATH
+  def raw(r, repo, ref, path)
+    git_disambiguate(r, repo, 'raw', ref, path)
+    h = { 'Content-Type' => 'text/plain; charset=UTF-8' }
+    spec = "#{ref}:#{path}"
+    rgd = rugged
+    begin
+      oid = rgd.rev_parse_oid(spec)
+      hdr = rgd.read_header(oid)
+    rescue
+      return r404(r)
+    end
+    type = hdr[:type]
+    if type == :tree
+      body = Repobrowse::GitRawTreeHTML.new(rgd.lookup(oid), ref, path)
+      h['Content-Type'] = 'text/html; charset=UTF-8'
+    else
+      fn = path.split('/')[-1]
+      h['ETag'] = %Q{"#{oid}"}
+      len = hdr[:len]
+      h['Content-Length'] = len.to_s
+      h['Content-Disposition'] = %Q{inline; filename="#{fn}"}
+      if len < 512 * 1024
+        body = rgd.lookup(oid).content
+        peek = body[0, 8000]
+        body = [ body ]
+      else # large objects
+        io = repo.driver.popen(%Q(cat-file -t #{type} #{oid}))
+        peek = io.read(8000) or return r404(r)
+        body = Repobrowse::PipeBody.new(io, peek)
+      end
+      peek.include?("\0") and
+        h['Content-Type'] = 'application/octet-stream'
+    end
+    r.halt [ 200, h, body ]
+  end
+end

data/lib/repobrowse/git_raw_tree_html.rb

@@ -0,0 +1,50 @@
+# -*- encoding: binary -*-
+# Copyright (C) 2017-2018 all contributors <repobrowse-public@80x24.org>
+# License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>
+# frozen_string_literal: true
+require_relative 'escape'
+
+# ugly "raw" tree view, "git_src_tree_html" has the prettier one
+class Repobrowse::GitRawTreeHTML
+  include Repobrowse::Escape
+
+  def initialize(tree, ref, path)
+    @tree = tree
+    @ref = ref
+    @path = path # nil ok
+  end
+
+  def each
+    if @path
+      t = ht(+"/#@path/")
+      path = @path.split('/')
+      case path.size
+      when 1
+        ref = CGI.escape(@ref.split('/')[-1])
+        pfx = "./#{ref}:#{CGI.escape(path[0])}/"
+        up = ha('./' + ref)
+      else
+        pfx = "#{CGI.escape(path[-1])}/"
+        up = "#@ref:#@path".split('/')[-2]
+        up = up.split(':').map! { |u| CGI.escape(u) }.join(':')
+        up = ha('../' + up)
+      end
+    else
+      t = '/'
+      pfx = "./#{CGI.escape(@ref.split('/')[-1])}:"
+    end
+    yield "<html><head><title>#{t}</title></head><body><h2>#{t}</h2><ul>"
+    yield %Q(<li><a\nhref=#{up}>../</a></li>) if up
+    @tree.each do |ent|
+      name = ent[:name]
+      href = ha(pfx + CGI.escape(name))
+      name = ht(name)
+      yield %Q(<li><a\nhref=#{href}>#{name}</a></li>)
+    end
+    yield '</ul></body></html>'
+    self
+  end
+
+  def close
+  end
+end

data/lib/repobrowse/git_show.rb

@@ -0,0 +1,32 @@
+# -*- encoding: utf-8 -*-
+# Copyright (C) 2017-2018 all contributors <repobrowse-public@80x24.org>
+# License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>
+# frozen_string_literal: true
+
+require_relative 'git_commit_html'
+
+module Repobrowse::GitShow
+
+  def show(r, repo, objid)
+    rgd = repo.driver.rugged
+    begin
+      oid = rgd.rev_parse_oid(objid)
+    rescue
+      return r404(r)
+    end
+    # disambiguate, expand abbreviated commit IDs to be cache-friendly
+    if oid != objid
+      return r.redirect("#{r.base_url}#{r.script_name}/#{repo.name}/#{oid}")
+    end
+    hdr = rgd.read_header(oid)
+    case hdr[:type]
+    when :commit
+      html = Repobrowse::GitCommitHTML.new
+      html.commit_header(r.env, repo, rgd.lookup(oid))
+      r.halt html.response(200)
+    # TODO: other types
+    else
+      r404(r)
+    end
+  end
+end

data/lib/repobrowse/git_src.rb

@@ -0,0 +1,37 @@
+# -*- encoding: utf-8 -*-
+# Copyright (C) 2017-2018 all contributors <repobrowse-public@80x24.org>
+# License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>
+# frozen_string_literal: true
+
+require_relative 'git_src_blob_html'
+require_relative 'git_src_tree_html'
+require_relative 'git_disambiguate'
+
+module Repobrowse::GitSrc
+  include Repobrowse::GitDisambiguate
+
+  MAX = 1024 * 1024
+
+  # /$REPO_NAME/src/$REF:$PATH
+  def src(r, repo, ref, path)
+    git_disambiguate(r, repo, 'src', ref, path)
+    spec = "#{ref}:#{path}"
+    rgd = rugged
+    begin
+      oid = rgd.rev_parse_oid(spec)
+      hdr = rgd.read_header(oid)
+    rescue => e
+      warn e.message
+      return r404(r)
+    end
+    h = { 'ETag' => %Q{"#{oid}"} }
+    case hdr[:type]
+    when :tree
+      tree = rgd.lookup(oid)
+      html = Repobrowse::GitSrcTreeHTML.new(tree, ref, path, repo)
+    when :blob
+      html = Repobrowse::GitSrcBlobHTML.new(hdr, oid, ref, path, repo)
+    end
+    r.halt(html.response(200, h))
+  end
+end

data/lib/repobrowse/git_src_blob_html.rb

@@ -0,0 +1,89 @@
+# -*- encoding: utf-8 -*-
+# Copyright (C) 2017-2018 all contributors <repobrowse-public@80x24.org>
+# License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>
+# frozen_string_literal: true
+require_relative 'html'
+require 'uri'
+
+class Repobrowse::GitSrcBlobHTML < Repobrowse::HTML
+  def initialize(hdr, oid, ref, path, repo)
+    super()
+    @repo = repo
+    ref_parts = ref.split('/')
+    ref_uri = ref_parts.map { |s| CGI.escape(s) }
+    ref_html = ht(ref.dup)
+    path_parts = path.split('/')
+    path_uri = path_parts.map { |s| CGI.escape(s) }
+    path_html = ht(path.dup)
+    relup = (2..(ref_parts.size + path_parts.size)).map { '../' }.join
+    raw = +"#{relup}/raw/#{ref_uri.join('/')}:#{path_uri.join('/')}"
+    path_uri[0] = "#{ref_uri[-1]}:#{path_uri[0]}" if path_uri[0]
+    relup = (2..path_parts.size).map { '../' }.join
+    base = path_parts.pop
+    _base_uri = path_uri.pop
+    tmp = []
+    path_parts.map! do |x|
+      tmp << path_uri.shift
+      href = +"#{relup}#{tmp.join('/')}"
+      %Q(<a\nhref=#{ha(href)}>#{ht(x)}</a>)
+    end
+    path_parts << "<b>#{ht(base)}</b>"
+    @buf = start("#{ref_html}:#{path_html}", repo)
+    len = hdr[:len]
+    @buf << <<EOS
+<a
+href=#{ha(relup + ref_uri[-1])}>#{ref_html}</a> : #{path_parts.join(' / ')}
+
+blob #{oid}\t#{len} bytes (<a
+href=#{ha(raw)}>raw</a>)</pre><hr/>
+EOS
+    @buf.chomp!
+    if len < (512 * 1024)
+      @oid = oid
+    end
+  end
+
+  # Called by the rack server
+  def each
+    if @buf
+      yield @buf
+      @buf.clear
+      @buf = nil
+    end
+
+    # TODO: optional syntax highlighting
+    # highlight(1) supports streaming; but needs be spawned
+    # highlight should also be familiar to gitweb and cgit users
+    # rouge allows streaming output, but not input :<
+    # coderay doesn't seem to support streaming at all
+    if @oid
+      body = @repo.driver.rugged.lookup(@oid).content
+      if body[0, 8000].include?("\0")
+        yield "<pre>Binary file, save using the 'raw' link above</pre>"
+      else
+        yield '<table><tr><td><pre>'
+        n = body.count("\n")
+        yield ht(body)
+        unless body.end_with?("\n")
+          n += 1
+          yield "\n\"
+        end
+        yield '</pre></td><td><pre>'
+        pfx = @repo.lineno_prefix
+        (1..n).each do |i|
+          anchor = "#{pfx}#{i}"
+          yield %Q(<a\nid=#{anchor}\nhref="##{anchor}">#{i}</a>\n)
+        end
+        yield '</pre></td></tr></table>'
+      end
+    else
+      yield "<pre>File is too big to display, save using the 'raw' link</pre>"
+    end
+    yield '</body></html>'
+    self
+  end
+
+  # called by the Rack server
+  def close
+  end
+end

data/lib/repobrowse/git_src_tree_html.rb

@@ -0,0 +1,118 @@
+# -*- encoding: utf-8 -*-
+# Copyright (C) 2017-2018 all contributors <repobrowse-public@80x24.org>
+# License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>
+# frozen_string_literal: true
+require_relative 'html'
+require 'uri'
+
+class Repobrowse::GitSrcTreeHTML < Repobrowse::HTML
+  def initialize(tree, ref, path, repo)
+    super()
+    @tree = tree
+    @repo = repo
+    ref_parts = ref.split('/')
+    ref_uri = ref_parts.map { |s| CGI.escape(s) }
+    ref_html = ht(ref.dup)
+    if path
+      path_parts = path.split('/')
+      path_uri = path_parts.map { |s| CGI.escape(s) }
+      path_html = ht(path.dup)
+      path_uri[0] = "#{ref_uri[-1]}:#{path_uri[0]}" if path_uri[0]
+      relup = (2..path_parts.size).map { '../' }.join
+      base = path_parts.pop
+      base_uri = path_uri.pop
+      tmp = []
+      path_parts.map! do |x|
+        tmp << path_uri.shift
+        href = ha(+"#{relup}#{tmp.join('/')}")
+        %Q(<a\nhref=#{href}>#{ht(x)}</a>)
+      end
+      path_parts << "<b>#{ht(base)}</b>"
+      @rel_prefix = "./#{base_uri}/"
+    else
+      path_parts = [ '[root]' ]
+      relup = ''
+      @rel_prefix = "./#{ref_uri[-1]}:"
+    end
+    @buf = start("#{ref_html}:#{path_html}", repo)
+    @buf << <<EOS
+<a
+href=#{ha(relup + ref_uri[-1])}>#{ref_html}</a> : #{path_parts.join(' / ')}
+
+tree #{@tree.oid}</pre><hr/><pre>
+EOS
+    @buf.chomp!
+  end
+
+  def fmt_ent(ent, rgd, parts)
+    name = ent[:name]
+    name_text = ht(name.dup)
+    case ent[:filemode]
+    when 0100644 # plain blob, nothing special
+      md = ' '
+    when 0040000
+      return do_descend(ent, rgd) unless parts
+      md = 'd'
+      len = '-'
+    when 0100755
+      md = 'x'
+      name_text = "<b>#{name_text}</b>"
+    when 0120000
+      md = 'l'
+      name_text = "<i>#{name_text}</i>"
+    when 0160000
+      md = 'g'
+      name_text = "#{name_text} <u>@ #{ent[:oid]}</u>"
+      len = '-'
+    else
+      warn "unknown mode: #{'%06o' % ent[:filemode]}"
+    end
+    len ||= rgd.read_header(ent[:oid])[:len].to_s
+    if parts && dir = parts.shift
+      href = @rel_prefix + URI.escape(dir)
+      dir = "<a\nhref=#{ha(href.dup)}>#{ht(dir)}</a>"
+      parts.map! do |part|
+        href << "/#{URI.escape(part)}"
+        "<a\nhref=#{ha(href.dup)}>#{ht(part)}</a>"
+      end
+      parts.unshift(dir)
+      href << "/#{URI.escape(name)}"
+      parts << "<a\nhref=#{ha(href)}>#{name_text}</a>"
+      rest = parts.join(' / ')
+    else
+      rest = "<a\nhref=#{ha(@rel_prefix + URI.escape(name))}>#{name_text}</a>"
+    end
+    "#{md} #{sprintf('% 8s', len)}\t#{rest}\n"
+  end
+
+  def do_descend(ent, rgd)
+    parts = []
+    begin
+      tree = rgd.lookup(ent[:oid])
+      if tree.count != 1
+        break
+      else
+        parts << ent[:name]
+        ent = tree.get_entry(0)
+        ent[:filemode] == 0040000 or break
+      end
+    end while true
+    fmt_ent(ent, rgd, parts)
+  end
+
+  # called by the Rack server
+  def each
+    yield @buf
+    @buf.clear
+    rgd = @repo.driver.rugged
+    @tree.each do |ent|
+      yield fmt_ent(ent, rgd, nil)
+    end
+    yield '</pre></body></html>'
+    self
+  end
+
+  # called by the Rack server
+  def close
+  end
+end

data/lib/repobrowse/html.rb

@@ -0,0 +1,66 @@
+# -*- encoding: utf-8 -*-
+# Copyright (C) 2017-2018 all contributors <repobrowse-public@80x24.org>
+# License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>
+# frozen_string_literal: true
+
+require_relative 'escape'
+
+# used to give each HTML page a consistent look, this is a Rack response body
+class Repobrowse::HTML
+  attr_reader :buf # meant for appending to via String#<<
+
+  include Repobrowse::Escape
+
+  def initialize
+    @buf = nil
+  end
+
+  def start(title_html, desc, robots: nil)
+    meta = %Q(<meta\nname=robots\ncontent="#{robots}" />) if robots
+    @buf = +<<~EOF
+      <!DOCTYPE html>
+      <html><head><title>#{
+        title_html
+      }</title><style>pre{white-space:pre-wrap}</style>#{
+        meta
+      }</head><body><pre><b>#{
+        case desc
+        when String, nil
+          desc
+        else
+          desc.driver.description.encode(xml: :text)
+        end
+      }</b>
+    EOF
+  end
+
+  ESCAPES = { '/' => ':' }
+  (0..255).each { |x|
+    key = -x.chr
+    next if key =~ %r{\A[\w\.\-/]}n
+    ESCAPES[key] = -sprintf('::%02x', x)
+  }
+
+  def to_anchor(str)
+    str = str.dup
+    first = ''
+    # must start with alphanum
+    str.sub!(/\A([^A-Ya-z])/n, '') and first = sprintf('Z%02x', $1.ord)
+    str.gsub!(/([^\w\.\-])/n, ESCAPES)
+    "#{first}#{str}"
+  end
+
+  def from_anchor(str)
+    str = str.dup
+    first = ''
+    str.sub!(/\AZ([a-f0-9]{2})/n, '') and first = -$1.hex.chr
+    str.gsub!(/::([a-f0-9]{2})/n) { $1.hex.chr }
+    str.tr!(':', '/')
+    "#{first}#{str}"
+  end
+
+  def response(code, headers = {})
+    headers['Content-Type'] ||= 'text/html; charset=UTF-8'
+    [ 200, headers, self ]
+  end
+end