From a7ae434c48c14bfde46a871455a3aa2ac0b81376 Mon Sep 17 00:00:00 2001
From: Karen Arutyunov <karen@codesynthesis.com>
Date: Sun, 26 May 2024 13:46:55 +0300
Subject: Add CI cancel handler

---
 mod/ci-common.cxx | 36 ++++++++++++++++++++++++++++++++++++
 1 file changed, 36 insertions(+)

(limited to 'mod/ci-common.cxx')

diff --git a/mod/ci-common.cxx b/mod/ci-common.cxx
index 7c41a7b..c0ef89f 100644
--- a/mod/ci-common.cxx
+++ b/mod/ci-common.cxx
@@ -720,4 +720,40 @@ namespace brep
 
     return r;
   }
+
+  bool ci_start::
+  cancel (const basic_mark&,
+          const basic_mark&,
+          const basic_mark* trace,
+          const string& reason,
+          odb::core::database& db,
+          const string& tid) const
+  {
+    using namespace odb::core;
+
+    assert (!transaction::has_current ());
+
+    transaction tr (db.begin ());
+
+    shared_ptr<build_tenant> t (db.find<build_tenant> (tid));
+
+    if (t == nullptr)
+      return false;
+
+    if (!t->archived)
+    {
+      t->archived = true;
+      db.update (t);
+    }
+
+    tr.commit ();
+
+    if (trace != nullptr)
+      *trace << "CI request " << tid << " is canceled: "
+             << (reason.size () < 50
+                 ? reason
+                 : string (reason, 0, 50) + "...");
+
+    return true;
+  }
 }
-- 
cgit v1.1