- OpenACS 5.9

acs-mail-lite.info

@@ -2,26 +2,26 @@
 <!-- Generated by the OpenACS Package Manager -->
 
 <package key="acs-mail-lite" url="http://openacs.org/repository/apm/packages/acs-mail-lite" type="apm_service">
-    <package-name>Mail Services Lite</package-name>
-    <pretty-plural>Mail Services Lite</pretty-plural>
+    <package-name>ACS Mail Services Lite</package-name>
+    <pretty-plural>ACS Mail Services Lite</pretty-plural>
     <initial-install-p>t</initial-install-p>
     <singleton-p>t</singleton-p>
     <implements-subsite-p>f</implements-subsite-p>
     <inherit-templates-p>t</inherit-templates-p>
     
-    <version name="5.10.0d1" url="http://openacs.org/repository/download/apm/acs-mail-lite-5.10.0d1.apm">
+    <version name="5.9.0" url="http://openacs.org/repository/download/apm/acs-mail-lite-5.9.0.apm">
         <owner url="mailto:malte.sussdorff@cognovis.de">Malte Sussdorff</owner>
         <owner url="mailto:timo@studio-k4.de">Timo Hentschel</owner>
         <summary>Simplified reliable email transmission with bounce management.</summary>
-        <release-date>2014-08-27</release-date>
+        <release-date>2015-10-04</release-date>
         <vendor url="http://www.openacs.org">OpenACS</vendor>
         <description format="text/html">This package provides a service for sending messages, queueing messages in the database to ensure reliable sending and make sending a message 'transactional'. Replacement for acs-mail.</description>
         <maturity>3</maturity>
 
-        <provides url="acs-mail-lite" version="5.10.0d1"/>
-        <requires url="acs-kernel" version="5.10.0d1"/>
-        <requires url="acs-service-contract" version="5.10.0d1"/>
-        <requires url="acs-tcl" version="5.10.0d1"/>
+        <provides url="acs-mail-lite" version="5.9.0"/>
+        <requires url="acs-kernel" version="5.9.0"/>
+        <requires url="acs-service-contract" version="5.9.0"/>
+        <requires url="acs-tcl" version="5.9.0"/>
 
         <callbacks>
             <callback type="after-upgrade"  proc="acs_mail_lite::after_upgrade"/>

tcl/acs-mail-lite-callback-procs.tcl

@@ -112,3 +112,9 @@ ad_proc -public -callback acs_mail_lite::incoming_email -impl acs-mail-lite {
     }
 }
 
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End:

tcl/acs-mail-lite-init.tcl

@@ -31,3 +31,9 @@ nsv_set acs_mail_lite check_bounce_p 0
 #ns_log Notice "acs-mail-lite: renaming acs_mail_lite::sendmail to ns_sendmail"
 #rename ns_sendmail _old_ns_sendmail
 #rename acs_mail_lite::sendmail ns_sendmail
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End:

tcl/acs-mail-lite-procs.tcl

@@ -156,9 +156,9 @@ namespace eval acs_mail_lite {
 	}
 
         ns_log Debug "send cmd: $cmd"
-        if {[catch $cmd errorInfo]} {
-	    ns_log Error "acs-mail-lite::smtp: error $errorInfo while executing\n$cmd"
-	    error $errorInfo
+        if {[catch $cmd errorMsg]} {
+	    ns_log Error "acs-mail-lite::smtp: error $errorMsg while executing\n$cmd"
+	    error $errorMsg
 	}
     }
 
@@ -460,7 +460,7 @@ namespace eval acs_mail_lite {
 
             db_foreach get_file_info {} {
                 lappend tokens [mime::initialize \
-                                    -param [list name [ad_quotehtml $title]] \
+                                    -param [list name [ns_quotehtml $title]] \
                                     -header [list "Content-Disposition" "attachment; filename=\"$name\""] \
                                     -header [list Content-Description $title] \
                                     -canonical $mime_type \
@@ -702,3 +702,9 @@ namespace eval acs_mail_lite {
     }
 
 }
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End:

tcl/apm-callback-procs.tcl

@@ -32,3 +32,9 @@ ad_proc -private acs_mail_lite::after_upgrade {
         }
 }
 
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End:

tcl/bounce-procs.tcl

@@ -161,3 +161,9 @@ namespace eval acs_mail_lite {
     }
 
 }
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End:

tcl/incoming-mail-procs.tcl

@@ -284,4 +284,9 @@ namespace eval acs_mail_lite {
 	}
 	return $autoreply_p
     }
-}
\ No newline at end of file
+}
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End:

tcl/utils-procs.tcl

@@ -173,3 +173,9 @@ ad_proc -public acs_mail_lite::utils::valid_email_p {
         return 1
     }
 }
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End:

www/doc/index.html

 <html>
 <head><title>User Documentation for ACS Mail Lite</title></head>
 <body>
-<h2>User Documentation for ACS Mail Lite</h2>
+<h1>User Documentation for ACS Mail Lite</h1>
 
 Acs Mail Lite handles sending of email via sendmail or smtp
 and includes a bounce management system for invalid email
@@ -70,5 +70,9 @@ To use this system here is a quick guide how to do it with postfix.
 </ul>
 In case of multiple services on one system, create a bounce email for each of them (e.g. changeing "bounce" to "bounce_service1") and create a new user that runs the aolserver process for each of them. You do not want to have service1 deal with bounces for service2.
 
+<h2>Release Notes</h2>
+
+<p>Please file bugs in the <a href="http://openacs.org/bugtracker/openacs/">Bug Tracker</a>.</p>
+
 </body>
 </html>

www/restore-bounce.tcl

@@ -14,3 +14,9 @@ set user_id [auth::require_login]
 db_dml unbounce_user "update users set email_bouncing_p = 'f' where user_id = :user_id"
 # Used in a message key
 set system_name [ad_system_name]
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: