From a07383566755a30fc03374f2bc83d78d3f6dad54 Mon Sep 17 00:00:00 2001
From: Christian Hesse <mail@eworm.de>
Date: Wed, 1 Feb 2023 11:09:34 +0100
Subject: telegram-chat:  ... and give a hint on failure

---
 telegram-chat | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/telegram-chat b/telegram-chat
index 2f60a62..1c10fcd 100644
--- a/telegram-chat
+++ b/telegram-chat
@@ -100,11 +100,14 @@ $WaitFullyConnected;
             :local File ("tmpfs/telegram-chat/" . [ $GetRandom20CharAlNum 6 ]);
             $MkDir "tmpfs/telegram-chat";
             $LogPrintExit2 info $0 ("Running command: " . $Text) false;
-            :exec script=(":do {\n" . $Text . "\n} on-error={};" . \
+            :exec script=(":do {\n" . $Text . "\n} on-error={ :execute script=\":put\" file=" . $File . ".failed };" . \
               ":execute script=\":put\" file=" . $File . ".done") file=$File;
             :if ([ $WaitForFile ($File . ".done.txt") 200 ] = false) do={
               :set State "The command did not finish, still running in background.\n\n";
             }
+            :if ([ :len [ /file/find where name=($File . ".failed.txt") ] ] > 0) do={
+              :set State "The command failed with an error!\n\n";
+            }
             :local Content [ /file/get ($File . ".txt") content ];
             $SendTelegram2 ({ origin=$0; silent=false; \
               subject=([ $SymbolForNotification "speech-balloon" ] . "Telegram Chat"); \
-- 
cgit v1.2.3-54-g00ecf