1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
|
#!/usr/bin/ruby
# == Synopsis
#
# reposman: manages your svn repositories with redMine
#
# == Usage
#
# reposman [ -h | --help ] [ -v | --verbose ] [ -V | --version ] [ -q | --quiet ] -s /var/svn -r redmine.host.org
# example: reposman --svn-dir=/var/svn --redmine-host=redmine.mydomain.foo
# reposman -s /var/svn -r redmine.mydomain.foo
#
# == Arguments (mandatory)
#
# -s, --svn-dir=DIR
# use DIR as base directory for svn repositories
#
# -r, --redmine-host=HOST
# assume redMine is hosted on HOST.
# you can use :
# * -r redmine.mydomain.foo (will add http://)
# * -r http://redmine.mydomain.foo
# * -r https://mydomain.foo/redmine
#
# == Options
#
# -h, --help:
# show help and exit
#
# -v, --verbose
# verbose
#
# -V, --version
# print version and exit
#
# -q, --quiet
# no log
#
require 'getoptlong'
require 'rdoc/usage'
require 'soap/wsdlDriver'
require 'find'
require 'etc'
Version = "1.0"
opts = GetoptLong.new(
['--svn-dir', '-s', GetoptLong::REQUIRED_ARGUMENT],
['--redmine-host', '-r', GetoptLong::REQUIRED_ARGUMENT],
['--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 = ''
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
when '--svn-dir'; $repos_base = arg.dup
when '--redmine-host'; $redmine_host = arg.dup
when '--verbose'; $verbose += 1
when '--version'; puts Version; exit
when '--help'; RDoc::usage
when '--quiet'; $quiet = true
end
end
rescue
exit 1
end
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
log("querying redMine for projects...", 1);
$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
projects = soap.Projects
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)
projects.each do |p|
log("treating project #{p.name}", 1)
if p.identifier.empty?
log("\tno identifier for project #{p.name}")
next
elsif not p.identifier.match(/^[a-z0-9\-]+$/)
log("\tinvalid identifier for project #{p.name} : #{p.identifier}");
next;
end
repos_path = $repos_base + "/" + p.identifier
if File.directory?(repos_path)
other_read = (File.stat(repos_path).mode & 0007).zero? ? false : true
next if p.is_public == other_read
right = p.is_public ? 0775 : 0770
begin
Find.find(repos_path) { |f| File.chmod right, f }
rescue Errno::EPERM => e
log("\tunable to change mode on #{repos_path} : #{e}\n")
next
end
log("\tmode change on #{repos_path}");
else
p.is_public ? File.umask(0002) : File.umask(0007)
begin
uid, gid = Etc.getpwnam("root").uid, Etc.getgrnam(p.identifier).gid
raise "svnadmin create #{repos_path} failed" unless system("svnadmin", "create", repos_path)
Find.find(repos_path) { |f| File.chown uid, gid, f }
rescue => e
log("\tunable to create #{repos_path} : #{e}\n")
next
end
log("\trepository #{repos_path} created");
end
end
|
