diff --git a/sms.fnl b/sms.fnl index 2aa9726..bb145aa 100644 --- 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}))