compute server: implement clone feature

Author: williamstein

src/packages/frontend/compute/api.ts

@@ -37,6 +37,10 @@ export async function computeServerAction(opts: {
   await api("compute/compute-server-action", opts);
 }
 
+export async function getServers(opts: { id?: number; project_id: string }) {
+  return await api("compute/get-servers", opts);
+}
+
 export async function getServerState(id: number) {
   return await api("compute/get-server-state", { id });
 }

src/packages/frontend/compute/clone.tsx

@@ -0,0 +1,110 @@
+/*
+Clone compute server config.  Entirely done client side.
+
+Main issue is DNS can't be the same.
+
+In the future we will ALSO support a checkbox to clone the data too, but not yet.
+*/
+
+import { Alert, Modal } from "antd";
+import { useState } from "react";
+import ShowError from "@cocalc/frontend/components/error";
+import Inline from "./inline";
+import { createServer, getServers } from "./api";
+
+export default function Clone({ id, project_id, close }) {
+  const [error, setError] = useState<string>("");
+  const [loading, setLoading] = useState<boolean>(false);
+
+  return (
+    <Modal
+      open
+      confirmLoading={loading}
+      onCancel={close}
+      onOk={async () => {
+        try {
+          setLoading(true);
+          await createClone({ id, project_id });
+          close();
+        } catch (err) {
+          setError(`${err}`);
+        } finally {
+          setLoading(false);
+        }
+      }}
+      title={
+        <>
+          Clone Compute Server <Inline id={id} />
+        </>
+      }
+      okText={
+        <>
+          Clon{loading ? "ing" : "e"} <Inline id={id} />
+        </>
+      }
+    >
+      <ShowError
+        error={error}
+        setError={setError}
+        style={{ marginBottom: "15px" }}
+      />
+      This makes a new deprovisioned compute server that is configured as close
+      as possibleto this this compute server.{" "}
+      <Alert
+        showIcon
+        style={{ margin: "15px" }}
+        type="warning"
+        message="The underlying disk is not copied."
+      />
+      After cloning the compute server, you can edit anything about its
+      configuration before starting it.
+    </Modal>
+  );
+}
+
+async function createClone({
+  id,
+  project_id,
+}: {
+  id: number;
+  project_id: string;
+}) {
+  const servers = await getServers({ project_id });
+  const titles = new Set(servers.map((x) => x.title));
+  const allDns = new Set(
+    servers.filter((x) => x.configuration.dns).map((x) => x.configuration.dns),
+  );
+  let server;
+  let done = false;
+  for (const s of servers) {
+    if (s.id == id) {
+      server = s;
+      done = true;
+      break;
+    }
+  }
+  if (!done) {
+    throw Error(`no such compute server ${id}`);
+  }
+  let n = 1;
+  let title = `Clone of ${server.title}`;
+  if (titles.has(title)) {
+    while (titles.has(title + ` (${n})`)) {
+      n += 1;
+    }
+    title = title + ` (${n})`;
+  }
+  server.title = title;
+
+  delete server.configuration.authToken;
+
+  if (server.configuration.dns) {
+    n = 1;
+    while (allDns.has(server.configuration.dns + `-${n}`)) {
+      n += 1;
+    }
+    server.configuration.dns = server.configuration.dns + `-${n}`;
+  }
+
+  await createServer({ ...server });
+}

src/packages/frontend/compute/menu.tsx

@@ -17,6 +17,7 @@ import { setServerConfiguration } from "@cocalc/frontend/compute/api";
 import ShowError from "@cocalc/frontend/components/error";
 import openSupportTab from "@cocalc/frontend/support/open";
 import { setTemplate } from "@cocalc/frontend/compute/api";
+import CloneModal from "./clone";
 
 function getServer({ id, project_id }) {
   return redux
@@ -259,6 +260,12 @@ function getItems({
     label: is_owner ? "Settings" : "Details...",
   };
 
+  const clone = {
+    key: "clone",
+    icon: <Icon name="copy" />,
+    label: "Clone...",
+  };
+
   return [
     titleAndColor,
     //     {
@@ -287,6 +294,7 @@ function getItems({
     },
     settings,
     options,
+    clone,
     {
       type: "divider",
     },
@@ -439,6 +447,12 @@ export default function Menu({
             );
             break;
 
+          case "clone":
+            setModal(
+              <CloneModal id={id} project_id={project_id} close={close} />,
+            );
+            break;
+
           case "serial-console-log":
             setModal(
               <SerialLogModal