added synchronous send via SMTP
[org.ibex.mail.git] / src / org / ibex / mail / target / Script.java
index 7ef5d48..6a7395a 100644 (file)
@@ -2,7 +2,7 @@
 // Licensed under the Apache Public Source License 2.0 ("the License").
 // You may not use this file except in compliance with the License.
 
-package org.ibex.mail;
+package org.ibex.mail.target;
 import org.ibex.js.*;
 import org.ibex.util.*;
 import org.ibex.mail.*;
@@ -13,6 +13,8 @@ import java.util.*;
 
 public class Script extends Target {
 
+    private static final JS.Method METHOD = new JS.Method();
+
     private static Script root = null;
     private static final String DEFAULT_CONF = File.separatorChar + "etc" + File.separatorChar + "org.ibex.mail.conf";
     public static Script root() {
@@ -30,15 +32,17 @@ public class Script extends Target {
     private String filePath = null;
     public Script(String filePath) throws JSExn, IOException {
         this.filePath = filePath;
-        js = JS.cloneWithNewParentScope(JS.fromReader(filePath, 0, new InputStreamReader(new FileInputStream(filePath))),
-                                        new ScriptScope()); }
+        js = JSU.cloneWithNewGlobalScope(JSU.fromReader(filePath, 1, new InputStreamReader(new FileInputStream(filePath))),
+                                         new ScriptScope()); }
 
-    private class ScriptScope extends JSScope {
+    private class ScriptScope extends JS.Immutable {
         ScriptEnv env = new ScriptEnv();
-        public ScriptScope() { super(null); }
-        public Object get(Object o) {
-            if (o.equals("m")) return m;
-            if (o.equals("ibex")) return env;
+        public JS get(JS name) throws JSExn {
+            //#jsswitch(name)
+            case "m": return m;
+            case "ibex": return env;
+            default: return null;
+            //#end
             return null;
         }
     }
@@ -55,7 +59,7 @@ public class Script extends Target {
     private synchronized void reallyAccept(Message m) throws IOException, MailException, JSExn {
         this.m = m;
         try {
-            Object ret = js.call(m, null, null, null, 1);
+            Object ret = js.call(null, new JS[] { m });
             Log.debug(this, "configuration script returned " + ret);
             if (ret == null) throw new IOException("configuration script returned null");
             if (ret instanceof Target)      ((Target)ret).accept(m);
@@ -68,7 +72,7 @@ public class Script extends Target {
     }
 
     // FIXME: this should extend org.ibex.core.Ibex
-    public class ScriptEnv extends JS {
+    public class ScriptEnv extends JS.Obj {
 
         private PropertyFile prefs = null;
             /*
@@ -83,79 +87,114 @@ public class Script extends Target {
             */
 
         /** lets us put multi-level get/put/call keys all in the same method */
-        private class Sub extends JS {
+        private class Sub extends JS.Immutable {
             String key;
             Sub(String key) { this.key = key; }
-            public void put(Object key, Object val) throws JSExn { ScriptEnv.this.put(this.key + "." + key, val); }
-            public Object get(Object key) throws JSExn { return ScriptEnv.this.get(this.key + "." + key); }
-            public Object call(Object a0, Object a1, Object a2, Object[] rest, int nargs) throws JSExn {
-                return ScriptEnv.this.callMethod(this.key, a0, a1, a2, rest, nargs);
-            }
-            public Object callMethod(Object method, Object a0, Object a1, Object a2, Object[] rest, int nargs) throws JSExn {
-                return ScriptEnv.this.callMethod(this.key + "." + method, a0, a1, a2, rest, nargs);
+            public void put(JS key, JS val) throws JSExn {
+                ScriptEnv.this.put(JSU.S(this.key + "." + JSU.toString(key)), val); }
+            public JS get(JS key) throws JSExn { return ScriptEnv.this.get(JSU.S(this.key + "." + JSU.toString(key))); }
+            public JS call(JS method, JS[] args) throws JSExn {
+                return ScriptEnv.this.call(JSU.S(this.key + "." + JSU.toString(method)), args);
             }
         }
         private Sub getSub(String s) { return new Sub(s); }
 
-        public Object get(Object name_) throws JSExn {
-            String name = (String)name_;
-            if (name.equals("math")) { return ibexMath; }
-            if (name.equals("string")) { return ibexString; }
-            if (name.equals("date")) { return METHOD; }
-            if (name.equals("regexp")) { return METHOD; }
-            if (name.equals("log")) { return getSub("log"); }
-            if (name.equals("log.debug")) { return METHOD; }
-            if (name.equals("log.info")) { return METHOD; }
-            if (name.equals("log.warn")) { return METHOD; }
-            if (name.equals("log.error")) { return METHOD; }
-            if (name.equals("list")) { return getSub("list"); }
-            if (name.startsWith("list.")) { return org.ibex.mail.List.getList(name.substring(5)); }
-            if (name.equals("mail")) { return getSub("mail"); }
-            if (name.equals("mail.forward")) { return METHOD; }
-            if (name.equals("mail.forward2")) { return METHOD; }
-            if (name.equals("mail.send")) { return METHOD; }
-            if (name.equals("mail.my")) { return getSub("mail.my"); }
-            if (name.equals("mail.my.prefs")) {
-                try {
+        public JS get(JS name) throws JSExn {
+            //#jsswitch(name)
+            case "math": return ibexMath;
+            case "string": return ibexString;
+            case "date": return METHOD;
+            case "regexp": return METHOD;
+            case "log": return getSub("log");
+            case "log.debug": return METHOD;
+            case "log.info": return METHOD;
+            case "log.warn": return METHOD;
+            case "log.error": return METHOD;
+            case "list": return getSub("list");
+            case "mail": return getSub("mail");
+            case "mail.forward": return METHOD;
+            case "mail.forward2": return METHOD;
+            case "mail.send": return METHOD;
+            case "mail.attempt": return METHOD;
+            case "mail.later": return Later.instance;
+            case "mail.drop": return Drop.instance;
+            case "mail.bounce": return METHOD;
+            case "mail.my": return getSub("mail.my");
+            case "mail.my.prefs": try {
                     return new org.ibex.js.Directory(new File("/etc/org.ibex.mail.prefs"));
-                } catch (IOException e) {
-                    throw new JSExn(e.toString());
-                }
-            }
-            if (name.equals("mail.my.mailbox")) {
+            } catch (IOException e) { throw new JSExn(e.toString()); }
+            case "mail.my.mailbox":
                 FileBasedMailbox root = FileBasedMailbox.getFileBasedMailbox(Mailbox.STORAGE_ROOT, true);
                 return root.slash("user", true).slash("megacz", true).slash("newmail", true);
-           }
+            //#end
+            if (JSU.toString(name).startsWith("list.")) { return MailingList.getList(JSU.toString(name).substring(5)); }
             return super.get(name);
         }
 
-        public Object callMethod(Object name, final Object a, Object b, Object c, Object[] rest, int nargs) throws JSExn {
+        public JS call(JS name0, JS[] args) throws JSExn {
+            final JS a = args.length >= 1 ? args[0] : null;
+            final JS b = args.length >= 2 ? args[1] : null;
+            final JS c = args.length >= 3 ? args[2] : null;
+            final int nargs = args.length;
+            String name = JSU.toString(name0);
             try {
-                if (name.equals("date")) { return new JSDate(a, b, c, rest, nargs); }
-                if (name.equals("mail.send")) {
+                if (name.equals("date")) { return new JSDate(args); }
+                if (name.equals("mail.send") || name.equals("send") || name.equals("mail.attempt") || name.equals("attempt")) {
+                    boolean attempt = name.equals("mail.attempt") || name.equals("attempt");
                     JS m = (JS)a;
                     StringBuffer headers = new StringBuffer();
                     String body = "";
-                    Address from = null, to = null;
-                    for(Enumeration e = m.keys(); e.hasMoreElements();) {
-                        String key = (String)e.nextElement();
-                        String val = m.get(key) == null ? null : m.get(key).toString();
-                        if ("body".equals(key)) body = val;
-                        else headers.append(key + ": " + val + "\r\n");
-                        if ("from".equalsIgnoreCase(key)) from = Address.parse(val);
-                        if ("to".equalsIgnoreCase(key)) to = Address.parse(val);
+                    Address from = null, to = null, envelopeFrom = null, envelopeTo = null;
+                    JS.Enumeration e = m.keys();
+                    for(; e.hasNext();) {
+                        JS key = (JS)e.next();
+                        JS val = m.get(key) == null ? null : m.get(key);
+                        if ("body".equalsIgnoreCase(JSU.toString(key))) body = JSU.toString(val);
+                        else headers.append(JSU.toString(key) + ": " + JSU.toString(val) + "\r\n");
+                        if ("from".equalsIgnoreCase(JSU.toString(key))) from = Address.parse(JSU.toString(val));
+                        if ("to".equalsIgnoreCase(JSU.toString(key))) to = Address.parse(JSU.toString(val));
+                        if ("envelopeFrom".equalsIgnoreCase(JSU.toString(key))) envelopeFrom = Address.parse(JSU.toString(val));
+                        if ("envelopeTo".equalsIgnoreCase(JSU.toString(key))) envelopeTo = Address.parse(JSU.toString(val));
                     }
-                    Message message = Message.newMessage(new org.ibex.io.Stream(headers.toString() + "\r\n" + body), from, to);
-                    //org.ibex.mail.protocol.SMTP.Outgoing.accept(message);
-                    boolean ok = org.ibex.mail.protocol.SMTP.Outgoing.attempt(message);
-                    if (!ok) throw new JSExn("SMTP server rejected message");
-                    return T;
+                    if (envelopeTo == null) envelopeTo = to;
+                    if (envelopeFrom == null) envelopeFrom = from;
+                    Message message =
+                        Message.newMessage(new org.ibex.io.Fountain.StringFountain(headers.toString() + "\r\n" + body),
+                                           envelopeFrom,
+                                           envelopeTo
+                                           );
+                    
+                    boolean ok = false;
+                    try {
+                        if (attempt) {
+                            org.ibex.mail.protocol.SMTP.Outgoing.attempt(message);
+                        } else {
+                            org.ibex.mail.protocol.SMTP.Outgoing.accept(message);
+                        }
+                        ok = true;
+                    } catch (Exception ex) {
+                        if (!attempt) Log.warn(this, ex);
+                    }
+                    if (!ok && !attempt) throw new JSExn("SMTP server rejected message");
+                    return JSU.B(ok);
+                }
+                if (name.equals("mail.bounce")) {
+                    return new Target() {
+                            public void accept(Message m) throws MailException {
+                                try {
+                                    Message m2 = m.bounce(JSU.toString(a));
+                                    org.ibex.mail.protocol.SMTP.Outgoing.accept(m2);
+                                    Log.error(this, "BOUNCING! " + m2.summary());
+                                } catch (Exception e) {
+                                    Log.warn(this, e);
+                                }
+                            } };
                 }
-                if (name.equals("mail.forward2")) {
+                if (name.equals("mail.forward2") || name.equals("forward2")) {
                     try {
-                        Message m2 = Message.newMessage(new org.ibex.io.Stream(m.toString()),
+                        Message m2 = Message.newMessage(new org.ibex.io.Fountain.StringFountain(m.toString()),
                                                         m.envelopeFrom,
-                                                        new Address(a.toString()));
+                                                        new Address(JSU.toString(a)));
                         org.ibex.mail.protocol.SMTP.Outgoing.accept(m2);
                     } catch (Exception e) {
                         Log.warn(this, e);
@@ -163,22 +202,15 @@ public class Script extends Target {
                     }
                     return null;
                 }
-                if (name.equals("mail.forward")) { return new Target() {
-                        public void accept(Message m) throws MailException {
-                            try {
-                                Message m2 = Message.newMessage(new org.ibex.io.Stream(m.toString()),
-                                                         m.envelopeFrom,
-                                                         new Address(a.toString()));
-                                org.ibex.mail.protocol.SMTP.Outgoing.accept(m2);
-                            } catch (Exception e) {
-                                throw new MailException(e.toString());
-                            }
-                        }
-                    }; }
-                if (name.equals("log.debug")) {    JS.debug(a== null ? "**null**" : a.toString()); return null; }
-                if (name.equals("log.info")) {     JS.info(a== null ? "**null**" : a.toString()); return null; }
-                if (name.equals("log.warn")) {     JS.warn(a== null ? "**null**" : a.toString()); return null; }
-                if (name.equals("log.error")) {    JS.error(a== null ? "**null**" : a.toString()); return null; }
+                if (name.equals("mail.forward") || name.equals("forward")) {
+                    Message m2 = Message.newMessage(Script.this.m, Script.this.m.envelopeFrom, new Address(JSU.toString(a)));
+                    org.ibex.mail.protocol.SMTP.Outgoing.attempt(m2);
+                    return Drop.instance;
+                }
+                if (name.equals("log.debug") || name.equals("debug")) {    JSU.debug(a== null ? "**null**" : JSU.toString(a)); return null; }
+                if (name.equals("log.info") || name.equals("info")) {     JSU.info(a== null ? "**null**" : JSU.toString(a)); return null; }
+                if (name.equals("log.warn") || name.equals("warn")) {     JSU.warn(a== null ? "**null**" : JSU.toString(a)); return null; }
+                if (name.equals("log.error") || name.equals("error")) {    JSU.error(a== null ? "**null**" : JSU.toString(a)); return null; }
                 switch (nargs) {
                 case 1:
                     if (name.equals("regexp")) {return new JSRegexp(a, null); }
@@ -190,35 +222,38 @@ public class Script extends Target {
                 Log.warn(this, "ibex."+name+"() threw: " + e);
                 Log.warn(this, e);
                 if (e instanceof JSExn) throw ((JSExn)e);
-                throw new JSExn("invalid argument for ibex object method "+name+"()");
+                throw new JSExn("invalid argument for ibex object method "+JSU.toString(name0)+"()");
             }
-            throw new JSExn("invalid number of arguments ("+nargs+") for ibex object method "+name+"()");
+            throw new JSExn("invalid number of arguments ("+nargs+") for ibex object method "+JSU.toString(name0)+"()");
         }
 
         public final JSMath ibexMath = new JSMath() {
-                private JS gs = new JSScope.Global();
-                public Object get(Object name) throws JSExn {
-                    if (name.equals("isNaN")) { return gs.get("isNaN"); }
-                    if (name.equals("isFinite")) { return gs.get("isFinite"); }
-                    if (name.equals("NaN")) { return gs.get("NaN"); }
-                    if (name.equals("Infinity")) { return gs.get("Infinity"); }
-                    return super.get(name);
+                public JS get(JS name) throws JSExn {
+                    // FIXME!!!
+                    /*
+                    case "isNaN": return gs.get(name);
+                    case "isFinite": return gs.get(name);
+                    case "NaN": return gs.get(name);
+                    case "Infinity": return gs.get(name);
+                    */
+                    return null;
                 }
             };
         
-        public final JS ibexString = new JS() {
-                private JS gs = new JSScope.Global();
-                public void put(Object key, Object val) { }
-                public Object get(Object name) throws JSExn {
-                    if (name.equals("parseInt")) { return gs.get("parseInt"); }
-                    if (name.equals("parseFloat")) { return gs.get("parseFloat"); }
-                    if (name.equals("decodeURI")) { return gs.get("decodeURI"); }
-                    if (name.equals("decodeURIComponent")) { return gs.get("decodeURIComponent"); }
-                    if (name.equals("encodeURI")) { return gs.get("encodeURI"); }
-                    if (name.equals("encodeURIComponent")) { return gs.get("encodeURIComponent"); }
-                    if (name.equals("escape")) { return gs.get("escape"); }
-                    if (name.equals("unescape")) { return gs.get("unescape"); }
-                    if (name.equals("fromCharCode")) { return gs.get("stringFromCharCode"); }
+        public final JS ibexString = new JS.Immutable() {
+                public JS get(JS name) throws JSExn {
+                    // FIXME!!!
+                    /*
+                    case "parseInt": return gs.get(JSU.S("parseInt"));
+                    case "parseFloat": return gs.get(JSU.S("parseFloat"));
+                    case "decodeURI": return gs.get(JSU.S("decodeURI"));
+                    case "decodeURIComponent": return gs.get(JSU.S("decodeURIComponent"));
+                    case "encodeURI": return gs.get(JSU.S("encodeURI"));
+                    case "encodeURIComponent": return gs.get(JSU.S("encodeURIComponent"));
+                    case "escape": return gs.get(JSU.S("escape"));
+                    case "unescape": return gs.get(JSU.S("unescape"));
+                    case "fromCharCode": return gs.get(JSU.S("stringFromCharCode"));
+                    */
                     return null;
                 }
             };