steffen: server/perl-kolab/Kolab-Conf Conf.pm,1.29,1.30
cvs at intevation.de
cvs at intevation.de
Wed Aug 4 21:36:55 CEST 2004
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'))) {
More information about the commits
mailing list