add link to 6+ months dedicated VM's

Author: williamstein

src/packages/frontend/compute/menu.tsx

@@ -236,6 +236,14 @@ function getItems({
           </A>
         ),
       },
+      {
+        type: "divider",
+      },
+      {
+        key: "dedicated",
+        icon: <Icon name="bank" />,
+        label: "Dedicated Always On Server for 6+ Months...",
+      },
     ],
   };
 
@@ -494,6 +502,14 @@ export default function Menu({
             });
             break;
 
+          case "dedicated":
+            openSupportTab({
+              type: "question",
+              subject: `Compute Server (Global Id: ${id}; Project Specific Id: ${title?.project_specific_id})`,
+              body: `I need a dedicated always on compute server for at least 6 months, and am interested in significant discounts.\nI would love to tell you about my problem, and see if CoCalc can help!`,
+            });
+            break;
+
           default:
             setError(`not implemented -- '${cmd}'`);
         }