gforge-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Gforge-commits] gforge/deb-specific group_dump_update.pl, 1.2, 1.2.2.1


From: lo-lan-do
Subject: [Gforge-commits] gforge/deb-specific group_dump_update.pl, 1.2, 1.2.2.1
Date: Tue, 20 Jan 2004 15:56:34 -0600

Update of /cvsroot/gforge/gforge/deb-specific
In directory db.perdue.net:/tmp/cvs-serv3830/deb-specific

Modified Files:
      Tag: Branch_3_1
        group_dump_update.pl 
Log Message:
[From HEAD] Fixed permissions for groups' "home" directories.


Index: group_dump_update.pl
===================================================================
RCS file: /cvsroot/gforge/gforge/deb-specific/group_dump_update.pl,v
retrieving revision 1.2
retrieving revision 1.2.2.1
diff -u -d -r1.2 -r1.2.2.1
--- group_dump_update.pl        18 Oct 2003 13:14:38 -0000      1.2
+++ group_dump_update.pl        20 Jan 2004 21:56:32 -0000      1.2.2.1
@@ -89,15 +89,15 @@
 
        if ($verbose) {print("Making a Group for : $gname\n")};
                
-       mkdir $group_dir, 0775;
-       mkdir $log_dir, 0775;
-       mkdir $cgi_dir, 0775;
-       mkdir $ht_dir, 0775;
+       mkdir $group_dir, 2775;
+       mkdir $log_dir, 2775;
+       mkdir $cgi_dir, 2775;
+       mkdir $ht_dir, 2775;
        # perl is sometime fucked to create with right permission
-       system("chmod 0755 $group_dir");
-       system("chmod 0755 $log_dir");
-       system("chmod 0755 $cgi_dir");
-       system("chmod 0755 $ht_dir");
+       system("chmod 2775 $group_dir");
+       system("chmod 2775 $log_dir");
+       system("chmod 2775 $cgi_dir");
+       system("chmod 2775 $ht_dir");
        chown $dummy_uid, $gid, ($group_dir, $log_dir, $cgi_dir, $ht_dir);
 }
 





reply via email to

[Prev in Thread] Current Thread [Next in Thread]