commit 5f71c2158fe027ae37db5ee703b40a6769cbc3f7 parent 81e68372945b9d0fe629f21136359e46c583c42a Author: Daniel Barlow <dan@telent.net> Date: Fri, 16 Sep 2022 21:44:02 +0100 delete redundant crlf Diffstat:
| M | sms.fnl | | | 14 | +++++++------- |
1 file changed, 7 insertions(+), 7 deletions(-)
diff --git a/sms.fnl b/sms.fnl @@ -149,7 +149,7 @@ (tx (.. "AT+CMGS=" (string.format "%d" (/ (# pdu) 2)) "\r\n")) (expect ">" "ERROR") (tx payload) - (tx "\026\r\n") + (tx "\026") (expect "OK")))) (fn new-sender [{: device : smsc : verbose}] @@ -166,12 +166,12 @@ (tcsetattr 0 termios) (tcdrain) - (command "AT") - (command "AT&F") ; revert to defaults - (command "ATE0") ; disable command echo - (command "AT+CMEE=1") ;print CME errors - (command (.. "AT+CSCA=\"" smsc "\",145\r\n")) ;set SMSC - (command "AT+CMGF=0")) ;SMS PDU mode + (command "AT") ; hello ? + (command "AT&F") ; revert to defaults + (command "ATE0") ; disable command echo + (command "AT+CMEE=1") ; print CME errors + (command (.. "AT+CSCA=\"" smsc "\",145")) ; set SMSC + (command "AT+CMGF=0")) ; expect SMS data in PDU mode {:send send-message :device device :smsc smsc :fd fd}))