summaryrefslogtreecommitdiffstats
path: root/extra
diff options
context:
space:
mode:
authorJean-Philippe Lang <jp_lang@yahoo.fr>2007-04-02 19:00:22 +0000
committerJean-Philippe Lang <jp_lang@yahoo.fr>2007-04-02 19:00:22 +0000
commitf8a57252143eebeb30d76b453edf0792bdfdd414 (patch)
tree96b19602d1a27208787341b93b4a85e6dfde9973 /extra
parent791077c240f74dd4e228fc5b8ac3d7a0c0d41f3a (diff)
downloadredmine-f8a57252143eebeb30d76b453edf0792bdfdd414.tar.gz
redmine-f8a57252143eebeb30d76b453edf0792bdfdd414.zip
Renamed the repository management script and removed hard coded parameters.
git-svn-id: http://redmine.rubyforge.org/svn/trunk@401 e93f8b46-1217-0410-a6f0-8f06a7374b81
Diffstat (limited to 'extra')
-rw-r--r--extra/svn/reposman.pl138
1 files changed, 138 insertions, 0 deletions
diff --git a/extra/svn/reposman.pl b/extra/svn/reposman.pl
new file mode 100644
index 000000000..5c298d981
--- /dev/null
+++ b/extra/svn/reposman.pl
@@ -0,0 +1,138 @@
+#!/usr/bin/perl
+#
+# redMine is free software; you can redistribute it and/or
+# modify it under the terms of the GNU General Public License
+# as published by the Free Software Foundation; either version 2
+# of the License, or (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
+
+use strict;
+use SOAP::Lite;
+use Getopt::Long;
+Getopt::Long::Configure ("bundling", "no_auto_abbrev", "no_ignore_case");
+use Pod::Usage;
+use vars qw/$VERSION/;
+
+$VERSION = "1.0";
+
+my %opts = (verbose => 0);
+GetOptions(\%opts, 'verbose|v+', 'version|V', 'help|h', 'man|m', 'quiet|q', 'svn-dir|s=s', 'redmine-host|r=s') or pod2usage(2);
+
+die "$VERSION\n" if $opts{version};
+pod2usage(1) if $opts{help};
+pod2usage( -verbose => 2 ) if $opts{man};
+
+my $repos_base = $opts{'svn-dir'};
+my $redmine_host = $opts{'redmine-host'};
+
+pod2usage(2) unless $repos_base and $redmine_host;
+
+unless (-d $repos_base) {
+ Log(text => "$repos_base doesn't exist", exit => 1);
+}
+
+Log(level => 1, text => "querying redMine for projects...");
+my $wdsl = "http://$redmine_host/sys/service.wsdl";
+my $service = SOAP::Lite->service($wdsl);
+
+my $projects = $service->Projects('');
+my $project_count = @{$projects};
+Log(level => 1, text => "retrieved $project_count projects");
+
+foreach my $project (@{$projects}) {
+ Log(level => 1, text => "treating project $project->{name}");
+ my $repos_name = $project->{identifier};
+
+ if ($repos_name eq "") {
+ Log(text => "\tno identifier for project $project->{name}");
+ next;
+ }
+
+ unless ($repos_name =~ /^[a-z0-9\-]+$/) {
+ Log(text => "\tinvalid identifier for project $project->{name}");
+ next;
+ }
+
+ my $repos_path = "$repos_base/$repos_name";
+
+ if (-e $repos_path) {
+ # check unix right and change them if needed
+ my $other_read = (stat($repos_path))[2] & 00007;
+ my $right;
+
+ if ($project->{is_public} and not $other_read) {
+ $right = "0775";
+ } elsif (not $project->{is_public} and $other_read) {
+ $right = "0770";
+ } else {
+ next;
+ }
+
+ # change mode
+ system('chmod', '-R', $right, $repos_path) == 0 or
+ warn("\tunable to change mode on $repos_path : $?\n"), next;
+
+ Log(text => "\tmode change on $repos_path");
+
+ } else {
+ # change umask to suit the repository's privacy
+ $project->{is_public} ? umask 0002 : umask 0007;
+
+ # create the repository
+ system('svnadmin', 'create', $repos_path) == 0 or
+ warn("\tsystem svnadmin failed unable to create $repos_path\n"), next;
+
+ # set the group owner
+ system('chown', '-R', "root:$repos_name", $repos_path) == 0 or
+ warn("\tunable to create $repos_path : $?\n"), next;
+
+ Log(text => "\trepository $repos_path created");
+ my $call = $service->RepositoryCreated($project->{id}, "svn://host/$repos_name");
+ }
+}
+
+
+sub Log {
+ my %args = (level => 0, text => '', @_);
+
+ my $level = delete $args{level};
+ my $text = delete $args{text};
+ return unless $level <= $opts{verbose};
+ return if $opts{quiet};
+ print "$text\n";
+
+ exit $args{exit}
+ if defined $args{exit};
+}
+
+
+__END__
+
+=head1 NAME
+
+ reposman - manages your svn repositories with redMine
+
+=head1 SYNOPSIS
+
+ reposman [options] arguments
+ example: reposman --svn-dir=/var/svn --redmine-host=redmine.mydomain.foo
+ reposman -s /var/svn -r redmine.mydomain.foo
+
+=head1 ARGUMENTS
+
+ -s, --svn-dir=DIR use DIR as base directory for svn repositories
+ -r, --redmine-host=HOST assume redMine is hosted on HOST
+
+=head1 OPTIONS
+
+ -v verbose
+ -V print version and exit
+