delete redundant crlf

main
Daniel Barlow 2022-09-16 21:44:02 +01:00
parent 81e6837294
commit 5f71c2158f
1 changed files with 7 additions and 7 deletions

14
sms.fnl
View File

@ -149,7 +149,7 @@
(tx (.. "AT+CMGS=" (string.format "%d" (/ (# pdu) 2)) "\r\n")) (tx (.. "AT+CMGS=" (string.format "%d" (/ (# pdu) 2)) "\r\n"))
(expect ">" "ERROR") (expect ">" "ERROR")
(tx payload) (tx payload)
(tx "\026\r\n") (tx "\026")
(expect "OK")))) (expect "OK"))))
(fn new-sender [{: device : smsc : verbose}] (fn new-sender [{: device : smsc : verbose}]
@ -166,12 +166,12 @@
(tcsetattr 0 termios) (tcsetattr 0 termios)
(tcdrain) (tcdrain)
(command "AT") (command "AT") ; hello ?
(command "AT&F") ; revert to defaults (command "AT&F") ; revert to defaults
(command "ATE0") ; disable command echo (command "ATE0") ; disable command echo
(command "AT+CMEE=1") ;print CME errors (command "AT+CMEE=1") ; print CME errors
(command (.. "AT+CSCA=\"" smsc "\",145\r\n")) ;set SMSC (command (.. "AT+CSCA=\"" smsc "\",145")) ; set SMSC
(command "AT+CMGF=0")) ;SMS PDU mode (command "AT+CMGF=0")) ; expect SMS data in PDU mode
{:send send-message :device device :smsc smsc :fd fd})) {:send send-message :device device :smsc smsc :fd fd}))