* Identifier attribute added on Project model. Used as the unix group name for the project * Web services (disabled by default) and scripts for repository management on a remote svn host git-svn-id: http://redmine.rubyforge.org/svn/trunk@396 e93f8b46-1217-0410-a6f0-8f06a7374b81
76 lines
2.4 KiB
Perl
76 lines
2.4 KiB
Perl
#!/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;
|
|
|
|
my $wdsl = 'http://192.168.0.10:3000/sys/service.wsdl';
|
|
my $service = SOAP::Lite->service($wdsl);
|
|
my $repos_base = '/var/svn';
|
|
|
|
my $projects = $service->Projects('');
|
|
|
|
foreach my $project (@{$projects}) {
|
|
my $repos_name = $project->{identifier};
|
|
|
|
if ($repos_name eq "") {
|
|
print("\tno identifier for project $project->{name}\n");
|
|
next;
|
|
}
|
|
|
|
unless ($repos_name =~ /^[a-z0-9\-]+$/) {
|
|
print("\tinvalid identifier for project $project->{name}\n");
|
|
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;
|
|
|
|
print "\tmode change on $repos_path\n";
|
|
|
|
} 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;
|
|
|
|
print "\trepository $repos_path created\n";
|
|
my $call = $service->RepositoryCreated($project->{id}, "svn://host/$repos_name");
|
|
}
|
|
}
|