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"))
(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}))