From 56825ad323c3e3186f25d43bef9bd822f55824d7 Mon Sep 17 00:00:00 2001
From: Bob Mottram <bob@freedombone.net>
Date: Wed, 4 Apr 2018 12:28:09 +0100
Subject: [PATCH] peertube configuration menu style

---
 src/freedombone-app-peertube | 31 +++++++++++++------------------
 1 file changed, 13 insertions(+), 18 deletions(-)

diff --git a/src/freedombone-app-peertube b/src/freedombone-app-peertube
index 832eb5b0..86fa94b5 100755
--- a/src/freedombone-app-peertube
+++ b/src/freedombone-app-peertube
@@ -382,31 +382,26 @@ function peertube_import_videos {
 }
 
 function configure_interactive_peertube {
+    W=(1 $"Set administrator email address"
+       2 $"Disable or enable signups"
+       3 $"Import videos from YouTube/Vimeo/Dailymotion"
+       4 $"Import video from file")
+
     while true
     do
-        data=$(mktemp 2>/dev/null)
-        dialog --backtitle $"Freedombone Control Panel" \
-               --title $"PeerTube" \
-               --radiolist $"Choose an operation:" 12 70 6 \
-               1 $"Set administrator email address" off \
-               2 $"Disable or enable signups" off \
-               3 $"Import videos from YouTube/Vimeo/Dailymotion" off \
-               4 $"Import video from file" off \
-               5 $"Exit" on 2> "$data"
-        sel=$?
-        case $sel in
-            1) break;;
-            255) break;;
-        esac
-        case $(cat "$data") in
+        # shellcheck disable=SC2068
+        selection=$(dialog --backtitle $"Freedombone Administrator Control Panel" --title $"PeerTube" --menu $"Choose an operation, or ESC to exit:" 24 60 24 "${W[@]}" 3>&2 2>&1 1>&3)
+
+        if [ ! "$selection" ]; then
+            break
+        fi
+
+        case $selection in
             1) peertube_set_admin_email;;
             2) peertube_disable_signups;;
             3) peertube_import_videos;;
             4) peertube_import_from_file;;
-            5) rm -f "$data"
-               break;;
         esac
-        rm -f "$data"
     done
 }