Index: openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-callback-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-callback-procs.xql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-callback-procs.xql	10 Aug 2005 14:30:45 -0000	1.1
@@ -0,0 +1,29 @@
+<?xml version="1.0"?>
+<!DOCTYPE queryset PUBLIC "-//OpenACS//DTD XQL 1.0//EN" "http://www.thecodemill.biz/repository/xql.dtd">
+<!-- packages/acs-mail-lite/tcl/acs-mail-lite-callback-procs.xql -->
+<!-- @author Malte Sussdorff (sussdorff@sussdorff.de) -->
+<!-- @creation-date 2005-08-03 -->
+<!-- @arch-tag: ef7b6a8f-d03c-4502-96ef-7fdd5c2713a4 -->
+<!-- @cvs-id $Id: acs-mail-lite-callback-procs.xql,v 1.1 2005/08/10 14:30:45 maltes Exp $ -->
+
+<queryset>
+     <fullquery name="IncomingEmail.record_bounce">
+      <querytext>
+
+        update acs_mail_lite_bounce
+        set bounce_count = bounce_count + 1
+        where user_id = :user_id
+
+      </querytext>
+    </fullquery>
+
+    <fullquery name="IncomingEmail.insert_bounce">
+      <querytext>
+
+        insert into acs_mail_lite_bounce (user_id, bounce_count)
+        values (:user_id, 1)
+
+      </querytext>
+    </fullquery>
+
+</queryset>
\ No newline at end of file