[Savannah-cvs] administration/infra/bin sv_cvs_root_etc.pl

[Sylvain Beucler]

CVSROOT:        /cvsroot/administration
Module name:    administration
Branch:         
Changes by:     Sylvain Beucler <address@hidden>        05/05/30 23:46:37

Modified files:
        infra/bin      : sv_cvs_root_etc.pl 

Log message:
        Quick-fixed bug that prevented www.gnu.org webmasters to edit GNU 
projects' webpages

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/administration/administration/infra/bin/sv_cvs_root_etc.pl.diff?tr1=1.7&tr2=1.8&r1=text&r2=text

Patches:
Index: administration/infra/bin/sv_cvs_root_etc.pl
diff -u administration/infra/bin/sv_cvs_root_etc.pl:1.7 
administration/infra/bin/sv_cvs_root_etc.pl:1.8
--- administration/infra/bin/sv_cvs_root_etc.pl:1.7     Tue Mar 15 22:47:51 2005
+++ administration/infra/bin/sv_cvs_root_etc.pl Mon May 30 23:46:37 2005
@@ -125,14 +125,15 @@
     my $repos_passwd = "/savannah/cvsroot/$project_name/etc/passwd";
     my $repos_passwd_mtime = (stat($repos_passwd))[9];
     if (!$repos_passwd_mtime || $repos_passwd_mtime < $passwd_mtime) {
-       copy($group_passwd{$project_name}, $repos_passwd);
+       copy($group_passwd{$project_name}
+            .$group_passwd{'web'.$project_name}, $repos_passwd);
     }
 
     my $repos_group = "/savannah/cvsroot/$project_name/etc/group";
     my $repos_group_mtime = (stat($repos_group))[9];
     if (!$repos_group_mtime || $repos_group_mtime < $group_mtime) {
        copy($group_content{$project_name}
-            .$group_content{"web".$project_name}, $repos_group);
+            .$group_content{'web'.$project_name}, $repos_group);
     }
 }