From 065622e5fe26640ab49a079b900c6102104e777a Mon Sep 17 00:00:00 2001
From: openoms <oms@tuta.io>
Date: Sat, 22 May 2021 15:51:22 +0100
Subject: [PATCH] add 99clnMenu.sh

---
 home.admin/00mainMenu.sh |  22 ++++++-
 home.admin/99clnMenu.sh  | 122 +++++++++++++++++++++++++++++++++++++++
 2 files changed, 141 insertions(+), 3 deletions(-)
 create mode 100644 home.admin/99clnMenu.sh

diff --git a/home.admin/00mainMenu.sh b/home.admin/00mainMenu.sh
index 57552a740..f5e6048f5 100755
--- a/home.admin/00mainMenu.sh
+++ b/home.admin/00mainMenu.sh
@@ -40,6 +40,14 @@ confirmation()
 # get the local network IP to be displayed on the LCD
 source <(/home/admin/config.scripts/internet.sh status local)
 
+if [ ${chain} = test ];then
+  netprefix="t"
+elif [ ${chain} = sig ];then
+  netprefix="s"
+elif [ ${chain} = main ];then
+  netprefix=""
+fi
+
 # BASIC MENU INFO
 HEIGHT=19
 WIDTH=64
@@ -171,7 +179,12 @@ fi
 
 # Basic Options
 OPTIONS+=(INFO "RaspiBlitz Status Screen")
-OPTIONS+=(LIGHTNING "LND Wallet Options")
+OPTIONS+=(LND "LND Wallet Options")
+if [ "${${netprefix}cln}" == "on" ]; then
+  OPTIONS+=(CLN "C-lightning Wallet Options")
+  HEIGHT=$((HEIGHT+1))
+  CHOICE_HEIGHT=$((CHOICE_HEIGHT+1))
+fi
 OPTIONS+=(SETTINGS "Node Settings & Options")
 OPTIONS+=(SERVICES "Additional Apps & Services")
 OPTIONS+=(SYSTEM "Monitoring & Configuration")
@@ -232,8 +245,11 @@ case $CHOICE in
               exit 0
             fi
             ;;
-        LIGHTNING)
-            /home/admin/99lightningMenu.sh
+        LND)
+            /home/admin/99lndMenu.sh
+            ;;
+        CLN)
+            /home/admin/99clnMenu.sh ${chain}net
             ;;
         CONNECT)
             /home/admin/99connectMenu.sh
diff --git a/home.admin/99clnMenu.sh b/home.admin/99clnMenu.sh
new file mode 100644
index 000000000..e9efe21ef
--- /dev/null
+++ b/home.admin/99clnMenu.sh
@@ -0,0 +1,122 @@
+#!/bin/bash
+
+# get raspiblitz config
+echo "# get raspiblitz config"
+source /home/admin/raspiblitz.info
+source /mnt/hdd/raspiblitz.conf
+
+if [ $# -gt 0 ];then
+  NETWORK=$1
+else
+  NETWORK=${chain}net
+fi
+
+# get the local network IP to be displayed on the LCD
+source <(/home/admin/config.scripts/internet.sh status local)
+
+# BASIC MENU INFO
+HEIGHT=13
+WIDTH=64
+CHOICE_HEIGHT=7
+BACKTITLE="RaspiBlitz"
+TITLE="C-Lightning Options"
+MENU=""
+OPTIONS=()
+
+OPTIONS+=(FUNDING "Fund your C-Lightning Wallet")
+#TODO OPTIONS+=(PEERING "Connect to a Peer")
+#TODO OPTIONS+=(CHANNEL "Open a Channel with Peer")
+#TODO OPTIONS+=(SEND "Pay an Invoice/PaymentRequest")
+#TODO OPTIONS+=(RECEIVE "Create Invoice/PaymentRequest")
+
+if [ "${chain}" = "main" ]; then
+#TODO OPTIONS+=(lnbalance "Detailed Wallet Balances")
+#TODO OPTIONS+=(lnchannels "Lightning Channel List")
+#TODO OPTIONS+=(lnfwdreport "Lightning Forwarding Events Report")
+  HEIGHT=$((HEIGHT+3))
+  CHOICE_HEIGHT=$((CHOICE_HEIGHT+3))  
+fi
+
+#TODO OPTIONS+=(NAME "Change Name/Alias of Node")
+
+openChannels=$(sudo -u bitcoin /usr/local/bin/lncli --chain=${network} --network=${chain}net listchannels 2>/dev/null | jq '.[] | length')
+if [ ${#openChannels} -gt 0 ] && [ ${openChannels} -gt 0 ]; then
+#TODO   OPTIONS+=(CLOSEALL "Close all open Channels")
+  HEIGHT=$((HEIGHT+1))
+  CHOICE_HEIGHT=$((CHOICE_HEIGHT+1))  
+fi
+
+#TODO OPTIONS+=(CASHOUT "Remove Funds from LND")
+
+CHOICE=$(dialog --clear \
+                --backtitle "$BACKTITLE" \
+                --title "$TITLE" \
+                --ok-label "Select" \
+                --cancel-label "Main menu" \
+                --menu "$MENU" \
+                $HEIGHT $WIDTH $CHOICE_HEIGHT \
+                "${OPTIONS[@]}" \
+                2>&1 >/dev/tty)
+
+case $CHOICE in
+        lnbalance)
+            clear
+            echo "*** YOUR SATOSHI BALANCES ***"
+            /home/admin/config.scripts/lnd.balance.sh ${network}
+            echo "Press ENTER to return to main menu."
+            read key
+            ;;
+        lnchannels)
+            clear
+            echo "*** YOUR LIGHTNING CHANNELS ***"
+            echo ""
+            echo "Capacity -> total sats in the channel (their side + your side)"
+            echo "Commit-Fee -> the fee that's charged if either side of the channel closes"
+            echo "Balance-Local -> sats on your side of the channel (outbound liquidity)"
+            echo "Balance-Remote -> sats on their side of the channel (inbound liquidity)"
+            echo "Fee-Base -> fixed fee (in millisatoshis) per forwarding on channel"
+            echo "Fee-PerMil -> amount based fee (millisatoshis per 1 satoshi) on forwarding"
+            /home/admin/config.scripts/lnd.channels.sh ${network}
+            echo "Press ENTER to return to main menu."
+            read key
+            ;;
+        lnfwdreport)
+            /home/admin/config.scripts/lnd.fwdreport.sh -menu
+            echo "Press ENTER to return to main menu."
+            read key
+            ;;
+        PEERING)
+            /home/admin/BBconnectPeer.sh
+            ;;
+        FUNDING)
+            /home/admin/BBfundWallet.sh cln $NETWORK
+            ;;
+        CASHOUT)
+            /home/admin/BBcashoutWallet.sh
+            ;;
+        CHANNEL)
+            /home/admin/BBopenChannel.sh
+            ;;
+        SEND)
+            /home/admin/BBpayInvoice.sh
+            ;;
+        RECEIVE)
+            /home/admin/BBcreateInvoice.sh
+            ;;
+        NAME)
+            sudo /home/admin/config.scripts/lnd.setname.sh
+            noreboot=$?
+            if [ "${noreboot}" = "0" ]; then
+              sudo -u bitcoin ${network}-cli stop
+              echo "Press ENTER to Reboot."
+              read key
+              sudo /home/admin/XXshutdown.sh reboot
+              exit 0
+            fi
+            ;;
+        CLOSEALL)
+            /home/admin/BBcloseAllChannels.sh
+            echo "Press ENTER to return to main menu."
+            read key
+            ;;
+esac