delete redundant crlf
This commit is contained in:
parent
81e6837294
commit
5f71c2158f
14
sms.fnl
14
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}))
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user