Fisheye: Tag 1.2 refers to a dead (removed) revision in file `openacs-4/packages/acs-mail-lite/tcl/bounce-procs-oracle.xql'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.2 refers to a dead (removed) revision in file `openacs-4/packages/acs-mail-lite/tcl/bounce-procs-postgresql.xql'.
Fisheye: No comparison available.  Pass `N' to diff?
Index: openacs-4/packages/acs-mail-lite/tcl/bounce-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-mail-lite/tcl/Attic/bounce-procs.tcl,v
diff -u -r1.12 -r1.13
--- openacs-4/packages/acs-mail-lite/tcl/bounce-procs.tcl	7 Aug 2017 23:47:57 -0000	1.12
+++ openacs-4/packages/acs-mail-lite/tcl/bounce-procs.tcl	20 Nov 2017 13:13:10 -0000	1.13
@@ -136,7 +136,7 @@
             ns_log Notice "Bounce notification send to user $user_id"
 
             # schedule next notification
-            db_dml log_notication_sending {}
+            db_dml log_notification_sending {}
         }
     }
 
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>