feat: Node cordon button in the UI (#573)

* feat: ui node cordon button

* improve visuals

Author: magik6k

web/api/webrpc/cluster.go

@@ -393,3 +393,19 @@ func (a *WebRPC) ClusterNodeInfo(ctx context.Context, id int64) (*MachineInfo, e
 
 	return &summaries[0], nil
 }
+
+func (a *WebRPC) Cordon(ctx context.Context, id int64) error {
+	_, err := a.deps.DB.Exec(ctx, `UPDATE harmony_machines SET unschedulable = $1 WHERE id = $2`, true, id)
+	if err != nil {
+		return xerrors.Errorf("cordon failed: %w", err)
+	}
+	return nil
+}
+
+func (a *WebRPC) Uncordon(ctx context.Context, id int64) error {
+	_, err := a.deps.DB.Exec(ctx, `UPDATE harmony_machines SET unschedulable = $1 WHERE id = $2`, false, id)
+	if err != nil {
+		return xerrors.Errorf("uncordon failed: %w", err)
+	}
+	return nil
+}

web/static/cluster-machines.mjs

@@ -24,6 +24,16 @@ customElements.define('cluster-machines', class ClusterMachines extends LitEleme
         this.detailed = e.target.checked;
     }
 
+    async _cordon(id) {
+        await RPCCall('Cordon', [id]);
+        this.loadData();
+    }
+
+    async _uncordon(id) {
+        await RPCCall('Uncordon', [id]);
+        this.loadData();
+    }
+
     render() {
         return html`
             <link
@@ -65,7 +75,7 @@ customElements.define('cluster-machines', class ClusterMachines extends LitEleme
                                     }
                                     <th>Last Contact</th>
                                     <th>Uptime</th>
-                                    <th>Schedulable</th>
+                                    <th>Scheduling</th>
                                     ${
                                       this.detailed
                                         ? html`<th>Tasks Supported</th>
@@ -99,11 +109,22 @@ customElements.define('cluster-machines', class ClusterMachines extends LitEleme
                                     }
                                     <td>${item.SinceContact}</td>
                                     <td>${item.Uptime}</td>
+
                                     <td>
+                                        <a href="javascript:void(0)" @click=${() => this._cordon(item.ID)} style="${item.Unschedulable ? 'opacity: 0.3; pointer-events: none;' : ''}" >
+                                            <svg xmlns="http://www.w3.org/2000/svg" width="16" height="16" fill="currentColor" class="bi bi-pause" viewBox="0 0 16 16">
+                                                <path d="M6 3.5a.5.5 0 0 1 .5.5v8a.5.5 0 0 1-1 0V4a.5.5 0 0 1 .5-.5m4 0a.5.5 0 0 1 .5.5v8a.5.5 0 0 1-1 0V4a.5.5 0 0 1 .5-.5"/>
+                                            </svg>
+                                        </a>
+                                        <a href="javascript:void(0)" @click=${() => this._uncordon(item.ID)} style="${!item.Unschedulable ? 'opacity: 0.3; pointer-events: none;' : ''}">
+                                            <svg xmlns="http://www.w3.org/2000/svg" width="16" height="16" fill="currentColor" class="bi bi-play" viewBox="0 0 16 16">
+                                                <path d="M10.804 8 5 4.633v6.734zm.792-.696a.802.802 0 0 1 0 1.392l-6.363 3.692C4.713 12.69 4 12.345 4 11.692V4.308c0-.653.713-.998 1.233-.696z"/>
+                                            </svg>
+                                        </a>
                                         ${!item.Unschedulable
-                                            ? html`<span class="success">ok</span>`
+                                            ? html`<span class="success" style="white-space: nowrap;">enabled</span>`
                                             : html`
-                                                <span class="warning">
+                                                <span class="warning" style="white-space: nowrap;">
                                                     ${
                                                       item.RunningTasks > 0
                                                         ? html`cordoned (${item.RunningTasks} tasks still running)`