steffen: server/perl-kolab/Kolab-Conf Conf.pm,1.29,1.30

[cvs at intevation.de]

Author: steffen

Update of /kolabrepository/server/perl-kolab/Kolab-Conf
In directory doto:/tmp/cvs-serv5590/Kolab-Conf

Modified Files:
	Conf.pm 
Log Message:
use paranoid umask when creating .old files

Index: Conf.pm
===================================================================
RCS file: /kolabrepository/server/perl-kolab/Kolab-Conf/Conf.pm,v
retrieving revision 1.29
retrieving revision 1.30
diff -u -d -r1.29 -r1.30
--- Conf.pm	30 Jul 2004 03:13:29 -0000	1.29
+++ Conf.pm	4 Aug 2004 19:36:52 -0000	1.30
@@ -84,9 +84,11 @@
     my $perm = shift;
     my $oldcfg = $cfg . '.old';
     my $prefix = $Kolab::config{'prefix'};
-
+    
+    my $oldmask = umask 077;
     copy($cfg, $oldcfg);
     chown($Kolab::config{'kolab_uid'}, $Kolab::config{'kolab_gid'}, $oldcfg);
+    umask $oldmask;
     #chmod(0600, $oldcfg) if ($oldcfg =~ /openldap/);
 
     Kolab::log('T', "Creating new configuration file `$cfg' from template `$tmpl'", KOLAB_DEBUG );
@@ -190,8 +192,11 @@
     my $prefix = $Kolab::config{'prefix'};
     my $cfg = "$prefix/etc/postfix/transport";
     my $oldcfg = $cfg . '.old';
+
+    my $oldmask = umask 077;
     copy($cfg, $oldcfg);
     chown($Kolab::config{'kolab_uid'}, $Kolab::config{'kolab_gid'}, $oldcfg);
+    umask $oldmask;
     copy("$prefix/etc/kolab/templates/transport.template", $cfg);
 
     my $transport;
@@ -300,8 +305,10 @@
 
     my $cfg = "$prefix/etc/imapd/cyrus.conf";
     my $oldcfg = $cfg . '.old';
+    my $oldmask = umask 077;
     copy($cfg, $oldcfg);
     chown($Kolab::config{'kolab_uid'}, $Kolab::config{'kolab_gid'}, $oldcfg);
+    umask $oldmask;
 
     my $cyrusconf;
     if (!($cyrusconf = IO::File->new($cfg, 'w'))) {
@@ -355,8 +362,11 @@
     my $prefix = $Kolab::config{'prefix'};
     my $cfg = "$prefix/etc/imapd/imapd.group";
     my $oldcfg = $cfg . '.old';
+
+    my $oldmask = umask 077;
     copy($cfg, $oldcfg);
     chown($Kolab::config{'kolab_uid'}, $Kolab::config{'kolab_gid'}, $oldcfg);
+    umask $oldmask;
     copy("$prefix/etc/kolab/templates/imapd.group.template", $cfg);
     my $groupconf;
     if (!($groupconf = IO::File->new($cfg, 'a'))) {
@@ -436,8 +446,11 @@
     my $prefix = $Kolab::config{'prefix'};
     my $cfg = "$prefix/etc/openldap/slapd.replicas";
     my $oldcfg = $cfg . '.old';
+
+    my $oldmask = umask 077;
     copy($cfg, $oldcfg);
     chown($Kolab::config{'kolab_uid'}, $Kolab::config{'kolab_gid'}, $oldcfg);
+    umask $oldmask;
     copy("$prefix/etc/kolab/templates/slapd.replicas.template", $cfg);
     my $repl;
     if (!($repl = IO::File->new($cfg, 'a'))) {