From c91bee45450498e9858b10b1f1ecdeabe4fc8d92 Mon Sep 17 00:00:00 2001
From: Jo?o Duarte <jvsDuarte08@gmail.com>
Date: Thu, 20 Jun 2019 19:17:47 +0100
Subject: prosodyctl: Implemented the 'list' command, which is a bridge to
 'luarocks list'

---
 prosodyctl | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/prosodyctl b/prosodyctl
index a7300973..d726c028 100755
--- a/prosodyctl
+++ b/prosodyctl
@@ -85,6 +85,19 @@ local prosodyctl_timeout = (configmanager.get("*", "prosodyctl_timeout") or 5) *
 local commands = {};
 local command = table.remove(arg, 1);
 
+function commands.list(arg)
+  -- Need to think about the case with many flags
+  local flag="--tree="
+  -- I'm considering the flag is the first, but there can be many flags
+  if arg[1] and arg[1]:sub(1, #flag) == flag then
+    local dir = arg[1]:match("=(.+)$")
+    -- These extra double brackets allow us to correctly process names with spaces
+    os.execute("luarocks list --tree=".."'"..dir.."'")
+  else
+    os.execute("luarocks list --tree="..prosody.paths.data.."/rocks")
+  end
+end
+
 function commands.enabled_plugins()
 	for module in modulemanager.get_modules_for_host() do
 		show_warning("%s", module)
-- 
cgit v1.2.3