bin/interpret-mail: can now delete packages

1 files changed, 8 insertions, 2 deletions

diff --git a/bin/interpret-mail b/bin/interpret-mail
index 4890e4c..9c9c7dc 100755
--- a/bin/interpret-mail
+++ b/bin/interpret-mail
@@ -5,8 +5,6 @@
 # shellcheck source=../lib/load-configuration
 . "${0%/*}/../lib/load-configuration"
 
-# TODO: enable email interface to delete packages
-
 # shellcheck disable=SC2016
 if [ $# -ne 0 ]; then
   >&2 echo ''
@@ -275,6 +273,14 @@ if [ -s "${tmp_dir}/copy-to-build-support" ]; then
   fi
 fi
 
+if [ -s "${tmp_dir}/delete" ]; then
+  if run_and_log_on_error 'delete' "${base_dir}/bin/delete-packages" --wait; then
+    log 1 'delete' 1
+  else
+    log 0 'delete' 0
+  fi
+fi
+
 if [ -s "${tmp_dir}/prioritize" ]; then
   if run_and_log_on_error 'prioritize' "${base_dir}/bin/prioritize-build-list" --wait "${tmp_dir}/prioritize"; then
     log 1 'prioritize' "$(cat "${tmp_dir}/prioritize")"