ref: 1018d7a7091fd5e0433f501a3474cdc3fec322cc
dir: /module/smtp.m/
# smtp protocol independent access to an email server. Smtp : module { PATH : con "/dis/lib/smtp.dis"; # all functions return status (-ve when error) # open a connection with the email server # requires the email server's name or address or nil if a default server is to be used # returns (status, errror string) open: fn(server : string) : (int, string); # send mail - returns (status, error string) sendmail: fn(fromwho: string, towho: list of string, cc : list of string, msg: list of string) : (int, string); # close the connection - returns (status, error string) close: fn() : (int, string); };