#!/bin/sh

#
# 2011-07-27 Sergei Butakov <sergei@bslos.com>
#

cat << 'EOF' | patch -p0 -s -d /srv/www/sysroot
--- di.pl.orig	2011-07-27 21:26:28.000000000 +0600
+++ di.pl	2011-07-27 21:41:56.000000000 +0600
@@ -2,7 +2,7 @@
 #######################################
 #
 # Copyright 2007 Sergei Butakov
-# 1.40 (20110609)
+# 1.41 (20110727)
 #
 # Note: Dispatcher - the only program
 #       wich may be called by Web Scripts via sudo
@@ -1106,7 +1106,7 @@
 
     my %H_user = Get_users( ldap=>$ldap,
                             filter=>qq/(gidNumber=$H_group{$cn}{gidNumber})/,
-                            attrs=>[ qw/uid/ ]);
+                            attrs=>[ qw/uid uidNumber/ ]);
 
     $ldap->unbind();
 
@@ -1140,7 +1140,8 @@
     # set the users' quotas
     ##
 #todo? speed it up by not calling Disk_set_user_quotas()
-    Disk_set_user_quotas($_) foreach keys %H_user;
+    Disk_set_user_quotas($_)
+        foreach map { $H_user{$_}{uidNumber} } keys %H_user;
 
 
 return;

EOF