From e611a58dba8618cf8aba9de382490bd9062682d1 Mon Sep 17 00:00:00 2001
From: Daniel Berteaud <daniel@firewall-services.com>
Date: Tue, 20 Nov 2012 09:52:49 +0100
Subject: [PATCH] More fixes for scan ACLs

---
 root/etc/e-smith/events/actions/share-modify-scan | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/root/etc/e-smith/events/actions/share-modify-scan b/root/etc/e-smith/events/actions/share-modify-scan
index a5534a6..96ccc87 100644
--- a/root/etc/e-smith/events/actions/share-modify-scan
+++ b/root/etc/e-smith/events/actions/share-modify-scan
@@ -18,7 +18,7 @@ if ($event eq 'user-create'){
     mkpath "/home/e-smith/files/scan/$name";
     system ("$setfacl",
             '-m',
-            "u:scanner:w,u:$name:rwX,g:admins:rwX,d:u:$name:rwX,d:g:admins,rwX",
+            "u:scanner:wX,u:$name:rwX,g:admins:rwX,d:u:$name:rwX,d:g:admins,rwX",
             '--',
             "/home/e-smith/files/scan/$name");
 }
@@ -44,10 +44,11 @@ else {
         system ("$setfacl",
                 '-R',
                 '-m',
-                "u:scanner:w,u:$name:rwX,d:u:$name:rwX",
+                "u:scanner:wX,u:$name:rwX,d:u:$name:rwX",
                 '--',
                 "/home/e-smith/files/scan/$name");
     }
+    chmod 0755, "/home/e-smith/files/scan/";
     system ("$setfacl", "-R", "-m", "g:admins:rwX,d:g:admins:rwX", "/home/e-smith/files/scan/");
 }