[Aplaws-commit] r984 - trunk/tools/tools/lib/CCM

[<ap...@vh...>]

Author: apevec
Date: 2005-11-08 17:47:00 +0100 (Tue, 08 Nov 2005)
New Revision: 984

Modified:
   trunk/tools/tools/lib/CCM/Util.pm
Log:
set effective/real group to where unprivileged user (usually: servlet) belongs to


Modified: trunk/tools/tools/lib/CCM/Util.pm
===================================================================
--- trunk/tools/tools/lib/CCM/Util.pm	2005-11-08 16:18:54 UTC (rev 983)
+++ trunk/tools/tools/lib/CCM/Util.pm	2005-11-08 16:47:00 UTC (rev 984)
@@ -152,7 +152,9 @@
         $ccm_user = $user;
     }
     if (defined $ccm_user) {
-        my $ccm_user_id = getpwnam($ccm_user);
+        my ($name,$passwd,$ccm_user_id,$ccm_gid,
+            $quota,$comment,$gcos,$dir,$shell,$expire)
+          = getpwnam($ccm_user);
         if (! defined $ccm_user_id) {
             print STDERR "user: '$ccm_user' could not be found\n";
             exit 10;
@@ -169,6 +171,8 @@
             print STDERR "You cannot run WAF as a user other than yourself unless you are root\n";
             exit 12;
         }
+        $( = $ccm_gid + 0;
+        $) = "$ccm_gid $ccm_gid";
         $< = $ccm_user_id;
         $> = $ccm_user_id;
     }