Index: openacs-4/packages/notifications/notifications.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/notifications/notifications.info,v
diff -u -N -r1.61.2.6 -r1.61.2.7
--- openacs-4/packages/notifications/notifications.info	16 Sep 2021 08:27:39 -0000	1.61.2.6
+++ openacs-4/packages/notifications/notifications.info	14 Apr 2022 13:30:38 -0000	1.61.2.7
@@ -8,7 +8,7 @@
     <singleton-p>t</singleton-p>
     <auto-mount>notifications</auto-mount>
 
-    <version name="5.10.0" url="http://openacs.org/repository/download/apm/notifications-5.10.0.apm">
+    <version name="5.10.1d1" url="http://openacs.org/repository/download/apm/notifications-5.10.1d1.apm">
         <owner url="http://openacs.org">OpenACS</owner>
         <summary>Email notifications management</summary>
         <release-date>2021-09-15</release-date>
@@ -17,7 +17,7 @@
         <maturity>3</maturity>
         <package_instance_name>#notifications.Notifications#</package_instance_name>
 
-        <provides url="notifications" version="5.10.0"/>
+        <provides url="notifications" version="5.10.1d1"/>
         <requires url="acs-kernel" version="5.10.0"/>
         <requires url="acs-tcl" version="5.10.0"/>
         <requires url="acs-mail-lite" version="5.10.0"/>
@@ -28,6 +28,7 @@
             <callback type="before-uninstall"  proc="notification::apm::before_uninstall"/>
         </callbacks>
         <parameters>
+            <parameter datatype="number"  min_n_values="1"  max_n_values="1"  name="CleanupSweepInterval"  default="900" description="Run sweeper in the specified interval (seconds)"/>
             <parameter datatype="string"  min_n_values="1"  max_n_values="1"  name="EmailDomain"  description="The domain for the notification email address" section_name="email"/>
             <parameter datatype="string"  min_n_values="1"  max_n_values="1"  name="EmailQmailQueue"  description="The location of the qmail queue for incoming email, mail will be looked for in EmailQmailQueue/new/*" section_name="email"/>
             <parameter datatype="number"  min_n_values="1"  max_n_values="1"  name="EmailQmailQueueScanP"  default="0" description="Should the package scan the qmail queue for incoming mail? (1 is true, 0 is false)" section_name="email"/>
Index: openacs-4/packages/notifications/tcl/sweep-init.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/notifications/tcl/sweep-init.tcl,v
diff -u -N -r1.6 -r1.6.2.1
--- openacs-4/packages/notifications/tcl/sweep-init.tcl	7 Aug 2017 23:48:13 -0000	1.6
+++ openacs-4/packages/notifications/tcl/sweep-init.tcl	14 Apr 2022 13:30:38 -0000	1.6.2.1
@@ -8,17 +8,18 @@
 
 }
 
-# DRB: The cleanup sweep interval should be made a parameter someday ... 
+set cleanupInterval [parameter::get \
+                         -package_id [apm_package_id_from_key notifications] \
+                         -parameter CleanupSweepInterval -default 900]
+ad_schedule_proc -thread t $cleanupInterval notification::sweep::cleanup_notifications
 
-ad_schedule_proc -thread t 900 notification::sweep::cleanup_notifications
-
 foreach interval [notification::get_all_intervals] {
     set n_seconds [lindex $interval 2]
     if {$n_seconds > 0} {
         set batched_p 1
     } else {
         set batched_p 0
-    } 
+    }
 
     # Send weekly and daily notifications at defined times rather than a week after
     # the server was started up, etc etc.   Hourly, instant, and exotic custom
@@ -32,7 +33,7 @@
         ad_schedule_proc -thread t $n_seconds notification::sweep::sweep_notifications -interval_id [lindex $interval 1] -batched_p $batched_p
     } else {
         ad_schedule_proc -thread t 60 notification::sweep::sweep_notifications -interval_id [lindex $interval 1] -batched_p $batched_p
-    }        
+    }
 }
 
 # Local variables: