app_sms.c File Reference

SMS application - ETSI ES 201 912 protocol 1 implementation. More...

#include "asterisk.h"
#include <dirent.h>
#include <ctype.h>
#include <sys/stat.h>
#include "asterisk/paths.h"
#include "asterisk/lock.h"
#include "asterisk/file.h"
#include "asterisk/channel.h"
#include "asterisk/pbx.h"
#include "asterisk/module.h"
#include "asterisk/alaw.h"
#include "asterisk/callerid.h"
#include "asterisk/utils.h"
#include "asterisk/app.h"
#include "asterisk/format_cache.h"

Include dependency graph for app_sms.c:

Go to the source code of this file.

Data Structures
struct	sms_s

Macros
#define	__OUT_FMT   ast_format_slin
#define	DIR_RX   1
#define	DIR_TX   2
#define	DLL2_ACK(h)   ((h->framenumber & 1) ? DLL2_SMS_ACK1: DLL2_SMS_ACK1)
#define	is16bit(dcs)   ( ((dcs) & 0xC0) ? 0 : (((dcs) & 0xc) == 8) )
#define	is7bit(dcs)   ( ((dcs) & 0xC0) ? (!((dcs) & 4) ) : (((dcs) & 0xc) == 0) )
#define	is8bit(dcs)   ( ((dcs) & 0xC0) ? ( ((dcs) & 4) ) : (((dcs) & 0xc) == 4) )
#define	MAX_DEBUG_LEN   300
#define	MAXSAMPLES   (800)
#define	OSYNC_BITS   80 /* initial sync bits */
#define	SMSLEN   160
#define	SMSLEN_8   140

Typedefs
typedef signed short	output_t
typedef struct sms_s	sms_t

Enumerations
enum	message_types {   DLL_SMS_MASK = 0x7f , DLL1_SMS_DATA = 0x11 , DLL1_SMS_ERROR = 0x12 , DLL1_SMS_EST = 0x13 ,   DLL1_SMS_REL = 0x14 , DLL1_SMS_ACK = 0x15 , DLL1_SMS_NACK = 0x16 , DLL1_SMS_COMPLETE = 0x80 ,   DLL1_SMS_MORE = 0x00 , DLL2_SMS_EST = 0x7f , DLL2_SMS_INFO_MO = 0x10 , DLL2_SMS_INFO_MT = 0x11 ,   DLL2_SMS_INFO_STA = 0x12 , DLL2_SMS_NACK = 0x13 , DLL2_SMS_ACK0 = 0x14 , DLL2_SMS_ACK1 = 0x15 ,   DLL2_SMS_ENQ = 0x16 , DLL2_SMS_REL = 0x17 , DLL2_SMS_COMPLETE = 0x00 , DLL2_SMS_MORE = 0x80 }
enum	sms_flags {   OPTION_BE_SMSC = (1 << 0) , OPTION_ANSWER = (1 << 1) , OPTION_TWO = (1 << 2) , OPTION_PAUSE = (1 << 3) ,   OPTION_SRR = (1 << 4) , OPTION_DCS = (1 << 5) , OPTIONS_NO_LOG = (1 << 6) }
enum	sms_opt_args { OPTION_ARG_PAUSE = 0 , OPTION_ARG_ARRAY_SIZE }

Functions
static void	adddata_proto2 (sms_t *h, unsigned char msg, char *data, int size)
	AST_MODULE_INFO_STANDARD_EXTENDED (ASTERISK_GPL_KEY, "SMS/PSTN handler")
static char *	isodate (time_t t, char *buf, int len)
	static, return a date/time in ISO format More...
static int	load_module (void)
static void	numcpy (char *d, char *s)
	copy number, skipping non digits apart from leading + More...
static unsigned char	packaddress (unsigned char *o, char *i)
	store an address at o, and return number of bytes used More...
static void	packdate (unsigned char *o, time_t w)
	pack a date and return More...
static int	packsms (unsigned char dcs, unsigned char *base, unsigned int udhl, unsigned char *udh, int udl, unsigned short *ud)
	general pack, with length and data, returns number of bytes of target used More...
static int	packsms16 (unsigned char *o, int udhl, unsigned char *udh, int udl, unsigned short *ud)
	takes a binary header (udhl bytes at udh) and UCS-2 message (udl characters at ud) and packs in to o using 16 bit UCS-2 character codes The return value is the number of bytes packed in to o, which is internally limited to 140 o can be null, in which case this is used to validate or count only if the input contains invalid characters then the return value is -1 More...
static int	packsms7 (unsigned char *o, int udhl, unsigned char *udh, int udl, unsigned short *ud)
	takes a binary header (udhl bytes at udh) and UCS-2 message (udl characters at ud) and packs in to o using SMS 7 bit character codes More...
static int	packsms8 (unsigned char *o, int udhl, unsigned char *udh, int udl, unsigned short *ud)
	takes a binary header (udhl bytes at udh) and UCS-2 message (udl characters at ud) and packs in to o using 8 bit character codes. The return value is the number of bytes packed in to o, which is internally limited to 140. o can be null, in which case this is used to validate or count only. if the input contains invalid characters then the return value is -1 More...
static void	putdummydata_proto2 (sms_t *h)
static struct dirent *	readdirqueue (DIR *d, char *queue)
	read dir skipping dot files... More...
static void *	sms_alloc (struct ast_channel *chan, void *sms_t_ptr)
static void	sms_compose1 (sms_t *h, int more)
	compose a message for protocol 1 More...
static void	sms_compose2 (sms_t *h, int more)
static void	sms_debug (int dir, sms_t *h)
static int	sms_exec (struct ast_channel *chan, const char *data)
static int	sms_generate (struct ast_channel *chan, void *data, int len, int samples)
static unsigned char	sms_handleincoming (sms_t *h)
	handle the incoming message More...
static int	sms_handleincoming_proto2 (sms_t *h)
	sms_handleincoming_proto2: handle the incoming message More...
static char *	sms_hexdump (unsigned char buf[], int size, char *s)
static void	sms_log (sms_t *h, char status)
	Log the output, and remove file. More...
static void	sms_messagerx (sms_t *h)
static void	sms_messagerx2 (sms_t *h)
static void	sms_messagetx (sms_t *h)
static void	sms_nextoutgoing (sms_t *h)
	find and fill in next message, or send a REL if none waiting More...
static void	sms_process (sms_t *h, int samples, signed short *data)
static void	sms_readfile (sms_t *h, char *fn)
	parse and delete a file More...
static void	sms_release (struct ast_channel *chan, void *data)
static void	sms_writefile (sms_t *h)
	white a received text message to a file More...
static int	unload_module (void)
static unsigned char	unpackaddress (char *o, unsigned char *i)
	unpack an address from i, return byte length, unpack to o More...
static struct timeval	unpackdate (unsigned char *i)
	unpack a date and return More...
static int	unpacksms (unsigned char dcs, unsigned char *i, unsigned char *udh, int *udhl, unsigned short *ud, int *udl, char udhi)
	general unpack - starts with length byte (octet or septet) and returns number of bytes used, inc length More...
static void	unpacksms16 (unsigned char *i, unsigned char l, unsigned char *udh, int *udhl, unsigned short *ud, int *udl, char udhi)
	unpacks bytes (16 bit encoding) at i, len l septets, and places in udh and ud setting udhl and udl. udh not used if udhi not set More...
static void	unpacksms7 (unsigned char *i, unsigned char l, unsigned char *udh, int *udhl, unsigned short *ud, int *udl, char udhi)
	unpacks bytes (7 bit encoding) at i, len l septets, and places in udh and ud setting udhl and udl. udh not used if udhi not set More...
static void	unpacksms8 (unsigned char *i, unsigned char l, unsigned char *udh, int *udhl, unsigned short *ud, int *udl, char udhi)
	unpacks bytes (8 bit encoding) at i, len l septets, and places in udh and ud setting udhl and udl. udh not used if udhi not set. More...
static long	utf8decode (unsigned char **pp)
	Reads next UCS character from NUL terminated UTF-8 string and advance pointer. More...

Variables
static char *	app = "SMS"
static const unsigned short	defaultalphabet []
static const unsigned short	escapes []
static char	log_file [255]
static volatile unsigned char	message_ref
static volatile unsigned int	seq
static const struct ast_app_option	sms_options [128] = { [ 's' ] = { .flag = OPTION_BE_SMSC }, [ 'a' ] = { .flag = OPTION_ANSWER }, [ 't' ] = { .flag = OPTION_TWO }, [ 'r' ] = { .flag = OPTION_SRR }, [ 'o' ] = { .flag = OPTION_DCS }, [ 'n' ] = { .flag = OPTIONS_NO_LOG }, [ 'p' ] = { .flag = OPTION_PAUSE , .arg_index = OPTION_ARG_PAUSE + 1 }, }
static struct ast_generator	smsgen
static const signed short	wave []
static const output_t *	wave_out = wave

Detailed Description

SMS application - ETSI ES 201 912 protocol 1 implementation.

Development notes

Note

The ETSI standards are available free of charge from ETSI at http://pda.etsi.org/pda/queryform.asp Among the relevant documents here we have:

ES 201 912 SMS for PSTN/ISDN TS 123 040 Technical realization of SMS

Author

Adrian Kennard (for the original protocol 1 code)

Filippo Grassilli (Hyppo) - protocol 2 support Not fully tested, under development

Definition in file app_sms.c.

Macro Definition Documentation

__OUT_FMT

#define __OUT_FMT   ast_format_slin

Definition at line 152 of file app_sms.c.

DIR_RX

#define DIR_RX   1

Definition at line 1486 of file app_sms.c.

DIR_TX

#define DIR_TX   2

Definition at line 1487 of file app_sms.c.

DLL2_ACK

#define DLL2_ACK

(

h

)

((h->framenumber & 1) ? DLL2_SMS_ACK1: DLL2_SMS_ACK1)

is16bit

#define is16bit

(

dcs

)

( ((dcs) & 0xC0) ? 0 : (((dcs) & 0xc) == 8) )

Definition at line 286 of file app_sms.c.

is7bit

#define is7bit

(

dcs

)

( ((dcs) & 0xC0) ? (!((dcs) & 4) ) : (((dcs) & 0xc) == 0) )

Definition at line 284 of file app_sms.c.

is8bit

#define is8bit

(

dcs

)

( ((dcs) & 0xC0) ? ( ((dcs) & 4) ) : (((dcs) & 0xc) == 4) )

Definition at line 285 of file app_sms.c.

MAX_DEBUG_LEN

#define MAX_DEBUG_LEN   300

Definition at line 1251 of file app_sms.c.

MAXSAMPLES

#define MAXSAMPLES   (800)

OSYNC_BITS

#define OSYNC_BITS   80 /* initial sync bits */

Definition at line 155 of file app_sms.c.

SMSLEN

#define SMSLEN   160

max SMS length

Definition at line 218 of file app_sms.c.

SMSLEN_8

#define SMSLEN_8   140

max SMS length for 8-bit char

Definition at line 219 of file app_sms.c.

Typedef Documentation

output_t

typedef signed short output_t

Definition at line 150 of file app_sms.c.

sms_t

typedef struct sms_s sms_t

Enumeration Type Documentation

message_types

enum message_types

The SMS spec ETSI ES 201 912 defines two protocols with different message types. Also note that the high bit is used to indicate whether the message is complete or not, but in two opposite ways: for Protocol 1, 0x80 means that the message is complete; for Protocol 2, 0x00 means that the message is complete;

Enumerator
DLL_SMS_MASK
DLL1_SMS_DATA
DLL1_SMS_ERROR
DLL1_SMS_EST
DLL1_SMS_REL
DLL1_SMS_ACK
DLL1_SMS_NACK
DLL1_SMS_COMPLETE
DLL1_SMS_MORE
DLL2_SMS_EST
DLL2_SMS_INFO_MO
DLL2_SMS_INFO_MT
DLL2_SMS_INFO_STA
DLL2_SMS_NACK
DLL2_SMS_ACK0
DLL2_SMS_ACK1
DLL2_SMS_ENQ
DLL2_SMS_REL
DLL2_SMS_COMPLETE
DLL2_SMS_MORE

Definition at line 164 of file app_sms.c.

                   {
    DLL_SMS_MASK        = 0x7f,             /* mask for the valid bits */
 
    /* Protocol 1 values */
    DLL1_SMS_DATA       = 0x11,             /* data packet */
    DLL1_SMS_ERROR      = 0x12,
    DLL1_SMS_EST        = 0x13,             /* start the connection */
    DLL1_SMS_REL        = 0x14,             /* end the connection */
    DLL1_SMS_ACK        = 0x15,
    DLL1_SMS_NACK       = 0x16,
 
    DLL1_SMS_COMPLETE   = 0x80,             /* packet is complete */
    DLL1_SMS_MORE       = 0x00,             /* more data to follow */
 
    /* Protocol 2 values */
    DLL2_SMS_EST        = 0x7f,             /* magic number. No message body */
    DLL2_SMS_INFO_MO    = 0x10,
    DLL2_SMS_INFO_MT    = 0x11,
    DLL2_SMS_INFO_STA   = 0x12,
    DLL2_SMS_NACK       = 0x13,
    DLL2_SMS_ACK0       = 0x14,             /* ack even-numbered frame */
    DLL2_SMS_ACK1       = 0x15,             /* ack odd-numbered frame */
    DLL2_SMS_ENQ        = 0x16,
    DLL2_SMS_REL        = 0x17,             /* end the connection */
 
    DLL2_SMS_COMPLETE   = 0x00,             /* packet is complete */
    DLL2_SMS_MORE       = 0x80,             /* more data to follow */
};

sms_flags

enum sms_flags

Enumerator
OPTION_BE_SMSC
OPTION_ANSWER
OPTION_TWO
OPTION_PAUSE
OPTION_SRR
OPTION_DCS
OPTIONS_NO_LOG

Definition at line 1859 of file app_sms.c.

               {
    OPTION_BE_SMSC  = (1 << 0),             /* act as sms center */
    OPTION_ANSWER   = (1 << 1),             /* answer on incoming calls */
    OPTION_TWO  = (1 << 2),                 /* Use Protocol Two */
    OPTION_PAUSE    = (1 << 3),             /* pause before sending data, in ms */
    OPTION_SRR  = (1 << 4),                 /* set srr */
    OPTION_DCS  = (1 << 5),                 /* set dcs */
    OPTIONS_NO_LOG  = (1 << 6),             /* Don't log SMS content */
};

sms_opt_args

enum sms_opt_args

Enumerator
OPTION_ARG_PAUSE
OPTION_ARG_ARRAY_SIZE

Definition at line 1869 of file app_sms.c.

                  {
    OPTION_ARG_PAUSE = 0,
    OPTION_ARG_ARRAY_SIZE
};

Function Documentation

adddata_proto2()

static void adddata_proto2 ( sms_t *  h, unsigned char  msg, char *  data, int  size  )

static

Add data to a protocol 2 message. Use the length field (h->omsg[1]) as a pointer to the next free position.

Definition at line 1191 of file app_sms.c.

{
    int x = h->omsg[1] + 2;                 /* Get current position */
    if (x == 2) {
        x += 2;                             /* First: skip Payload length (set later) */
    }
    h->omsg[x++] = msg;                     /* Message code */
    h->omsg[x++] = (unsigned char)size;     /* Data size Low */
    h->omsg[x++] = 0;                       /* Data size Hi */
    for (; size > 0 ; size--) {
        h->omsg[x++] = *data++;
    }
    h->omsg[1] = x - 2;                     /* Frame size */
    h->omsg[2] = x - 4;                     /* Payload length (Lo) */
    h->omsg[3] = 0;                         /* Payload length (Hi) */
}

References sms_s::omsg.

Referenced by putdummydata_proto2(), and sms_compose2().

AST_MODULE_INFO_STANDARD_EXTENDED()

AST_MODULE_INFO_STANDARD_EXTENDED	(	ASTERISK_GPL_KEY	,
		"SMS/PSTN handler"
	)

isodate()

static char * isodate ( time_t  t, char *  buf, int  len  )

static

static, return a date/time in ISO format

Definition at line 306 of file app_sms.c.

{
    struct ast_tm tm;
    struct timeval local = { t, 0 };
    ast_localtime(&local, &tm, NULL);
    ast_strftime(buf, len, "%Y-%m-%dT%H:%M:%S", &tm);
    return buf;
}

References ast_localtime(), ast_strftime(), buf, len(), and NULL.

Referenced by sms_log(), and sms_writefile().

load_module()

static int load_module ( void  )

static

Definition at line 2086 of file app_sms.c.

{
#ifdef OUTALAW
    int p;
    for (p = 0; p < 80; p++) {
        wavea[p] = AST_LIN2A(wave[p]);
    }
#endif
    snprintf(log_file, sizeof(log_file), "%s/sms", ast_config_AST_LOG_DIR);
    return ast_register_application_xml(app, sms_exec);
}

References app, ast_config_AST_LOG_DIR, AST_LIN2A, ast_register_application_xml, log_file, sms_exec(), and wave.

numcpy()

static void numcpy ( char *  d, char *  s  )

static

copy number, skipping non digits apart from leading +

Definition at line 291 of file app_sms.c.

{
    if (*s == '+') {
        *d++ = *s++;
    }
    while (*s) {
        if (isdigit(*s)) {
            *d++ = *s;
        }
        s++;
    }
    *d = 0;
}

References d.

Referenced by sms_readfile().

packaddress()

static unsigned char packaddress ( unsigned char *  o, char *  i  )

static

store an address at o, and return number of bytes used

Definition at line 749 of file app_sms.c.

{
    unsigned char p = 2;
    o[0] = 0;                               /* number of bytes */
    if (*i == '+') {                        /* record as bit 0 in byte 1 */
        i++;
        o[1] = 0x91;
    } else {
        o[1] = 0x81;
    }
    for ( ; *i ; i++) {
        if (!isdigit(*i)) {                 /* ignore non-digits */
            continue;
        }
        if (o[0] & 1) {
            o[p++] |= ((*i & 0xF) << 4);
        } else {
            o[p] = (*i & 0xF);
        }
        o[0]++;
    }
    if (o[0] & 1) {
        o[p++] |= 0xF0;                     /* pad */
    }
    return p;
}

Referenced by sms_compose1().

packdate()

static void packdate ( unsigned char *  o, time_t  w  )

static

pack a date and return

Definition at line 556 of file app_sms.c.

{
    struct ast_tm t;
    struct timeval topack = { w, 0 };
    int z;
 
    ast_localtime(&topack, &t, NULL);
#if defined(__FreeBSD__) || defined(__OpenBSD__) || defined( __NetBSD__ ) || defined(__APPLE__) || defined(__CYGWIN__)
    z = -t.tm_gmtoff / 60 / 15;
#else
    z = timezone / 60 / 15;
#endif
    *o++ = ((t.tm_year % 10) << 4) + (t.tm_year % 100) / 10;
    *o++ = (((t.tm_mon + 1) % 10) << 4) + (t.tm_mon + 1) / 10;
    *o++ = ((t.tm_mday % 10) << 4) + t.tm_mday / 10;
    *o++ = ((t.tm_hour % 10) << 4) + t.tm_hour / 10;
    *o++ = ((t.tm_min % 10) << 4) + t.tm_min / 10;
    *o++ = ((t.tm_sec % 10) << 4) + t.tm_sec / 10;
    if (z < 0) {
        *o++ = (((-z) % 10) << 4) + (-z) / 10 + 0x08;
    } else {
        *o++ = ((z % 10) << 4) + z / 10;
    }
}

References ast_localtime(), NULL, ast_tm::tm_gmtoff, ast_tm::tm_hour, ast_tm::tm_mday, ast_tm::tm_min, ast_tm::tm_mon, ast_tm::tm_sec, and ast_tm::tm_year.

Referenced by sms_compose1().

packsms()

static int packsms ( unsigned char  dcs, unsigned char *  base, unsigned int  udhl, unsigned char *  udh, int  udl, unsigned short *  ud  )

static

general pack, with length and data, returns number of bytes of target used

Definition at line 523 of file app_sms.c.

{
    unsigned char *p = base;
    if (udl == 0) {
        *p++ = 0;                           /* no user data */
    } else {
 
        int l = 0;
        if (is7bit(dcs)) {                  /* 7 bit */
            if ((l = packsms7(p + 1, udhl, udh, udl, ud)) < 0) {
                l = 0;
            }
            *p++ = l;
            p += (l * 7 + 7) / 8;
        } else if (is8bit(dcs)) {           /* 8 bit */
            if ((l = packsms8(p + 1, udhl, udh, udl, ud)) < 0) {
                l = 0;
            }
            *p++ = l;
            p += l;
        } else {                            /* UCS-2 */
            if ((l = packsms16(p + 1, udhl, udh, udl, ud)) < 0) {
                l = 0;
            }
            *p++ = l;
            p += l;
        }
    }
    return p - base;
}

References is7bit, is8bit, packsms16(), packsms7(), and packsms8().

Referenced by sms_compose1().

packsms16()

static int packsms16 ( unsigned char *  o, int  udhl, unsigned char *  udh, int  udl, unsigned short *  ud  )

static

takes a binary header (udhl bytes at udh) and UCS-2 message (udl characters at ud) and packs in to o using 16 bit UCS-2 character codes The return value is the number of bytes packed in to o, which is internally limited to 140 o can be null, in which case this is used to validate or count only if the input contains invalid characters then the return value is -1

Definition at line 488 of file app_sms.c.

{
    unsigned char p = 0;
    unsigned char dummy[SMSLEN_8];
 
    if (o == NULL) {
        o = dummy;
    }
    /* header - no encoding */
    if (udhl) {
        o[p++] = udhl;
        while (udhl--) {
            o[p++] = *udh++;
            if (p >= SMSLEN_8) {
                return p;
            }
        }
    }
    while (udl--) {
        long u;
        u = *ud++;
        o[p++] = (u >> 8);
        if (p >= SMSLEN_8) {
            return p - 1;                   /* could not fit last character */
        }
        o[p++] = u;
        if (p >= SMSLEN_8) {
            return p;
        }
    }
    return p;
}

References dummy(), NULL, and SMSLEN_8.

Referenced by packsms(), and sms_readfile().

packsms7()

static int packsms7 ( unsigned char *  o, int  udhl, unsigned char *  udh, int  udl, unsigned short *  ud  )

static

takes a binary header (udhl bytes at udh) and UCS-2 message (udl characters at ud) and packs in to o using SMS 7 bit character codes

Definition at line 372 of file app_sms.c.

{
    unsigned char p = 0;                    /* output pointer (bytes) */
    unsigned char b = 0;                    /* bit position */
    unsigned char n = 0;                    /* output character count */
    unsigned char dummy[SMSLEN];
 
    if (o == NULL) {                        /* output to a dummy buffer if o not set */
        o = dummy;
    }
 
    if (udhl) {                             /* header */
        o[p++] = udhl;
        b = 1;
        n = 1;
        while (udhl--) {
            o[p++] = *udh++;
            b += 8;
            while (b >= 7) {
                b -= 7;
                n++;
            }
            if (n >= SMSLEN)
                return n;
        }
        if (b) {
            b = 7 - b;
            if (++n >= SMSLEN)
                return n;
        }                                   /* filling to septet boundary */
    }
    o[p] = 0;
    /* message */
    while (udl--) {
        long u;
        unsigned char v;
        u = *ud++;
        /* XXX 0 is invalid ? */
        /* look up in defaultalphabet[]. If found, v is the 7-bit code */
        for (v = 0; v < 128 && defaultalphabet[v] != u; v++);
        if (v == 128 /* not found */ && u && n + 1 < SMSLEN) {
            /* if not found, look in the escapes table (we need 2 bytes) */
            for (v = 0; v < 128 && escapes[v] != u; v++);
            if (v < 128) {  /* escaped sequence, esc + v */
                /* store the low (8-b) bits in o[p], the remaining bits in o[p+1] */
                o[p] |= (27 << b);          /* the low bits go into o[p] */
                b += 7;
                if (b >= 8) {
                    b -= 8;
                    p++;
                    o[p] = (27 >> (7 - b));
                }
                n++;
            }
        }
        if (v == 128)
            return -1;                      /* invalid character */
        /* store, same as above */
        o[p] |= (v << b);
        b += 7;
        if (b >= 8) {
            b -= 8;
            p++;
            o[p] = (v >> (7 - b));
        }
        if (++n >= SMSLEN)
            return n;
    }
    return n;
}

References b, defaultalphabet, dummy(), escapes, NULL, and SMSLEN.

Referenced by packsms(), and sms_readfile().

packsms8()

static int packsms8 ( unsigned char *  o, int  udhl, unsigned char *  udh, int  udl, unsigned short *  ud  )

static

takes a binary header (udhl bytes at udh) and UCS-2 message (udl characters at ud) and packs in to o using 8 bit character codes. The return value is the number of bytes packed in to o, which is internally limited to 140. o can be null, in which case this is used to validate or count only. if the input contains invalid characters then the return value is -1

Definition at line 449 of file app_sms.c.

{
    unsigned char p = 0;
    unsigned char dummy[SMSLEN_8];
 
    if (o == NULL)
        o = dummy;
    /* header - no encoding */
    if (udhl) {
        o[p++] = udhl;
        while (udhl--) {
            o[p++] = *udh++;
            if (p >= SMSLEN_8) {
                return p;
            }
        }
    }
    while (udl--) {
        long u;
        u = *ud++;
        if (u < 0 || u > 0xFF) {
            return -1;                      /* not valid */
        }
        o[p++] = u;
        if (p >= SMSLEN_8) {
            return p;
        }
    }
    return p;
}

References dummy(), NULL, and SMSLEN_8.

Referenced by packsms(), and sms_readfile().

putdummydata_proto2()

static void putdummydata_proto2 ( sms_t *  h )

static

Definition at line 1208 of file app_sms.c.

{
    adddata_proto2(h, 0x10, "\0", 1);           /* Media Identifier > SMS */
    adddata_proto2(h, 0x11, "\0\0\0\0\0\0", 6); /* Firmware version */
    adddata_proto2(h, 0x12, "\2\0\4", 3);       /* SMS provider ID */
    adddata_proto2(h, 0x13, h->udtxt, h->udl);  /* Body */
}

References adddata_proto2(), sms_s::udl, and sms_s::udtxt.

Referenced by sms_compose2().

readdirqueue()

static struct dirent * readdirqueue ( DIR *  d, char *  queue  )

static

read dir skipping dot files...

Definition at line 1105 of file app_sms.c.

{
    struct dirent *f;
    do {
        f = readdir(d);
    } while (f && (*f->d_name == '.' || strncmp(f->d_name, queue, strlen(queue)) || f->d_name[strlen(queue)] != '.'));
    return f;
}

References d.

Referenced by sms_nextoutgoing().

sms_alloc()

static void * sms_alloc ( struct ast_channel *  chan, void *  sms_t_ptr  )

static

Just return the pointer to the descriptor that we received.

Definition at line 1687 of file app_sms.c.

{
    return sms_t_ptr;
}

sms_compose1()

static void sms_compose1 ( sms_t *  h, int  more  )

static

compose a message for protocol 1

Definition at line 1403 of file app_sms.c.

{
    unsigned int p = 2;                     /* next byte to write. Skip type and len */
 
    h->omsg[0] = 0x91;                      /* SMS_DATA */
    if (h->smsc) {                          /* deliver */
        h->omsg[p++] = (more ? 4 : 0) + ((h->udhl > 0) ? 0x40 : 0);
        p += packaddress(h->omsg + p, h->oa);
        h->omsg[p++] = h->pid;
        h->omsg[p++] = h->dcs;
        packdate(h->omsg + p, h->scts.tv_sec);
        p += 7;
        p += packsms(h->dcs, h->omsg + p, h->udhl, h->udh, h->udl, h->ud);
    } else {                                /* submit */
        h->omsg[p++] =
            0x01 + (more ? 4 : 0) + (h->srr ? 0x20 : 0) + (h->rp ? 0x80 : 0) + (h->vp ? 0x10 : 0) + (h->udhi ? 0x40 : 0);
        if (h->mr < 0) {
            h->mr = message_ref++;
        }
        h->omsg[p++] = h->mr;
        p += packaddress(h->omsg + p, h->da);
        h->omsg[p++] = h->pid;
        h->omsg[p++] = h->dcs;
        if (h->vp) {                        /* relative VP */
            if (h->vp < 720) {
                h->omsg[p++] = (h->vp + 4) / 5 - 1;
            } else if (h->vp < 1440) {
                h->omsg[p++] = (h->vp - 720 + 29) / 30 + 143;
            } else if (h->vp < 43200) {
                h->omsg[p++] = (h->vp + 1439) / 1440 + 166;
            } else if (h->vp < 635040) {
                h->omsg[p++] = (h->vp + 10079) / 10080 + 192;
            } else {
                h->omsg[p++] = 255;         /* max */
            }
        }
        p += packsms(h->dcs, h->omsg + p, h->udhl, h->udh, h->udl, h->ud);
    }
    h->omsg[1] = p - 2;
}

References sms_s::da, sms_s::dcs, message_ref, sms_s::mr, sms_s::oa, sms_s::omsg, packaddress(), packdate(), packsms(), sms_s::pid, sms_s::rp, sms_s::scts, sms_s::smsc, sms_s::srr, sms_s::ud, sms_s::udh, sms_s::udhi, sms_s::udhl, sms_s::udl, and sms_s::vp.

Referenced by sms_nextoutgoing().

sms_compose2()

static void sms_compose2 ( sms_t *  h, int  more  )

static

Definition at line 1216 of file app_sms.c.

{
    struct ast_tm tm;
    struct timeval now = h->scts;
    char stm[45];
 
    h->omsg[0] = 0x00;                      /* set later... */
    h->omsg[1] = 0;
    putdummydata_proto2(h);
    if (h->smsc) {                          /* deliver */
        h->omsg[0] = 0x11;                  /* SMS_DELIVERY */
        /* Required: 10 11 12 13 14 15 17 (seems they must be ordered!) */
        ast_localtime(&now, &tm, NULL);
        sprintf(stm, "%02d%02d%02d%02d", tm.tm_mon + 1, tm.tm_mday, tm.tm_hour, tm.tm_min);  /* Date mmddHHMM */
        adddata_proto2(h, 0x14, stm, 8);    /* Date */
        if (*h->oa == 0) {
            strcpy(h->oa, "00000000");
        }
        adddata_proto2(h, 0x15, h->oa, strlen(h->oa)); /* Originator */
        adddata_proto2(h, 0x17, "\1", 1);   /* Calling Terminal ID */
    } else {                                /* submit */
        h->omsg[0] = 0x10;                  /* SMS_SUBMIT */
        /* Required: 10 11 12 13 17 18 1B 1C (seems they must be ordered!) */
        adddata_proto2(h, 0x17, "\1", 1);   /* Calling Terminal ID */
        if (*h->da == 0) {
            strcpy(h->da, "00000000");
        }
        adddata_proto2(h, 0x18, h->da, strlen(h->da)); /* Originator */
        adddata_proto2(h, 0x1B, "\1", 1);         /* Called Terminal ID */
        adddata_proto2(h, 0x1C, "\0\0\0", 3);     /* Notification */
    }
}

References adddata_proto2(), ast_localtime(), sms_s::da, NULL, sms_s::oa, sms_s::omsg, putdummydata_proto2(), sms_s::scts, sms_s::smsc, ast_tm::tm_hour, ast_tm::tm_mday, ast_tm::tm_min, and ast_tm::tm_mon.

Referenced by sms_nextoutgoing().

sms_debug()

static void sms_debug ( int  dir, sms_t *  h  )

static

Definition at line 1488 of file app_sms.c.

{
    char txt[259 * 3 + 1];
    char *p = txt;                          /* always long enough */
    unsigned char *msg = (dir == DIR_RX) ? h->imsg : h->omsg;
    int n = (dir == DIR_RX) ? h->ibytep : msg[1] + 2;
    int q = 0;
    while (q < n && q < 30) {
        sprintf(p, " %02hhX", msg[q++]);
        p += 3;
    }
    if (q < n) {
        sprintf(p, "...");
    }
    ast_verb(3, "SMS %s%s\n", dir == DIR_RX ? "RX" : "TX", txt);
}

References ast_verb, DIR_RX, sms_s::ibytep, sms_s::imsg, and sms_s::omsg.

Referenced by sms_messagerx(), and sms_messagetx().

sms_exec()

static int sms_exec ( struct ast_channel *  chan, const char *  data  )

static

Definition at line 1884 of file app_sms.c.

{
    int res = -1;
    sms_t h = { 0 };
    /* argument parsing support */
    struct ast_flags flags = { 0 };
    char *parse, *sms_opts[OPTION_ARG_ARRAY_SIZE] = { 0, };
    char *p;
    AST_DECLARE_APP_ARGS(sms_args,
        AST_APP_ARG(queue);
        AST_APP_ARG(options);
        AST_APP_ARG(addr);
        AST_APP_ARG(body);
    );
 
    if (!data) {
        ast_log(LOG_ERROR, "Requires queue name at least\n");
        return -1;
    }
 
    parse = ast_strdupa(data);              /* create a local copy */
    AST_STANDARD_APP_ARGS(sms_args, parse);
    if (sms_args.argc > 1) {
        ast_app_parse_options(sms_options, &flags, sms_opts, sms_args.options);
    }
 
    ast_verb(1, "sms argc %u queue <%s> opts <%s> addr <%s> body <%s>\n",
        sms_args.argc, S_OR(sms_args.queue, ""),
        S_OR(sms_args.options, ""),
        S_OR(sms_args.addr, ""),
        S_OR(sms_args.body, "") );
 
    h.ipc0 = h.ipc1 = 20;                   /* phase for cosine */
    h.dcs = 0xF1;                           /* default */
 
    ast_copy_string(h.cli,
        S_COR(ast_channel_caller(chan)->id.number.valid, ast_channel_caller(chan)->id.number.str, ""),
        sizeof(h.cli));
 
    if (ast_strlen_zero(sms_args.queue)) {
        ast_log(LOG_ERROR, "Requires queue name\n");
        goto done;
    }
    if (strlen(sms_args.queue) >= sizeof(h.queue)) {
        ast_log(LOG_ERROR, "Queue name too long\n");
        goto done;
    }
    ast_copy_string(h.queue, sms_args.queue, sizeof(h.queue));
 
    for (p = h.queue; *p; p++) {
        if (!isalnum(*p)) {
            *p = '-';                       /* make very safe for filenames */
        }
    }
 
    h.smsc = ast_test_flag(&flags, OPTION_BE_SMSC);
    h.protocol = ast_test_flag(&flags, OPTION_TWO) ? 2 : 1;
    h.nolog = ast_test_flag(&flags, OPTIONS_NO_LOG) ? 1 : 0;
    if (!ast_strlen_zero(sms_opts[OPTION_ARG_PAUSE])) {
        h.opause_0 = atoi(sms_opts[OPTION_ARG_PAUSE]);
    }
    if (h.opause_0 < 25 || h.opause_0 > 2000) {
        h.opause_0 = 300;                   /* default 300ms */
    }
    ast_verb(1, "initial delay %dms\n", h.opause_0);
 
 
    /* the following apply if there is an arg3/4 and apply to the created message file */
    if (ast_test_flag(&flags, OPTION_SRR)) {
        h.srr = 1;
    }
    if (ast_test_flag(&flags, OPTION_DCS)) {
        h.dcs = 1;
    }
#if 0
        case '1':
        case '2':
        case '3':
        case '4':
        case '5':
        case '6':
        case '7':                           /* set the pid for saved local message */
            h.pid = 0x40 + (*d & 0xF);
            break;
        }
#endif
    if (sms_args.argc > 2) {
        unsigned char *up;
 
        /* submitting a message, not taking call. */
        /* deprecated, use smsq instead */
        h.scts = ast_tvnow();
        if (ast_strlen_zero(sms_args.addr) || strlen(sms_args.addr) >= sizeof(h.oa)) {
            ast_log(LOG_ERROR, "Address too long %s\n", sms_args.addr);
            goto done;
        }
        if (h.smsc) {
            ast_copy_string(h.oa, sms_args.addr, sizeof(h.oa));
        } else {
            ast_copy_string(h.da, sms_args.addr, sizeof(h.da));
            ast_copy_string(h.oa, h.cli, sizeof(h.oa));
        }
        h.udl = 0;
        if (ast_strlen_zero(sms_args.body)) {
            ast_log(LOG_ERROR, "Missing body for %s\n", sms_args.addr);
            goto done;
        }
        up = (unsigned char *)sms_args.body;
        while (*up && h.udl < SMSLEN) {
            h.ud[h.udl++] = utf8decode(&up);
        }
        if (is7bit(h.dcs) && packsms7(0, h.udhl, h.udh, h.udl, h.ud) < 0) {
            ast_log(LOG_WARNING, "Invalid 7 bit GSM data\n");
            goto done;
        }
        if (is8bit(h.dcs) && packsms8(0, h.udhl, h.udh, h.udl, h.ud) < 0) {
            ast_log(LOG_WARNING, "Invalid 8 bit data\n");
            goto done;
        }
        if (is16bit(h.dcs) && packsms16(0, h.udhl, h.udh, h.udl, h.ud) < 0) {
            ast_log(LOG_WARNING, "Invalid 16 bit data\n");
            goto done;
        }
        h.rx = 0;                           /* sent message */
        h.mr = -1;
        sms_writefile(&h);
        res = h.err;
        goto done;
    }
 
    if (ast_channel_state(chan) != AST_STATE_UP) {      /* make sure channel is answered before any TX */
        ast_answer(chan);
    }
 
    if (ast_test_flag(&flags, OPTION_ANSWER)) {
        h.framenumber = 1;                  /* Proto 2 */
        /* set up SMS_EST initial message */
        if (h.protocol == 2) {
            h.omsg[0] = DLL2_SMS_EST;
            h.omsg[1] = 0;
        } else {
            h.omsg[0] = DLL1_SMS_EST | DLL1_SMS_COMPLETE;
            h.omsg[1] = 0;
        }
        sms_messagetx(&h);
    }
 
    res = ast_set_write_format(chan, __OUT_FMT);
    if (res >= 0) {
        res = ast_set_read_format(chan, ast_format_slin);
    }
    if (res < 0) {
        ast_log(LOG_ERROR, "Unable to set to linear mode, giving up\n");
        goto done;
    }
 
    if ( (res = ast_activate_generator(chan, &smsgen, &h)) < 0) {
        ast_log(LOG_ERROR, "Failed to activate generator on '%s'\n", ast_channel_name(chan));
        goto done;
    }
 
    /* Do our thing here */
    for (;;) {
        struct ast_frame *f;
        int i = ast_waitfor(chan, -1);
        if (i < 0) {
            ast_log(LOG_NOTICE, "waitfor failed\n");
            break;
        }
        if (h.hangup) {
            ast_log(LOG_NOTICE, "channel hangup\n");
            break;
        }
        f = ast_read(chan);
        if (!f) {
            ast_log(LOG_NOTICE, "ast_read failed\n");
            break;
        }
        if (f->frametype == AST_FRAME_VOICE) {
            sms_process(&h, f->samples, f->data.ptr);
        }
 
        ast_frfree(f);
    }
    res = h.err;                            /* XXX */
 
    /*
     * The SMS generator data is on the stack.  We _MUST_ make sure the generator
     * is stopped before returning from this function.
     */
    ast_deactivate_generator(chan);
 
    sms_log(&h, '?');                       /* log incomplete message */
done:
    return (res);
}

References AST_APP_ARG, ast_app_parse_options(), ast_channel_caller(), ast_copy_string(), AST_DECLARE_APP_ARGS, ast_log, AST_STANDARD_APP_ARGS, ast_strdupa, ast_strlen_zero(), ast_test_flag, ast_verb, sms_s::cli, d, sms_s::dcs, done, ast_flags::flags, sms_s::ipc0, sms_s::ipc1, LOG_ERROR, sms_s::nolog, sms_s::opause_0, OPTION_ARG_ARRAY_SIZE, OPTION_ARG_PAUSE, OPTION_BE_SMSC, OPTION_DCS, OPTION_SRR, OPTION_TWO, options, OPTIONS_NO_LOG, sms_s::pid, sms_s::protocol, sms_s::queue, S_COR, S_OR, sms_options, sms_s::smsc, and sms_s::srr.

Referenced by load_module().

sms_generate()

static int sms_generate ( struct ast_channel *  chan, void *  data, int  len, int  samples  )

static

outgoing data are produced by this generator function, that reads from the descriptor whether it has data to send and which ones.

Definition at line 1607 of file app_sms.c.

{
    struct ast_frame f = { 0 };
#define MAXSAMPLES (800)
    output_t *buf;
    sms_t *h = data;
    int i, res;
 
    if (samples > MAXSAMPLES) {
        ast_log(LOG_WARNING, "Only doing %d samples (%d requested)\n",
             MAXSAMPLES, samples);
        samples = MAXSAMPLES;
    }
    len = samples * sizeof(*buf) + AST_FRIENDLY_OFFSET;
    buf = ast_alloca(len);
 
    f.frametype = AST_FRAME_VOICE;
    f.subclass.format = __OUT_FMT;
    f.datalen = samples * sizeof(*buf);
    f.offset = AST_FRIENDLY_OFFSET;
    f.mallocd = 0;
    f.data.ptr = buf;
    f.samples = samples;
    f.src = "app_sms";
    /* create a buffer containing the digital sms pattern */
    for (i = 0; i < samples; i++) {
        buf[i] = wave_out[0];               /* default is silence */
 
        if (h->opause) {
            h->opause--;
        } else if (h->obyten || h->osync) { /* sending data */
            buf[i] = wave_out[h->ophase];
            h->ophase += (h->obyte & 1) ? 13 : 21; /* compute next phase */
            if (h->ophase >= 80)
                h->ophase -= 80;
            if ((h->ophasep += 12) >= 80) { /* time to send the next bit */
                h->ophasep -= 80;
                if (h->oseizure > 0) {      /* sending channel seizure (proto 2) */
                    h->oseizure--;
                    h->obyte ^= 1;          /* toggle low bit */
                } else if (h->osync) {
                    h->obyte = 1;           /* send mark as sync bit */
                    h->osync--;             /* sending sync bits */
                    if (h->osync == 0 && h->protocol == 2 && h->omsg[0] == DLL2_SMS_EST) {
                        h->obytep = h->obyten = 0; /* we are done */
                    }
                } else {
                    h->obitp++;
                    if (h->obitp == 1) {
                        h->obyte = 0;       /* start bit; */
                    } else if (h->obitp == 2) {
                        h->obyte = h->omsg[h->obytep];
                    } else if (h->obitp == 10) {
                        h->obyte = 1; /* stop bit */
                        h->obitp = 0;
                        h->obytep++;
                        if (h->obytep == h->obyten) {
                            h->obytep = h->obyten = 0; /* sent */
                            h->osync = 10;    /* trailing marks */
                        }
                    } else {
                        h->obyte >>= 1;
                    }
                }
            }
        }
    }
    res = ast_write(chan, &f);
    ast_frfree(&f);
    if (res < 0) {
        ast_log(LOG_WARNING, "Failed to write frame to '%s': %s\n", ast_channel_name(chan), strerror(errno));
        return -1;
    }
    return 0;
#undef MAXSAMPLES
}

References __OUT_FMT, ast_alloca, ast_channel_name(), AST_FRAME_VOICE, ast_frfree, AST_FRIENDLY_OFFSET, ast_log, ast_write(), buf, ast_frame::data, ast_frame::datalen, DLL2_SMS_EST, errno, ast_frame_subclass::format, ast_frame::frametype, len(), LOG_WARNING, ast_frame::mallocd, MAXSAMPLES, sms_s::obitp, sms_s::obyte, sms_s::obyten, sms_s::obytep, ast_frame::offset, sms_s::omsg, sms_s::opause, sms_s::ophase, sms_s::ophasep, sms_s::oseizure, sms_s::osync, sms_s::protocol, ast_frame::ptr, ast_frame::samples, ast_frame::src, ast_frame::subclass, and wave_out.

sms_handleincoming()

static unsigned char sms_handleincoming ( sms_t *  h )

static

handle the incoming message

Definition at line 1115 of file app_sms.c.

{
    unsigned char p = 3;
    if (h->smsc) {                          /* SMSC */
        if ((h->imsg[2] & 3) == 1) {        /* SMS-SUBMIT */
            h->udhl = h->udl = 0;
            h->vp = 0;
            h->srr = ((h->imsg[2] & 0x20) ? 1 : 0);
            h->udhi = ((h->imsg[2] & 0x40) ? 1 : 0);
            h->rp = ((h->imsg[2] & 0x80) ? 1 : 0);
            ast_copy_string(h->oa, h->cli, sizeof(h->oa));
            h->scts = ast_tvnow();
            h->mr = h->imsg[p++];
            p += unpackaddress(h->da, h->imsg + p);
            h->pid = h->imsg[p++];
            h->dcs = h->imsg[p++];
            if ((h->imsg[2] & 0x18) == 0x10) {       /* relative VP */
                if (h->imsg[p] < 144) {
                    h->vp = (h->imsg[p] + 1) * 5;
                } else if (h->imsg[p] < 168) {
                    h->vp = 720 + (h->imsg[p] - 143) * 30;
                } else if (h->imsg[p] < 197) {
                    h->vp = (h->imsg[p] - 166) * 1440;
                } else {
                    h->vp = (h->imsg[p] - 192) * 10080;
                }
                p++;
            } else if (h->imsg[2] & 0x18) {
                p += 7;                     /* ignore enhanced / absolute VP */
            }
            p += unpacksms(h->dcs, h->imsg + p, h->udh, &h->udhl, h->ud, &h->udl, h->udhi);
            h->rx = 1;                      /* received message */
            sms_writefile(h);               /* write the file */
            if (p != h->imsg[1] + 2) {
                ast_log(LOG_WARNING, "Mismatch receive unpacking %d/%d\n", p, h->imsg[1] + 2);
                return 0xFF;          /* duh! */
            }
        } else {
            ast_log(LOG_WARNING, "Unknown message type %02hhX\n", h->imsg[2]);
            return 0xFF;
        }
    } else {                                /* client */
        if (!(h->imsg[2] & 3)) {            /* SMS-DELIVER */
            *h->da = h->srr = h->rp = h->vp = h->udhi = h->udhl = h->udl = 0;
            h->srr = ((h->imsg[2] & 0x20) ? 1 : 0);
            h->udhi = ((h->imsg[2] & 0x40) ? 1 : 0);
            h->rp = ((h->imsg[2] & 0x80) ? 1 : 0);
            h->mr = -1;
            p += unpackaddress(h->oa, h->imsg + p);
            h->pid = h->imsg[p++];
            h->dcs = h->imsg[p++];
            h->scts = unpackdate(h->imsg + p);
            p += 7;
            p += unpacksms(h->dcs, h->imsg + p, h->udh, &h->udhl, h->ud, &h->udl, h->udhi);
            h->rx = 1;                      /* received message */
            sms_writefile(h);               /* write the file */
            if (p != h->imsg[1] + 2) {
                ast_log(LOG_WARNING, "Mismatch receive unpacking %d/%d\n", p, h->imsg[1] + 2);
                return 0xFF;                /* duh! */
            }
        } else {
            ast_log(LOG_WARNING, "Unknown message type %02hhX\n", h->imsg[2]);
            return 0xFF;
        }
    }
    return 0;                               /* no error */
}

References ast_copy_string(), ast_log, ast_tvnow(), sms_s::cli, sms_s::da, sms_s::dcs, sms_s::imsg, LOG_WARNING, sms_s::mr, sms_s::oa, sms_s::pid, sms_s::rp, sms_s::rx, sms_s::scts, sms_writefile(), sms_s::smsc, sms_s::srr, sms_s::ud, sms_s::udh, sms_s::udhi, sms_s::udhl, sms_s::udl, unpackaddress(), unpackdate(), unpacksms(), and sms_s::vp.

Referenced by sms_messagerx().

sms_handleincoming_proto2()

static int sms_handleincoming_proto2 ( sms_t *  h )

static

sms_handleincoming_proto2: handle the incoming message

Definition at line 1265 of file app_sms.c.

{
    int f, i, sz = 0;
    int msg, msgsz;
    struct ast_tm tm;
    struct timeval now = { 0, 0 };
    char debug_buf[MAX_DEBUG_LEN * 3 + 1];
 
    sz = h->imsg[1] + 2;
    /* ast_verb(3, "SMS-P2 Frame: %s\n", sms_hexdump(h->imsg, sz, debug_buf)); */
 
    /* Parse message body (called payload) */
    now = h->scts = ast_tvnow();
    for (f = 4; f < sz; ) {
        msg = h->imsg[f++];
        msgsz = h->imsg[f++];
        msgsz += (h->imsg[f++] * 256);
        switch (msg) {
        case 0x13:                          /* Body */
            ast_verb(3, "SMS-P2 Body#%02X=[%.*s]\n", (unsigned)msg, msgsz, &h->imsg[f]);
            if (msgsz >= sizeof(h->ud)) {
                msgsz = sizeof(h->ud) - 1;
            }
            for (i = 0; i < msgsz; i++) {
                h->ud[i] = h->imsg[f + i];
            }
            h->udl = msgsz;
            break;
        case 0x14:                          /* Date SCTS */
            now = h->scts = ast_tvnow();
            ast_localtime(&now, &tm, NULL);
            tm.tm_mon = ( (h->imsg[f] * 10) + h->imsg[f + 1] ) - 1;
            tm.tm_mday = ( (h->imsg[f + 2] * 10) + h->imsg[f + 3] );
            tm.tm_hour = ( (h->imsg[f + 4] * 10) + h->imsg[f + 5] );
            tm.tm_min = ( (h->imsg[f + 6] * 10) + h->imsg[f + 7] );
            tm.tm_sec = 0;
            h->scts = ast_mktime(&tm, NULL);
            ast_verb(3, "SMS-P2 Date#%02X=%02d/%02d %02d:%02d\n", (unsigned)msg, tm.tm_mday, tm.tm_mon + 1, tm.tm_hour, tm.tm_min);
            break;
        case 0x15:                          /* Calling line (from SMSC) */
            if (msgsz >= 20) {
                msgsz = 20 - 1;
            }
            ast_verb(3, "SMS-P2 Origin#%02X=[%.*s]\n", (unsigned)msg, msgsz, &h->imsg[f]);
            ast_copy_string(h->oa, (char *)(&h->imsg[f]), msgsz + 1);
            break;
        case 0x18:                          /* Destination(from TE/phone) */
            if (msgsz >= 20) {
                msgsz = 20 - 1;
            }
            ast_verb(3, "SMS-P2 Destination#%02X=[%.*s]\n", (unsigned)msg, msgsz, &h->imsg[f]);
            ast_copy_string(h->da, (char *)(&h->imsg[f]), msgsz + 1);
            break;
        case 0x1C:                          /* Notify */
            ast_verb(3, "SMS-P2 Notify#%02X=%s\n", (unsigned)msg, sms_hexdump(&h->imsg[f], 3, debug_buf));
            break;
        default:
            ast_verb(3, "SMS-P2 Par#%02X [%d]: %s\n", (unsigned)msg, msgsz, sms_hexdump(&h->imsg[f], msgsz, debug_buf));
            break;
        }
        f+=msgsz;                           /* Skip to next */
    }
    h->rx = 1;                              /* received message */
    sms_writefile(h);                       /* write the file */
    return 0;                               /* no error */
}

References ast_copy_string(), ast_localtime(), ast_mktime(), ast_tvnow(), ast_verb, sms_s::da, sms_s::imsg, MAX_DEBUG_LEN, NULL, sms_s::oa, sms_s::rx, sms_s::scts, sms_hexdump(), sms_writefile(), ast_tm::tm_hour, ast_tm::tm_mday, ast_tm::tm_min, ast_tm::tm_mon, ast_tm::tm_sec, sms_s::ud, and sms_s::udl.

Referenced by sms_messagerx2().

sms_hexdump()

static char * sms_hexdump ( unsigned char  buf[], int  size, char *  s  )

static

Definition at line 1252 of file app_sms.c.

{
    char *p;
    int f;
 
    for (p = s, f = 0; f < size && f < MAX_DEBUG_LEN; f++, p += 3) {
        sprintf(p, "%02hhX ", (unsigned char)buf[f]);
    }
    return(s);
}

References buf, and MAX_DEBUG_LEN.

Referenced by sms_handleincoming_proto2().

sms_log()

static void sms_log ( sms_t *  h, char  status  )

static

Log the output, and remove file.

Definition at line 777 of file app_sms.c.

{
    int o;
 
    if (*h->oa == '\0' && *h->da == '\0') {
        return;
    }
    o = open(log_file, O_CREAT | O_APPEND | O_WRONLY, AST_FILE_MODE);
    if (o >= 0) {
        char line[1000], mrs[3] = "", *p;
        char buf[30];
        unsigned char n;
 
        if (h->mr >= 0) {
            snprintf(mrs, sizeof(mrs), "%02hhX", (unsigned char)h->mr);
        }
        snprintf(line, sizeof(line), "%s %c%c%c%s %s %s %s ",
            isodate(time(NULL), buf, sizeof(buf)),
            status, h->rx ? 'I' : 'O', h->smsc ? 'S' : 'M', mrs, h->queue,
            S_OR(h->oa, "-"), S_OR(h->da, "-") );
        p = line + strlen(line);
 
        if (h->nolog) {
            p += snprintf(p, 1000 - strlen(line), "udl=%d", h->udl);
        } else {
            for (n = 0; n < h->udl; n++) {
                if (h->ud[n] == '\\') {
                    *p++ = '\\';
                    *p++ = '\\';
                } else if (h->ud[n] == '\n') {
                    *p++ = '\\';
                    *p++ = 'n';
                } else if (h->ud[n] == '\r') {
                    *p++ = '\\';
                    *p++ = 'r';
                } else if (h->ud[n] < 32 || h->ud[n] == 127) {
                    *p++ = 0xbf;
                } else {
                    *p++ = h->ud[n];
                }
            }
        }
        *p++ = '\n';
        *p = 0;
        if (write(o, line, strlen(line)) < 0) {
            ast_log(LOG_WARNING, "write() failed: %s\n", strerror(errno));
        }
        close(o);
    }
    *h->oa = *h->da = h->udl = 0;
}

References AST_FILE_MODE, ast_log, buf, sms_s::da, errno, isodate(), log_file, LOG_WARNING, sms_s::mr, sms_s::nolog, NULL, sms_s::oa, sms_s::queue, sms_s::rx, S_OR, sms_s::smsc, status, sms_s::ud, and sms_s::udl.

Referenced by sms_messagerx(), and sms_messagerx2().

sms_messagerx()

static void sms_messagerx ( sms_t *  h )

static

Definition at line 1506 of file app_sms.c.

{
    int cause;
 
    sms_debug (DIR_RX, h);
    if (h->protocol == 2) {
        sms_messagerx2(h);
        return;
    }
    /* parse incoming message for Protocol 1 */
    switch (h->imsg[0]) {
    case 0x91:                              /* SMS_DATA */
        cause = sms_handleincoming (h);
        if (!cause) {
            sms_log(h, 'Y');
            h->omsg[0] = 0x95;              /* SMS_ACK */
            h->omsg[1] = 0x02;
            h->omsg[2] = 0x00;              /* deliver report */
            h->omsg[3] = 0x00;              /* no parameters */
        } else {                            /* NACK */
            sms_log(h, 'N');
            h->omsg[0] = 0x96;              /* SMS_NACK */
            h->omsg[1] = 3;
            h->omsg[2] = 0;                 /* delivery report */
            h->omsg[3] = cause;             /* cause */
            h->omsg[4] = 0;                 /* no parameters */
        }
        sms_messagetx(h);
        break;
 
    case 0x92:                              /* SMS_ERROR */
        h->err = 1;
        sms_messagetx(h);                   /* send whatever we sent again */
        break;
    case 0x93:                              /* SMS_EST */
        sms_nextoutgoing (h);
        break;
    case 0x94:                              /* SMS_REL */
        h->hangup = 1;                      /* hangup */
        break;
    case 0x95:                              /* SMS_ACK */
        sms_log(h, 'Y');
        sms_nextoutgoing (h);
        break;
    case 0x96:                              /* SMS_NACK */
        h->err = 1;
        sms_log(h, 'N');
        sms_nextoutgoing (h);
        break;
    default:                                /* Unknown */
        h->omsg[0] = 0x92;                  /* SMS_ERROR */
        h->omsg[1] = 1;
        h->omsg[2] = 3;                     /* unknown message type */
        sms_messagetx(h);
        break;
    }
}

References DIR_RX, sms_s::err, sms_s::hangup, sms_s::imsg, sms_s::omsg, sms_s::protocol, sms_debug(), sms_handleincoming(), sms_log(), sms_messagerx2(), sms_messagetx(), and sms_nextoutgoing().

Referenced by sms_process().

sms_messagerx2()

static void sms_messagerx2 ( sms_t *  h )

static

Definition at line 1346 of file app_sms.c.

{
    int p = h->imsg[0] & DLL_SMS_MASK ; /* mask the high bit */
    int cause;
 
#define DLL2_ACK(h) ((h->framenumber & 1) ? DLL2_SMS_ACK1: DLL2_SMS_ACK1)
    switch (p) {
    case DLL2_SMS_EST:                      /* Protocol 2: Connection ready (fake): send message  */
        sms_nextoutgoing (h);
        /* smssend(h,"11 29 27 00 10 01 00 00 11 06 00 00 00 00 00 00 00 12 03 00 02 00 04 13 01 00 41 14 08 00 30 39 31 35 30 02 30 02 15 02 00 39 30 "); */
        break;
 
    case DLL2_SMS_INFO_MO:                  /* transport SMS_SUBMIT */
    case DLL2_SMS_INFO_MT:                  /* transport SMS_DELIVERY */
        cause = sms_handleincoming_proto2(h);
        if (!cause) {                       /* ACK */
            sms_log(h, 'Y');
        }
        h->omsg[0] = DLL2_ACK(h);
        h->omsg[1] = 0x06;                  /* msg len */
        h->omsg[2] = 0x04;                  /* payload len */
        h->omsg[3] = 0x00;                  /* payload len */
        h->omsg[4] = 0x1f;                  /* Response type */
        h->omsg[5] = 0x01;                  /* parameter len */
        h->omsg[6] = 0x00;                  /* parameter len */
        h->omsg[7] = cause;                 /* CONFIRM or error */
        sms_messagetx(h);
        break;
 
    case DLL2_SMS_NACK:                     /* Protocol 2: SMS_NAK */
        h->omsg[0] = DLL2_SMS_REL;          /* SMS_REL */
        h->omsg[1] = 0x00;                  /* msg len */
        sms_messagetx(h);
        break;
 
    case DLL2_SMS_ACK0:
    case DLL2_SMS_ACK1:
        /* SMS_ACK also transport SMS_SUBMIT or SMS_DELIVERY */
        if ( (h->omsg[0] & DLL_SMS_MASK) == DLL2_SMS_REL) {
            /* a response to our Release, just hangup */
            h->hangup = 1;                  /* hangup */
        } else {
            /* XXX depending on what we are.. */
            ast_log(LOG_NOTICE, "SMS_SUBMIT or SMS_DELIVERY\n");
            sms_nextoutgoing (h);
        }
        break;
 
    case DLL2_SMS_REL:                      /* Protocol 2: SMS_REL (hangup req) */
        h->omsg[0] = DLL2_ACK(h);
        h->omsg[1] = 0;
        sms_messagetx(h);
        break;
    }
}

References ast_log, DLL2_ACK, DLL2_SMS_ACK0, DLL2_SMS_ACK1, DLL2_SMS_EST, DLL2_SMS_INFO_MO, DLL2_SMS_INFO_MT, DLL2_SMS_NACK, DLL2_SMS_REL, DLL_SMS_MASK, sms_s::hangup, sms_s::imsg, LOG_NOTICE, sms_s::omsg, sms_handleincoming_proto2(), sms_log(), sms_messagetx(), and sms_nextoutgoing().

Referenced by sms_messagerx().

sms_messagetx()

static void sms_messagetx ( sms_t *  h )

static

Definition at line 1564 of file app_sms.c.

{
    unsigned char c = 0, p;
    int len = h->omsg[1] + 2;               /* total message length excluding checksum */
 
    for (p = 0; p < len; p++) {             /* compute checksum */
        c += h->omsg[p];
    }
    h->omsg[len] = 0 - c;                   /* actually, (256 - (c & 0fxx)) & 0xff) */
    sms_debug(DIR_TX, h);
    h->framenumber++;                       /* Proto 2 */
    h->obytep = 0;
    h->obitp = 0;
    if (h->protocol == 2) {                 /* Proto 2: */
        h->oseizure = 300;                  /* 300bits (or more ?) */
        h->obyte = 0;                       /* Seizure starts with  space (0) */
        if (h->omsg[0] == 0x7F) {
            h->opause = 8 * h->opause_0;    /* initial message delay */
        } else {
            h->opause = 400;
        }
    } else {                                /* Proto 1: */
        h->oseizure = 0;                    /* No seizure */
        h->obyte = 1;                       /* send mark ('1') at the beginning */
        /* Change the initial message delay. BT requires 300ms,
         * but for others this might be way too much and the phone
         * could time out. XXX make it configurable.
        */
        if (h->omsg[0] == 0x93) {
            h->opause = 8 * h->opause_0;    /* initial message delay */
        } else {
            h->opause = 200;
        }
    }
    /* Note - setting osync triggers the generator */
    h->osync = OSYNC_BITS;                  /* 80 sync bits */
    h->obyten = len + 1;                    /* bytes to send (including checksum) */
}

References c, DIR_TX, sms_s::framenumber, len(), sms_s::obitp, sms_s::obyte, sms_s::obyten, sms_s::obytep, sms_s::omsg, sms_s::opause, sms_s::opause_0, sms_s::oseizure, sms_s::osync, OSYNC_BITS, sms_s::protocol, and sms_debug().

Referenced by sms_messagerx(), sms_messagerx2(), sms_nextoutgoing(), and sms_process().

sms_nextoutgoing()

static void sms_nextoutgoing ( sms_t *  h )

static

find and fill in next message, or send a REL if none waiting

Definition at line 1445 of file app_sms.c.

{
    char fn[100 + NAME_MAX] = "";
    DIR *d;
    char more = 0;
 
    *h->da = *h->oa = '\0';                 /* clear destinations */
    h->rx = 0;                              /* outgoing message */
    snprintf(fn, sizeof(fn), "%s/sms/%s", ast_config_AST_SPOOL_DIR, h->smsc ? "mttx" : "motx");
    ast_mkdir(fn, 0777);                    /* ensure it exists */
    d = opendir(fn);
    if (d) {
        struct dirent *f = readdirqueue(d, h->queue);
        if (f) {
            snprintf(fn + strlen(fn), sizeof(fn) - strlen(fn), "/%s", f->d_name);
            sms_readfile(h, fn);
            if (readdirqueue(d, h->queue)) {
                more = 1;                   /* more to send */
            }
        }
        closedir(d);
    }
    if (*h->da || *h->oa) {                 /* message to send */
        if (h->protocol == 2) {
            sms_compose2(h, more);
        } else {
            sms_compose1(h, more);
        }
    } else {                                /* no message */
        if (h->protocol == 2) {
            h->omsg[0] = 0x17;              /* SMS_REL */
            h->omsg[1] = 0;
        } else {
            h->omsg[0] = 0x94;              /* SMS_REL */
            h->omsg[1] = 0;
            h->sent_rel = 1;
        }
    }
    sms_messagetx(h);
}

References ast_config_AST_SPOOL_DIR, ast_mkdir(), d, sms_s::da, sms_s::oa, sms_s::omsg, sms_s::protocol, sms_s::queue, readdirqueue(), sms_s::rx, sms_s::sent_rel, sms_compose1(), sms_compose2(), sms_messagetx(), sms_readfile(), and sms_s::smsc.

Referenced by sms_messagerx(), and sms_messagerx2().

sms_process()

static void sms_process ( sms_t *  h, int  samples, signed short *  data  )

static

Process an incoming frame, trying to detect the carrier and decode the message. The two frequencies are 1300 and 2100 Hz. The decoder detects the amplitude of the signal over the last few samples, filtering the absolute values with a lowpass filter. If the magnitude (h->imag) is large enough, multiply the signal by the two carriers, and compute the amplitudes m0 and m1. Record the current sample as '0' or '1' depending on which one is greater. The last 3 bits are stored in h->ibith, with the count of '1' bits in h->ibitt. XXX the rest is to be determined.

Definition at line 1715 of file app_sms.c.

{
    int bit;
 
    /*
     * Ignore incoming audio while a packet is being transmitted,
     * the protocol is half-duplex.
     * Unfortunately this means that if the outbound and incoming
     * transmission overlap (which is an error condition anyways),
     * we may miss some data and this makes debugging harder.
     */
    if (h->obyten || h->osync) {
        return;
    }
    for ( ; samples-- ; data++) {
        unsigned long long m0, m1;
        if (abs(*data) > h->imag) {
            h->imag = abs(*data);
        } else {
            h->imag = h->imag * 7 / 8;
        }
        if (h->imag <= 500) {               /* below [arbitrary] threahold: lost carrier */
            if (h->idle++ == 80000) {       /* nothing happening */
                ast_log(LOG_NOTICE, "No data, hanging up\n");
                h->hangup = 1;
                h->err = 1;
            }
            if (h->ierr) {                  /* error */
                ast_log(LOG_NOTICE, "Error %d, hanging up\n", h->ierr);
                /* Protocol 1 */
                h->err = 1;
                h->omsg[0] = 0x92;          /* error */
                h->omsg[1] = 1;
                h->omsg[2] = h->ierr;
                sms_messagetx(h);           /* send error */
            }
            h->ierr = h->ibitn = h->ibytep = h->ibytec = 0;
            continue;
        }
        h->idle = 0;
 
        /* multiply signal by the two carriers. */
        h->ims0 = (h->ims0 * 6 + *data * wave[h->ips0]) / 7;
        h->imc0 = (h->imc0 * 6 + *data * wave[h->ipc0]) / 7;
        h->ims1 = (h->ims1 * 6 + *data * wave[h->ips1]) / 7;
        h->imc1 = (h->imc1 * 6 + *data * wave[h->ipc1]) / 7;
        /* compute the amplitudes */
        m0 = h->ims0 * h->ims0 + h->imc0 * h->imc0;
        m1 = h->ims1 * h->ims1 + h->imc1 * h->imc1;
 
        /* advance the sin/cos pointers */
        if ((h->ips0 += 21) >= 80) {
            h->ips0 -= 80;
        }
        if ((h->ipc0 += 21) >= 80) {
            h->ipc0 -= 80;
        }
        if ((h->ips1 += 13) >= 80) {
            h->ips1 -= 80;
        }
        if ((h->ipc1 += 13) >= 80) {
            h->ipc1 -= 80;
        }
 
        /* set new bit to 1 or 0 depending on which value is stronger */
        h->ibith <<= 1;
        if (m1 > m0) {
            h->ibith |= 1;
        }
        if (h->ibith & 8) {
            h->ibitt--;
        }
        if (h->ibith & 1) {
            h->ibitt++;
        }
        bit = ((h->ibitt > 1) ? 1 : 0);
        if (bit != h->ibitl) {
            h->ibitc = 1;
        } else {
            h->ibitc++;
        }
        h->ibitl = bit;
        if (!h->ibitn && h->ibitc == 4 && !bit) {
            h->ibitn = 1;
            h->iphasep = 0;
        }
        if (bit && h->ibitc == 200) {       /* sync, restart message */
            /* Protocol 2: empty connection ready (I am master) */
            if (h->framenumber < 0 && h->ibytec >= 160 && !memcmp(h->imsg, "UUUUUUUUUUUUUUUUUUUU", 20)) {
                h->framenumber = 1;
                ast_verb(3, "SMS protocol 2 detected\n");
                h->protocol = 2;
                h->imsg[0] = 0xff;          /* special message (fake) */
                h->imsg[1] = h->imsg[2] = 0x00;
                h->ierr = h->ibitn = h->ibytep = h->ibytec = 0;
                sms_messagerx(h);
            }
            h->ierr = h->ibitn = h->ibytep = h->ibytec = 0;
        }
        if (h->ibitn) {
            h->iphasep += 12;
            if (h->iphasep >= 80) {         /* next bit */
                h->iphasep -= 80;
                if (h->ibitn++ == 9) {      /* end of byte */
                    if (!bit) {             /* bad stop bit */
                        if (h->sent_rel) {
                            h->hangup = 1;
                        } else {
                            ast_log(LOG_NOTICE, "Bad stop bit\n");
                            h->ierr = 0xFF;     /* unknown error */
                        }
                    } else {
                        if (h->ibytep < sizeof(h->imsg)) {
                            h->imsg[h->ibytep] = h->ibytev;
                            h->ibytec += h->ibytev;
                            h->ibytep++;
                        } else if (h->ibytep == sizeof(h->imsg)) {
                            ast_log(LOG_NOTICE, "msg too large\n");
                            h->ierr = 2;    /* bad message length */
                        }
                        if (h->ibytep > 1 && h->ibytep == 3 + h->imsg[1] && !h->ierr) {
                            if (!h->ibytec) {
                                sms_messagerx(h);
                            } else {
                                ast_log(LOG_NOTICE, "bad checksum\n");
                                h->ierr = 1; /* bad checksum */
                            }
                        }
                    }
                    h->ibitn = 0;
                }
                h->ibytev = (h->ibytev >> 1) + (bit ? 0x80 : 0);
            }
        }
    }
}

References abs, ast_log, ast_verb, sms_s::err, sms_s::framenumber, sms_s::hangup, sms_s::ibitc, sms_s::ibith, sms_s::ibitl, sms_s::ibitn, sms_s::ibitt, sms_s::ibytec, sms_s::ibytep, sms_s::ibytev, sms_s::idle, sms_s::ierr, sms_s::imag, sms_s::imc0, sms_s::imc1, sms_s::ims0, sms_s::ims1, sms_s::imsg, sms_s::ipc0, sms_s::ipc1, sms_s::iphasep, sms_s::ips0, sms_s::ips1, LOG_NOTICE, sms_s::obyten, sms_s::omsg, sms_s::osync, sms_s::protocol, sms_s::sent_rel, sms_messagerx(), sms_messagetx(), and wave.

sms_readfile()

static void sms_readfile ( sms_t *  h, char *  fn  )

static

parse and delete a file

Definition at line 830 of file app_sms.c.

{
    char line[1000];
    FILE *s;
    char dcsset = 0;                        /* if DSC set */
    ast_log(LOG_NOTICE, "Sending %s\n", fn);
    h->rx = h->udl = *h->oa = *h->da = h->pid = h->srr = h->udhi = h->rp = h->vp = h->udhl = 0;
    h->mr = -1;
    h->dcs = 0xF1;                          /* normal messages class 1 */
    h->scts = ast_tvnow();
    s = fopen(fn, "r");
    if (s) {
        if (unlink(fn)) {                   /* concurrent access, we lost */
            fclose(s);
            return;
        }
        while (fgets (line, sizeof(line), s)) { /* process line in file */
            char *p;
            void *pp = &p;
            for (p = line; *p && *p != '\n' && *p != '\r'; p++);
            *p = 0;                         /* strip eoln */
            p = line;
            if (!*p || *p == ';') {
                continue;                   /* blank line or comment, ignore */
            }
            while (isalnum(*p)) {
                *p = tolower (*p);
                p++;
            }
            while (isspace (*p)) {
                *p++ = 0;
            }
            if (*p == '=') {
                *p++ = 0;
                if (!strcmp(line, "ud")) {  /* parse message (UTF-8) */
                    unsigned char o = 0;
                    memcpy(h->udtxt, p, SMSLEN); /* for protocol 2 */
                    while (*p && o < SMSLEN) {
                        h->ud[o++] = utf8decode(pp);
                    }
                    h->udl = o;
                    if (*p) {
                        ast_log(LOG_WARNING, "UD too long in %s\n", fn);
                    }
                } else {
                    while (isspace (*p)) {
                        p++;
                    }
                    if (!strcmp(line, "oa") && strlen(p) < sizeof(h->oa)) {
                        numcpy (h->oa, p);
                    } else if (!strcmp(line, "da") && strlen(p) < sizeof(h->oa)) {
                        numcpy (h->da, p);
                    } else if (!strcmp(line, "pid")) {
                        h->pid = atoi(p);
                    } else if (!strcmp(line, "dcs")) {
                        h->dcs = atoi(p);
                        dcsset = 1;
                    } else if (!strcmp(line, "mr")) {
                        h->mr = atoi(p);
                    } else if (!strcmp(line, "srr")) {
                        h->srr = (atoi(p) ? 1 : 0);
                    } else if (!strcmp(line, "vp")) {
                        h->vp = atoi(p);
                    } else if (!strcmp(line, "rp")) {
                        h->rp = (atoi(p) ? 1 : 0);
                    } else if (!strcmp(line, "scts")) {    /* get date/time */
                        int Y, m, d, H, M, S;
                        /* XXX Why aren't we using ast_strptime here? */
                        if (sscanf(p, "%4d-%2d-%2dT%2d:%2d:%2d", &Y, &m, &d, &H, &M, &S) == 6) {
                            struct ast_tm t = { 0, };
                            t.tm_year = Y - 1900;
                            t.tm_mon = m - 1;
                            t.tm_mday = d;
                            t.tm_hour = H;
                            t.tm_min = M;
                            t.tm_sec = S;
                            t.tm_isdst = -1;
                            h->scts = ast_mktime(&t, NULL);
                            if (h->scts.tv_sec == 0) {
                                ast_log(LOG_WARNING, "Bad date/timein %s: %s", fn, p);
                            }
                        }
                    } else {
                        ast_log(LOG_WARNING, "Cannot parse in %s: %s=%si\n", fn, line, p);
                    }
                }
            } else if (*p == '#') {                   /* raw hex format */
                *p++ = 0;
                if (*p == '#') {
                    p++;
                    if (!strcmp(line, "ud")) {        /* user data */
                        int o = 0;
                        while (*p && o < SMSLEN) {
                            if (isxdigit(*p) && isxdigit(p[1]) && isxdigit(p[2]) && isxdigit(p[3])) {
                                h->ud[o++] =
                                    (((isalpha(*p) ? 9 : 0) + (*p & 0xF)) << 12) +
                                    (((isalpha(p[1]) ? 9 : 0) + (p[1] & 0xF)) << 8) +
                                    (((isalpha(p[2]) ? 9 : 0) + (p[2] & 0xF)) << 4) + ((isalpha(p[3]) ? 9 : 0) + (p[3] & 0xF));
                                p += 4;
                            } else
                                break;
                        }
                        h->udl = o;
                        if (*p)
                            ast_log(LOG_WARNING, "UD too long / invalid UCS-2 hex in %s\n", fn);
                    } else
                        ast_log(LOG_WARNING, "Only ud can use ## format, %s\n", fn);
                } else if (!strcmp(line, "ud")) {       /* user data */
                    int o = 0;
                    while (*p && o < SMSLEN) {
                        if (isxdigit(*p) && isxdigit(p[1])) {
                            h->ud[o++] = (((isalpha(*p) ? 9 : 0) + (*p & 0xF)) << 4) + ((isalpha(p[1]) ? 9 : 0) + (p[1] & 0xF));
                            p += 2;
                        } else {
                            break;
                        }
                    }
                    h->udl = o;
                    if (*p) {
                        ast_log(LOG_WARNING, "UD too long / invalid UCS-1 hex in %s\n", fn);
                    }
                } else if (!strcmp(line, "udh")) {      /* user data header */
                    unsigned char o = 0;
                    h->udhi = 1;
                    while (*p && o < SMSLEN) {
                        if (isxdigit(*p) && isxdigit(p[1])) {
                            h->udh[o] = (((isalpha(*p) ? 9 : 0) + (*p & 0xF)) << 4) + ((isalpha(p[1]) ? 9 : 0) + (p[1] & 0xF));
                            o++;
                            p += 2;
                        } else {
                            break;
                        }
                    }
                    h->udhl = o;
                    if (*p) {
                        ast_log(LOG_WARNING, "UDH too long / invalid hex in %s\n", fn);
                    }
                } else {
                    ast_log(LOG_WARNING, "Only ud and udh can use # format, %s\n", fn);
                }
            } else {
                ast_log(LOG_WARNING, "Cannot parse in %s: %s\n", fn, line);
            }
        }
        fclose(s);
        if (!dcsset && packsms7(0, h->udhl, h->udh, h->udl, h->ud) < 0) {
            if (packsms8(0, h->udhl, h->udh, h->udl, h->ud) < 0) {
                if (packsms16(0, h->udhl, h->udh, h->udl, h->ud) < 0) {
                    ast_log(LOG_WARNING, "Invalid UTF-8 message even for UCS-2 (%s)\n", fn);
                } else {
                    h->dcs = 0x08;          /* default to 16 bit */
                    ast_log(LOG_WARNING, "Sending in 16 bit format(%s)\n", fn);
                }
            } else {
                h->dcs = 0xF5;              /* default to 8 bit */
                ast_log(LOG_WARNING, "Sending in 8 bit format(%s)\n", fn);
            }
        }
        if (is7bit(h->dcs) && packsms7(0, h->udhl, h->udh, h->udl, h->ud) < 0) {
            ast_log(LOG_WARNING, "Invalid 7 bit GSM data %s\n", fn);
        }
        if (is8bit(h->dcs) && packsms8(0, h->udhl, h->udh, h->udl, h->ud) < 0) {
            ast_log(LOG_WARNING, "Invalid 8 bit data %s\n", fn);
        }
        if (is16bit(h->dcs) && packsms16(0, h->udhl, h->udh, h->udl, h->ud) < 0) {
            ast_log(LOG_WARNING, "Invalid 16 bit data %s\n", fn);
        }
    }
}

References ast_log, ast_mktime(), ast_tvnow(), d, sms_s::da, sms_s::dcs, is16bit, is7bit, is8bit, LOG_NOTICE, LOG_WARNING, sms_s::mr, NULL, numcpy(), sms_s::oa, packsms16(), packsms7(), packsms8(), sms_s::pid, sms_s::rp, sms_s::rx, S, sms_s::scts, SMSLEN, sms_s::srr, ast_tm::tm_hour, ast_tm::tm_isdst, ast_tm::tm_mday, ast_tm::tm_min, ast_tm::tm_mon, ast_tm::tm_sec, ast_tm::tm_year, sms_s::ud, sms_s::udh, sms_s::udhi, sms_s::udhl, sms_s::udl, sms_s::udtxt, utf8decode(), and sms_s::vp.

Referenced by sms_nextoutgoing().

sms_release()

static void sms_release ( struct ast_channel *  chan, void *  data  )

static

Definition at line 1692 of file app_sms.c.

{
    return; /* nothing to do here. */
}

sms_writefile()

static void sms_writefile ( sms_t *  h )

static

white a received text message to a file

Definition at line 1001 of file app_sms.c.

{
    char fn[200] = "", fn2[200] = "";
    char buf[30];
    FILE *o;
 
    if (ast_tvzero(h->scts)) {
        h->scts = ast_tvnow();
    }
    snprintf(fn, sizeof(fn), "%s/sms/%s", ast_config_AST_SPOOL_DIR, h->smsc ? h->rx ? "morx" : "mttx" : h->rx ? "mtrx" : "motx");
    ast_mkdir(fn, 0777);                    /* ensure it exists */
    ast_copy_string(fn2, fn, sizeof(fn2));
    snprintf(fn2 + strlen(fn2), sizeof(fn2) - strlen(fn2), "/%s.%s-%u", h->queue, isodate(h->scts.tv_sec, buf, sizeof(buf)), seq++);
    snprintf(fn + strlen(fn), sizeof(fn) - strlen(fn), "/.%s", fn2 + strlen(fn) + 1);
    if ((o = fopen(fn, "w")) == NULL) {
        return;
    }
 
    if (*h->oa) {
        fprintf(o, "oa=%s\n", h->oa);
    }
    if (*h->da) {
        fprintf(o, "da=%s\n", h->da);
    }
    if (h->udhi) {
        unsigned int p;
        fprintf(o, "udh#");
        for (p = 0; p < h->udhl; p++) {
            fprintf(o, "%02hhX", (unsigned char)h->udh[p]);
        }
        fprintf(o, "\n");
    }
    if (h->udl) {
        unsigned int p;
        for (p = 0; p < h->udl && h->ud[p] >= ' '; p++);
        if (p < h->udl) {
            fputc(';', o);                  /* cannot use ud=, but include as a comment for human readable */
        }
        fprintf(o, "ud=");
        for (p = 0; p < h->udl; p++) {
            unsigned short v = h->ud[p];
            if (v < 32) {
                fputc(191, o);
            } else if (v < 0x80) {
                fputc(v, o);
            } else if (v < 0x800) {
                fputc(0xC0 + (v >> 6), o);
                fputc(0x80 + (v & 0x3F), o);
            } else {
                fputc(0xE0 + (v >> 12), o);
                fputc(0x80 + ((v >> 6) & 0x3F), o);
                fputc(0x80 + (v & 0x3F), o);
            }
        }
        fprintf(o, "\n");
        for (p = 0; p < h->udl && h->ud[p] >= ' '; p++);
        if (p < h->udl) {
            for (p = 0; p < h->udl && h->ud[p] < 0x100; p++);
            if (p == h->udl) {              /* can write in ucs-1 hex */
                fprintf(o, "ud#");
                for (p = 0; p < h->udl; p++) {
                    fprintf(o, "%02hhX", (unsigned char)h->ud[p]);
                }
                fprintf(o, "\n");
            } else {                        /* write in UCS-2 */
                fprintf(o, "ud##");
                for (p = 0; p < h->udl; p++) {
                    fprintf(o, "%04X", (unsigned)h->ud[p]);
                }
                fprintf(o, "\n");
            }
        }
    }
    if (h->scts.tv_sec) {
        char datebuf[30];
        fprintf(o, "scts=%s\n", isodate(h->scts.tv_sec, datebuf, sizeof(datebuf)));
    }
    if (h->pid) {
        fprintf(o, "pid=%d\n", h->pid);
    }
    if (h->dcs != 0xF1) {
        fprintf(o, "dcs=%d\n", h->dcs);
    }
    if (h->vp) {
        fprintf(o, "vp=%u\n", h->vp);
    }
    if (h->srr) {
        fprintf(o, "srr=1\n");
    }
    if (h->mr >= 0) {
        fprintf(o, "mr=%d\n", h->mr);
    }
    if (h->rp) {
        fprintf(o, "rp=1\n");
    }
    fclose(o);
    if (rename(fn, fn2)) {
        unlink(fn);
    } else {
        ast_log(LOG_NOTICE, "Received to %s\n", fn2);
    }
}

References ast_config_AST_SPOOL_DIR, ast_copy_string(), ast_log, ast_mkdir(), ast_tvnow(), ast_tvzero(), buf, sms_s::da, sms_s::dcs, isodate(), LOG_NOTICE, sms_s::mr, NULL, sms_s::oa, sms_s::pid, sms_s::queue, sms_s::rp, sms_s::rx, sms_s::scts, seq, sms_s::smsc, sms_s::srr, sms_s::ud, sms_s::udh, sms_s::udhi, sms_s::udhl, sms_s::udl, and sms_s::vp.

Referenced by sms_handleincoming(), and sms_handleincoming_proto2().

unload_module()

static int unload_module ( void  )

static

Definition at line 2081 of file app_sms.c.

{
    return ast_unregister_application(app);
}

References app, and ast_unregister_application().

unpackaddress()

static unsigned char unpackaddress ( char *  o, unsigned char *  i  )

static

unpack an address from i, return byte length, unpack to o

Definition at line 731 of file app_sms.c.

{
    unsigned char l = i[0], p;
    if (i[1] == 0x91) {
        *o++ = '+';
    }
    for (p = 0; p < l; p++) {
        if (p & 1) {
            *o++ = (i[2 + p / 2] >> 4) + '0';
        } else {
            *o++ = (i[2 + p / 2] & 0xF) + '0';
        }
    }
    *o = 0;
    return (l + 5) / 2;
}

Referenced by sms_handleincoming().

unpackdate()

static struct timeval unpackdate ( unsigned char *  i )

static

unpack a date and return

Definition at line 582 of file app_sms.c.

{
    struct ast_tm t;
 
    t.tm_year = 100 + (i[0] & 0xF) * 10 + (i[0] >> 4);
    t.tm_mon = (i[1] & 0xF) * 10 + (i[1] >> 4) - 1;
    t.tm_mday = (i[2] & 0xF) * 10 + (i[2] >> 4);
    t.tm_hour = (i[3] & 0xF) * 10 + (i[3] >> 4);
    t.tm_min = (i[4] & 0xF) * 10 + (i[4] >> 4);
    t.tm_sec = (i[5] & 0xF) * 10 + (i[5] >> 4);
    t.tm_isdst = 0;
    if (i[6] & 0x08) {
        t.tm_min += 15 * ((i[6] & 0x7) * 10 + (i[6] >> 4));
    } else {
        t.tm_min -= 15 * ((i[6] & 0x7) * 10 + (i[6] >> 4));
    }
 
    return ast_mktime(&t, NULL);
}

References ast_mktime(), NULL, ast_tm::tm_hour, ast_tm::tm_isdst, ast_tm::tm_mday, ast_tm::tm_min, ast_tm::tm_mon, ast_tm::tm_sec, and ast_tm::tm_year.

Referenced by sms_handleincoming().

unpacksms()

static int unpacksms ( unsigned char  dcs, unsigned char *  i, unsigned char *  udh, int *  udhl, unsigned short *  ud, int *  udl, char  udhi  )

static

general unpack - starts with length byte (octet or septet) and returns number of bytes used, inc length

Definition at line 715 of file app_sms.c.

{
    int l = *i++;
    if (is7bit(dcs)) {
        unpacksms7(i, l, udh, udhl, ud, udl, udhi);
        l = (l * 7 + 7) / 8;                /* adjust length to return */
    } else if (is8bit(dcs)) {
        unpacksms8(i, l, udh, udhl, ud, udl, udhi);
    } else {
        l += l % 2;
        unpacksms16(i, l, udh, udhl, ud, udl, udhi);
    }
    return l + 1;
}

References is7bit, is8bit, unpacksms16(), unpacksms7(), and unpacksms8().

Referenced by sms_handleincoming().

unpacksms16()

static void unpacksms16 ( unsigned char *  i, unsigned char  l, unsigned char *  udh, int *  udhl, unsigned short *  ud, int *  udl, char  udhi  )

static

unpacks bytes (16 bit encoding) at i, len l septets, and places in udh and ud setting udhl and udl. udh not used if udhi not set

Definition at line 687 of file app_sms.c.

{
    unsigned short *o = ud;
    *udhl = 0;
    if (udhi) {
        int n = *i;
        *udhl = n;
        if (n) {
            i++;
            l--;
            while (l && n) {
                l--;
                n--;
                *udh++ = *i++;
            }
        }
    }
    while (l--) {
        int v = *i++;
        if (l && l--) {
            v = (v << 8) + *i++;
        }
        *o++ = v;
    }
    *udl = (o - ud);
}

Referenced by unpacksms().

unpacksms7()

static void unpacksms7 ( unsigned char *  i, unsigned char  l, unsigned char *  udh, int *  udhl, unsigned short *  ud, int *  udl, char  udhi  )

static

unpacks bytes (7 bit encoding) at i, len l septets, and places in udh and ud setting udhl and udl. udh not used if udhi not set

Definition at line 605 of file app_sms.c.

{
    unsigned char b = 0, p = 0;
    unsigned short *o = ud;
    *udhl = 0;
    if (udhi && l) {                        /* header */
        int h = i[p];
        *udhl = h;
        if (h) {
            b = 1;
            p++;
            l--;
            while (h-- && l) {
                *udh++ = i[p++];
                b += 8;
                while (b >= 7) {
                    b -= 7;
                    l--;
                    if (!l) {
                        break;
                    }
                }
            }
            /* adjust for fill, septets */
            if (b) {
                b = 7 - b;
                l--;
            }
        }
    }
    while (l--) {
        unsigned char v;
        if (b < 2) {
            v = ((i[p] >> b) & 0x7F);       /* everything in one byte */
        } else {
            v = ((((i[p] >> b) + (i[p + 1] << (8 - b)))) & 0x7F);
        }
        b += 7;
        if (b >= 8) {
            b -= 8;
            p++;
        }
        /* 0x00A0 is the encoding of ESC (27) in defaultalphabet */
        if (o > ud && o[-1] == 0x00A0 && escapes[v]) {
            o[-1] = escapes[v];
        } else {
            *o++ = defaultalphabet[v];
        }
    }
    *udl = (o - ud);
}

References b, defaultalphabet, and escapes.

Referenced by unpacksms().

unpacksms8()

static void unpacksms8 ( unsigned char *  i, unsigned char  l, unsigned char *  udh, int *  udhl, unsigned short *  ud, int *  udl, char  udhi  )

static

unpacks bytes (8 bit encoding) at i, len l septets, and places in udh and ud setting udhl and udl. udh not used if udhi not set.

Definition at line 661 of file app_sms.c.

{
    unsigned short *o = ud;
    *udhl = 0;
    if (udhi) {
        int n = *i;
        *udhl = n;
        if (n) {
            i++;
            l--;
            while (l && n) {
                l--;
                n--;
                *udh++ = *i++;
            }
        }
    }
    while (l--) {
        *o++ = *i++;                        /* not to UTF-8 as explicitly 8 bit coding in DCS */
    }
    *udl = (o - ud);
}

Referenced by unpacksms().

utf8decode()

static long utf8decode ( unsigned char **  pp )

static

Reads next UCS character from NUL terminated UTF-8 string and advance pointer.

Definition at line 318 of file app_sms.c.

{
    unsigned char *p = *pp;
    if (!*p) {
        return 0;                           /* null termination of string */
    }
    (*pp)++;
    if (*p < 0xC0) {
        return *p;                          /* ascii or continuation character */
    }
    if (*p < 0xE0) {
        if (*p < 0xC2 || (p[1] & 0xC0) != 0x80) {
            return *p;                      /* not valid UTF-8 */
        }
        (*pp)++;
        return ((*p & 0x1F) << 6) + (p[1] & 0x3F);
    }
    if (*p < 0xF0) {
        if ((*p == 0xE0 && p[1] < 0xA0) || (p[1] & 0xC0) != 0x80 || (p[2] & 0xC0) != 0x80) {
            return *p;                      /* not valid UTF-8 */
        }
        (*pp) += 2;
        return ((*p & 0x0F) << 12) + ((p[1] & 0x3F) << 6) + (p[2] & 0x3F);
    }
    if (*p < 0xF8) {
        if ((*p == 0xF0 && p[1] < 0x90) || (p[1] & 0xC0) != 0x80 || (p[2] & 0xC0) != 0x80 || (p[3] & 0xC0) != 0x80) {
            return *p;                      /* not valid UTF-8 */
        }
        (*pp) += 3;
        return ((*p & 0x07) << 18) + ((p[1] & 0x3F) << 12) + ((p[2] & 0x3F) << 6) + (p[3] & 0x3F);
    }
    if (*p < 0xFC) {
        if ((*p == 0xF8 && p[1] < 0x88) || (p[1] & 0xC0) != 0x80 || (p[2] & 0xC0) != 0x80 || (p[3] & 0xC0) != 0x80
            || (p[4] & 0xC0) != 0x80) {
            return *p;                      /* not valid UTF-8 */
        }
        (*pp) += 4;
        return ((*p & 0x03) << 24) + ((p[1] & 0x3F) << 18) + ((p[2] & 0x3F) << 12) + ((p[3] & 0x3F) << 6) + (p[4] & 0x3F);
    }
    if (*p < 0xFE) {
        if ((*p == 0xFC && p[1] < 0x84) || (p[1] & 0xC0) != 0x80 || (p[2] & 0xC0) != 0x80 || (p[3] & 0xC0) != 0x80
            || (p[4] & 0xC0) != 0x80 || (p[5] & 0xC0) != 0x80) {
            return *p;                      /* not valid UTF-8 */
        }
        (*pp) += 5;
        return ((*p & 0x01) << 30) + ((p[1] & 0x3F) << 24) + ((p[2] & 0x3F) << 18) + ((p[3] & 0x3F) << 12) + ((p[4] & 0x3F) << 6) + (p[5] & 0x3F);
    }
    return *p;                              /* not sensible */
}

Referenced by sms_readfile().

Variable Documentation

app

char* app = "SMS"

static

Definition at line 127 of file app_sms.c.

Referenced by load_module(), and unload_module().

defaultalphabet

const unsigned short defaultalphabet[]

static

Definition at line 194 of file app_sms.c.

Referenced by packsms7(), and unpacksms7().

escapes

const unsigned short escapes[]

static

Definition at line 207 of file app_sms.c.

Referenced by packsms7(), and unpacksms7().

log_file

char log_file[255]

static

Definition at line 125 of file app_sms.c.

Referenced by load_module(), and sms_log().

message_ref

volatile unsigned char message_ref

static

Definition at line 122 of file app_sms.c.

Referenced by sms_compose1().

seq

volatile unsigned int seq

static

Definition at line 123 of file app_sms.c.

Referenced by __manager_event_sessions_va(), adsi_confirm_match(), append_event(), ast_udptl_write(), parsing(), process_dtmf_cisco(), rtp_learning_rtp_seq_update(), rtp_learning_seq_init(), send_client(), send_retransmit(), sms_writefile(), and udptl_build_packet().

sms_options

const struct ast_app_option sms_options[128] = { [ 's' ] = { .flag = OPTION_BE_SMSC }, [ 'a' ] = { .flag = OPTION_ANSWER }, [ 't' ] = { .flag = OPTION_TWO }, [ 'r' ] = { .flag = OPTION_SRR }, [ 'o' ] = { .flag = OPTION_DCS }, [ 'n' ] = { .flag = OPTIONS_NO_LOG }, [ 'p' ] = { .flag = OPTION_PAUSE , .arg_index = OPTION_ARG_PAUSE + 1 }, }

static

Definition at line 1882 of file app_sms.c.

Referenced by sms_exec().

smsgen

struct ast_generator smsgen

static

Initial value:

= {
    .alloc = sms_alloc,
    .release = sms_release,
    .generate = sms_generate,
}

Definition at line 1697 of file app_sms.c.

wave

const signed short wave[]

static

Definition at line 135 of file app_sms.c.

Referenced by load_module(), and sms_process().

wave_out

const output_t* wave_out = wave

static

Definition at line 151 of file app_sms.c.

Referenced by sms_generate().