From d9fd3e5e6d29768c8701268a6ba940fe4574ebc2 Mon Sep 17 00:00:00 2001
From: Keith Whyte <keith@rhizomatica.org>
Date: Wed, 4 Jan 2023 02:06:13 +0100
Subject: [PATCH] Add BTS script for RT tx power control

---
 modules/rhizo_base/files/SysmoBTS/provision.sh |  4 ++--
 modules/rhizo_base/files/SysmoBTS/txp          | 16 ++++++++++++++++
 2 files changed, 18 insertions(+), 2 deletions(-)
 create mode 100644 modules/rhizo_base/files/SysmoBTS/txp

diff --git a/modules/rhizo_base/files/SysmoBTS/provision.sh b/modules/rhizo_base/files/SysmoBTS/provision.sh
index 2762a06..93ae515 100644
--- a/modules/rhizo_base/files/SysmoBTS/provision.sh
+++ b/modules/rhizo_base/files/SysmoBTS/provision.sh
@@ -24,8 +24,8 @@ for bts in "${!BTS[@]}" ; do
   ssh $SSH_OPTS root@${BTS[$bts]} "echo nameserver 1.1.1.1 > /etc/resolv.conf; echo nameserver 9.9.9.9 >> /etc/resolv.conf"
   scp $SSH_OPTS osmo-pcu.cfg root@${BTS[$bts]}:/etc/osmocom/osmo-pcu.cfg
   scp $SSH_OPTS osmo-bts_$bts.cfg root@${BTS[$bts]}:/etc/osmocom/osmo-bts-sysmo.cfg
-  scp $SSH_OPTS pcu bts mgr root@${BTS[$bts]}:/bin/
-  ssh $SSH_OPTS root@${BTS[$bts]} "chmod 750 /bin/pcu /bin/bts /bin/mgr"
+  scp $SSH_OPTS pcu bts mgr txp root@${BTS[$bts]}:/bin/
+  ssh $SSH_OPTS root@${BTS[$bts]} "chmod 750 /bin/pcu /bin/bts /bin/mgr /bin/txp"
   ssh $SSH_OPTS root@${BTS[$bts]} "expect -v 2>/dev/null"
 
   if [ "$?" != "0" ]; then
diff --git a/modules/rhizo_base/files/SysmoBTS/txp b/modules/rhizo_base/files/SysmoBTS/txp
new file mode 100644
index 0000000..36e4d00
--- /dev/null
+++ b/modules/rhizo_base/files/SysmoBTS/txp
@@ -0,0 +1,16 @@
+#!/usr/bin/expect -f
+
+set pwr [lindex $argv 0]
+set neg [lindex $argv 1]
+if { $pwr == "" } { set pwr 24 }
+if { $neg > 0 } { set neg "-" }
+spawn telnet localhost 4241
+expect ">"
+send "enable\r"
+expect "#"
+
+send "trx 0 tx-power $neg$pwr\r"
+expect "#"
+
+send "exit\r"
+expect "#"