mod/notification-email: introduce $PurgeEmailQueue

... to purge the queue and remove the scheduler.
eworm-de · Aug 6, 2023 · 9a5d55d · 9a5d55d
1 parent 5b789d2
commit 9a5d55d
Show file tree

Hide file tree

Showing 2 changed files with 14 additions and 0 deletions.
diff --git a/doc/mod/notification-email.md b/doc/mod/notification-email.md
@@ -64,6 +64,11 @@ Place this before you call them:
     :global SendEMail;
     :global SendNotification;
 
+In case there is a situation when the queue needs to be purged there is a
+function available:
+
+    $PurgeEMailQueue;
+
 See also
 --------
 

diff --git a/mod/notification-email.rsc b/mod/notification-email.rsc
@@ -10,6 +10,7 @@
 :global LogForwardFilterLogForwarding;
 :global NotificationEMailSubject;
 :global NotificationFunctions;
+:global PurgeEMailQueue;
 :global QuotedPrintable;
 :global SendEMail;
 :global SendEMail2;
@@ -156,6 +157,14 @@
   }
 }
 
+# purge the e-mail queue
+:set PurgeEMailQueue do={
+  :global EmailQueue;
+
+  /system/scheduler/remove [ find where name="\$FlushEmailQueue" ];
+  :set EmailQueue;
+}
+
 # convert string to quoted-printable
 :global QuotedPrintable do={
   :local Input [ :tostr $1 ];