prosodyctl: The 'install' command can now recognize the flag '--tree'

1 files changed, 14 insertions, 3 deletions

diff --git a/prosodyctl b/prosodyctl
index 750c84e4..a1dd1614 100755
--- a/prosodyctl
+++ b/prosodyctl
@@ -158,9 +158,20 @@ function commands.install(arg)
     show_usage([[make]], [[Installs a rockspec/rock from a specified server]]);
     return 1
   end
-  print("Installing module "..arg[1].." locally, from luarocks repo")
-  os.execute("luarocks --tree='./plugins' install "..arg[1])
-  return 0
+  -- 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("=(.+)$")
+    print("Installing module "..arg[2].." at "..dir..", from luarocks repo")
+    -- These extra double brackets allow us to correctly process names with spaces
+    os.execute("luarocks install --tree='"..dir.."' "..arg[2])
+    return 0;
+  else
+    print("Installing module "..arg[1].." locally, from luarocks repo")
+    os.execute("luarocks --tree='"..prosody.paths.plugins.."' install "..arg[1])
+    return 0
+  end
 end
 
 function commands.list(arg)