1 files changed, 28 insertions, 1 deletions

diff --git a/data.c b/data.c
index 3f5d5e0..67b1802 100644
--- a/data.c
+++ b/data.c
@@ -709,6 +709,33 @@ int actor_get(snac *snac, char *actor, d_char **data)
 }
 
 
+void enqueue_input(snac *snac, char *msg)
+/* enqueues an input message */
+{
+    xs *ntid = tid(0);
+    xs *fn   = xs_fmt("%s/queue/%s.json", snac->basedir, ntid);
+    xs *tfn  = xs_str_cat(fn, ".tmp");
+    FILE *f;
+
+    if ((f = fopen(tfn, "w")) != NULL) {
+        xs *qmsg = xs_dict_new();
+        xs *j;
+
+        qmsg = xs_dict_append(qmsg, "type",   "input");
+        qmsg = xs_dict_append(qmsg, "object", msg);
+
+        j = xs_json_dumps_pp(qmsg, 4);
+
+        fwrite(j, strlen(j), 1, f);
+        fclose(f);
+
+        rename(tfn, fn);
+
+        snac_debug(snac, 2, xs_fmt("enqueue_input %s", fn));
+    }
+}
+
+
 void enqueue_output(snac *snac, char *actor, char *msg, int retries)
 /* enqueues an output message for an actor */
 {
@@ -740,7 +767,7 @@ void enqueue_output(snac *snac, char *actor, char *msg, int retries)
 
         rename(tfn, fn);
 
-        snac_debug(snac, 2, xs_fmt("enqueue %s %s %d", actor, fn, retries));
+        snac_debug(snac, 2, xs_fmt("enqueue_output %s %s %d", actor, fn, retries));
     }
 }