smeserver-wbl/contribs9/smeserver-wbl-0.3.0.bz10124-event-to-avoid-unecessary-service-restart.patch

diff -Nur smeserver-wbl-0.3.0.old/createlinks smeserver-wbl-0.3.0/createlinks
--- smeserver-wbl-0.3.0.old/createlinks 2017-05-06 00:23:58.252000000 -0400
+++ smeserver-wbl-0.3.0/createlinks     2017-05-06 00:30:55.133000000 -0400
@@ -14,6 +14,19 @@
 templates2events("/var/service/qpsmtpd/config/whitelisthosts", "email-update");
 templates2events("/var/service/qpsmtpd/config/whitelistsenders", "email-update");
 
+# own event
+my $wbl = "smeserver-wbl-update";
+templates2events("/var/qmail/control/badmailfrom", "$wbl");
+templates2events("/var/service/qpsmtpd/config/badmailfrom", "$wbl");
+templates2events("/var/service/qpsmtpd/config/badhelo", "$wbl");
+templates2events("/var/service/qpsmtpd/config/whitelisthelo", "$wbl");
+templates2events("/var/service/qpsmtpd/config/whitelisthosts", "$wbl");
+templates2events("/var/service/qpsmtpd/config/whitelistsenders", "$wbl");
+templates2events("/etc/mail/spamassassin/local.cf", "$wbl");
+
+safe_symlink("restart", "root/etc/e-smith/events/$wbl/services2adjust/spamd");
+
+
 ##Symlink qpsmtpd whitlist_soft plugin for external connections
 
 safe_symlink("../../plugins/11whitelist", 
diff -Nur smeserver-wbl-0.3.0.old/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/wbl.pm smeserver-wbl-0.3.0/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/wbl.pm
--- smeserver-wbl-0.3.0.old/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/wbl.pm     2017-05-06 00:23:58.254000000 -0400
+++ smeserver-wbl-0.3.0/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/wbl.pm 2017-05-06 00:32:25.070000000 -0400
@@ -228,7 +228,7 @@
     }
 
     ##Update email settings
-    unless ( system ("/sbin/e-smith/signal-event", "email-update") == 0 ){
+    unless ( system ("/sbin/e-smith/signal-event", "smeserver-wbl-update") == 0 ){
         $fm->error('ERROR_UPDATING');
         return undef;
     }
@@ -321,7 +321,7 @@
     }
 
     ##Update email settings
-    unless ( system ("/sbin/e-smith/signal-event", "email-update") == 0 ){
+    unless ( system ("/sbin/e-smith/signal-event", "smeserver-wbl-update") == 0 ){
         $fm->error('ERROR_UPDATING');
         return undef;
     }
@@ -334,7 +334,7 @@
     my $fm = shift;
     my $q = $fm->{'cgi'};
 
-    unless ( system ("/sbin/e-smith/signal-event", "email-update") == 0 )
+    unless ( system ("/sbin/e-smith/signal-event", "smeserver-wbl-update") == 0 )
     {
         $fm->error('ERROR_UPDATING');
         return undef;
@@ -394,7 +394,7 @@
 
     ##Update email settings
 
-    unless ( system ("/sbin/e-smith/signal-event", "email-update") == 0 ){
+    unless ( system ("/sbin/e-smith/signal-event", "smeserver-wbl-update") == 0 ){
         $fm->error('ERROR_UPDATING');
         return undef;
     }
1	diff -Nur smeserver-wbl-0.3.0.old/createlinks smeserver-wbl-0.3.0/createlinks
2	--- smeserver-wbl-0.3.0.old/createlinks 2017-05-06 00:23:58.252000000 -0400
3	+++ smeserver-wbl-0.3.0/createlinks 2017-05-06 00:30:55.133000000 -0400
4	@@ -14,6 +14,19 @@
5	templates2events("/var/service/qpsmtpd/config/whitelisthosts", "email-update");
6	templates2events("/var/service/qpsmtpd/config/whitelistsenders", "email-update");
7
8	+# own event
9	+my $wbl = "smeserver-wbl-update";
10	+templates2events("/var/qmail/control/badmailfrom", "$wbl");
11	+templates2events("/var/service/qpsmtpd/config/badmailfrom", "$wbl");
12	+templates2events("/var/service/qpsmtpd/config/badhelo", "$wbl");
13	+templates2events("/var/service/qpsmtpd/config/whitelisthelo", "$wbl");
14	+templates2events("/var/service/qpsmtpd/config/whitelisthosts", "$wbl");
15	+templates2events("/var/service/qpsmtpd/config/whitelistsenders", "$wbl");
16	+templates2events("/etc/mail/spamassassin/local.cf", "$wbl");
17	+
18	+safe_symlink("restart", "root/etc/e-smith/events/$wbl/services2adjust/spamd");
19	+
20	+
21	##Symlink qpsmtpd whitlist_soft plugin for external connections
22
23	safe_symlink("../../plugins/11whitelist",
24	diff -Nur smeserver-wbl-0.3.0.old/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/wbl.pm smeserver-wbl-0.3.0/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/wbl.pm
25	--- smeserver-wbl-0.3.0.old/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/wbl.pm 2017-05-06 00:23:58.254000000 -0400
26	+++ smeserver-wbl-0.3.0/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/wbl.pm 2017-05-06 00:32:25.070000000 -0400
27	@@ -228,7 +228,7 @@
28	}
29
30	##Update email settings
31	- unless ( system ("/sbin/e-smith/signal-event", "email-update") == 0 ){
32	+ unless ( system ("/sbin/e-smith/signal-event", "smeserver-wbl-update") == 0 ){
33	$fm->error('ERROR_UPDATING');
34	return undef;
35	}
36	@@ -321,7 +321,7 @@
37	}
38
39	##Update email settings
40	- unless ( system ("/sbin/e-smith/signal-event", "email-update") == 0 ){
41	+ unless ( system ("/sbin/e-smith/signal-event", "smeserver-wbl-update") == 0 ){
42	$fm->error('ERROR_UPDATING');
43	return undef;
44	}
45	@@ -334,7 +334,7 @@
46	my $fm = shift;
47	my $q = $fm->{'cgi'};
48
49	- unless ( system ("/sbin/e-smith/signal-event", "email-update") == 0 )
50	+ unless ( system ("/sbin/e-smith/signal-event", "smeserver-wbl-update") == 0 )
51	{
52	$fm->error('ERROR_UPDATING');
53	return undef;
54	@@ -394,7 +394,7 @@
55
56	##Update email settings
57
58	- unless ( system ("/sbin/e-smith/signal-event", "email-update") == 0 ){
59	+ unless ( system ("/sbin/e-smith/signal-event", "smeserver-wbl-update") == 0 ){
60	$fm->error('ERROR_UPDATING');
61	return undef;
62	}