From 46439007cf417cbd9ac8049bb4122c890097a0fa Mon Sep 17 00:00:00 2001
From: "Charles.Forsyth" <devnull@localhost>
Date: Fri, 22 Dec 2006 20:52:35 +0000
Subject: 20060303-partial

---
 module/smtp.m | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100644 module/smtp.m

(limited to 'module/smtp.m')

diff --git a/module/smtp.m b/module/smtp.m
new file mode 100644
index 00000000..b339c1fe
--- /dev/null
+++ b/module/smtp.m
@@ -0,0 +1,22 @@
+# 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);
+};
-- 
cgit v1.2.3