From 6e63efa3645353bc0549f5f152ef811fff5d644c Mon Sep 17 00:00:00 2001
From: lassulus <git@lassul.us>
Date: Sun, 30 Jul 2023 21:42:56 +0200
Subject: [PATCH] htgen-paste: add DELETE

---
 krebs/5pkgs/simple/htgen-paste/src/htgen-paste | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/krebs/5pkgs/simple/htgen-paste/src/htgen-paste b/krebs/5pkgs/simple/htgen-paste/src/htgen-paste
index 74266e53a..9d57d07ee 100644
--- a/krebs/5pkgs/simple/htgen-paste/src/htgen-paste
+++ b/krebs/5pkgs/simple/htgen-paste/src/htgen-paste
@@ -22,7 +22,17 @@ case "$Method $abs_path" in
         printf 'Connection: close\r\n'
         printf 'Content-Length: %d\r\n' $(wc -c < $item)
         printf '\r\n'
-        cat $item
+        cat "$item"
+        exit
+      fi
+    ;;
+  "DELETE /"[0-9a-z]*)
+      if item=$(find_item ${abs_path#/}); then
+        printf 'HTTP/1.1 200 OK\r\n'
+        printf 'Server: %s\r\n' "$Server"
+        printf 'Connection: close\r\n'
+        printf '\r\n'
+        rm "$item"
         exit
       fi
     ;;