# HG changeset patch
# User heiko
# Date 1167774412 0
# Node ID 8e9577bcbe714b232cd02258a63c3168cbb75f91
# Parent  43cfd824c314e172036d62c662560cb79b585b80
umask for file creation

diff -r 43cfd824c314 -r 8e9577bcbe71 debian/changelog
--- a/debian/changelog	Tue Jan 02 21:36:31 2007 +0000
+++ b/debian/changelog	Tue Jan 02 21:46:52 2007 +0000
@@ -1,3 +1,9 @@
+exigrey (0.6-1) stable; urgency=low
+
+  * bug with umask fixed
+
+ -- Heiko Schlittermann <hs@schlittermann.de>  Tue, 02 Jan 2007 22:46:22 +0100
+
 exigrey (0.5-1) stable; urgency=low
 
   * new upstream: 
diff -r 43cfd824c314 -r 8e9577bcbe71 exim-exigrey.pl
--- a/exim-exigrey.pl	Tue Jan 02 21:36:31 2007 +0000
+++ b/exim-exigrey.pl	Tue Jan 02 21:46:52 2007 +0000
@@ -104,9 +104,13 @@
     # this file
     if (!-f $db) {
 	(my $dir = $db) =~ s/^(.*)\/.*?$/$1/;
-	local ($>, $)) = (stat $dir)[4,5] or die "Can't stat $dir: $!";
+	# copy mode, uid, gid from the directory
+	my ($mode, $user, $group) = (stat $dir)[2,4,5] or die "Can't stat $dir: $!";
+	my $umask = umask(($mode & 0777) ^ 0777);
+	local ($>, $)) = ($user, $group);
 	open(X, ">>$db") or die "Can't create $db: $!";
 	close(X);
+	umask $umask;
     }
 
     # now test which of the DB-Modules has been loaded