Index: openacs-4/packages/mail-tracking/tcl/mail-tracking-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/mail-tracking/tcl/mail-tracking-callback-procs.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/mail-tracking/tcl/mail-tracking-callback-procs.tcl	15 Jun 2005 14:07:33 -0000	1.1
@@ -0,0 +1,49 @@
+# packages/mail-tracking/tcl/mail-tracking-callback-procs.tcl
+
+ad_library {
+    
+    Callback procs for mail tracking
+    
+    @author Malte Sussdorff (sussdorff@sussdorff.de)
+    @creation-date 2005-06-15
+    @arch-tag: 9d6f99f7-cfec-40e6-8d3f-411f4d3c9b6c
+    @cvs-id $Id: mail-tracking-callback-procs.tcl,v 1.1 2005/06/15 14:07:33 maltes Exp $
+}
+
+ad_proc -public -callback acs_mail_lite::complex_send -impl mail_tracking {
+    {-package_id:required}
+    {-from_party_id:required}
+    {-to_party_id:required}
+    {-body:required}
+    {-message_id:required}
+    {-subject:required}
+} {
+    create a new entry in the mail tracking table
+} {
+
+    db_dml insert_log_entry {insert into acs_mail_log
+	(message_id, recipient_id, sender_id, package_id, subject, body, sent_date)
+	values
+	(:message_id, :to_party_id, :from_party_id, :package_id, :subject, :body, now())
+    }
+
+}
+
+ad_proc -public -callback acs_mail_lite::send -impl mail_tracking {
+    {-package_id:required}
+    {-from_party_id:required}
+    {-to_party_id:required}
+    {-body:required}
+    {-message_id:required}
+    {-subject:required}
+} {
+    create a new entry in the mail tracking table
+} {
+
+    db_dml insert_log_entry {insert into acs_mail_log
+	(message_id, recipient_id, sender_id, package_id, subject, body, sent_date)
+	values
+	(:message_id, :to_party_id, :from_party_id, :package_id, :subject, :body, now())
+    }
+
+}