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

cvs at intevation.de cvs at intevation.de
Thu Aug 5 12:08:16 CEST 2004


Author: steffen

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

Modified Files:
	Conf.pm 
Log Message:
removed chown root:root postfix/* call

Index: Conf.pm
===================================================================
RCS file: /kolabrepository/server/perl-kolab/Kolab-Conf/Conf.pm,v
retrieving revision 1.30
retrieving revision 1.31
diff -u -d -r1.30 -r1.31
--- Conf.pm	4 Aug 2004 19:36:52 -0000	1.30
+++ Conf.pm	5 Aug 2004 10:08:14 -0000	1.31
@@ -67,10 +67,12 @@
    (my $owner, my $group) = split(/:/, $ownership, 2);
    my $uid = (getpwnam($owner))[2];
    my $gid = (getgrnam($group))[2];
+   Kolab::log('T', sprintf("Changing permissions of %s to 0%o", $file, $perm ), KOLAB_DEBUG );
    if( chmod($perm, $file) != 1 ) {
-     Kolab::log('T', "Unable to change permissions of `$file' to $perm", KOLAB_ERROR);
+     Kolab::log('T', "Unable to change permissions of `$file' to ".sprintf("0%o",$perm), KOLAB_ERROR);
      exit(1);
    }
+   Kolab::log('T', "Changing owner of $file to $owner:$group ($uid:$gid)", KOLAB_DEBUG );
    if( chown($uid,$gid,$file) != 1 ) {
      Kolab::log('T', "Unable to change ownership of `$file' to $uid:$gid", KOLAB_ERROR);
      exit(1);
@@ -109,7 +111,7 @@
         exit(1);
     }
 
-    Kolab::log('T', "Using temporary file '".$config->filename."'", KOLAB_DEBUG );
+    #Kolab::log('T', "Using temporary file '".$config->filename."'", KOLAB_DEBUG );
 
     my $skip = 0;
     while (<$template>) {
@@ -275,7 +277,7 @@
     $transport->close;
 
     # FIXME: bad way of doing things...
-    system("chown root:root $prefix/etc/postfix/*");
+    #system("chown root:root $prefix/etc/postfix/*");
     system("$prefix/sbin/postmap $prefix/etc/postfix/transport");
 
     if (-f $oldcfg) {





More information about the commits mailing list