From 545ec609e38517ce6bf68e47a48991ede15f61a4 Mon Sep 17 00:00:00 2001
From: Ben Sima <ben@bsima.me>
Date: Mon, 18 Jul 2022 09:46:20 -0400
Subject: Move sentry function to Sentry.sh

---
 Biz/Bild/ShellHook.sh | 45 ---------------------------------------------
 Biz/Sentry.sh         | 40 ++++++++++++++++++++++++++++++++++++++++
 2 files changed, 40 insertions(+), 45 deletions(-)
 create mode 100644 Biz/Sentry.sh

diff --git a/Biz/Bild/ShellHook.sh b/Biz/Bild/ShellHook.sh
index c385016..4ab1920 100644
--- a/Biz/Bild/ShellHook.sh
+++ b/Biz/Bild/ShellHook.sh
@@ -13,12 +13,6 @@
     echo "   push   send a namespace to the cloud"
     echo "   ship   lint, bild, and push one (or all) namespace(s)"
   }
-#
-# color codes for use with printf
-  export RED='\033[0;31m'
-  export GRN='\033[0;32m'
-  export YEL='\033[0;33m'
-  export NC='\033[0m' # No Color
 #
   alias runghc="runghc --ghc-arg=-i\$BIZ_ROOT"
   alias guile="guile -L \$BIZ_ROOT"
@@ -29,45 +23,6 @@
   function deps() {
     niv --sources-file "$BIZ_ROOT/Biz/Bild/Sources.json" "$@"
   }
-#
-  function pie() {
-    runghc Biz.Pie "$@"
-  }
-#
-  function run-sentry() {
-    urls=(
-      http://que.run
-      https://dragons.dev
-      https://simatime.com
-      https://tv.simatime.com
-      https://bsima.me
-      # https://herocomics.app
-    )
-    for url in "${urls[@]}"
-    do
-      code=$(curl -L --max-time 10 --silent --show-error --insecure \
-        --output /dev/null \
-        --write-out "%{http_code}" "$url")
-      case "$code" in
-        2[0-9][0-9]) color=${GRN};;
-        3[0-9][0-9]) color=${YEL};;
-        4[0-9][0-9]) color=${YEL};;
-        5[0-9][0-9]) color=${RED};;
-        *)           color=${RED};;
-      esac
-      printf "%b%s  %s%b\n" "$color" "$code" "$url" "$NC"
-    done
-  }
-#
-  function sentry() {
-    while true
-    do
-      clear
-      printf "%s  sentry\n\n" "$(date +%Y.%m.%d..%H.%M)"
-      run-sentry
-      sleep 120
-    done
-  }
 #
 # Poor man's ci
   alias ci="$BIZ_ROOT/Biz/Ide/hooks/pre-push"
diff --git a/Biz/Sentry.sh b/Biz/Sentry.sh
new file mode 100644
index 0000000..5c9e0ac
--- /dev/null
+++ b/Biz/Sentry.sh
@@ -0,0 +1,40 @@
+#!/usr/bin/env bash
+#
+# monitors our infrastructure
+#
+#
+# color codes for use with printf
+  export RED='\033[0;31m'
+  export GRN='\033[0;32m'
+  export YEL='\033[0;33m'
+  export NC='\033[0m' # No Color
+#
+  while true
+  do
+    clear
+    printf "%s  sentry\n\n" "$(date +%Y.%m.%d..%H.%M)"
+    urls=(
+      http://que.run
+      https://dragons.dev
+      https://simatime.com
+      https://tv.simatime.com
+      https://bsima.me
+      # https://herocomics.app
+    )
+    for url in "${urls[@]}"
+    do
+      code=$(curl -L --max-time 10 --silent --show-error --insecure \
+        --output /dev/null \
+        --write-out "%{http_code}" "$url")
+      case "$code" in
+        2[0-9][0-9]) color=${GRN};;
+        3[0-9][0-9]) color=${YEL};;
+        4[0-9][0-9]) color=${YEL};;
+        5[0-9][0-9]) color=${RED};;
+        *)           color=${RED};;
+      esac
+      printf "%b%s  %s%b\n" "$color" "$code" "$url" "$NC"
+    done
+    sleep 120
+  done
+##
-- 
cgit v1.2.3