acs_mail_lite::get_delivery_parameters (private)

 acs_mail_lite::get_delivery_parameters

Defined in packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl

Get the SMTP Parameters and return these as a dict.

Returns:
dict with keys identical to the package parameters

Partial Call Graph (max 5 caller/called nodes):
%3 acs_mail_lite::configured_p acs_mail_lite::configured_p (public) acs_mail_lite::get_delivery_parameters acs_mail_lite::get_delivery_parameters acs_mail_lite::configured_p->acs_mail_lite::get_delivery_parameters acs_mail_lite::send_immediately acs_mail_lite::send_immediately (private) acs_mail_lite::send_immediately->acs_mail_lite::get_delivery_parameters acs_mail_lite::get_package_id acs_mail_lite::get_package_id (private) acs_mail_lite::get_delivery_parameters->acs_mail_lite::get_package_id parameter::get parameter::get (public) acs_mail_lite::get_delivery_parameters->parameter::get

Testcases:
No testcase defined.
Source code:
        set mail_package_id [get_package_id]

        set smtpHost [parameter::get -parameter "SMTPHost"  -package_id $mail_package_id  -default [ns_config ns/parameters mailhost]]
        if {$smtpHost eq ""} {
            set smtpHost localhost
        }

        set timeout [parameter::get -parameter "SMTPTimeout"  -package_id $mail_package_id  -default  [ns_config ns/parameters smtptimeout]]
        if {$timeout eq ""} {
            set timeout 60
        }

        set smtpPort [parameter::get -parameter "SMTPPort"  -package_id $mail_package_id  -default 25]

        set smtpUser [parameter::get -parameter "SMTPUser"  -package_id $mail_package_id]

        set smtpPassword [parameter::get -parameter "SMTPPassword"  -package_id $mail_package_id]

        set deliveryMode [parameter::get  -package_id $mail_package_id  -parameter EmailDeliveryMode  -default default]
        return [list  SMTPHost $smtpHost  SMTPTimeout $timeout  SMTPPort $smtpPort  SMTPUser $smtpUser  SMTPPassword $smtpPassword  EmailDeliveryMode $deliveryMode]
Generic XQL file:
packages/acs-mail-lite/tcl/acs-mail-lite-procs.xql

PostgreSQL XQL file:
packages/acs-mail-lite/tcl/acs-mail-lite-procs-postgresql.xql

Oracle XQL file:
packages/acs-mail-lite/tcl/acs-mail-lite-procs-oracle.xql

[ hide source ] | [ make this the default ]
Show another procedure: