code: 9ferno

ref: c04f70e2bb4a02655bb8a6247a8f07f75ff431bd
dir: /module/smtp.m/

View raw version
# 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);