supported forced installs through the REST api

Author: Matthew Peck

test/controllers/v1/bundles_controller_test.exs

@@ -136,6 +136,14 @@ defmodule Cog.V1.BundlesControllerTest do
             "version has already been taken"] = json_response(conn, 409)["errors"]
   end
 
+  test "force enables installation of an already installed version", %{authed: requestor} do
+    config = config(:map)
+    {:ok, _orig_version3} = Bundles.install(%{"name" => config["name"], "version" => config["version"], "config_file" => config})
+
+    conn = api_request(requestor, :post, "/v1/bundles", body: %{"bundle" => %{"config" => config, "force_install" => true}})
+    assert response(conn, 201)
+  end
+
   test "fails to install with semantically invalid config", %{authed: requestor} do
     # The config includes rules that mention permissions; if we remove
     # those permissions, installation should fail

web/controllers/v1/bundles_controller.ex

@@ -64,9 +64,10 @@ defmodule Cog.V1.BundlesController do
 
   defp install_bundle(params) do
     with {:ok, config}                 <- parse_config(params),
+         {:ok, install_type}           <- install_type(params),
          {:ok, valid_config, warnings} <- validate_config(config),
          {:ok, params}                 <- merge_config(params, valid_config),
-         {:ok, bundle}                 <- Repository.Bundles.install(params) do
+         {:ok, bundle}                 <- Repository.Bundles.install(install_type, params) do
            {:ok, bundle, warnings}
     end
   end
@@ -80,6 +81,11 @@ defmodule Cog.V1.BundlesController do
   defp parse_config(_),
     do: {:error, :no_config}
 
+  defp install_type(%{"force_install" => true}),
+    do: {:ok, :force}
+  defp install_type(_),
+    do: {:ok, :normal}
+
   # If we have a file, check to see if the filename has the correct extension
   defp validate_file_format(%Plug.Upload{filename: filename}) do
     if Config.config_extension?(filename) do