From f2d530bd76f53cf3b2a8a583aaa1862deda4fcca Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Wed, 21 Mar 2007 06:37:25 +0000
Subject: Added a mode of 600 to the files opened for writing

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/branches/1.2@974 4979c152-3d1c-0410-bac9-87ea11338e46
---
 LedgerSMB/Form.pm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/LedgerSMB/Form.pm b/LedgerSMB/Form.pm
index 8400201f..43fa3b00 100755
--- a/LedgerSMB/Form.pm
+++ b/LedgerSMB/Form.pm
@@ -640,6 +640,7 @@ sub parse_template {
 
 	if ($self->{OUT}) {
 		open(OUT, $self->{printmode}, "$self->{OUT}") or $self->error("$self->{OUT} : $!");
+		chmod(0600, "$self->{OUT}");
 
 	} else {
 		open(OUT, ">-") or $self->error("STDOUT : $!");
@@ -978,6 +979,7 @@ sub parse_template {
 						$self->cleanup;
 						$self->error("$self->{OUT} : $err");
 					}
+					chmod (0600, "$self->{OUT}");
 
 				} else {
 
-- 
cgit v1.2.3