20060303-partial

1 files changed, 22 insertions, 0 deletions

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);
+};