thomas: server/perl-kolab/lib/Kolab Conf.pm,1.8,1.9

cvs at kolab.org cvs at kolab.org
Tue May 5 15:05:51 CEST 2009


Author: thomas

Update of /kolabrepository/server/perl-kolab/lib/Kolab
In directory doto:/tmp/cvs-serv5646/perl-kolab/lib/Kolab

Modified Files:
	Conf.pm 
Log Message:
Execute duplicate RUNONCHANGE commands only once.

Part of kolab/issue1679 ([kolabconf] Update template META mechanism to
support service restarts)


Index: Conf.pm
===================================================================
RCS file: /kolabrepository/server/perl-kolab/lib/Kolab/Conf.pm,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -d -r1.8 -r1.9
--- Conf.pm	17 Mar 2009 16:46:31 -0000	1.8
+++ Conf.pm	5 May 2009 13:05:49 -0000	1.9
@@ -733,14 +733,18 @@
 
     Kolab::log('T', 'Finished regenerating configuration files', KOLAB_DEBUG );
 
+    my %cmds = ();
     foreach $key (keys %runonchange) {
 	if (defined $templatehaschanged{$key})
 	{
-	    Kolab::log('T', 'Actioning RUNONCHANGE for '.$key, KOLAB_DEBUG );
-	    my $cmd = $runonchange{$key};
-	    system($cmd);
-	    Kolab::log('T', 'Executing command', KOLAB_DEBUG );
+	    Kolab::log('T', 'Queueing RUNONCHANGE for '.$key, KOLAB_DEBUG );
+	    $cmds{$runonchange{$key}} = 1;
 	}
+    }
+    my $cmd;
+    foreach $cmd (keys %cmds) {
+	Kolab::log('T', 'Executing command: '.$cmd, KOLAB_DEBUG );
+	system($cmd);
     }
 }
 





More information about the commits mailing list