SoundSoftware Code Site

#!/usr/bin/env ruby

# Create authormap files for hg repos based on the changeset & project

# member info available to Redmine.

#

# We have a set of hg repos in a given directory:

#

# /var/hg/repo_1

# /var/hg/repo_2

# /var/hg/repo_3

#

# and we want to produce authormap files in another directory:

#

# /var/repo-export/authormap/authormap_repo_1

# /var/repo-export/authormap/authormap_repo_2

# /var/repo-export/authormap/authormap_repo_3

#

# This script does that, if given the two directory names as arguments

# to the -s and -o options. In the above example:

#

# script/rails runner create-repo-authormaps.rb -s /var/hg -o /var/repo-export/authormap

#

# Note that this script will overwrite any existing authormap

# files. (That's why the output files are given an authormap_ prefix,

# so we're less likely to clobber something else if the user gets the

# arguments wrong.)

require 'getoptlong'

opts = GetoptLong.new(

                      ['--scm-dir',      '-s', GetoptLong::REQUIRED_ARGUMENT],

                      ['--out-dir',      '-o', GetoptLong::REQUIRED_ARGUMENT],

                      ['--environment',  '-e', GetoptLong::REQUIRED_ARGUMENT]

)

$repos_base   = ''

$out_base     = ''

def usage

  puts "See source code for supported options"

  exit

end

begin

  opts.each do |opt, arg|

    case opt

    when '--scm-dir';   $repos_base   = arg.dup

    when '--out-dir';   $out_base     = arg.dup

    end

  end

rescue

  exit 1

end

if ($repos_base.empty? or $out_base.empty?)

  usage

end

unless File.directory?($repos_base)

  puts "input directory '#{$repos_base}' doesn't exist"

  exit 1

end

unless File.directory?($out_base)

  puts "output directory '#{$out_base}' doesn't exist"

  exit 1

end

projects = Project.find(:all)

if projects.nil?

  puts 'No projects found'

  exit 1

end

projects.each do |proj|

  next unless proj.respond_to?(:repository)

  repo = proj.repository

  next if repo.nil? or repo.url.empty?

  repo_url = repo.url

  repo_url = repo_url.gsub(/^file:\/*/, "/");

  if repo_url != File.join($repos_base, proj.identifier)

    puts "Project #{proj.identifier} has repo in unsupported location #{repo_url}, skipping"

    next

  end

  committers = repo.committers

  authormap = ""

  committers.each do |c, uid|

    if not c =~ /[^<]+<.*@.*>/ then

      user = User.find_by_id uid

      authormap << "#{c}=#{user.name} <#{user.mail}>\n" unless user.nil?

    end

  end

  File.open(File.join($out_base, "authormap_#{proj.identifier}"), "w") do |f|

    f.puts(authormap)

  end

end