reposman.rb
255 lines
| 8.4 KiB
| text/x-ruby
|
RubyLexer
|
r826 | #!/usr/bin/ruby | ||
# == Synopsis | ||||
# | ||||
|
r847 | # reposman: manages your svn repositories with Redmine | ||
|
r826 | # | ||
# == Usage | ||||
# | ||||
|
r1812 | # reposman [OPTIONS...] -s [DIR] -r [HOST] | ||
# | ||||
# Examples: | ||||
# reposman --svn-dir=/var/svn --redmine-host=redmine.example.net | ||||
# reposman -s /var/svn -r redmine.example.net -u http://svn.example.net | ||||
|
r826 | # | ||
# == Arguments (mandatory) | ||||
# | ||||
|
r1812 | # -s, --svn-dir=DIR use DIR as base directory for svn repositories | ||
# -r, --redmine-host=HOST assume Redmine is hosted on HOST. Examples: | ||||
# -r redmine.example.net | ||||
# -r http://redmine.example.net | ||||
# -r https://example.net/redmine | ||||
|
r826 | # | ||
# == Options | ||||
|
r847 | # | ||
|
r1812 | # -o, --owner=OWNER owner of the repository. using the rails login | ||
# allow user to browse the repository within | ||||
# Redmine even for private project | ||||
# -u, --url=URL the base url Redmine will use to access your | ||||
# repositories. This option is used to automatically | ||||
# register the repositories in Redmine. The project | ||||
# identifier will be appended to this url. Examples: | ||||
# -u https://example.net/svn | ||||
# -u file:///var/svn/ | ||||
# if this option isn't set, reposman won't register | ||||
# the repositories in Redmine | ||||
# -c, --command=COMMAND use this command instead of "svnadmin create" to | ||||
# create a repository. This option can be used to | ||||
# create non-subversion repositories | ||||
# --scm SCM vendor used to register the repository in | ||||
# Redmine (default: Subversion). Can be one of the | ||||
# other supported SCM: Bazaar, Darcs, Filesystem, | ||||
# Git, Mercurial (case sensitive). | ||||
# This option should be used when both options --url | ||||
# and --command are used. | ||||
# -f, --force force repository creation even if the project | ||||
# repository is already declared in Redmine | ||||
# -t, --test only show what should be done | ||||
# -h, --help show help and exit | ||||
# -v, --verbose verbose | ||||
# -V, --version print version and exit | ||||
# -q, --quiet no log | ||||
|
r826 | |||
require 'getoptlong' | ||||
require 'rdoc/usage' | ||||
require 'soap/wsdlDriver' | ||||
require 'find' | ||||
require 'etc' | ||||
|
r1812 | Version = "1.1" | ||
SUPPORTED_SCM = %w( Subversion Darcs Mercurial Bazaar Git Filesystem ) | ||||
|
r826 | |||
opts = GetoptLong.new( | ||||
['--svn-dir', '-s', GetoptLong::REQUIRED_ARGUMENT], | ||||
['--redmine-host', '-r', GetoptLong::REQUIRED_ARGUMENT], | ||||
|
r847 | ['--owner', '-o', GetoptLong::REQUIRED_ARGUMENT], | ||
['--url', '-u', GetoptLong::REQUIRED_ARGUMENT], | ||||
|
r1812 | ['--command' , '-c', GetoptLong::REQUIRED_ARGUMENT], | ||
['--scm', GetoptLong::REQUIRED_ARGUMENT], | ||||
|
r903 | ['--test', '-t', GetoptLong::NO_ARGUMENT], | ||
|
r1812 | ['--force', '-f', GetoptLong::NO_ARGUMENT], | ||
|
r826 | ['--verbose', '-v', GetoptLong::NO_ARGUMENT], | ||
['--version', '-V', GetoptLong::NO_ARGUMENT], | ||||
['--help' , '-h', GetoptLong::NO_ARGUMENT], | ||||
['--quiet' , '-q', GetoptLong::NO_ARGUMENT] | ||||
) | ||||
$verbose = 0 | ||||
$quiet = false | ||||
$redmine_host = '' | ||||
$repos_base = '' | ||||
|
r847 | $svn_owner = 'root' | ||
|
r989 | $use_groupid = true | ||
|
r847 | $svn_url = false | ||
|
r903 | $test = false | ||
|
r1812 | $command = "svnadmin create" | ||
$force = false | ||||
$scm = 'Subversion' | ||||
|
r826 | |||
def log(text,level=0, exit=false) | ||||
return if $quiet or level > $verbose | ||||
puts text | ||||
exit 1 if exit | ||||
end | ||||
begin | ||||
opts.each do |opt, arg| | ||||
case opt | ||||
|
r847 | when '--svn-dir'; $repos_base = arg.dup | ||
|
r826 | when '--redmine-host'; $redmine_host = arg.dup | ||
|
r989 | when '--owner'; $svn_owner = arg.dup; $use_groupid = false; | ||
|
r847 | when '--url'; $svn_url = arg.dup | ||
|
r1812 | when '--scm'; $scm = arg.dup; log("Invalid SCM: #{$scm}", 0, true) unless SUPPORTED_SCM.include?($scm) | ||
when '--command'; $command = arg.dup | ||||
|
r826 | when '--verbose'; $verbose += 1 | ||
|
r903 | when '--test'; $test = true | ||
|
r1812 | when '--force'; $force = true | ||
|
r826 | when '--version'; puts Version; exit | ||
when '--help'; RDoc::usage | ||||
when '--quiet'; $quiet = true | ||||
end | ||||
end | ||||
rescue | ||||
exit 1 | ||||
end | ||||
|
r903 | if $test | ||
log("running in test mode") | ||||
end | ||||
|
r1812 | # Make sure command is overridden if SCM vendor is not Subversion | ||
if $scm != 'Subversion' && $command == 'svnadmin create' | ||||
log("Please use --command option to specify how to create a #{$scm} repository.", 0, true) | ||||
end | ||||
|
r847 | $svn_url += "/" if $svn_url and not $svn_url.match(/\/$/) | ||
|
r826 | if ($redmine_host.empty? or $repos_base.empty?) | ||
RDoc::usage | ||||
end | ||||
unless File.directory?($repos_base) | ||||
log("directory '#{$repos_base}' doesn't exists", 0, true) | ||||
end | ||||
|
r847 | log("querying Redmine for projects...", 1); | ||
|
r826 | |||
$redmine_host.gsub!(/^/, "http://") unless $redmine_host.match("^https?://") | ||||
$redmine_host.gsub!(/\/$/, '') | ||||
wsdl_url = "#{$redmine_host}/sys/service.wsdl"; | ||||
begin | ||||
soap = SOAP::WSDLDriverFactory.new(wsdl_url).create_rpc_driver | ||||
rescue => e | ||||
log("Unable to connect to #{wsdl_url} : #{e}", 0, true) | ||||
end | ||||
|
r1812 | projects = soap.ProjectsWithRepositoryEnabled | ||
|
r826 | |||
if projects.nil? | ||||
log('no project found, perhaps you forgot to "Enable WS for repository management"', 0, true) | ||||
end | ||||
log("retrieved #{projects.size} projects", 1) | ||||
|
r847 | def set_owner_and_rights(project, repos_path, &block) | ||
if RUBY_PLATFORM =~ /mswin/ | ||||
yield if block_given? | ||||
else | ||||
|
r989 | uid, gid = Etc.getpwnam($svn_owner).uid, ($use_groupid ? Etc.getgrnam(project.identifier).gid : 0) | ||
|
r903 | right = project.is_public ? 0775 : 0770 | ||
|
r847 | yield if block_given? | ||
Find.find(repos_path) do |f| | ||||
File.chmod right, f | ||||
File.chown uid, gid, f | ||||
end | ||||
end | ||||
end | ||||
def other_read_right?(file) | ||||
(File.stat(file).mode & 0007).zero? ? false : true | ||||
end | ||||
def owner_name(file) | ||||
RUBY_PLATFORM =~ /mswin/ ? | ||||
$svn_owner : | ||||
Etc.getpwuid( File.stat(file).uid ).name | ||||
end | ||||
|
r826 | |||
|
r847 | projects.each do |project| | ||
log("treating project #{project.name}", 1) | ||||
if project.identifier.empty? | ||||
log("\tno identifier for project #{project.name}") | ||||
|
r826 | next | ||
|
r847 | elsif not project.identifier.match(/^[a-z0-9\-]+$/) | ||
log("\tinvalid identifier for project #{project.name} : #{project.identifier}"); | ||||
|
r826 | next; | ||
end | ||||
|
r847 | repos_path = $repos_base + "/" + project.identifier | ||
|
r826 | |||
if File.directory?(repos_path) | ||||
|
r847 | # we must verify that repository has the good owner and the good | ||
# rights before leaving | ||||
other_read = other_read_right?(repos_path) | ||||
owner = owner_name(repos_path) | ||||
next if project.is_public == other_read and owner == $svn_owner | ||||
|
r826 | |||
|
r903 | if $test | ||
log("\tchange mode on #{repos_path}") | ||||
next | ||||
end | ||||
|
r826 | begin | ||
|
r847 | set_owner_and_rights(project, repos_path) | ||
|
r826 | rescue Errno::EPERM => e | ||
log("\tunable to change mode on #{repos_path} : #{e}\n") | ||||
next | ||||
end | ||||
log("\tmode change on #{repos_path}"); | ||||
else | ||||
|
r1812 | # if repository is already declared in redmine, we don't create | ||
# unless user use -f with reposman | ||||
if $force == false and not project.repository.nil? | ||||
log("\trepository for project #{project.identifier} already exists in Redmine", 1) | ||||
next | ||||
end | ||||
|
r903 | project.is_public ? File.umask(0002) : File.umask(0007) | ||
if $test | ||||
log("\tcreate repository #{repos_path}") | ||||
log("\trepository #{repos_path} registered in Redmine with url #{$svn_url}#{project.identifier}") if $svn_url; | ||||
next | ||||
end | ||||
|
r826 | |||
begin | ||||
|
r847 | set_owner_and_rights(project, repos_path) do | ||
|
r1812 | command = "#{$command} #{repos_path}" | ||
raise "#{command} failed" unless system( command ) | ||||
|
r847 | end | ||
|
r826 | rescue => e | ||
log("\tunable to create #{repos_path} : #{e}\n") | ||||
next | ||||
end | ||||
|
r847 | if $svn_url | ||
|
r1812 | ret = soap.RepositoryCreated project.identifier, $scm, "#{$svn_url}#{project.identifier}" | ||
|
r847 | if ret > 0 | ||
log("\trepository #{repos_path} registered in Redmine with url #{$svn_url}#{project.identifier}"); | ||||
else | ||||
log("\trepository #{repos_path} not registered in Redmine. Look in your log to find why."); | ||||
end | ||||
end | ||||
|
r826 | log("\trepository #{repos_path} created"); | ||
end | ||||
end | ||||