3 files changed, 106 insertions, 48 deletions

diff --git a/httpd.c b/httpd.c
index 2c36364..bf72d5a 100644
--- a/httpd.c
+++ b/httpd.c
@@ -169,39 +169,7 @@ void httpd_connection(int rs)
 
     fclose(f);
 
-    /* obsessive archiving */
-    {
-        xs *date = xs_local_time("%Y%m%d%H%M%S");
-        xs *dir  = xs_fmt("%s/archive/%s", srv_basedir, date);
-
-        if (mkdir(dir, 0755) != -1) {
-            xs *meta_fn    = xs_fmt("%s/meta", dir);
-            xs *payload_fn = xs_fmt("%s/payload", dir);
-            xs *body_fn    = xs_fmt("%s/body", dir);
-
-            if ((f = fopen(meta_fn, "w")) != NULL) {
-                xs *j1 = xs_json_dumps_pp(req, 4);
-                xs *j2 = xs_json_dumps_pp(headers, 4);
-
-                fprintf(f, "req: %s\n", j1);
-                fprintf(f, "p_size: %d\n", p_size);
-                fprintf(f, "status: %d\n", status);
-                fprintf(f, "response: %s\n", j2);
-                fprintf(f, "b_size: %d\n", b_size);
-                fclose(f);
-            }
-
-            if (p_size && payload && (f = fopen(payload_fn, "w")) != NULL) {
-                fwrite(payload, p_size, 1, f);
-                fclose(f);
-            }
-
-            if (b_size && body && (f = fopen(body_fn, "w")) != NULL) {
-                fwrite(body, p_size, 1, f);
-                fclose(f);
-            }
-        }
-    }
+    srv_archive("RECV", req, payload, p_size, status, headers, body, b_size);
 
     free(body);
 }
diff --git a/snac.c b/snac.c
index ed09c84..ba50a79 100644
--- a/snac.c
+++ b/snac.c
@@ -15,7 +15,7 @@
 #include "snac.h"
 
 #include <sys/time.h>
-
+#include <sys/stat.h>
 
 d_char *srv_basedir = NULL;
 d_char *srv_config  = NULL;
@@ -55,6 +55,20 @@ d_char *tid(int offset)
 }
 
 
+int validate_uid(char *uid)
+/* returns if uid is a valid identifier */
+{
+    while (*uid) {
+        if (!(isalnum(*uid) || *uid == '_'))
+            return 0;
+
+        uid++;
+    }
+
+    return 1;
+}
+
+
 void srv_debug(int level, d_char *str)
 /* logs a debug message */
 {
@@ -73,20 +87,6 @@ void srv_debug(int level, d_char *str)
 }
 
 
-int validate_uid(char *uid)
-/* returns if uid is a valid identifier */
-{
-    while (*uid) {
-        if (!(isalnum(*uid) || *uid == '_'))
-            return 0;
-
-        uid++;
-    }
-
-    return 1;
-}
-
-
 void snac_debug(snac *snac, int level, d_char *str)
 /* prints a user debugging information */
 {
@@ -134,3 +134,90 @@ int check_password(char *uid, char *passwd, char *hash)
 
     return ret;
 }
+
+
+void srv_archive(char *direction, char *req, char *payload, int p_size,
+                 int status, char *headers, char *body, int b_size)
+/* archives a connection */
+{
+    /* obsessive archiving */
+    xs *date = xs_local_time("%Y%m%d%H%M%S");
+    xs *dir  = xs_fmt("%s/archive/%s", srv_basedir, date);
+    FILE *f;
+
+    if (mkdir(dir, 0755) != -1) {
+        xs *meta_fn = xs_fmt("%s/_META", dir);
+
+        if ((f = fopen(meta_fn, "w")) != NULL) {
+            xs *j1 = xs_json_dumps_pp(req, 4);
+            xs *j2 = xs_json_dumps_pp(headers, 4);
+
+            fprintf(f, "dir: %s\n", direction);
+            fprintf(f, "req: %s\n", j1);
+            fprintf(f, "p_size: %d\n", p_size);
+            fprintf(f, "status: %d\n", status);
+            fprintf(f, "response: %s\n", j2);
+            fprintf(f, "b_size: %d\n", b_size);
+            fclose(f);
+        }
+
+        if (p_size && payload) {
+            xs *payload_fn;
+            char *h = xs_dict_get(req, "headers");
+            char *v = xs_dict_get(h, "content-type");
+
+            if (v && xs_str_in(v, "json") != -1) {
+                payload_fn = xs_fmt("%s/payload.json", dir);
+
+                if ((f = fopen(payload_fn, "w")) != NULL) {
+                    xs *v1 = xs_json_loads(payload);
+                    xs *j1 = xs_json_dumps_pp(v1, 4);
+
+                    if (j1 != NULL)
+                        fwrite(j1, strlen(j1), 1, f);
+                    else
+                        fwrite(payload, p_size, 1, f);
+
+                    fclose(f);
+                }
+            }
+            else {
+                payload_fn = xs_fmt("%s/payload", dir);
+
+                if ((f = fopen(payload_fn, "w")) != NULL) {
+                    fwrite(payload, p_size, 1, f);
+                    fclose(f);
+                }
+            }
+        }
+
+        if (b_size && body) {
+            xs *body_fn;
+            char *v = xs_dict_get(headers, "content-type");
+
+            if (v && xs_str_in(v, "json") != -1) {
+                body_fn = xs_fmt("%s/body.json", dir);
+
+                if ((f = fopen(body_fn, "w")) != NULL) {
+                    xs *v1 = xs_json_loads(payload);
+                    xs *j1 = xs_json_dumps_pp(v1, 4);
+
+                    if (j1 != NULL)
+                        fwrite(j1, strlen(j1), 1, f);
+                    else
+                        fwrite(body, b_size, 1, f);
+
+                    fclose(f);
+                }
+            }
+            else {
+                body_fn = xs_fmt("%s/body", dir);
+
+                if ((f = fopen(body_fn, "w")) != NULL) {
+                    fwrite(body, b_size, 1, f);
+                    fclose(f);
+                }
+            }
+        }
+    }
+}
\ No newline at end of file
diff --git a/snac.h b/snac.h
index b76d7e9..c91186f 100644
--- a/snac.h
+++ b/snac.h
@@ -41,6 +41,9 @@ int validate_uid(char *uid);
 d_char *hash_password(char *uid, char *passwd, char *nonce);
 int check_password(char *uid, char *passwd, char *hash);
 
+void srv_archive(char *direction, char *req, char *payload, int p_size,
+                 int status, char *headers, char *body, int b_size);
+
 float mtime(char *fn);
 
 int follower_add(snac *snac, char *actor, char *msg);