maildemo.tcl File Reference

Go to the source code of this file.

Functions/Subroutines
package require mime package require smtp ret	policy (type demoarg, type code, type diagnostic)

---

Function Documentation

package require mime package require smtp ret policy	(	type	demoarg,
		type	code,
		type	diagnostic
	)

Definition at line 19 of file maildemo.tcl.

                                                         {
    if {$code > 299} {
        puts stderr "TLS error: $code $diagnostic"
    }
    #return secure;                      # fail if no TLS
    return insecure;
}