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
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
|
#!/usr/bin/perl
#
# $Id: cvs_update.pl,v 1.7.2.2 2005/11/16 18:43:42 cbayle Exp $
#
# cvs_update.pl - script to update cvs from the database dump
# inspired from sourceforge scripts
# Christian Bayle <bayle@debian.org>
#
use DBI;
use Sys::Hostname;
require("/usr/lib/gforge/lib/include.pl"); # Include all the predefined functions
my $group_array = ();
my $verbose = 0;
my $cvs_file = $file_dir . "/dumps/scmcvs.dump";
my $anoncvs_uid_add = 50000;
my $gid_add = 10000;
#
# Script parse out the database dumps and create/update/delete cvs
# accounts on the client machines
#
# Open up all the files that we need.
#
if($verbose) {print ("\nReading list");}
@group_array = open_array_file($cvs_file);
#
# Loop through @group_array and deal w/ cvs.
#
if($verbose) {print ("\n\nProcessing CVS\n\n");}
while ($ln = pop(@group_array)) {
chop($ln);
($group_name, $status, $group_id, $use_scm, $enable_pserver, $enable_anonscm, $userlist) = split(":", $ln);
# This 50000 is really dirty until I change this file completly
$cvs_gid = $group_id + $anoncvs_uid_add;
$cvs_dir = "$cvs_root/$group_name";
if($verbose) {print "cvs_root=$cvs_root, cvs_dir=$cvs_dir\n";}
$userlist =~ tr/A-Z/a-z/;
#$group_exists = (-d $grpdir_prefix/$group_name);
$group_exists = ($status eq 'A');
$cvs_exists = (-d "$cvs_root/$group_name/CVSROOT");
if (!$group_exists && $use_scm && $status eq 'A' ) {
print ("ERROR: $group_name home dir $grpdir_prefix/$group_name doesn't exists\n");
print (" but use_scm=$use_scm\tstatus=$status\n");
}
if ($cvs_exists && !$group_exists && $status eq 'A') {
print ("ERROR: CVS $cvs_root/$group_name/CVSROOT exists\n");
print (" but no $group_name home dir at $grpdir_prefix/$group_name\n");
print (" use_scm=$use_scm\tstatus=$status\n");
}
# This for the first time
if (!(-d "$cvs_root")) {
if($verbose){print("Creating $cvs_root\n");}
system("mkdir -p $cvs_root");
}
# Lock dir creation
if ($group_exists && !(-d "$cvs_root/cvs-locks/$group_name")) {
if($verbose){print ("Creating $cvs_root/cvs-locks/$group_name\n");}
if ($cvs_exists){
system("mkdir -p $cvs_root/cvs-locks/$group_name");
system("chown anonscm-gforge:scm_$group_name $cvs_root/cvs-locks/$group_name");
system("chmod g+rw $cvs_root/cvs-locks/$group_name");
system("find $cvs_root/cvs-locks/$group_name -type d | xargs chmod g+s");
system("chmod o+rw $cvs_root/cvs-locks/$group_name");
}
}
# CVS repository creation
if ($group_exists && !$cvs_exists && $use_scm && $status eq 'A' && !(-e "$cvs_root/$group_name/CVSROOT")) {
if($verbose){print("Creating a CVS Repository for: $group_name\n");}
# Let's create a CVS repository for this group
# Firce create the repository
# Unix right will lock access to all users not in the group including cvsweb
# when anoncvs is not enabled
if ($enable_anonscm){
mkdir $cvs_dir, 0775;
} else {
mkdir $cvs_dir, 0770;
}
system("/usr/bin/cvs -d$cvs_dir init");
system("echo \"\" > $cvs_dir/CVSROOT/val-tags");
chmod 0664, "$cvs_dir/CVSROOT/val-tags";
# set group ownership, anonymous group user
system("chown -R $dummy_uid:$cvs_gid $cvs_dir");
# s bit to have all owned by group
system("chmod -R g+rw $cvs_dir");
system("find $cvs_dir -type d | xargs chmod g+s");
}
# Change owners
my $uid=$dummy_uid;
my $gid=$cvs_gid;
if ($group_exists && -d "$cvs_root/$group_name") {
my $realuid=get_file_owner_uid("$cvs_root/$group_name");
if (!($uid eq $realuid)){
if($verbose){print("Changing owner of $cvs_root/$group_name $realuid -> $uid\n")};
system("chown -R $uid $cvs_root/$group_name");
}
my $realgid=get_file_owner_gid("$cvs_root/$group_name");
if (!($gid eq $realgid)){
if($verbose){print("Changing group of $cvs_root/$group_name $realgid -> $gid\n")};
system("chgrp -R $gid $cvs_root/$group_name");
}
system("chown anonscm-gforge $cvs_root/$group_name/CVSROOT/history");
}
# Right management
if ($group_exists && $use_scm && $status eq 'A'){
if ($enable_pserver){
# turn on pserver writers
my $userlistcr=join("\n",split(",", $userlist));
open (WRITERS,">$cvs_dir/CVSROOT/writers");
print WRITERS "$userlistcr\n";
close WRITERS;
if($verbose) { print("Enable pserver for $group_name:\t$userlist in $cvs_dir/CVSROOT/writers \n"); }
open (CONFIG,">$cvs_dir/CVSROOT/config");
print CONFIG "SystemAuth=yes\n";
print CONFIG "LockDir=$cvs_root/cvs-locks/$group_name\n";
close CONFIG;
} else {
# turn off pserver writers
open (WRITERS,">$cvs_dir/CVSROOT/writers");
print WRITERS "\n";
close WRITERS;
#system("echo \"\" > $cvs_dir/CVSROOT/writers");
if($verbose) { print("Disable pserver for $group_name\n"); }
open (CONFIG,">$cvs_dir/CVSROOT/config");
print CONFIG "SystemAuth=no\n";
print CONFIG "LockDir=$cvs_root/cvs-locks/$group_name\n";
close CONFIG;
}
if ($enable_anonscm){
# turn on anonymous readers
system("echo \"anonymous\" > $cvs_dir/CVSROOT/readers");
#system("echo \"anonymous:\\\$1\\\$0H\\\$2/LSjjwDfsSA0gaDYY5Df/:scm_${group_name}\" > $cvs_dir/CVSROOT/passwd");
system("echo \"anonymous:\\\$1\\\$0H\\\$2/LSjjwDfsSA0gaDYY5Df/:anonscm-gforge\" > $cvs_dir/CVSROOT/passwd");
# This will give access to all users and cvsweb
chmod 02775, "$cvs_dir";
my $gid = $group_id + $gid_add ;
my $uid = $group_id + $anoncvs_uid_add ;
my $username = "scm_" . $group_name ;
add_or_update_anoncvs_user ($uid, $username, $gid) ;
} else {
# turn off anonymous readers
system("echo \"\" > $cvs_dir/CVSROOT/readers");
system("echo \"\" > $cvs_dir/CVSROOT/passwd");
# This will lock all access from users not in the group and cvsweb
chmod 02770, "$cvs_dir";
}
}
}
#############################
# User Add Function
#############################
sub add_or_update_anoncvs_user {
my ($uid, $username, $gid) = @_;
$home_dir = $homedir_prefix."/".$username;
if ( -d $home_dir ) {
chmod 0755, $home_dir;
} else {
mkdir $home_dir, 0755;
}
chown $uid, $gid, $home_dir;
}
#############################
# Get File Owner UID
#############################
sub get_file_owner_uid {
my $filename = shift(@_);
my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks) = stat($filename);
return $uid;
}
#############################
# Get File Owner GID
#############################
sub get_file_owner_gid {
my $filename = shift(@_);
my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks) = stat($filename);
return $gid;
}
|
