bb02cc1997-09-15Fredrik Hübinette (Hubbe) class protocol { // Maybe this should be the other way around? inherit NNTP.protocol; } class client { inherit protocol;
c33ab61998-03-06Fredrik Noring  constant reply_codes = ([ 211:"System status, or system help reply", 214:"Help message", 220:"<host> Service ready", 221:"<host> Service closing transmission channel", 250:"Requested mail action okay, completed", 251:"User not local; will forward to <forward-path>", 354:"Start mail input; end with <CRLF>.<CRLF>", 421:"<host> Service not available, closing transmission channel " "[This may be a reply to any command if the service knows it " "must shut down]", 450:"Requested mail action not taken: mailbox unavailable " "[E.g., mailbox busy]", 451:"Requested action aborted: local error in processing", 452:"Requested action not taken: insufficient system storage", 500:"Syntax error, command unrecognized " "[This may include errors such as command line too long]", 501:"Syntax error in parameters or arguments", 502:"Command not implemented", 503:"Bad sequence of commands", 504:"Command parameter not implemented", 550:"Requested action not taken: mailbox unavailable " "[E.g., mailbox not found, no access]", 551:"User not local; please try <forward-path>", 552:"Requested mail action aborted: exceeded storage allocation", 553:"Requested action not taken: mailbox name not allowed " "[E.g., mailbox syntax incorrect]", 554:"Transaction failed" ]); static private int cmd(string c, string|void comment) { int r = command(c); switch(r) { case 200..399: break; default: throw(({"SMTP: "+c+"\n"+(comment?"SMTP: "+comment+"\n":"")+ "SMTP: "+reply_codes[r]+"\n", backtrace()})); } return r; }
bb02cc1997-09-15Fredrik Hübinette (Hubbe)  void create(void|string server) { if(!server) { // Lookup MX record here (Using DNS.pmod) object dns=master()->resolv("Protocols")["DNS"]->client(); server=dns->get_primary_mx(gethostname()); } if(!connect(server,25)) {
d664671998-05-12Marcus Comstedt  throw(({"Failed to connect to mail server.\n",backtrace()}));
bb02cc1997-09-15Fredrik Hübinette (Hubbe)  } if(readreturncode()/100 != 2) throw(({"Connection refused by SMTP server.\n",backtrace()}));
c33ab61998-03-06Fredrik Noring  if(catch(cmd("EHLO "+gethostname()))) cmd("HELO "+gethostname(), "greeting failed."); } void send_message(string from, string *to, string body) {
d664671998-05-12Marcus Comstedt  cmd("MAIL FROM: "+from);
c33ab61998-03-06Fredrik Noring  foreach(to, string t)
d664671998-05-12Marcus Comstedt  cmd("RCPT TO: "+t);
c33ab61998-03-06Fredrik Noring  cmd("DATA"); cmd(body+"\r\n."); cmd("QUIT");
bb02cc1997-09-15Fredrik Hübinette (Hubbe)  }
c33ab61998-03-06Fredrik Noring  void simple_mail(string to, string subject, string from, string msg)
bb02cc1997-09-15Fredrik Hübinette (Hubbe)  {
c33ab61998-03-06Fredrik Noring  send_message(from, ({ to }),
d664671998-05-12Marcus Comstedt  (string)MIME.Message(msg, (["mime-version":"1.0", "subject":subject, "from":from, "to":to, "content-type": "text/plain;charset=iso-8859-1", "content-transfer-encoding": "8bit"])));
bb02cc1997-09-15Fredrik Hübinette (Hubbe)  } }