utils-procs.tcl

Helper procs to build email messages

Location:
packages/acs-mail-lite/tcl/utils-procs.tcl
Created:
2007-12-16
Author:
Emmanuelle Raffenne <eraffenne@gmail.com>
CVS Identification:
$Id: utils-procs.tcl,v 1.9.2.4 2023/03/24 16:02:27 antoniop Exp $

Procedures in this file

Detailed information

acs_mail_lite::utils::build_body (private)

 acs_mail_lite::utils::build_body [ -mime_type mime_type ] \
    [ -charset charset ] body

Encode the body using quoted-printable and build the alternative part if necessary Return a list of message tokens

Switches:
-mime_type (optional, defaults to "text/plain")
-charset (optional, defaults to "UTF-8")
Parameters:
body (required)

Partial Call Graph (max 5 caller/called nodes):
%3 acs_mail_lite::send_immediately acs_mail_lite::send_immediately (private) acs_mail_lite::utils::build_body acs_mail_lite::utils::build_body acs_mail_lite::send_immediately->acs_mail_lite::utils::build_body ad_html_to_text ad_html_to_text (public) acs_mail_lite::utils::build_body->ad_html_to_text mime::initialize mime::initialize acs_mail_lite::utils::build_body->mime::initialize

Testcases:
No testcase defined.

acs_mail_lite::utils::build_date (private)

 acs_mail_lite::utils::build_date [ date ]

Depending on the available mime package version, it uses either the mime::parsedatetime to do it or local code (parsedatetime is buggy in mime < 1.5.2 )

Parameters:
date (optional)
A 822-style date-time specification "YYYYMMDD HH:MI:SS"

Partial Call Graph (max 5 caller/called nodes):
%3 acs_mail_lite::send_immediately acs_mail_lite::send_immediately (private) acs_mail_lite::utils::build_date acs_mail_lite::utils::build_date acs_mail_lite::send_immediately->acs_mail_lite::utils::build_date mime::parsedatetime mime::parsedatetime acs_mail_lite::utils::build_date->mime::parsedatetime

Testcases:
No testcase defined.

acs_mail_lite::utils::build_subject (private)

 acs_mail_lite::utils::build_subject [ -charset charset ] subject

Encode the subject, using quoted-printable, of an email message and trim long lines. Depending on the available mime package version, it uses either the mime::word_encode proc to do it or local code (word_encode is buggy in mime < 1.5.2 ) A purely tcllib based version would be [mime::word_encode utf-8 quoted-printable $subject] but that would miss the safety-belt for newline handling

Switches:
-charset (optional, defaults to "UTF-8")
Parameters:
subject (required)

Partial Call Graph (max 5 caller/called nodes):
%3 acs_mail_lite::send_immediately acs_mail_lite::send_immediately (private) acs_mail_lite::utils::build_subject acs_mail_lite::utils::build_subject acs_mail_lite::send_immediately->acs_mail_lite::utils::build_subject ad_log ad_log (public) acs_mail_lite::utils::build_subject->ad_log mime::qp_encode mime::qp_encode acs_mail_lite::utils::build_subject->mime::qp_encode

Testcases:
No testcase defined.

acs_mail_lite::utils::valid_email_p (private, deprecated)

 acs_mail_lite::utils::valid_email_p email
Deprecated. Invoking this procedure generates a warning.

Checks if the email is valid. Uses mime::parsemail to determine this

Parameters:
email (required)
Returns:
boolean success DEPRECATED: duplicated by util_email_valid_p
See Also:

Partial Call Graph (max 5 caller/called nodes):
%3 ad_log_deprecated ad_log_deprecated (public) util_email_valid_p util_email_valid_p (public) acs_mail_lite::utils::valid_email_p acs_mail_lite::utils::valid_email_p acs_mail_lite::utils::valid_email_p->ad_log_deprecated acs_mail_lite::utils::valid_email_p->util_email_valid_p

Testcases:
No testcase defined.
[ show source ]