SF.net SVN: ledger-smb: [974] branches/1.2/LedgerSMB/Form.pm

[..hidden..]

Revision: 974
          http://svn.sourceforge.net/ledger-smb/?rev=974&view=rev
Author:   einhverfr
Date:     2007-03-20 23:37:25 -0700 (Tue, 20 Mar 2007)

Log Message:
-----------
Added a mode of 600 to the files opened for writing

Modified Paths:
--------------
    branches/1.2/LedgerSMB/Form.pm

Modified: branches/1.2/LedgerSMB/Form.pm
===================================================================
--- branches/1.2/LedgerSMB/Form.pm	2007-03-21 06:30:38 UTC (rev 973)
+++ branches/1.2/LedgerSMB/Form.pm	2007-03-21 06:37:25 UTC (rev 974)
@@ -640,6 +640,7 @@
 
 	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 @@
 						$self->cleanup;
 						$self->error("$self->{OUT} : $err");
 					}
+					chmod (0600, "$self->{OUT}");
 
 				} else {
 


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.