logic and flags update
This commit is contained in:
359
shell/send_sms.sh
Executable file
359
shell/send_sms.sh
Executable file
@ -0,0 +1,359 @@
|
||||
#!/bin/bash
|
||||
# send_sms.sh — SMS PDU constructor, bitwise fields
|
||||
# Зависимости: bash, stty, grep, iconv, xxd (для --ucs2)
|
||||
|
||||
set -u
|
||||
|
||||
# ══════════════════════════════════════════════════════════════════
|
||||
# ЗНАЧЕНИЯ ПО УМОЛЧАНИЮ
|
||||
# ══════════════════════════════════════════════════════════════════
|
||||
PORT="/dev/ttyUSB2"
|
||||
SMSC="+79585370690"
|
||||
LOG="/pkg/gnu/unitprint/simd/var/modem_sms.log"
|
||||
|
||||
ENCODING="gsm" # gsm | ucs2
|
||||
CLASS="" # "" = не указан (класс не задан), 0..3
|
||||
MR=0 # TP-Message-Reference 0..255
|
||||
REPORT=0 # TP-SRR: 1 = запрашивать delivery report
|
||||
UDHI=0 # TP-UDHI: 1 = в тексте есть UDH (concatenation)
|
||||
RP=0 # TP-RP: request reply path
|
||||
RD=0 # TP-RD: reject duplicates
|
||||
VALIDITY_MIN="" # TP-VP, минуты (относительный формат)
|
||||
USE_SMSC=1 # 0 = не включать SMSC в PDU (возьмётся из AT+CSCA)
|
||||
TOA=91 # 91 = international (+), 81 = national
|
||||
DRY_RUN=0
|
||||
RECEIVER=""
|
||||
TEXT=""
|
||||
|
||||
# ══════════════════════════════════════════════════════════════════
|
||||
# USAGE
|
||||
# ══════════════════════════════════════════════════════════════════
|
||||
usage() {
|
||||
cat <<'EOF'
|
||||
Использование:
|
||||
send_sms.sh [ОПЦИИ] <НОМЕР> [ТЕКСТ]
|
||||
|
||||
Если ТЕКСТ не задан — генерируется "OTP <6 случайных цифр>".
|
||||
|
||||
Кодировка (взаимоисключающие):
|
||||
--gsm GSM 7-bit, по умолчанию (латиница/цифры)
|
||||
--ucs2 UCS2 / UTF-16BE (кириллица и др.)
|
||||
--encoding=gsm|ucs2 то же самое
|
||||
|
||||
Класс сообщения (DCS):
|
||||
--class=0..3 0=Flash, 1=ME, 2=SIM, 3=TE (без явного указания
|
||||
класс НЕ передаётся → обычный SMS)
|
||||
--flash синоним --class=0
|
||||
|
||||
Заголовок TPDU (FO):
|
||||
--report TP-SRR=1, запрос отчёта о доставке (медленнее!)
|
||||
--udhi TP-UDHI=1, в тексте есть UDH
|
||||
--reply-path TP-RP=1
|
||||
--reject-duplicates TP-RD=1
|
||||
--mr=N TP-MR, 0..255 (по умолчанию 0)
|
||||
--validity=MIN TP-VP, срок жизни в минутах (до 10080 = 7 суток)
|
||||
|
||||
Адресация / транспорт:
|
||||
--port=/dev/ttyUSB2 порт модема
|
||||
--smsc=+7... SMSC (по умолчанию из конфига)
|
||||
--no-smsc не включать SMSC в PDU (используется AT+CSCA)
|
||||
--national TOA=81, НОМЕР передавать без '+'
|
||||
--log=/path файл для сырых ответов модема
|
||||
|
||||
Прочее:
|
||||
--dry-run напечатать PDU и выйти, ничего не отправлять
|
||||
-h, --help эта справка
|
||||
EOF
|
||||
}
|
||||
|
||||
die() { echo "ERROR: $*" >&2; exit 1; }
|
||||
|
||||
# ══════════════════════════════════════════════════════════════════
|
||||
# РАЗБОР АРГУМЕНТОВ
|
||||
# ══════════════════════════════════════════════════════════════════
|
||||
POSITIONAL=()
|
||||
while (( $# > 0 )); do
|
||||
case "$1" in
|
||||
-h|--help) usage; exit 0 ;;
|
||||
--gsm) ENCODING="gsm" ;;
|
||||
--ucs2) ENCODING="ucs2" ;;
|
||||
--encoding=*) ENCODING="${1#*=}" ;;
|
||||
--encoding) shift; ENCODING="${1:-}" ;;
|
||||
--class=*) CLASS="${1#*=}" ;;
|
||||
--class) shift; CLASS="${1:-}" ;;
|
||||
--flash) CLASS="0" ;;
|
||||
--mr=*) MR="${1#*=}" ;;
|
||||
--report) REPORT=1 ;;
|
||||
--udhi) UDHI=1 ;;
|
||||
--reply-path) RP=1 ;;
|
||||
--reject-duplicates) RD=1 ;;
|
||||
--validity=*) VALIDITY_MIN="${1#*=}" ;;
|
||||
--port=*) PORT="${1#*=}" ;;
|
||||
--smsc=*) SMSC="${1#*=}" ;;
|
||||
--log=*) LOG="${1#*=}" ;;
|
||||
--no-smsc) USE_SMSC=0 ;;
|
||||
--national) TOA=81 ;;
|
||||
--dry-run) DRY_RUN=1 ;;
|
||||
--*) die "неизвестный флаг: $1 (см. --help)" ;;
|
||||
*) POSITIONAL+=("$1") ;;
|
||||
esac
|
||||
shift
|
||||
done
|
||||
|
||||
(( ${#POSITIONAL[@]} >= 1 )) || { usage; exit 1; }
|
||||
RECEIVER="${POSITIONAL[0]}"
|
||||
RAND_NUM=$(printf '%06d' $(( RANDOM % 1000000 )))
|
||||
TEXT="${POSITIONAL[1]:-OTP $RAND_NUM}"
|
||||
|
||||
[[ "$ENCODING" == "gsm" || "$ENCODING" == "ucs2" ]] || die "--encoding: только gsm | ucs2"
|
||||
[[ "$CLASS" == "" || "$CLASS" =~ ^[0-3]$ ]] || die "--class: только 0..3"
|
||||
[[ "$MR" =~ ^[0-9]+$ && "$MR" -le 255 ]] || die "--mr: 0..255"
|
||||
if [[ -n "$VALIDITY_MIN" ]]; then
|
||||
[[ "$VALIDITY_MIN" =~ ^[0-9]+$ ]] || die "--validity: целые минуты"
|
||||
(( VALIDITY_MIN >= 1 && VALIDITY_MIN <= 10080 )) || die "--validity: 1..10080 минут"
|
||||
fi
|
||||
if [[ "$TOA" == "81" ]]; then
|
||||
[[ "$RECEIVER" =~ ^[0-9]{5,15}$ ]] || die "--national: номер без '+' и символов"
|
||||
else
|
||||
[[ "$RECEIVER" =~ ^\+[0-9]{7,15}$ ]] || die "номер должен быть в формате +7XXXXXXXXXX"
|
||||
fi
|
||||
|
||||
# ══════════════════════════════════════════════════════════════════
|
||||
# BITWISE: TP-DCS (3GPP TS 23.038)
|
||||
# ══════════════════════════════════════════════════════════════════
|
||||
build_dcs() {
|
||||
local alpha=0
|
||||
[[ "$ENCODING" == "ucs2" ]] && alpha=2 # 10b
|
||||
|
||||
local dcs=0
|
||||
if [[ -n "$CLASS" ]]; then
|
||||
dcs=$(( dcs | (1 << 4) )) # bit 4: класс задан
|
||||
dcs=$(( dcs | (CLASS << 2) )) # bits 3-2: класс
|
||||
dcs=$(( dcs | alpha )) # bits 1-0: алфавит
|
||||
else
|
||||
dcs=$(( dcs | (alpha << 2) )) # bits 3-2: алфавит
|
||||
fi
|
||||
printf '%02X' "$dcs"
|
||||
}
|
||||
|
||||
# ══════════════════════════════════════════════════════════════════
|
||||
# BITWISE: TP-FO (3GPP TS 23.040, SMS-SUBMIT)
|
||||
# ══════════════════════════════════════════════════════════════════
|
||||
build_fo() {
|
||||
local fo=1 # bits 1-0: MTI = 01
|
||||
(( RD )) && fo=$(( fo | (1 << 2) ))
|
||||
[[ -n "$VALIDITY_MIN" ]] && fo=$(( fo | (2 << 3) )) # VPF = 10
|
||||
(( REPORT )) && fo=$(( fo | (1 << 5) ))
|
||||
(( UDHI )) && fo=$(( fo | (1 << 6) ))
|
||||
(( RP )) && fo=$(( fo | (1 << 7) ))
|
||||
printf '%02X' "$fo"
|
||||
}
|
||||
|
||||
# TP-VP relative
|
||||
build_vp() {
|
||||
local m="$1" v
|
||||
if (( m <= 720 )); then v=$(( (m + 4) / 5 - 1 ))
|
||||
elif (( m <= 1440 )); then v=$(( 143 + (m - 720 + 29) / 30 ))
|
||||
else v=$(( 166 + (m + 1439) / 1440 ))
|
||||
fi
|
||||
(( v < 0 )) && v=0
|
||||
(( v > 196 )) && v=196
|
||||
printf '%02X' "$v"
|
||||
}
|
||||
|
||||
# ══════════════════════════════════════════════════════════════════
|
||||
# НОМЕР → TON/NPI + swapped nibbles
|
||||
# ══════════════════════════════════════════════════════════════════
|
||||
format_number() {
|
||||
local num="${1#+}" out="" i
|
||||
(( ${#num} % 2 )) && num="${num}F"
|
||||
for (( i=0; i<${#num}; i+=2 )); do
|
||||
out+="${num:i+1:1}${num:i:1}"
|
||||
done
|
||||
printf '%s' "$out"
|
||||
}
|
||||
|
||||
# Для DA (получатель) длина — это КОЛИЧЕСТВО ЦИФР (без '+')
|
||||
build_da() {
|
||||
local num="${1#+}"
|
||||
local digits=${#num}
|
||||
local len_hex=$(printf '%02X' "$digits")
|
||||
local num_hex=$(format_number "$1")
|
||||
DA_HEX="${len_hex}${2}${num_hex}"
|
||||
}
|
||||
|
||||
# Для SMSC длина — это КОЛИЧЕСТВО ОКТЕТОВ (включая байт TOA)
|
||||
build_smsc() {
|
||||
local num="${1#+}"
|
||||
local digits=${#num}
|
||||
local octets=$(( (digits + 1) / 2 + 1 ))
|
||||
local len_hex=$(printf '%02X' "$octets")
|
||||
local num_hex=$(format_number "$1")
|
||||
SMSC_HEX="${len_hex}${2}${num_hex}"
|
||||
}
|
||||
|
||||
# ══════════════════════════════════════════════════════════════════
|
||||
# GSM 7-bit / UCS2
|
||||
# ══════════════════════════════════════════════════════════════════
|
||||
declare -a SEPTETS
|
||||
TEXT_HEX=""
|
||||
|
||||
build_gsm7() {
|
||||
local text="$1" i code ch
|
||||
SEPTETS=()
|
||||
for (( i=0; i<${#text}; i++ )); do
|
||||
ch="${text:i:1}"
|
||||
printf -v code '%d' "'$ch"
|
||||
if (( code > 127 )); then
|
||||
die "символ '$ch' не в GSM 7-bit. Используйте --ucs2"
|
||||
fi
|
||||
case $code in
|
||||
64) SEPTETS+=(0) ;; # @
|
||||
36) SEPTETS+=(2) ;; # $
|
||||
95) SEPTETS+=(17) ;; # _
|
||||
10) SEPTETS+=(10) ;;
|
||||
13) SEPTETS+=(13) ;;
|
||||
123|125|91|93|126|92|124|8364)
|
||||
die "расширенный GSM-алфавит ('$ch') пока не поддержан, используйте --ucs2" ;;
|
||||
*) SEPTETS+=("$code") ;;
|
||||
esac
|
||||
done
|
||||
|
||||
local n=${#SEPTETS[@]}
|
||||
local oct_count=$(( (n * 7 + 7) / 8 ))
|
||||
local -a oct=()
|
||||
for (( i=0; i<oct_count; i++ )); do oct[i]=0; done
|
||||
|
||||
local s v bp bi bo
|
||||
for (( s=0; s<n; s++ )); do
|
||||
v=${SEPTETS[$s]}; bp=$(( s * 7 )); bi=$(( bp / 8 )); bo=$(( bp % 8 ))
|
||||
oct[$bi]=$(( (oct[$bi] | ((v & 0x7F) << bo)) & 0xFF ))
|
||||
if (( bo > 1 )) && (( bi + 1 < oct_count )); then
|
||||
oct[$((bi+1))]=$(( oct[$((bi+1))] | (v >> (8 - bo)) ))
|
||||
fi
|
||||
done
|
||||
|
||||
TEXT_HEX=""
|
||||
for (( i=0; i<oct_count; i++ )); do
|
||||
TEXT_HEX+="$(printf '%02X' "${oct[$i]}")"
|
||||
done
|
||||
UDL=$n
|
||||
}
|
||||
|
||||
build_ucs2() {
|
||||
local raw
|
||||
raw=$(printf '%s' "$1" | iconv -f UTF-8 -t UTF-16BE 2>/dev/null) || die "iconv: неверная UTF-8 строка"
|
||||
TEXT_HEX=$(printf '%s' "$raw" | xxd -p | tr -d '\n' | tr 'a-f' 'A-F')
|
||||
UDL=$(( ${#TEXT_HEX} / 2 ))
|
||||
}
|
||||
|
||||
# ══════════════════════════════════════════════════════════════════
|
||||
# СБОРКА PDU
|
||||
# ══════════════════════════════════════════════════════════════════
|
||||
[[ -n "$TEXT" ]] || die "пустой текст"
|
||||
|
||||
if [[ "$ENCODING" == "gsm" ]]; then build_gsm7 "$TEXT"; else build_ucs2 "$TEXT"; fi
|
||||
|
||||
MAX_UDL=160
|
||||
[[ "$ENCODING" == "ucs2" ]] && MAX_UDL=70
|
||||
(( UDL <= MAX_UDL )) || die "текст длиннее одного SMS ($UDL > $MAX_UDL). Нужна конкатенация/UDH"
|
||||
|
||||
FO=$(build_fo)
|
||||
DCS=$(build_dcs)
|
||||
MR_HEX=$(printf '%02X' "$MR")
|
||||
UDL_HEX=$(printf '%02X' "$UDL")
|
||||
VP_HEX=""
|
||||
[[ -n "$VALIDITY_MIN" ]] && VP_HEX=$(build_vp "$VALIDITY_MIN")
|
||||
|
||||
build_da "$RECEIVER" "$TOA"
|
||||
|
||||
SMSC_HEX=""
|
||||
if (( USE_SMSC )); then
|
||||
build_smsc "$SMSC" 91
|
||||
fi
|
||||
|
||||
# [FO][MR][DA][PID][VP?][DCS][UDL][UD]
|
||||
TPDU="${FO}${MR_HEX}${DA_HEX}00${VP_HEX}${DCS}${UDL_HEX}${TEXT_HEX}"
|
||||
TPDU_LEN=$(( ${#TPDU} / 2 ))
|
||||
FULL_PDU="${SMSC_HEX}${TPDU}"
|
||||
|
||||
echo "FO=$FO MR=$MR_HEX PID=00 DCS=$DCS UDL=$UDL_HEX VP=${VP_HEX:-none}"
|
||||
echo "CLASS=${CLASS:-не задан} ENCODING=$ENCODING"
|
||||
echo "ТЕКСТ : $TEXT"
|
||||
echo "TPDU : $TPDU_LEN байт"
|
||||
echo "PDU : $FULL_PDU"
|
||||
|
||||
(( DRY_RUN )) && exit 0
|
||||
|
||||
# ══════════════════════════════════════════════════════════════════
|
||||
# ТРАНСПОРТ: cat-ридер + ожидание маркеров
|
||||
# ══════════════════════════════════════════════════════════════════
|
||||
READER_PID=""
|
||||
cleanup() {
|
||||
[[ -n "$READER_PID" ]] && kill "$READER_PID" 2>/dev/null
|
||||
wait "$READER_PID" 2>/dev/null
|
||||
}
|
||||
trap cleanup EXIT INT TERM
|
||||
|
||||
mkdir -p "$(dirname "$LOG")" 2>/dev/null
|
||||
: > "$LOG"
|
||||
|
||||
stty -F "$PORT" 115200 raw -echo 2>/dev/null || true
|
||||
cat "$PORT" >> "$LOG" 2>/dev/null &
|
||||
READER_PID=$!
|
||||
|
||||
wait_in_log() {
|
||||
local timeout_ms="$1" pattern="$2"
|
||||
local deadline=$(( $(date +%s%N) / 1000000 + timeout_ms ))
|
||||
while (( $(date +%s%N) / 1000000 < deadline )); do
|
||||
grep -aqF -- "$pattern" "$LOG" 2>/dev/null && return 0
|
||||
sleep 0.01
|
||||
done
|
||||
return 1
|
||||
}
|
||||
|
||||
send_wait() {
|
||||
: > "$LOG"
|
||||
printf '%s\r' "$1" > "$PORT"
|
||||
local deadline=$(( $(date +%s%N) / 1000000 + ${2:-3000} ))
|
||||
while (( $(date +%s%N) / 1000000 < deadline )); do
|
||||
if grep -aqF "OK" "$LOG" 2>/dev/null; then return 0; fi
|
||||
if grep -aqF "ERROR" "$LOG" 2>/dev/null; then return 1; fi
|
||||
sleep 0.01
|
||||
done
|
||||
return 1
|
||||
}
|
||||
|
||||
# Инициализация
|
||||
send_wait 'AT' || die "модем не отвечает (AT)"
|
||||
send_wait 'AT+CMEE=2' || die "AT+CMEE=2"
|
||||
send_wait 'AT+CMGF=0' || die "AT+CMGF=0"
|
||||
(( USE_SMSC )) || send_wait 'AT+CSCA?' || die "AT+CSCA? — SMSC не задан"
|
||||
|
||||
# Отправка
|
||||
: > "$LOG"
|
||||
START=$(date +%s%N)
|
||||
printf 'AT+CMGS=%d\r' "$TPDU_LEN" > "$PORT"
|
||||
|
||||
if ! wait_in_log 5000 '>'; then
|
||||
echo "ERROR: нет приглашения '>'"; cat "$LOG"; exit 1
|
||||
fi
|
||||
|
||||
printf '%s\x1A' "$FULL_PDU" > "$PORT"
|
||||
|
||||
# Ждём либо успех, либо ошибку
|
||||
DEADLINE=$(( $(date +%s%N) / 1000000 + 30000 ))
|
||||
RC=2
|
||||
while (( $(date +%s%N) / 1000000 < DEADLINE )); do
|
||||
if grep -aqF '+CMGS:' "$LOG"; then RC=0; break; fi
|
||||
if grep -aqF 'CMS ERROR' "$LOG"; then RC=1; break; fi
|
||||
sleep 0.01
|
||||
done
|
||||
|
||||
ELAPSED=$(( ($(date +%s%N) - START) / 1000000 ))
|
||||
|
||||
case "$RC" in
|
||||
0) echo "OK: отправлено за ${ELAPSED} мс"; grep -a '+CMGS:' "$LOG"; exit 0 ;;
|
||||
1) echo "ERROR (${ELAPSED} мс):"; grep -a 'CMS ERROR' "$LOG"; exit 1 ;;
|
||||
*) echo "TIMEOUT (${ELAPSED} мс)"; cat "$LOG"; exit 2 ;;
|
||||
esac
|
||||
Reference in New Issue
Block a user