New op #3 to list_maint() (get list name).

1 files changed, 13 insertions, 0 deletions

diff --git a/data.c b/data.c
index 5b4936b..4e1682c 100644
--- a/data.c
+++ b/data.c
@@ -1830,6 +1830,19 @@ xs_val *list_maint(snac *user, const char *list, int op)
         }
 
         break;
+
+    case 3: /** get list name **/
+        if (xs_is_hex(list)) {
+            FILE *f;
+            xs *fn = xs_fmt("%s/list/%s.id", user->basedir, list);
+
+            if ((f = fopen(fn, "r")) != NULL) {
+                l = xs_strip_i(xs_readline(f));
+                fclose(f);
+            }
+        }
+
+        break;
     }
 
     return l;