SMS sending works for basic chars
won't send { } [ ]: hypothesis, because these characters can't
be represented in one byte of the GSM charset
This commit is contained in:
parent
1928ff0681
commit
3bb143b6f4
230
GSM0338.TXT
Normal file
230
GSM0338.TXT
Normal file
@ -0,0 +1,230 @@
|
||||
# GSM0338.TXT
|
||||
# Date: 2015-12-02 23:55:00 GMT [KW]
|
||||
# © 2015 Unicode®, Inc.
|
||||
# For terms of use, see http://www.unicode.org/terms_of_use.html
|
||||
#
|
||||
# Name: GSM 03.38 to Unicode
|
||||
# Unicode version: 3.0
|
||||
# Table version: 2.0
|
||||
# Table format: Format A
|
||||
# Date: 2009 Nov 10 (header updated: 2015 December 02)
|
||||
# Authors: Ken Whistler
|
||||
# Kent Karlsson
|
||||
# Markus Kuhn
|
||||
#
|
||||
# General notes:
|
||||
#
|
||||
# This table contains the data the Unicode Consortium has on how
|
||||
# ETSI GSM 03.38 7-bit default alphabet characters map into Unicode.
|
||||
# This mapping is based on ETSI TS 100 900 V7.2.0 (1999-07), with
|
||||
# a correction of 0x09 to *small* c-cedilla, instead of *capital*
|
||||
# C-cedilla.
|
||||
#
|
||||
# Format: Three tab-separated columns
|
||||
# Column #1 is the ETSI GSM 03.38 7-bit default alphabet
|
||||
# code (in hex as 0xXX, or 0xXXXX for double-byte
|
||||
# sequences)
|
||||
# Column #2 is the Unicode scalar value (in hex as 0xXXXX)
|
||||
# Column #3 the Unicode name (follows a comment sign, '#')
|
||||
#
|
||||
# The entries are in ETSI GSM 03.38 7-bit default alphabet code order.
|
||||
#
|
||||
# Note that ETSI GSM 03.38 also allows for the use of UCS-2 (UTF-16
|
||||
# restricted to the BMP) in GSM/SMS messages.
|
||||
#
|
||||
# Note also that there are commented Greek mappings for some
|
||||
# capital Latin characters. This follows from the clear intent
|
||||
# of the ETSI GSM 03.38 to have glyph coverage for the uppercase
|
||||
# Greek alphabet by reusing Latin letters that have the same
|
||||
# form as an uppercase Greek letter. Conversion implementations
|
||||
# should be aware of this fact.
|
||||
#
|
||||
# The ETSI GSM 03.38 specification shows an uppercase C-cedilla
|
||||
# glyph at 0x09. This may be the result of limited display
|
||||
# capabilities for handling characters with descenders. However, the
|
||||
# language coverage intent is clearly for the lowercase c-cedilla, as shown
|
||||
# in the mapping below. The mapping for uppercase C-cedilla is shown
|
||||
# in a commented line in the mapping table.
|
||||
#
|
||||
# The ESC character 0x1B is
|
||||
# mapped to the no-break space character, unless it is part of a
|
||||
# valid ESC sequence, to facilitate round-trip compatibility in
|
||||
# the presence of unknown ESC sequences.
|
||||
#
|
||||
# 0x00 is NULL (when followed only by 0x00 up to the
|
||||
# end of (fixed byte length) message, possibly also up to
|
||||
# FORM FEED. But 0x00 is also the code for COMMERCIAL AT
|
||||
# when some other character (CARRIAGE RETURN if nothing else)
|
||||
# comes after the 0x00.
|
||||
#
|
||||
# Version history
|
||||
# 1.0 version: first creation
|
||||
# 1.1 version: fixed problem with the wrong line being a comment,
|
||||
# added text regarding 0x00's interpretation,
|
||||
# added second mapping for C-cedilla,
|
||||
# added mapping of 0x1B escape to NBSP for display.
|
||||
# 1.2 version: fixed fallback mapping for 0x03A5.
|
||||
#
|
||||
# 2.0 version: updates to copyright notice and terms of use; no
|
||||
# changes to character mappings
|
||||
#
|
||||
# Updated versions of this file may be found in:
|
||||
# http://www.unicode.org/Public/MAPPINGS/
|
||||
#
|
||||
# Any comments or problems, contact us at:
|
||||
# http://www.unicode.org/reporting.html
|
||||
#
|
||||
0x00 0x0040 # COMMERCIAL AT
|
||||
#0x00 0x0000 # NULL (see note above)
|
||||
0x01 0x00A3 # POUND SIGN
|
||||
0x02 0x0024 # DOLLAR SIGN
|
||||
0x03 0x00A5 # YEN SIGN
|
||||
0x04 0x00E8 # LATIN SMALL LETTER E WITH GRAVE
|
||||
0x05 0x00E9 # LATIN SMALL LETTER E WITH ACUTE
|
||||
0x06 0x00F9 # LATIN SMALL LETTER U WITH GRAVE
|
||||
0x07 0x00EC # LATIN SMALL LETTER I WITH GRAVE
|
||||
0x08 0x00F2 # LATIN SMALL LETTER O WITH GRAVE
|
||||
0x09 0x00E7 # LATIN SMALL LETTER C WITH CEDILLA
|
||||
#0x09 0x00C7 # LATIN CAPITAL LETTER C WITH CEDILLA (see note above)
|
||||
0x0A 0x000A # LINE FEED
|
||||
0x0B 0x00D8 # LATIN CAPITAL LETTER O WITH STROKE
|
||||
0x0C 0x00F8 # LATIN SMALL LETTER O WITH STROKE
|
||||
0x0D 0x000D # CARRIAGE RETURN
|
||||
0x0E 0x00C5 # LATIN CAPITAL LETTER A WITH RING ABOVE
|
||||
0x0F 0x00E5 # LATIN SMALL LETTER A WITH RING ABOVE
|
||||
0x10 0x0394 # GREEK CAPITAL LETTER DELTA
|
||||
0x11 0x005F # LOW LINE
|
||||
0x12 0x03A6 # GREEK CAPITAL LETTER PHI
|
||||
0x13 0x0393 # GREEK CAPITAL LETTER GAMMA
|
||||
0x14 0x039B # GREEK CAPITAL LETTER LAMDA
|
||||
0x15 0x03A9 # GREEK CAPITAL LETTER OMEGA
|
||||
0x16 0x03A0 # GREEK CAPITAL LETTER PI
|
||||
0x17 0x03A8 # GREEK CAPITAL LETTER PSI
|
||||
0x18 0x03A3 # GREEK CAPITAL LETTER SIGMA
|
||||
0x19 0x0398 # GREEK CAPITAL LETTER THETA
|
||||
0x1A 0x039E # GREEK CAPITAL LETTER XI
|
||||
0x1B 0x00A0 # ESCAPE TO EXTENSION TABLE (or displayed as NBSP, see note above)
|
||||
0x1B0A 0x000C # FORM FEED
|
||||
0x1B14 0x005E # CIRCUMFLEX ACCENT
|
||||
0x1B28 0x007B # LEFT CURLY BRACKET
|
||||
0x1B29 0x007D # RIGHT CURLY BRACKET
|
||||
0x1B2F 0x005C # REVERSE SOLIDUS
|
||||
0x1B3C 0x005B # LEFT SQUARE BRACKET
|
||||
0x1B3D 0x007E # TILDE
|
||||
0x1B3E 0x005D # RIGHT SQUARE BRACKET
|
||||
0x1B40 0x007C # VERTICAL LINE
|
||||
0x1B65 0x20AC # EURO SIGN
|
||||
0x1C 0x00C6 # LATIN CAPITAL LETTER AE
|
||||
0x1D 0x00E6 # LATIN SMALL LETTER AE
|
||||
0x1E 0x00DF # LATIN SMALL LETTER SHARP S (German)
|
||||
0x1F 0x00C9 # LATIN CAPITAL LETTER E WITH ACUTE
|
||||
0x20 0x0020 # SPACE
|
||||
0x21 0x0021 # EXCLAMATION MARK
|
||||
0x22 0x0022 # QUOTATION MARK
|
||||
0x23 0x0023 # NUMBER SIGN
|
||||
0x24 0x00A4 # CURRENCY SIGN
|
||||
0x25 0x0025 # PERCENT SIGN
|
||||
0x26 0x0026 # AMPERSAND
|
||||
0x27 0x0027 # APOSTROPHE
|
||||
0x28 0x0028 # LEFT PARENTHESIS
|
||||
0x29 0x0029 # RIGHT PARENTHESIS
|
||||
0x2A 0x002A # ASTERISK
|
||||
0x2B 0x002B # PLUS SIGN
|
||||
0x2C 0x002C # COMMA
|
||||
0x2D 0x002D # HYPHEN-MINUS
|
||||
0x2E 0x002E # FULL STOP
|
||||
0x2F 0x002F # SOLIDUS
|
||||
0x30 0x0030 # DIGIT ZERO
|
||||
0x31 0x0031 # DIGIT ONE
|
||||
0x32 0x0032 # DIGIT TWO
|
||||
0x33 0x0033 # DIGIT THREE
|
||||
0x34 0x0034 # DIGIT FOUR
|
||||
0x35 0x0035 # DIGIT FIVE
|
||||
0x36 0x0036 # DIGIT SIX
|
||||
0x37 0x0037 # DIGIT SEVEN
|
||||
0x38 0x0038 # DIGIT EIGHT
|
||||
0x39 0x0039 # DIGIT NINE
|
||||
0x3A 0x003A # COLON
|
||||
0x3B 0x003B # SEMICOLON
|
||||
0x3C 0x003C # LESS-THAN SIGN
|
||||
0x3D 0x003D # EQUALS SIGN
|
||||
0x3E 0x003E # GREATER-THAN SIGN
|
||||
0x3F 0x003F # QUESTION MARK
|
||||
0x40 0x00A1 # INVERTED EXCLAMATION MARK
|
||||
0x41 0x0041 # LATIN CAPITAL LETTER A
|
||||
#0x41 0x0391 # GREEK CAPITAL LETTER ALPHA
|
||||
0x42 0x0042 # LATIN CAPITAL LETTER B
|
||||
#0x42 0x0392 # GREEK CAPITAL LETTER BETA
|
||||
0x43 0x0043 # LATIN CAPITAL LETTER C
|
||||
0x44 0x0044 # LATIN CAPITAL LETTER D
|
||||
0x45 0x0045 # LATIN CAPITAL LETTER E
|
||||
#0x45 0x0395 # GREEK CAPITAL LETTER EPSILON
|
||||
0x46 0x0046 # LATIN CAPITAL LETTER F
|
||||
0x47 0x0047 # LATIN CAPITAL LETTER G
|
||||
0x48 0x0048 # LATIN CAPITAL LETTER H
|
||||
#0x48 0x0397 # GREEK CAPITAL LETTER ETA
|
||||
0x49 0x0049 # LATIN CAPITAL LETTER I
|
||||
#0x49 0x0399 # GREEK CAPITAL LETTER IOTA
|
||||
0x4A 0x004A # LATIN CAPITAL LETTER J
|
||||
0x4B 0x004B # LATIN CAPITAL LETTER K
|
||||
#0x4B 0x039A # GREEK CAPITAL LETTER KAPPA
|
||||
0x4C 0x004C # LATIN CAPITAL LETTER L
|
||||
0x4D 0x004D # LATIN CAPITAL LETTER M
|
||||
#0x4D 0x039C # GREEK CAPITAL LETTER MU
|
||||
0x4E 0x004E # LATIN CAPITAL LETTER N
|
||||
#0x4E 0x039D # GREEK CAPITAL LETTER NU
|
||||
0x4F 0x004F # LATIN CAPITAL LETTER O
|
||||
#0x4F 0x039F # GREEK CAPITAL LETTER OMICRON
|
||||
0x50 0x0050 # LATIN CAPITAL LETTER P
|
||||
#0x50 0x03A1 # GREEK CAPITAL LETTER RHO
|
||||
0x51 0x0051 # LATIN CAPITAL LETTER Q
|
||||
0x52 0x0052 # LATIN CAPITAL LETTER R
|
||||
0x53 0x0053 # LATIN CAPITAL LETTER S
|
||||
0x54 0x0054 # LATIN CAPITAL LETTER T
|
||||
#0x54 0x03A4 # GREEK CAPITAL LETTER TAU
|
||||
0x55 0x0055 # LATIN CAPITAL LETTER U
|
||||
0x56 0x0056 # LATIN CAPITAL LETTER V
|
||||
0x57 0x0057 # LATIN CAPITAL LETTER W
|
||||
0x58 0x0058 # LATIN CAPITAL LETTER X
|
||||
#0x58 0x03A7 # GREEK CAPITAL LETTER CHI
|
||||
0x59 0x0059 # LATIN CAPITAL LETTER Y
|
||||
#0x59 0x03A5 # GREEK CAPITAL LETTER UPSILON
|
||||
0x5A 0x005A # LATIN CAPITAL LETTER Z
|
||||
#0x5A 0x0396 # GREEK CAPITAL LETTER ZETA
|
||||
0x5B 0x00C4 # LATIN CAPITAL LETTER A WITH DIAERESIS
|
||||
0x5C 0x00D6 # LATIN CAPITAL LETTER O WITH DIAERESIS
|
||||
0x5D 0x00D1 # LATIN CAPITAL LETTER N WITH TILDE
|
||||
0x5E 0x00DC # LATIN CAPITAL LETTER U WITH DIAERESIS
|
||||
0x5F 0x00A7 # SECTION SIGN
|
||||
0x60 0x00BF # INVERTED QUESTION MARK
|
||||
0x61 0x0061 # LATIN SMALL LETTER A
|
||||
0x62 0x0062 # LATIN SMALL LETTER B
|
||||
0x63 0x0063 # LATIN SMALL LETTER C
|
||||
0x64 0x0064 # LATIN SMALL LETTER D
|
||||
0x65 0x0065 # LATIN SMALL LETTER E
|
||||
0x66 0x0066 # LATIN SMALL LETTER F
|
||||
0x67 0x0067 # LATIN SMALL LETTER G
|
||||
0x68 0x0068 # LATIN SMALL LETTER H
|
||||
0x69 0x0069 # LATIN SMALL LETTER I
|
||||
0x6A 0x006A # LATIN SMALL LETTER J
|
||||
0x6B 0x006B # LATIN SMALL LETTER K
|
||||
0x6C 0x006C # LATIN SMALL LETTER L
|
||||
0x6D 0x006D # LATIN SMALL LETTER M
|
||||
0x6E 0x006E # LATIN SMALL LETTER N
|
||||
0x6F 0x006F # LATIN SMALL LETTER O
|
||||
0x70 0x0070 # LATIN SMALL LETTER P
|
||||
0x71 0x0071 # LATIN SMALL LETTER Q
|
||||
0x72 0x0072 # LATIN SMALL LETTER R
|
||||
0x73 0x0073 # LATIN SMALL LETTER S
|
||||
0x74 0x0074 # LATIN SMALL LETTER T
|
||||
0x75 0x0075 # LATIN SMALL LETTER U
|
||||
0x76 0x0076 # LATIN SMALL LETTER V
|
||||
0x77 0x0077 # LATIN SMALL LETTER W
|
||||
0x78 0x0078 # LATIN SMALL LETTER X
|
||||
0x79 0x0079 # LATIN SMALL LETTER Y
|
||||
0x7A 0x007A # LATIN SMALL LETTER Z
|
||||
0x7B 0x00E4 # LATIN SMALL LETTER A WITH DIAERESIS
|
||||
0x7C 0x00F6 # LATIN SMALL LETTER O WITH DIAERESIS
|
||||
0x7D 0x00F1 # LATIN SMALL LETTER N WITH TILDE
|
||||
0x7E 0x00FC # LATIN SMALL LETTER U WITH DIAERESIS
|
||||
0x7F 0x00E0 # LATIN SMALL LETTER A WITH GRAVE
|
||||
10
Makefile
Normal file
10
Makefile
Normal file
@ -0,0 +1,10 @@
|
||||
.DELETE_ON_ERROR:
|
||||
|
||||
default: unicode-to-gsm.lua
|
||||
|
||||
install: default
|
||||
mkdir -p $(TARGET)/lib/
|
||||
cp *.{fnl,lua} $(TARGET)/lib
|
||||
|
||||
unicode-to-gsm.lua: GSM0338.TXT
|
||||
sed '/^#/d' < $^ |awk 'BEGIN {print "return {"} { if($$1 != "#") { print "[" strtonum($$2) "]=" $$1 ", -- " substr($$0, match($$0,$$2)) }} END {print "}"}' >$@
|
||||
13
default.nix
13
default.nix
@ -5,9 +5,20 @@ let lua = lua5_3.withPackages (ps: [
|
||||
ps.http
|
||||
ps.luaposix
|
||||
]);
|
||||
inherit makeWrapper;
|
||||
fennel = pkgs.fennel.override { inherit lua; };
|
||||
in stdenv.mkDerivation {
|
||||
pname = "grafana-sms-alert";
|
||||
version = "0.1";
|
||||
src = ./.;
|
||||
buildInputs = [lua (fennel.override { inherit lua; }) ];
|
||||
makeFlags = [ "TARGET=${placeholder "out"}" ];
|
||||
postInstall = ''
|
||||
lua_path="`lua -e 'print(package.path)'`"
|
||||
lua_cpath="`lua -e 'print(package.cpath)'`"
|
||||
|
||||
makeWrapper ${fennel}/bin/fennel $out/bin/grafana-sms-alert \
|
||||
--add-flags "$out/lib/main.fnl"
|
||||
'';
|
||||
buildInputs = [lua fennel];
|
||||
nativeBuildInputs = [ makeWrapper ];
|
||||
}
|
||||
|
||||
21
handler.fnl
Normal file
21
handler.fnl
Normal file
@ -0,0 +1,21 @@
|
||||
(local json (require :dkjson))
|
||||
(local { : view } (require :fennel))
|
||||
(local sms (require :sms))
|
||||
|
||||
(local unistd (require :posix.unistd))
|
||||
|
||||
(fn send-sms [body]
|
||||
(print :send-sms body)
|
||||
(sms.send "+447000123456" body)
|
||||
"OK")
|
||||
|
||||
(fn handle [s]
|
||||
(let [(m pos err) (json.decode s 1 nil)]
|
||||
(when m
|
||||
(send-sms
|
||||
(.. m.title " " (. (. m.alerts 1) :valueString))))
|
||||
"ok"))
|
||||
;
|
||||
;;;; {"receiver":"","status":"firing","alerts":[{"status":"firing","labels":{"alertname":"TestAlert","instance":"Grafana"},"annotations":{"summary":"Notification test"},"startsAt":"2022-09-13T21:14:29.77765882+01:00","endsAt":"0001-01-01T00:00:00Z","generatorURL":"","fingerprint":"57c6d9296de2ad39","silenceURL":"http://garf.telent.net:3002/alerting/silence/new?alertmanager=grafana\u0026matcher=alertname%3DTestAlert\u0026matcher=instance%3DGrafana","dashboardURL":"","panelURL":"","valueString":"[ metric='foo' labels={instance=bar} value=10 ]"}],"groupLabels":{},"commonLabels":{"alertname":"TestAlert","instance":"Grafana"},"commonAnnotations":{"summary":"Notification test"},"externalURL":"http://garf.telent.net:3002/","version":"1","groupKey":"{alertname=\"TestAlert\", instance=\"Grafana\"}2022-09-13 21:14:29.77765882 +0100 BST m=+644632.184951212","truncatedAlerts":0,"orgId":1,"title":"[FIRING:1] (TestAlert Grafana)","state":"alerting","message":"**Firing**\n\nValue: [ metric='foo' labels={instance=bar} value=10 ]\nLabels:\n - alertname = TestAlert\n - instance = Grafana\nAnnotations:\n - summary = Notification test\nSilence: http://garf.telent.net:3002/alerting/silence/new?alertmanager=grafana\u0026matcher=alertname%3DTestAlert\u0026matcher=instance%3DGrafana\n"}
|
||||
|
||||
{: handle}
|
||||
11
main.fnl
11
main.fnl
@ -1,12 +1,13 @@
|
||||
(local server (require :server))
|
||||
(local { : view } (require :fennel))
|
||||
(local handler (require :handler))
|
||||
|
||||
(fn handler [payload]
|
||||
"OK")
|
||||
(local sms (require :sms))
|
||||
|
||||
(sms.send "+447000123456" "test 123")
|
||||
(os.exit 0)
|
||||
|
||||
(doto (server.new handler)
|
||||
(doto (server.new handler.handle)
|
||||
(: :listen)
|
||||
(: :loop))
|
||||
(: :loop 60))
|
||||
|
||||
(io.stdin:read)
|
||||
|
||||
16
server.fnl
16
server.fnl
@ -1,18 +1,16 @@
|
||||
(local server (require :http.server))
|
||||
(local headers (require :http.headers))
|
||||
(local json (require :dkjson))
|
||||
|
||||
(fn on-stream [handler sv out]
|
||||
(let [hdrs (out:get_headers)
|
||||
method (hdrs:get ":method")
|
||||
path (or (hdrs:get ":path") "/")
|
||||
rh (headers.new)]
|
||||
(rh:append ":status" :200)
|
||||
(rh:append :content-type :text/plain)
|
||||
(out:write_headers rh false)
|
||||
(let [(obj pos err) (json.decode (out:get_body_as_string) 1 nil)
|
||||
ret (handler obj)]
|
||||
(out:write_chunk ret true))))
|
||||
path (or (hdrs:get ":path") "/")]
|
||||
(let [body (handler (out:get_body_as_string))]
|
||||
(doto (headers.new)
|
||||
(: :append ":status" :200)
|
||||
(: :append :content-type :text/plain)
|
||||
(out:write_headers false))
|
||||
(out:write_chunk body true))))
|
||||
|
||||
(fn new-server [handler]
|
||||
(server.listen
|
||||
|
||||
94
sms.fnl
Normal file
94
sms.fnl
Normal file
@ -0,0 +1,94 @@
|
||||
(local fcntl (require "posix.fcntl"))
|
||||
(local posix (require "posix"))
|
||||
(local { : read : write } (require "posix.unistd"))
|
||||
(local {: tcgetattr : tcsetattr : tcdrain
|
||||
: CLOCAL : CREAD
|
||||
: ICANON : ECHO : ECHOE : ISIG
|
||||
: OPOST
|
||||
} (require "posix.termio"))
|
||||
(local { : nanosleep } (require "posix.time"))
|
||||
(local { : view } (require "fennel"))
|
||||
|
||||
(local gsm-char (require :unicode-to-gsm))
|
||||
|
||||
(fn escape-for-logging [s]
|
||||
(s:gsub "%c" (fn [x] (.. "{" (string.byte x) "}"))))
|
||||
|
||||
(fn tx [fd s]
|
||||
(write fd s)
|
||||
(print (.. ">>> " (escape-for-logging s)))
|
||||
(nanosleep {:tv_sec 0 :tv_nsec (* 10 1000 1000)}))
|
||||
|
||||
(fn chars [i]
|
||||
(if (not i)
|
||||
""
|
||||
(< i 256)
|
||||
(string.char i)
|
||||
(.. (string.char (rshift i 8)) (string.char (band i 0xff)))))
|
||||
|
||||
(fn unicode-to-gsm [s]
|
||||
(s:gsub "." (fn [c] (chars (. gsm-char (string.byte c))))))
|
||||
|
||||
;(print (escape-for-logging (unicode-to-gsm "hello")))
|
||||
;(print (escape-for-logging (unicode-to-gsm "{he@llo}€")))
|
||||
|
||||
|
||||
(fn expect [fd pattern]
|
||||
(let [b (read fd 1024)]
|
||||
(if (> (# b) 0)
|
||||
(do
|
||||
(print (.. "<<< " (escape-for-logging b)))
|
||||
(if (string.find b pattern)
|
||||
(do (print "found" pattern) true)
|
||||
(expect fd pattern)))
|
||||
nil)))
|
||||
|
||||
(fn send-sms [number body]
|
||||
(let [fd (fcntl.open "/dev/serial/by-id/usb-HUAWEI_HUAWEI_HiLink-if00-port0" posix.O_RDWR)
|
||||
termios (tcgetattr fd)]
|
||||
(tset termios :cflag (bor termios.cflag CLOCAL CREAD))
|
||||
(tset termios :lflag (band termios.lflag
|
||||
(bnot ICANON)
|
||||
(bnot ECHO)
|
||||
(bnot ECHOE)
|
||||
(bnot ISIG)))
|
||||
(tset termios :oflag (band termios.oflag ( bnot OPOST)))
|
||||
(tcsetattr fd 0 termios)
|
||||
;; opt->c_cc[VMIN] = 1;
|
||||
;; opt->c_cc[VTIME] = 10;
|
||||
(tcdrain fd)
|
||||
(doto fd
|
||||
(tx "AT\r\n")
|
||||
(expect "OK")
|
||||
|
||||
(tx "AT&F\r\n")
|
||||
(expect "OK")
|
||||
|
||||
(tx "ATE0\r\n") ;disable command echo
|
||||
(expect "OK")
|
||||
|
||||
(tx "AT+CMEE=1\r\n") ;print CME errors
|
||||
(expect "OK")
|
||||
|
||||
(tx "AT+CMGF=1\r\n") ;SMS text mode (not PDU mode)
|
||||
(expect "OK")
|
||||
|
||||
(tx "AT+CSCS=\"GSM\"\r\n") ; default character set
|
||||
(expect "OK")
|
||||
|
||||
(tx "AT+CSMP=17,12,0,0\r\n") ; message valid for 12*5 minutes
|
||||
(expect "OK")
|
||||
|
||||
(tx "AT+CSCA=\"+447958879879\",145\r\n") ;set SMSC
|
||||
(expect "OK")
|
||||
|
||||
(tx (.. "AT+CMGS=\"" number "\"\r\n"))
|
||||
(expect ">")
|
||||
|
||||
;; (tx (unicode-to-gsm body))
|
||||
(tx body)
|
||||
(tx "\026\r\n")
|
||||
(expect "OK"))))
|
||||
|
||||
|
||||
{ :send send-sms }
|
||||
140
unicode-to-gsm.lua
Normal file
140
unicode-to-gsm.lua
Normal file
@ -0,0 +1,140 @@
|
||||
return {
|
||||
[64]=0x00, -- 0x0040 # COMMERCIAL AT
|
||||
[163]=0x01, -- 0x00A3 # POUND SIGN
|
||||
[36]=0x02, -- 0x0024 # DOLLAR SIGN
|
||||
[165]=0x03, -- 0x00A5 # YEN SIGN
|
||||
[232]=0x04, -- 0x00E8 # LATIN SMALL LETTER E WITH GRAVE
|
||||
[233]=0x05, -- 0x00E9 # LATIN SMALL LETTER E WITH ACUTE
|
||||
[249]=0x06, -- 0x00F9 # LATIN SMALL LETTER U WITH GRAVE
|
||||
[236]=0x07, -- 0x00EC # LATIN SMALL LETTER I WITH GRAVE
|
||||
[242]=0x08, -- 0x00F2 # LATIN SMALL LETTER O WITH GRAVE
|
||||
[231]=0x09, -- 0x00E7 # LATIN SMALL LETTER C WITH CEDILLA
|
||||
[10]=0x0A, -- 0x000A # LINE FEED
|
||||
[216]=0x0B, -- 0x00D8 # LATIN CAPITAL LETTER O WITH STROKE
|
||||
[248]=0x0C, -- 0x00F8 # LATIN SMALL LETTER O WITH STROKE
|
||||
[13]=0x0D, -- 0x000D # CARRIAGE RETURN
|
||||
[197]=0x0E, -- 0x00C5 # LATIN CAPITAL LETTER A WITH RING ABOVE
|
||||
[229]=0x0F, -- 0x00E5 # LATIN SMALL LETTER A WITH RING ABOVE
|
||||
[916]=0x10, -- 0x0394 # GREEK CAPITAL LETTER DELTA
|
||||
[95]=0x11, -- 0x005F # LOW LINE
|
||||
[934]=0x12, -- 0x03A6 # GREEK CAPITAL LETTER PHI
|
||||
[915]=0x13, -- 0x0393 # GREEK CAPITAL LETTER GAMMA
|
||||
[923]=0x14, -- 0x039B # GREEK CAPITAL LETTER LAMDA
|
||||
[937]=0x15, -- 0x03A9 # GREEK CAPITAL LETTER OMEGA
|
||||
[928]=0x16, -- 0x03A0 # GREEK CAPITAL LETTER PI
|
||||
[936]=0x17, -- 0x03A8 # GREEK CAPITAL LETTER PSI
|
||||
[931]=0x18, -- 0x03A3 # GREEK CAPITAL LETTER SIGMA
|
||||
[920]=0x19, -- 0x0398 # GREEK CAPITAL LETTER THETA
|
||||
[926]=0x1A, -- 0x039E # GREEK CAPITAL LETTER XI
|
||||
[160]=0x1B, -- 0x00A0 # ESCAPE TO EXTENSION TABLE (or displayed as NBSP, see note above)
|
||||
[12]=0x1B0A, -- 0x000C # FORM FEED
|
||||
[94]=0x1B14, -- 0x005E # CIRCUMFLEX ACCENT
|
||||
[123]=0x1B28, -- 0x007B # LEFT CURLY BRACKET
|
||||
[125]=0x1B29, -- 0x007D # RIGHT CURLY BRACKET
|
||||
[92]=0x1B2F, -- 0x005C # REVERSE SOLIDUS
|
||||
[91]=0x1B3C, -- 0x005B # LEFT SQUARE BRACKET
|
||||
[126]=0x1B3D, -- 0x007E # TILDE
|
||||
[93]=0x1B3E, -- 0x005D # RIGHT SQUARE BRACKET
|
||||
[124]=0x1B40, -- 0x007C # VERTICAL LINE
|
||||
[8364]=0x1B65, -- 0x20AC # EURO SIGN
|
||||
[198]=0x1C, -- 0x00C6 # LATIN CAPITAL LETTER AE
|
||||
[230]=0x1D, -- 0x00E6 # LATIN SMALL LETTER AE
|
||||
[223]=0x1E, -- 0x00DF # LATIN SMALL LETTER SHARP S (German)
|
||||
[201]=0x1F, -- 0x00C9 # LATIN CAPITAL LETTER E WITH ACUTE
|
||||
[32]=0x20, -- 0x0020 # SPACE
|
||||
[33]=0x21, -- 0x0021 # EXCLAMATION MARK
|
||||
[34]=0x22, -- 0x0022 # QUOTATION MARK
|
||||
[35]=0x23, -- 0x0023 # NUMBER SIGN
|
||||
[164]=0x24, -- 0x00A4 # CURRENCY SIGN
|
||||
[37]=0x25, -- 0x0025 # PERCENT SIGN
|
||||
[38]=0x26, -- 0x0026 # AMPERSAND
|
||||
[39]=0x27, -- 0x0027 # APOSTROPHE
|
||||
[40]=0x28, -- 0x0028 # LEFT PARENTHESIS
|
||||
[41]=0x29, -- 0x0029 # RIGHT PARENTHESIS
|
||||
[42]=0x2A, -- 0x002A # ASTERISK
|
||||
[43]=0x2B, -- 0x002B # PLUS SIGN
|
||||
[44]=0x2C, -- 0x002C # COMMA
|
||||
[45]=0x2D, -- 0x002D # HYPHEN-MINUS
|
||||
[46]=0x2E, -- 0x002E # FULL STOP
|
||||
[47]=0x2F, -- 0x002F # SOLIDUS
|
||||
[48]=0x30, -- 0x0030 # DIGIT ZERO
|
||||
[49]=0x31, -- 0x0031 # DIGIT ONE
|
||||
[50]=0x32, -- 0x0032 # DIGIT TWO
|
||||
[51]=0x33, -- 0x0033 # DIGIT THREE
|
||||
[52]=0x34, -- 0x0034 # DIGIT FOUR
|
||||
[53]=0x35, -- 0x0035 # DIGIT FIVE
|
||||
[54]=0x36, -- 0x0036 # DIGIT SIX
|
||||
[55]=0x37, -- 0x0037 # DIGIT SEVEN
|
||||
[56]=0x38, -- 0x0038 # DIGIT EIGHT
|
||||
[57]=0x39, -- 0x0039 # DIGIT NINE
|
||||
[58]=0x3A, -- 0x003A # COLON
|
||||
[59]=0x3B, -- 0x003B # SEMICOLON
|
||||
[60]=0x3C, -- 0x003C # LESS-THAN SIGN
|
||||
[61]=0x3D, -- 0x003D # EQUALS SIGN
|
||||
[62]=0x3E, -- 0x003E # GREATER-THAN SIGN
|
||||
[63]=0x3F, -- 0x003F # QUESTION MARK
|
||||
[161]=0x40, -- 0x00A1 # INVERTED EXCLAMATION MARK
|
||||
[65]=0x41, -- 0x0041 # LATIN CAPITAL LETTER A
|
||||
[66]=0x42, -- 0x0042 # LATIN CAPITAL LETTER B
|
||||
[67]=0x43, -- 0x0043 # LATIN CAPITAL LETTER C
|
||||
[68]=0x44, -- 0x0044 # LATIN CAPITAL LETTER D
|
||||
[69]=0x45, -- 0x0045 # LATIN CAPITAL LETTER E
|
||||
[70]=0x46, -- 0x0046 # LATIN CAPITAL LETTER F
|
||||
[71]=0x47, -- 0x0047 # LATIN CAPITAL LETTER G
|
||||
[72]=0x48, -- 0x0048 # LATIN CAPITAL LETTER H
|
||||
[73]=0x49, -- 0x0049 # LATIN CAPITAL LETTER I
|
||||
[74]=0x4A, -- 0x004A # LATIN CAPITAL LETTER J
|
||||
[75]=0x4B, -- 0x004B # LATIN CAPITAL LETTER K
|
||||
[76]=0x4C, -- 0x004C # LATIN CAPITAL LETTER L
|
||||
[77]=0x4D, -- 0x004D # LATIN CAPITAL LETTER M
|
||||
[78]=0x4E, -- 0x004E # LATIN CAPITAL LETTER N
|
||||
[79]=0x4F, -- 0x004F # LATIN CAPITAL LETTER O
|
||||
[80]=0x50, -- 0x0050 # LATIN CAPITAL LETTER P
|
||||
[81]=0x51, -- 0x0051 # LATIN CAPITAL LETTER Q
|
||||
[82]=0x52, -- 0x0052 # LATIN CAPITAL LETTER R
|
||||
[83]=0x53, -- 0x0053 # LATIN CAPITAL LETTER S
|
||||
[84]=0x54, -- 0x0054 # LATIN CAPITAL LETTER T
|
||||
[85]=0x55, -- 0x0055 # LATIN CAPITAL LETTER U
|
||||
[86]=0x56, -- 0x0056 # LATIN CAPITAL LETTER V
|
||||
[87]=0x57, -- 0x0057 # LATIN CAPITAL LETTER W
|
||||
[88]=0x58, -- 0x0058 # LATIN CAPITAL LETTER X
|
||||
[89]=0x59, -- 0x0059 # LATIN CAPITAL LETTER Y
|
||||
[90]=0x5A, -- 0x005A # LATIN CAPITAL LETTER Z
|
||||
[196]=0x5B, -- 0x00C4 # LATIN CAPITAL LETTER A WITH DIAERESIS
|
||||
[214]=0x5C, -- 0x00D6 # LATIN CAPITAL LETTER O WITH DIAERESIS
|
||||
[209]=0x5D, -- 0x00D1 # LATIN CAPITAL LETTER N WITH TILDE
|
||||
[220]=0x5E, -- 0x00DC # LATIN CAPITAL LETTER U WITH DIAERESIS
|
||||
[167]=0x5F, -- 0x00A7 # SECTION SIGN
|
||||
[191]=0x60, -- 0x00BF # INVERTED QUESTION MARK
|
||||
[97]=0x61, -- 0x0061 # LATIN SMALL LETTER A
|
||||
[98]=0x62, -- 0x0062 # LATIN SMALL LETTER B
|
||||
[99]=0x63, -- 0x0063 # LATIN SMALL LETTER C
|
||||
[100]=0x64, -- 0x0064 # LATIN SMALL LETTER D
|
||||
[101]=0x65, -- 0x0065 # LATIN SMALL LETTER E
|
||||
[102]=0x66, -- 0x0066 # LATIN SMALL LETTER F
|
||||
[103]=0x67, -- 0x0067 # LATIN SMALL LETTER G
|
||||
[104]=0x68, -- 0x0068 # LATIN SMALL LETTER H
|
||||
[105]=0x69, -- 0x0069 # LATIN SMALL LETTER I
|
||||
[106]=0x6A, -- 0x006A # LATIN SMALL LETTER J
|
||||
[107]=0x6B, -- 0x006B # LATIN SMALL LETTER K
|
||||
[108]=0x6C, -- 0x006C # LATIN SMALL LETTER L
|
||||
[109]=0x6D, -- 0x006D # LATIN SMALL LETTER M
|
||||
[110]=0x6E, -- 0x006E # LATIN SMALL LETTER N
|
||||
[111]=0x6F, -- 0x006F # LATIN SMALL LETTER O
|
||||
[112]=0x70, -- 0x0070 # LATIN SMALL LETTER P
|
||||
[113]=0x71, -- 0x0071 # LATIN SMALL LETTER Q
|
||||
[114]=0x72, -- 0x0072 # LATIN SMALL LETTER R
|
||||
[115]=0x73, -- 0x0073 # LATIN SMALL LETTER S
|
||||
[116]=0x74, -- 0x0074 # LATIN SMALL LETTER T
|
||||
[117]=0x75, -- 0x0075 # LATIN SMALL LETTER U
|
||||
[118]=0x76, -- 0x0076 # LATIN SMALL LETTER V
|
||||
[119]=0x77, -- 0x0077 # LATIN SMALL LETTER W
|
||||
[120]=0x78, -- 0x0078 # LATIN SMALL LETTER X
|
||||
[121]=0x79, -- 0x0079 # LATIN SMALL LETTER Y
|
||||
[122]=0x7A, -- 0x007A # LATIN SMALL LETTER Z
|
||||
[228]=0x7B, -- 0x00E4 # LATIN SMALL LETTER A WITH DIAERESIS
|
||||
[246]=0x7C, -- 0x00F6 # LATIN SMALL LETTER O WITH DIAERESIS
|
||||
[241]=0x7D, -- 0x00F1 # LATIN SMALL LETTER N WITH TILDE
|
||||
[252]=0x7E, -- 0x00FC # LATIN SMALL LETTER U WITH DIAERESIS
|
||||
[224]=0x7F, -- 0x00E0 # LATIN SMALL LETTER A WITH GRAVE
|
||||
}
|
||||
Loading…
Reference in New Issue
Block a user