Index: openacs-4/packages/acs-mail-lite/tcl/bounce-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-mail-lite/tcl/Attic/bounce-procs.xql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-mail-lite/tcl/bounce-procs.xql	13 Sep 2007 13:52:05 -0000	1.2
+++ openacs-4/packages/acs-mail-lite/tcl/bounce-procs.xql	20 Nov 2017 13:13:10 -0000	1.3
@@ -1,6 +1,42 @@
 <?xml version="1.0"?>
 <queryset>
 
+    <fullquery name="acs_mail_lite::check_bounces.get_recent_bouncing_users">
+      <querytext>
+
+       select u.user_id, u.email, u.first_names || ' ' || u.last_name as name
+       from cc_users u, acs_mail_lite_bounce_notif n
+       where u.user_id = n.party_id
+       and u.email_bouncing_p = 't'
+       and n.notification_time < current_timestamp - interval :notification_interval day
+       and n.notification_count < :max_notification_count
+
+      </querytext>
+    </fullquery>
+  
+    <fullquery name="acs_mail_lite::check_bounces.send_notification_to_bouncing_email">
+      <querytext>
+
+       insert into acs_mail_lite_bounce_notif (party_id, notification_count, notification_time)
+       select party_id, 0 as notification_count,
+              current_date - (1 + cast(:notification_interval as integer)) as notification_time
+        from acs_mail_lite_bounce
+        where bounce_count >= :max_bounce_count
+
+      </querytext>
+    </fullquery>
+
+    <fullquery name="acs_mail_lite::check_bounces.log_notification_sending">
+      <querytext>
+
+       update acs_mail_lite_bounce_notif
+       set notification_time = current_date,
+           notification_count = notification_count + 1
+       where party_id = :user_id
+
+      </querytext>
+    </fullquery>
+
     <fullquery name="acs_mail_lite::bouncing_email_p.bouncing_p">
       <querytext>
 
@@ -24,18 +60,17 @@
       </querytext>
     </fullquery>
 
-
    <fullquery name="acs_mail_lite::check_bounces.delete_log_if_no_recent_bounce">
      <querytext>
 
        delete from acs_mail_lite_bounce
        where party_id in (select party_id
                          from acs_mail_lite_mail_log
-                         where last_mail_date < sysdate - :max_days_to_bounce)
+                         where last_mail_date < current_timestamp - interval :max_days_to_bounce day)
 
      </querytext>
    </fullquery>
-
+   
    <fullquery name="acs_mail_lite::check_bounces.disable_bouncing_email">
      <querytext>