|
|
|
@ -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})) |
|
|
|
|
|
|
|
|
|