Home page | Mailing list | Docs

Last updated: Sat Feb 3 05:00:41 2007

Asterisk developer's documentation :: Codename Pineapple

---

chan_skinny.c

Go to the documentation of this file.

/*
 * Asterisk -- An open source telephony toolkit.
 *
 * Copyright (C) 1999 - 2005, Digium, Inc.
 *
 * chan_skinny was developed by Jeremy McNamara & Florian Overkamp
 * chan_skinny was heavily modified/fixed by North Antara
 *
 * See http://www.asterisk.org for more information about
 * the Asterisk project. Please do not directly contact
 * any of the maintainers of this project for assistance;
 * the project provides a web site, mailing lists and IRC
 * channels for your use.
 *
 * This program is free software, distributed under the terms of
 * the GNU General Public License Version 2. See the LICENSE file
 * at the top of the source tree.
 */

/*! \file
 *
 * \brief Implementation of the Skinny protocol
 *
 * \author Jeremy McNamara & Florian Overkamp & North Antara
 * \ingroup channel_drivers
 */


#include "asterisk.h"

ASTERISK_FILE_VERSION(__FILE__, "$Revision: 51806 $")

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <unistd.h>
#include <sys/socket.h>
#include <netinet/in.h>
#include <netinet/tcp.h>
#include <sys/ioctl.h>
#include <net/if.h>
#include <errno.h>
#include <fcntl.h>
#include <netdb.h>
#include <arpa/inet.h>
#include <sys/signal.h>
#include <signal.h>
#include <ctype.h>

#include "asterisk/lock.h"
#include "asterisk/channel.h"
#include "asterisk/config.h"
#include "asterisk/logger.h"
#include "asterisk/module.h"
#include "asterisk/pbx.h"
#include "asterisk/options.h"
#include "asterisk/lock.h"
#include "asterisk/sched.h"
#include "asterisk/io.h"
#include "asterisk/rtp.h"
#include "asterisk/acl.h"
#include "asterisk/callerid.h"
#include "asterisk/cli.h"
#include "asterisk/say.h"
#include "asterisk/cdr.h"
#include "asterisk/astdb.h"
#include "asterisk/features.h"
#include "asterisk/app.h"
#include "asterisk/musiconhold.h"
#include "asterisk/utils.h"
#include "asterisk/dsp.h"
#include "asterisk/stringfields.h"
#include "asterisk/astobj.h"
#include "asterisk/abstract_jb.h"
#include "asterisk/threadstorage.h"

/*************************************
 * Skinny/Asterisk Protocol Settings *
 *************************************/
static const char tdesc[] = "Skinny Client Control Protocol (Skinny)";
static const char config[] = "skinny.conf";

static int default_capability = AST_FORMAT_ULAW | AST_FORMAT_ALAW;
static struct ast_codec_pref default_prefs;

enum skinny_codecs {
   SKINNY_CODEC_ALAW = 2,
   SKINNY_CODEC_ULAW = 4,
   SKINNY_CODEC_G723_1 = 9,
   SKINNY_CODEC_G729A = 12,
   SKINNY_CODEC_G726_32 = 82, /* XXX Which packing order does this translate to? */
   SKINNY_CODEC_H261 = 100,
   SKINNY_CODEC_H263 = 101
};

#define DEFAULT_SKINNY_PORT   2000
#define DEFAULT_SKINNY_BACKLOG   2
#define SKINNY_MAX_PACKET  1000

static int keep_alive = 120;
static char date_format[6] = "D-M-Y";
static char version_id[16] = "P002F202";

#if __BYTE_ORDER == __LITTLE_ENDIAN
#define letohl(x) (x)
#define letohs(x) (x)
#define htolel(x) (x)
#define htoles(x) (x)
#else
#if defined(SOLARIS) || defined(__Darwin__) || defined(__NetBSD__)
#define __bswap_16(x) \
   ((((x) & 0xff00) >> 8) | \
    (((x) & 0x00ff) << 8))
#define __bswap_32(x) \
   ((((x) & 0xff000000) >> 24) | \
    (((x) & 0x00ff0000) >>  8) | \
    (((x) & 0x0000ff00) <<  8) | \
    (((x) & 0x000000ff) << 24))
#else
#include <bits/byteswap.h>
#endif
#define letohl(x) __bswap_32(x)
#define letohs(x) __bswap_16(x)
#define htolel(x) __bswap_32(x)
#define htoles(x) __bswap_16(x)
#endif

/*! Global jitterbuffer configuration - by default, jb is disabled */
static struct ast_jb_conf default_jbconf =
{
   .flags = 0,
   .max_size = -1,
   .resync_threshold = -1,
   .impl = ""
};
static struct ast_jb_conf global_jbconf;

AST_THREADSTORAGE(device2str_threadbuf);
#define DEVICE2STR_BUFSIZE   15

AST_THREADSTORAGE(control2str_threadbuf);
#define CONTROL2STR_BUFSIZE   100

/*********************
 * Protocol Messages *
 *********************/
/* message types */
#define KEEP_ALIVE_MESSAGE 0x0000
/* no additional struct */

#define REGISTER_MESSAGE 0x0001
struct register_message {
   char name[16];
   uint32_t userId;
   uint32_t instance;
   uint32_t ip;
   uint32_t type;
   uint32_t maxStreams;
};

#define IP_PORT_MESSAGE 0x0002

#define KEYPAD_BUTTON_MESSAGE 0x0003
struct keypad_button_message {
   uint32_t button;
   uint32_t lineInstance;
   uint32_t callReference;
};

#define STIMULUS_MESSAGE 0x0005
struct stimulus_message {
   uint32_t stimulus;
   uint32_t stimulusInstance;
   uint32_t unknown1;
};

#define OFFHOOK_MESSAGE 0x0006
struct offhook_message {
   uint32_t unknown1;
   uint32_t unknown2;
};

#define ONHOOK_MESSAGE 0x0007
struct onhook_message {
   uint32_t unknown1;
   uint32_t unknown2;
};

#define CAPABILITIES_RES_MESSAGE 0x0010
struct station_capabilities {
   uint32_t codec;
   uint32_t frames;
   union {
      char res[8];
      uint32_t rate;
   } payloads;
};

struct capabilities_res_message {
   uint32_t count;
   struct station_capabilities caps[18];
};

#define SPEED_DIAL_STAT_REQ_MESSAGE 0x000A
struct speed_dial_stat_req_message {
   uint32_t speedDialNumber;
};

#define LINE_STATE_REQ_MESSAGE 0x000B
struct line_state_req_message {
   uint32_t lineNumber;
};

#define TIME_DATE_REQ_MESSAGE 0x000D
#define BUTTON_TEMPLATE_REQ_MESSAGE 0x000E
#define VERSION_REQ_MESSAGE 0x000F
#define SERVER_REQUEST_MESSAGE 0x0012

#define ALARM_MESSAGE 0x0020
struct alarm_message {
   uint32_t alarmSeverity;
   char displayMessage[80];
   uint32_t alarmParam1;
   uint32_t alarmParam2;
};

#define OPEN_RECEIVE_CHANNEL_ACK_MESSAGE 0x0022
struct open_receive_channel_ack_message {
   uint32_t status;
   uint32_t ipAddr;
   uint32_t port;
   uint32_t passThruId;
};

#define SOFT_KEY_SET_REQ_MESSAGE 0x0025

#define SOFT_KEY_EVENT_MESSAGE 0x0026
struct soft_key_event_message {
   uint32_t softKeyEvent;
   uint32_t instance;
   uint32_t reference;
};

#define UNREGISTER_MESSAGE 0x0027
#define SOFT_KEY_TEMPLATE_REQ_MESSAGE 0x0028
#define HEADSET_STATUS_MESSAGE 0x002B
#define REGISTER_AVAILABLE_LINES_MESSAGE 0x002D

#define REGISTER_ACK_MESSAGE 0x0081
struct register_ack_message {
   uint32_t keepAlive;
   char dateTemplate[6];
   char res[2];
   uint32_t secondaryKeepAlive;
   char res2[4];
};

#define START_TONE_MESSAGE 0x0082
struct start_tone_message {
   uint32_t tone;
};

#define STOP_TONE_MESSAGE 0x0083

#define SET_RINGER_MESSAGE 0x0085
struct set_ringer_message {
   uint32_t ringerMode;
   uint32_t unknown1; /* See notes in transmit_ringer_mode */
   uint32_t unknown2;
};

#define SET_LAMP_MESSAGE 0x0086
struct set_lamp_message {
   uint32_t stimulus;
   uint32_t stimulusInstance;
   uint32_t deviceStimulus;
};

#define SET_SPEAKER_MESSAGE 0x0088
struct set_speaker_message {
   uint32_t mode;
};

/* XXX When do we need to use this? */
#define SET_MICROPHONE_MESSAGE 0x0089
struct set_microphone_message {
   uint32_t mode;
};

#define START_MEDIA_TRANSMISSION_MESSAGE 0x008A
struct media_qualifier {
   uint32_t precedence;
   uint32_t vad;
   uint32_t packets;
   uint32_t bitRate;
};

struct start_media_transmission_message {
   uint32_t conferenceId;
   uint32_t passThruPartyId;
   uint32_t remoteIp;
   uint32_t remotePort;
   uint32_t packetSize;
   uint32_t payloadType;
   struct media_qualifier qualifier;
};

#define STOP_MEDIA_TRANSMISSION_MESSAGE 0x008B
struct stop_media_transmission_message {
   uint32_t conferenceId;
   uint32_t passThruPartyId;
};

#define CALL_INFO_MESSAGE 0x008F
struct call_info_message {
   char callingPartyName[40];
   char callingParty[24];
   char calledPartyName[40];
   char calledParty[24];
   uint32_t instance;
   uint32_t reference;
   uint32_t type;
   char originalCalledPartyName[40];
   char originalCalledParty[24];
};

#define SPEED_DIAL_STAT_RES_MESSAGE 0x0091
struct speed_dial_stat_res_message {
   uint32_t speedDialNumber;
   char speedDialDirNumber[24];
   char speedDialDisplayName[40];
};

#define LINE_STAT_RES_MESSAGE 0x0092
struct line_stat_res_message {
   uint32_t lineNumber;
   char lineDirNumber[24];
   char lineDisplayName[42];
   uint32_t space;
};

#define DEFINETIMEDATE_MESSAGE 0x0094
struct definetimedate_message {
   uint32_t year; /* since 1900 */
   uint32_t month;
   uint32_t dayofweek;  /* monday = 1 */
   uint32_t day;
   uint32_t hour;
   uint32_t minute;
   uint32_t seconds;
   uint32_t milliseconds;
   uint32_t timestamp;
};

#define BUTTON_TEMPLATE_RES_MESSAGE 0x0097
struct button_definition {
   uint8_t instanceNumber;
   uint8_t buttonDefinition;
};

struct button_definition_template {
   uint8_t buttonDefinition;
   /* for now, anything between 0xB0 and 0xCF is custom */
   /*int custom;*/
};

#define STIMULUS_REDIAL       0x01
#define STIMULUS_SPEEDDIAL    0x02
#define STIMULUS_HOLD         0x03
#define STIMULUS_TRANSFER     0x04
#define STIMULUS_FORWARDALL      0x05
#define STIMULUS_FORWARDBUSY     0x06
#define STIMULUS_FORWARDNOANSWER 0x07
#define STIMULUS_DISPLAY      0x08
#define STIMULUS_LINE         0x09
#define STIMULUS_VOICEMAIL    0x0F
#define STIMULUS_AUTOANSWER      0x11
#define STIMULUS_CONFERENCE      0x7D
#define STIMULUS_CALLPARK     0x7E
#define STIMULUS_CALLPICKUP      0x7F
#define STIMULUS_NONE         0xFF

/* Button types */
#define BT_REDIAL       STIMULUS_REDIAL
#define BT_SPEEDDIAL       STIMULUS_SPEEDDIAL
#define BT_HOLD            STIMULUS_HOLD
#define BT_TRANSFER        STIMULUS_TRANSFER
#define BT_FORWARDALL         STIMULUS_FORWARDALL
#define BT_FORWARDBUSY        STIMULUS_FORWARDBUSY
#define BT_FORWARDNOANSWER    STIMULUS_FORWARDNOANSWER
#define BT_DISPLAY         STIMULUS_DISPLAY
#define BT_LINE            STIMULUS_LINE
#define BT_VOICEMAIL       STIMULUS_VOICEMAIL
#define BT_AUTOANSWER         STIMULUS_AUTOANSWER
#define BT_CONFERENCE         STIMULUS_CONFERENCE
#define BT_CALLPARK        STIMULUS_CALLPARK
#define BT_CALLPICKUP         STIMULUS_CALLPICKUP
#define BT_NONE            0x00

/* Custom button types - add our own between 0xB0 and 0xCF.
   This may need to be revised in the future,
   if stimuluses are ever added in this range. */
#define BT_CUST_LINESPEEDDIAL    0xB0  /* line or speeddial */
#define BT_CUST_HINT       0xB1  /* pipe dream */

struct button_template_res_message {
   uint32_t buttonOffset;
   uint32_t buttonCount;
   uint32_t totalButtonCount;
   struct button_definition definition[42];
};

#define VERSION_RES_MESSAGE 0x0098
struct version_res_message {
   char version[16];
};

#define DISPLAYTEXT_MESSAGE 0x0099
struct displaytext_message {
   char text[40];
};

#define CLEAR_NOTIFY_MESSAGE  0x0115
#define CLEAR_PROMPT_MESSAGE  0x0113
#define CLEAR_DISPLAY_MESSAGE 0x009A

#define CAPABILITIES_REQ_MESSAGE 0x009B

#define REGISTER_REJ_MESSAGE 0x009D
struct register_rej_message {
   char errMsg[33];
};

#define SERVER_RES_MESSAGE 0x009E
struct server_identifier {
   char serverName[48];
};

struct server_res_message {
   struct server_identifier server[5];
   uint32_t serverListenPort[5];
   uint32_t serverIpAddr[5];
};

#define RESET_MESSAGE 0x009F
struct reset_message {
   uint32_t resetType;
};

#define KEEP_ALIVE_ACK_MESSAGE 0x0100

#define OPEN_RECEIVE_CHANNEL_MESSAGE 0x0105
struct open_receive_channel_message {
   uint32_t conferenceId;
   uint32_t partyId;
   uint32_t packets;
   uint32_t capability;
   uint32_t echo;
   uint32_t bitrate;
};

#define CLOSE_RECEIVE_CHANNEL_MESSAGE 0x0106
struct close_receive_channel_message {
   uint32_t conferenceId;
   uint32_t partyId;
};

#define SOFT_KEY_TEMPLATE_RES_MESSAGE 0x0108

struct soft_key_template_definition {
   char softKeyLabel[16];
   uint32_t softKeyEvent;
};

#define KEYDEF_ONHOOK         0
#define KEYDEF_CONNECTED      1
#define KEYDEF_ONHOLD         2
#define KEYDEF_RINGIN         3
#define KEYDEF_OFFHOOK        4
#define KEYDEF_CONNWITHTRANS     5
#define KEYDEF_DADFD       6 /* Digits After Dialing First Digit */
#define KEYDEF_CONNWITHCONF      7
#define KEYDEF_RINGOUT        8
#define KEYDEF_OFFHOOKWITHFEAT      9
#define KEYDEF_UNKNOWN        10

#define SOFTKEY_NONE       0x00
#define SOFTKEY_REDIAL        0x01
#define SOFTKEY_NEWCALL       0x02
#define SOFTKEY_HOLD       0x03
#define SOFTKEY_TRNSFER       0x04
#define SOFTKEY_CFWDALL       0x05
#define SOFTKEY_CFWDBUSY      0x06
#define SOFTKEY_CFWDNOANSWER     0x07
#define SOFTKEY_BKSPC         0x08
#define SOFTKEY_ENDCALL       0x09
#define SOFTKEY_RESUME        0x0A
#define SOFTKEY_ANSWER        0x0B
#define SOFTKEY_INFO       0x0C
#define SOFTKEY_CONFRN        0x0D
#define SOFTKEY_PARK       0x0E
#define SOFTKEY_JOIN       0x0F
#define SOFTKEY_MEETME        0x10
#define SOFTKEY_PICKUP        0x11
#define SOFTKEY_GPICKUP       0x12

struct soft_key_template_definition soft_key_template_default[] = {
   { "Redial",    0x01 },
   { "NewCall",      0x02 },
   { "Hold",      0x03 },
   { "Trnsfer",      0x04 },
   { "CFwdAll",      0x05 },
   { "CFwdBusy",     0x06 },
   { "CFwdNoAnswer", 0x07 },
   { "<<",        0x08 },
   { "EndCall",      0x09 },
   { "Resume",    0x0A },
   { "Answer",    0x0B },
   { "Info",      0x0C },
   { "Confrn",    0x0D },
   { "Park",      0x0E },
   { "Join",      0x0F },
   { "MeetMe",    0x10 },
   { "PickUp",    0x11 },
   { "GPickUp",      0x12 },
};

struct soft_key_definitions {
   const uint8_t mode;
   const uint8_t *defaults;
   const int count;
};

static const uint8_t soft_key_default_onhook[] = {
   SOFTKEY_REDIAL,
   SOFTKEY_CFWDALL,
   SOFTKEY_CFWDBUSY,
   SOFTKEY_GPICKUP,
   SOFTKEY_CONFRN,
};

static const uint8_t soft_key_default_connected[] = {
   SOFTKEY_HOLD,
   SOFTKEY_ENDCALL,
   SOFTKEY_TRNSFER,
   SOFTKEY_PARK,
   SOFTKEY_CFWDALL,
   SOFTKEY_CFWDBUSY,
};

static const uint8_t soft_key_default_onhold[] = {
   SOFTKEY_RESUME,
   SOFTKEY_NEWCALL,
   SOFTKEY_ENDCALL,
   SOFTKEY_TRNSFER,
};

static const uint8_t soft_key_default_ringin[] = {
   SOFTKEY_ANSWER,
   SOFTKEY_ENDCALL,
   SOFTKEY_TRNSFER,
};

static const uint8_t soft_key_default_offhook[] = {
   SOFTKEY_REDIAL,
   SOFTKEY_ENDCALL,
   SOFTKEY_CFWDALL,
   SOFTKEY_CFWDBUSY,
   SOFTKEY_GPICKUP,
};

static const uint8_t soft_key_default_connwithtrans[] = {
   SOFTKEY_HOLD,
   SOFTKEY_ENDCALL,
   SOFTKEY_TRNSFER,
   SOFTKEY_PARK,
   SOFTKEY_CFWDALL,
   SOFTKEY_CFWDBUSY,
};

static const uint8_t soft_key_default_dadfd[] = {
   SOFTKEY_BKSPC,
   SOFTKEY_ENDCALL,
};

static const uint8_t soft_key_default_connwithconf[] = {
   SOFTKEY_NONE,
};

static const uint8_t soft_key_default_ringout[] = {
   SOFTKEY_ENDCALL,
   SOFTKEY_TRNSFER,
   SOFTKEY_CFWDALL,
   SOFTKEY_CFWDBUSY,
};

static const uint8_t soft_key_default_offhookwithfeat[] = {
   SOFTKEY_REDIAL,
   SOFTKEY_ENDCALL,
};

static const uint8_t soft_key_default_unknown[] = {
   SOFTKEY_NONE,
};

static const struct soft_key_definitions soft_key_default_definitions[] = {
   {KEYDEF_ONHOOK, soft_key_default_onhook, sizeof(soft_key_default_onhook) / sizeof(uint8_t)},
   {KEYDEF_CONNECTED, soft_key_default_connected, sizeof(soft_key_default_connected) / sizeof(uint8_t)},
   {KEYDEF_ONHOLD, soft_key_default_onhold, sizeof(soft_key_default_onhold) / sizeof(uint8_t)},
   {KEYDEF_RINGIN, soft_key_default_ringin, sizeof(soft_key_default_ringin) / sizeof(uint8_t)},
   {KEYDEF_OFFHOOK, soft_key_default_offhook, sizeof(soft_key_default_offhook) / sizeof(uint8_t)},
   {KEYDEF_CONNWITHTRANS, soft_key_default_connwithtrans, sizeof(soft_key_default_connwithtrans) / sizeof(uint8_t)},
   {KEYDEF_DADFD, soft_key_default_dadfd, sizeof(soft_key_default_dadfd) / sizeof(uint8_t)},
   {KEYDEF_CONNWITHCONF, soft_key_default_connwithconf, sizeof(soft_key_default_connwithconf) / sizeof(uint8_t)},
   {KEYDEF_RINGOUT, soft_key_default_ringout, sizeof(soft_key_default_ringout) / sizeof(uint8_t)},
   {KEYDEF_OFFHOOKWITHFEAT, soft_key_default_offhookwithfeat, sizeof(soft_key_default_offhookwithfeat) / sizeof(uint8_t)},
   {KEYDEF_UNKNOWN, soft_key_default_unknown, sizeof(soft_key_default_unknown) / sizeof(uint8_t)}
};

struct soft_key_template_res_message {
   uint32_t softKeyOffset;
   uint32_t softKeyCount;
   uint32_t totalSoftKeyCount;
   struct soft_key_template_definition softKeyTemplateDefinition[32];
};

#define SOFT_KEY_SET_RES_MESSAGE 0x0109

struct soft_key_set_definition {
   uint8_t softKeyTemplateIndex[16];
   uint16_t softKeyInfoIndex[16];
};

struct soft_key_set_res_message {
   uint32_t softKeySetOffset;
   uint32_t softKeySetCount;
   uint32_t totalSoftKeySetCount;
   struct soft_key_set_definition softKeySetDefinition[16];
   uint32_t res;
};

#define SELECT_SOFT_KEYS_MESSAGE 0x0110
struct select_soft_keys_message {
   uint32_t instance;
   uint32_t reference;
   uint32_t softKeySetIndex;
   uint32_t validKeyMask;
};

#define CALL_STATE_MESSAGE 0x0111
struct call_state_message {
   uint32_t callState;
   uint32_t lineInstance;
   uint32_t callReference;
};

#define DISPLAY_PROMPT_STATUS_MESSAGE 0x0112
struct display_prompt_status_message {
   uint32_t messageTimeout;
   char promptMessage[32];
   uint32_t lineInstance;
   uint32_t callReference;
};

#define DISPLAY_NOTIFY_MESSAGE 0x0114
struct display_notify_message {
   uint32_t displayTimeout;
   char displayMessage[100];
};

#define ACTIVATE_CALL_PLANE_MESSAGE 0x0116
struct activate_call_plane_message {
   uint32_t lineInstance;
};

#define DIALED_NUMBER_MESSAGE 0x011D
struct dialed_number_message {
   char dialedNumber[24];
   uint32_t lineInstance;
   uint32_t callReference;
};

union skinny_data {
   struct alarm_message alarm;
   struct speed_dial_stat_req_message speeddialreq;
   struct register_message reg;
   struct register_ack_message regack;
   struct register_rej_message regrej;
   struct capabilities_res_message caps;
   struct version_res_message version;
   struct button_template_res_message buttontemplate;
   struct displaytext_message displaytext;
   struct display_prompt_status_message displaypromptstatus;
   struct definetimedate_message definetimedate;
   struct start_tone_message starttone;
   struct speed_dial_stat_res_message speeddial;
   struct line_state_req_message line;
   struct line_stat_res_message linestat;
   struct soft_key_set_res_message softkeysets;
   struct soft_key_template_res_message softkeytemplate;
   struct server_res_message serverres;
   struct reset_message reset;
   struct set_lamp_message setlamp;
   struct set_ringer_message setringer;
   struct call_state_message callstate;
   struct keypad_button_message keypad;
   struct select_soft_keys_message selectsoftkey;
   struct activate_call_plane_message activatecallplane;
   struct stimulus_message stimulus;
   struct offhook_message offhook;
   struct onhook_message onhook;
   struct set_speaker_message setspeaker;
   struct set_microphone_message setmicrophone;
   struct call_info_message callinfo;
   struct start_media_transmission_message startmedia;
   struct stop_media_transmission_message stopmedia;
   struct open_receive_channel_message openreceivechannel;
   struct open_receive_channel_ack_message openreceivechannelack;
   struct close_receive_channel_message closereceivechannel;
   struct display_notify_message displaynotify;
   struct dialed_number_message dialednumber;
   struct soft_key_event_message softkeyeventmessage;
};

/* packet composition */
struct skinny_req {
   int len;
   int res;
   int e;
   union skinny_data data;
};

/* XXX This is the combined size of the variables above.  (len, res, e)
   If more are added, this MUST change.
   (sizeof(skinny_req) - sizeof(skinny_data)) DOES NOT WORK on all systems (amd64?). */
int skinny_header_size = 12;

/*****************************
 * Asterisk specific globals *
 *****************************/

static int skinnydebug = 0;

/* a hostname, portnumber, socket and such is usefull for VoIP protocols */
static struct sockaddr_in bindaddr;
static char ourhost[256];
static int ourport;
static struct in_addr __ourip;
struct ast_hostent ahp;
struct hostent *hp;
static int skinnysock = -1;
static pthread_t accept_t;
static char context[AST_MAX_CONTEXT] = "default";
static char language[MAX_LANGUAGE] = "";
static char mohinterpret[MAX_MUSICCLASS] = "default";
static char mohsuggest[MAX_MUSICCLASS] = "";
static char cid_num[AST_MAX_EXTENSION] = "";
static char cid_name[AST_MAX_EXTENSION] = "";
static char linelabel[AST_MAX_EXTENSION] ="";
static int nat = 0;
static ast_group_t cur_callergroup = 0;
static ast_group_t cur_pickupgroup = 0;
static int immediate = 0;
static int callwaiting = 0;
static int callreturn = 0;
static int threewaycalling = 0;
static int mwiblink = 0;
/* This is for flashhook transfers */
static int transfer = 0;
static int cancallforward = 0;
/* static int busycount = 3;*/
static char accountcode[AST_MAX_ACCOUNT_CODE] = "";
static char mailbox[AST_MAX_EXTENSION];
static int amaflags = 0;
static int callnums = 1;

#define SKINNY_DEVICE_UNKNOWN    -1
#define SKINNY_DEVICE_NONE    0
#define SKINNY_DEVICE_30SPPLUS      1
#define SKINNY_DEVICE_12SPPLUS      2
#define SKINNY_DEVICE_12SP    3
#define SKINNY_DEVICE_12      4
#define SKINNY_DEVICE_30VIP      5
#define SKINNY_DEVICE_7910    6
#define SKINNY_DEVICE_7960    7
#define SKINNY_DEVICE_7940    8
#define SKINNY_DEVICE_7935    9
#define SKINNY_DEVICE_ATA186     12 /* Cisco ATA-186 */
#define SKINNY_DEVICE_7941    115
#define SKINNY_DEVICE_7971    119
#define SKINNY_DEVICE_7985    302
#define SKINNY_DEVICE_7911    307
#define SKINNY_DEVICE_7961GE     308
#define SKINNY_DEVICE_7941GE     309
#define SKINNY_DEVICE_7905    20000
#define SKINNY_DEVICE_7920    30002
#define SKINNY_DEVICE_7970    30006
#define SKINNY_DEVICE_7912    30007
#define SKINNY_DEVICE_7902    30008
#define SKINNY_DEVICE_CIPC    30016 /* Cisco IP Communicator */
#define SKINNY_DEVICE_7961    30018
#define SKINNY_DEVICE_7936    30019
#define SKINNY_DEVICE_SCCPGATEWAY_AN   30027 /* ??? */
#define SKINNY_DEVICE_SCCPGATEWAY_BRI  30028 /* ??? */

#define SKINNY_SPEAKERON 1
#define SKINNY_SPEAKEROFF 2

#define SKINNY_MICON 1
#define SKINNY_MICOFF 2

#define SKINNY_OFFHOOK 1
#define SKINNY_ONHOOK 2
#define SKINNY_RINGOUT 3
#define SKINNY_RINGIN 4
#define SKINNY_CONNECTED 5
#define SKINNY_BUSY 6
#define SKINNY_CONGESTION 7
#define SKINNY_HOLD 8
#define SKINNY_CALLWAIT 9
#define SKINNY_TRANSFER 10
#define SKINNY_PARK 11
#define SKINNY_PROGRESS 12
#define SKINNY_INVALID 14

#define SKINNY_SILENCE     0x00
#define SKINNY_DIALTONE    0x21
#define SKINNY_BUSYTONE    0x23
#define SKINNY_ALERT    0x24
#define SKINNY_REORDER     0x25
#define SKINNY_CALLWAITTONE   0x2D
#define SKINNY_NOTONE      0x7F

#define SKINNY_LAMP_OFF 1
#define SKINNY_LAMP_ON 2
#define SKINNY_LAMP_WINK 3
#define SKINNY_LAMP_FLASH 4
#define SKINNY_LAMP_BLINK 5

#define SKINNY_RING_OFF 1
#define SKINNY_RING_INSIDE 2
#define SKINNY_RING_OUTSIDE 3
#define SKINNY_RING_FEATURE 4

#define TYPE_TRUNK 1
#define TYPE_LINE 2

/* Skinny rtp stream modes. Do we really need this? */
#define SKINNY_CX_SENDONLY 0
#define SKINNY_CX_RECVONLY 1
#define SKINNY_CX_SENDRECV 2
#define SKINNY_CX_CONF     3
#define SKINNY_CX_CONFERENCE  3
#define SKINNY_CX_MUTE     4
#define SKINNY_CX_INACTIVE 4

#if 0
static char *skinny_cxmodes[] = {
   "sendonly",
   "recvonly",
   "sendrecv",
   "confrnce",
   "inactive"
};
#endif

/* driver scheduler */
static struct sched_context *sched;
static struct io_context *io;

/* Protect the monitoring thread, so only one process can kill or start it, and not
   when it's doing something critical. */
AST_MUTEX_DEFINE_STATIC(monlock);
/* Protect the network socket */
AST_MUTEX_DEFINE_STATIC(netlock);
/* Protect the session list */
AST_MUTEX_DEFINE_STATIC(sessionlock);
/* Protect the device list */
AST_MUTEX_DEFINE_STATIC(devicelock);
#if 0
/* Protect the paging device list */
AST_MUTEX_DEFINE_STATIC(pagingdevicelock);
#endif

/* This is the thread for the monitor which checks for input on the channels
   which are not currently in use. */
static pthread_t monitor_thread = AST_PTHREADT_NULL;

/* Wait up to 16 seconds for first digit */
static int firstdigittimeout = 16000;

/* How long to wait for following digits */
static int gendigittimeout = 8000;

/* How long to wait for an extra digit, if there is an ambiguous match */
static int matchdigittimeout = 3000;

struct skinny_subchannel {
   ast_mutex_t lock;
   struct ast_channel *owner;
   struct ast_rtp *rtp;
   struct ast_rtp *vrtp;
   unsigned int callid;
   /* time_t lastouttime; */        /* Unused */
   int progress;
   int ringing;
   int onhold;
   /* int lastout; */            /* Unused */
   int cxmode;
   int nat;
   int outgoing;
   int alreadygone;

   struct skinny_subchannel *next;
   struct skinny_line *parent;
};

struct skinny_line {
   ast_mutex_t lock;
   char name[80];
   char label[42];               /* Label that shows next to the line buttons */
   char accountcode[AST_MAX_ACCOUNT_CODE];
   char exten[AST_MAX_EXTENSION];         /* Extension where to start */
   char context[AST_MAX_CONTEXT];
   char language[MAX_LANGUAGE];
   char cid_num[AST_MAX_EXTENSION];    /* Caller*ID */
   char cid_name[AST_MAX_EXTENSION];      /* Caller*ID */
   char lastcallerid[AST_MAX_EXTENSION];     /* Last Caller*ID */
   char call_forward[AST_MAX_EXTENSION];
   char mailbox[AST_MAX_EXTENSION];
   char mohinterpret[MAX_MUSICCLASS];
   char mohsuggest[MAX_MUSICCLASS];
   char lastnumberdialed[AST_MAX_EXTENSION]; /* Last number that was dialed - used for redial */
   int curtone;               /* Current tone being played */
   ast_group_t callgroup;
   ast_group_t pickupgroup;
   int callwaiting;
   int transfer;
   int threewaycalling;
   int mwiblink;
   int cancallforward;
   int callreturn;
   int dnd; /* How does this affect callwait?  Do we just deny a skinny_request if we're dnd? */
   int hascallerid;
   int hidecallerid;
   int amaflags;
   int type;
   int instance;
   int group;
   int needdestroy;
   int capability;
   int nonCodecCapability;
   int onhooktime;
   int msgstate;              /* voicemail message state */
   int immediate;
   int hookstate;
   int nat;

   struct ast_codec_pref prefs;
   struct skinny_subchannel *sub;
   struct skinny_line *next;
   struct skinny_device *parent;
};

struct skinny_speeddial {
   ast_mutex_t lock;
   char label[42];
   char exten[AST_MAX_EXTENSION];
   int instance;

   struct skinny_speeddial *next;
   struct skinny_device *parent;
};

struct skinny_addon {
   ast_mutex_t lock;
   char type[10];

   struct skinny_addon *next;
   struct skinny_device *parent;
};

static struct skinny_device {
   /* A device containing one or more lines */
   char name[80];
   char id[16];
   char version_id[16];
   int type;
   int registered;
   int lastlineinstance;
   int lastcallreference;
   int capability;
   struct sockaddr_in addr;
   struct in_addr ourip;
   struct skinny_line *lines;
   struct skinny_speeddial *speeddials;
   struct skinny_addon *addons;
   struct ast_codec_pref prefs;
   struct ast_ha *ha;
   struct skinnysession *session;
   struct skinny_device *next;
} *devices = NULL;

struct skinny_paging_device {
   char name[80];
   char id[16];
   struct skinny_device ** devices;
   struct skinny_paging_device *next;
};

static struct skinnysession {
   pthread_t t;
   ast_mutex_t lock;
   struct sockaddr_in sin;
   int fd;
   char inbuf[SKINNY_MAX_PACKET];
   char outbuf[SKINNY_MAX_PACKET];
   struct skinny_device *device;
   struct skinnysession *next;
} *sessions = NULL;

static struct ast_channel *skinny_request(const char *type, int format, void *data, int *cause);
static int skinny_call(struct ast_channel *ast, char *dest, int timeout);
static int skinny_hangup(struct ast_channel *ast);
static int skinny_answer(struct ast_channel *ast);
static struct ast_frame *skinny_read(struct ast_channel *ast);
static int skinny_write(struct ast_channel *ast, struct ast_frame *frame);
static int skinny_indicate(struct ast_channel *ast, int ind, const void *data, size_t datalen);
static int skinny_fixup(struct ast_channel *oldchan, struct ast_channel *newchan);
static int skinny_senddigit_begin(struct ast_channel *ast, char digit);
static int skinny_senddigit_end(struct ast_channel *ast, char digit, unsigned int duration);

static const struct ast_channel_tech skinny_tech = {
   .type = "Skinny",
   .description = tdesc,
   .capabilities = ((AST_FORMAT_MAX_AUDIO << 1) - 1),
   .properties = AST_CHAN_TP_WANTSJITTER | AST_CHAN_TP_CREATESJITTER,
   .requester = skinny_request,
   .call = skinny_call,
   .hangup = skinny_hangup,
   .answer = skinny_answer,
   .read = skinny_read,
   .write = skinny_write,
   .indicate = skinny_indicate,
   .fixup = skinny_fixup,
   .send_digit_begin = skinny_senddigit_begin,
   .send_digit_end = skinny_senddigit_end,
/* .bridge = ast_rtp_bridge, */
};

static void *get_button_template(struct skinnysession *s, struct button_definition_template *btn)
{
   struct skinny_device *d = s->device;
   struct skinny_addon *a = d->addons;
   int i;

   switch (d->type) {
      case SKINNY_DEVICE_30SPPLUS:
      case SKINNY_DEVICE_30VIP:
         /* 13 rows, 2 columns */
         for (i = 0; i < 4; i++)
            (btn++)->buttonDefinition = BT_LINE;
         (btn++)->buttonDefinition = BT_REDIAL;
         (btn++)->buttonDefinition = BT_VOICEMAIL;
         (btn++)->buttonDefinition = BT_CALLPARK;
         (btn++)->buttonDefinition = BT_FORWARDALL;
         (btn++)->buttonDefinition = BT_CONFERENCE;
         for (i = 0; i < 4; i++)
            (btn++)->buttonDefinition = BT_NONE;
         for (i = 0; i < 13; i++)
            (btn++)->buttonDefinition = BT_SPEEDDIAL;
         
         break;
      case SKINNY_DEVICE_12SPPLUS:
      case SKINNY_DEVICE_12SP:
      case SKINNY_DEVICE_12:
         /* 6 rows, 2 columns */
         for (i = 0; i < 2; i++)
            (btn++)->buttonDefinition = BT_LINE;
         (btn++)->buttonDefinition = BT_REDIAL;
         for (i = 0; i < 3; i++)
            (btn++)->buttonDefinition = BT_SPEEDDIAL;
         (btn++)->buttonDefinition = BT_HOLD;
         (btn++)->buttonDefinition = BT_TRANSFER;
         (btn++)->buttonDefinition = BT_FORWARDALL;
         (btn++)->buttonDefinition = BT_CALLPARK;
         (btn++)->buttonDefinition = BT_VOICEMAIL;
         (btn++)->buttonDefinition = BT_CONFERENCE;
         break;
      case SKINNY_DEVICE_7910:
         (btn++)->buttonDefinition = BT_LINE;
         (btn++)->buttonDefinition = BT_HOLD;
         (btn++)->buttonDefinition = BT_TRANSFER;
         (btn++)->buttonDefinition = BT_DISPLAY;
         (btn++)->buttonDefinition = BT_VOICEMAIL;
         (btn++)->buttonDefinition = BT_CONFERENCE;
         (btn++)->buttonDefinition = BT_FORWARDALL;
         for (i = 0; i < 2; i++)
            (btn++)->buttonDefinition = BT_SPEEDDIAL;
         (btn++)->buttonDefinition = BT_REDIAL;
         break;
      case SKINNY_DEVICE_7960:
      case SKINNY_DEVICE_7961:
      case SKINNY_DEVICE_7961GE:
         for (i = 0; i < 6; i++)
            (btn++)->buttonDefinition = BT_CUST_LINESPEEDDIAL;
         break;
      case SKINNY_DEVICE_7940:
      case SKINNY_DEVICE_7941:
      case SKINNY_DEVICE_7941GE:
         for (i = 0; i < 2; i++)
            (btn++)->buttonDefinition = BT_CUST_LINESPEEDDIAL;
         break;
      case SKINNY_DEVICE_7935:
      case SKINNY_DEVICE_7936:
         for (i = 0; i < 2; i++)
            (btn++)->buttonDefinition = BT_LINE;
         break;
      case SKINNY_DEVICE_ATA186:
         (btn++)->buttonDefinition = BT_LINE;
         break;
      case SKINNY_DEVICE_7970:
      case SKINNY_DEVICE_7971:
      case SKINNY_DEVICE_CIPC:
         for (i = 0; i < 8; i++)
            (btn++)->buttonDefinition = BT_CUST_LINESPEEDDIAL;
         break;
      case SKINNY_DEVICE_7985:
         /* XXX I have no idea what the buttons look like on these. */
         ast_log(LOG_WARNING, "Unsupported device type '%d (7985)' found.\n", d->type);
         break;
      case SKINNY_DEVICE_7912:
      case SKINNY_DEVICE_7911:
      case SKINNY_DEVICE_7905:
         (btn++)->buttonDefinition = BT_LINE;
         (btn++)->buttonDefinition = BT_HOLD;
         break;
      case SKINNY_DEVICE_7920:
         /* XXX I don't know if this is right. */
         for (i = 0; i < 4; i++)
            (btn++)->buttonDefinition = BT_CUST_LINESPEEDDIAL;
         break;
      case SKINNY_DEVICE_7902:
         ast_log(LOG_WARNING, "Unsupported device type '%d (7902)' found.\n", d->type);
         break;
      case SKINNY_DEVICE_SCCPGATEWAY_AN:
      case SKINNY_DEVICE_SCCPGATEWAY_BRI:
         ast_log(LOG_WARNING, "Unsupported device type '%d (SCCP gateway)' found.\n", d->type);
         break;
      default:
         ast_log(LOG_WARNING, "Unknown device type '%d' found.\n", d->type);
         break;
   }

   for (a = d->addons; a; a = a->next) {
      if (!strcasecmp(a->type, "7914")) {
         for (i = 0; i < 14; i++)
            (btn++)->buttonDefinition = BT_CUST_LINESPEEDDIAL;
      } else {
         ast_log(LOG_WARNING, "Unknown addon type '%s' found.  Skipping.\n", a->type);
      }
   }

   return btn;
}

static struct skinny_req *req_alloc(size_t size, int response_message)
{
   struct skinny_req *req;

   if (!(req = ast_calloc(1, skinny_header_size + size + 4)))
      return NULL;

   req->len = htolel(size+4);
   req->e = htolel(response_message);

   return req;
}

static struct skinny_line *find_line_by_instance(struct skinny_device *d, int instance)
{
   struct skinny_line *l;

   for (l = d->lines; l; l = l->next) {
      if (l->instance == instance)
         break;
   }

   if (!l) {
      ast_log(LOG_WARNING, "Could not find line with instance '%d' on device '%s'\n", instance, d->name);
   }
   return l;
}

static struct skinny_line *find_line_by_name(const char *dest)
{
   struct skinny_line *l;
   struct skinny_device *d;
   char line[256];
   char *at;
   char *device;

   ast_copy_string(line, dest, sizeof(line));
   at = strchr(line, '@');
   if (!at) {
      ast_log(LOG_NOTICE, "Device '%s' has no @ (at) sign!\n", dest);
      return NULL;
   }
   *at++ = '\0';
   device = at;
   ast_mutex_lock(&devicelock);
   for (d = devices; d; d = d->next) {
      if (!strcasecmp(d->name, device)) {
         if (skinnydebug)
            ast_verbose("Found device: %s\n", d->name);
         /* Found the device */
         for (l = d->lines; l; l = l->next) {
            /* Search for the right line */
            if (!strcasecmp(l->name, line)) {
               ast_mutex_unlock(&devicelock);
               return l;
            }
         }
      }
   }
   /* Device not found */
   ast_mutex_unlock(&devicelock);
   return NULL;
}

/* It's quicker/easier to find the subchannel when we know the instance number too */
static struct skinny_subchannel *find_subchannel_by_instance_reference(struct skinny_device *d, int instance, int reference)
{
   struct skinny_line *l = find_line_by_instance(d, instance);
   struct skinny_subchannel *sub;

   if (!l) {
      return NULL;
   }

   for (sub = l->sub; sub; sub = sub->next) {
      if (sub->callid == reference)
         break;
   }

   if (!sub) {
      ast_log(LOG_WARNING, "Could not find subchannel with reference '%d' on '%s'\n", reference, d->name);
   }
   return sub;
}

/* Find the subchannel when we only have the callid - this shouldn't happen often */
static struct skinny_subchannel *find_subchannel_by_reference(struct skinny_device *d, int reference)
{
   struct skinny_line *l;
   struct skinny_subchannel *sub = NULL;

   for (l = d->lines; l; l = l->next) {
      for (sub = l->sub; sub; sub = sub->next) {
         if (sub->callid == reference)
            break;
      }
      if (sub)
         break;
   }

   if (!l) {
      ast_log(LOG_WARNING, "Could not find any lines that contained a subchannel with reference '%d' on device '%s'\n", reference, d->name);
   } else {
      if (!sub) {
         ast_log(LOG_WARNING, "Could not find subchannel with reference '%d' on '%s@%s'\n", reference, l->name, d->name);
      }
   }
   return sub;
}

static struct skinny_speeddial *find_speeddial_by_instance(struct skinny_device *d, int instance)
{
   struct skinny_speeddial *sd;

   for (sd = d->speeddials; sd; sd = sd->next) {
      if (sd->instance == instance)
         break;
   }

   if (!sd) {
      ast_log(LOG_WARNING, "Could not find speeddial with instance '%d' on device '%s'\n", instance, d->name);
   }
   return sd;
}

static int codec_skinny2ast(enum skinny_codecs skinnycodec)
{
   switch (skinnycodec) {
   case SKINNY_CODEC_ALAW:
      return AST_FORMAT_ALAW;
   case SKINNY_CODEC_ULAW:
      return AST_FORMAT_ULAW;
   case SKINNY_CODEC_G723_1:
      return AST_FORMAT_G723_1;
   case SKINNY_CODEC_G729A:
      return AST_FORMAT_G729A;
   case SKINNY_CODEC_G726_32:
      return AST_FORMAT_G726_AAL2; /* XXX Is this right? */
   case SKINNY_CODEC_H261:
      return AST_FORMAT_H261;
   case SKINNY_CODEC_H263:
      return AST_FORMAT_H263;
   default:
      return 0;
   }
}

static int codec_ast2skinny(int astcodec)
{
   switch (astcodec) {
   case AST_FORMAT_ALAW:
      return SKINNY_CODEC_ALAW;
   case AST_FORMAT_ULAW:
      return SKINNY_CODEC_ULAW;
   case AST_FORMAT_G723_1:
      return SKINNY_CODEC_G723_1;
   case AST_FORMAT_G729A:
      return SKINNY_CODEC_G729A;
   case AST_FORMAT_G726_AAL2: /* XXX Is this right? */
      return SKINNY_CODEC_G726_32;
   case AST_FORMAT_H261:
      return SKINNY_CODEC_H261;
   case AST_FORMAT_H263:
      return SKINNY_CODEC_H263;
   default:
      return 0;
   }
}


static int skinny_register(struct skinny_req *req, struct skinnysession *s)
{
   struct skinny_device *d;
   struct sockaddr_in sin;
   socklen_t slen;

   ast_mutex_lock(&devicelock);
   for (d = devices; d; d = d->next) {
      if (!strcasecmp(req->data.reg.name, d->id)
            && ast_apply_ha(d->ha, &(s->sin))) {
         s->device = d;
         d->type = letohl(req->data.reg.type);
         if (ast_strlen_zero(d->version_id)) {
            ast_copy_string(d->version_id, version_id, sizeof(d->version_id));
         }
         d->registered = 1;
         d->session = s;

         slen = sizeof(sin);
         if (getsockname(s->fd, (struct sockaddr *)&sin, &slen)) {
            ast_log(LOG_WARNING, "Cannot get socket name\n");
            sin.sin_addr = __ourip;
         }
         d->ourip = sin.sin_addr;
         break;
      }
   }
   ast_mutex_unlock(&devicelock);
   if (!d) {
      return 0;
   }
   return 1;
}

static int skinny_unregister(struct skinny_req *req, struct skinnysession *s)
{
   struct skinny_device *d;

   d = s->device;

   if (d) {
      d->session = NULL;
      d->registered = 0;
   }

   return -1; /* main loop will destroy the session */
}

static int transmit_response(struct skinnysession *s, struct skinny_req *req)
{
   int res = 0;
   ast_mutex_lock(&s->lock);

   if (skinnydebug)
      ast_log(LOG_VERBOSE, "writing packet type %04X (%d bytes) to socket %d\n", letohl(req->e), letohl(req->len)+8, s->fd);

   if (letohl(req->len > SKINNY_MAX_PACKET) || letohl(req->len < 0)) {
      ast_log(LOG_WARNING, "transmit_response: the length of the request is out of bounds\n");
      return -1;
   }

   memset(s->outbuf,0,sizeof(s->outbuf));
   memcpy(s->outbuf, req, skinny_header_size);
   memcpy(s->outbuf+skinny_header_size, &req->data, letohl(req->len));

   res = write(s->fd, s->outbuf, letohl(req->len)+8);

   if (res != letohl(req->len)+8) {
      ast_log(LOG_WARNING, "Transmit: write only sent %d out of %d bytes: %s\n", res, letohl(req->len)+8, strerror(errno));
      if (res == -1) {
         if (skinnydebug)
            ast_log(LOG_WARNING, "Transmit: Skinny Client was lost, unregistering\n");
         skinny_unregister(NULL, s);
      }
      
   }
   
   ast_mutex_unlock(&s->lock);
   return 1;
}

static void transmit_speaker_mode(struct skinnysession *s, int mode)
{
   struct skinny_req *req;

   if (!(req = req_alloc(sizeof(struct set_speaker_message), SET_SPEAKER_MESSAGE)))
      return;

   req->data.setspeaker.mode = htolel(mode);
   transmit_response(s, req);
}
/*
static void transmit_microphone_mode(struct skinnysession *s, int mode)
{
   struct skinny_req *req;

   if (!(req = req_alloc(sizeof(struct set_microphone_message), SET_MICROPHONE_MESSAGE)))
      return;

   req->data.setmicrophone.mode = htolel(mode);
   transmit_response(s, req);
}
*/
static void transmit_callstate(struct skinnysession *s, int instance, int state, unsigned callid)
{
   struct skinny_req *req;

   if (!(req = req_alloc(sizeof(struct call_state_message), CALL_STATE_MESSAGE)))
      return;

   if (state == SKINNY_ONHOOK) {
      transmit_speaker_mode(s, SKINNY_SPEAKEROFF);
   }
   req->data.callstate.callState = htolel(state);
   req->data.callstate.lineInstance = htolel(instance);
   req->data.callstate.callReference = htolel(callid);
   transmit_response(s, req);
   if (state == SKINNY_OFFHOOK) {
      if (!(req = req_alloc(sizeof(struct activate_call_plane_message), ACTIVATE_CALL_PLANE_MESSAGE)))
         return;

      req->data.activatecallplane.lineInstance = htolel(instance);
      transmit_response(s, req);
   } else if (state == SKINNY_ONHOOK) {
      if (!(req = req_alloc(sizeof(struct activate_call_plane_message), ACTIVATE_CALL_PLANE_MESSAGE)))
         return;

      req->data.activatecallplane.lineInstance = htolel(instance);
      transmit_response(s, req);

      if (!(req = req_alloc(sizeof(struct close_receive_channel_message), CLOSE_RECEIVE_CHANNEL_MESSAGE)))
         return;

      req->data.closereceivechannel.conferenceId = 0;
      req->data.closereceivechannel.partyId = htolel(callid);
      transmit_response(s, req);

      if (!(req = req_alloc(sizeof(struct stop_media_transmission_message), STOP_MEDIA_TRANSMISSION_MESSAGE)))
         return;

      req->data.stopmedia.conferenceId = 0;
      req->data.stopmedia.passThruPartyId = htolel(callid);
      transmit_response(s, req);
   }
}

static void transmit_callinfo(struct skinnysession *s, const char *fromname, const char *fromnum, const char *toname, const char *tonum, int instance, int callid, int calltype)
{
   struct skinny_req *req;

   if (!(req = req_alloc(sizeof(struct call_info_message), CALL_INFO_MESSAGE)))
      return;

   if (fromname) {
      ast_copy_string(req->data.callinfo.callingPartyName, fromname, sizeof(req->data.callinfo.callingPartyName));
   }
   if (fromnum) {
      ast_copy_string(req->data.callinfo.callingParty, fromnum, sizeof(req->data.callinfo.callingParty));
   }
   if (toname) {
      ast_copy_string(req->data.callinfo.calledPartyName, toname, sizeof(req->data.callinfo.calledPartyName));
   }
   if (tonum) {
      ast_copy_string(req->data.callinfo.calledParty, tonum, sizeof(req->data.callinfo.calledParty));
   }
   req->data.callinfo.instance = htolel(instance);
   req->data.callinfo.reference = htolel(callid);
   req->data.callinfo.type = htolel(calltype);
   transmit_response(s, req);
}

static void transmit_connect(struct skinnysession *s, struct skinny_subchannel *sub)
{
   struct skinny_req *req;
   struct skinny_line *l = sub->parent;
   struct ast_format_list fmt;

   if (!(req = req_alloc(sizeof(struct open_receive_channel_message), OPEN_RECEIVE_CHANNEL_MESSAGE)))
      return;

   fmt = ast_codec_pref_getsize(&l->prefs, ast_best_codec(l->capability));

   req->data.openreceivechannel.conferenceId = htolel(0);
   req->data.openreceivechannel.partyId = htolel(sub->callid);
   req->data.openreceivechannel.packets = htolel(fmt.cur_ms);
   req->data.openreceivechannel.capability = htolel(codec_ast2skinny(fmt.bits));
   req->data.openreceivechannel.echo = htolel(0);
   req->data.openreceivechannel.bitrate = htolel(0);
   transmit_response(s, req);
}

static void transmit_tone(struct skinnysession *s, int tone)
{
   struct skinny_req *req;

   if (tone == SKINNY_NOTONE) {
      /* This is bad, mmm'kay? */
      return;
   }

   if (tone > 0) {
      if (!(req = req_alloc(sizeof(struct start_tone_message), START_TONE_MESSAGE)))
         return;
   } else {
      if (!(req = req_alloc(0, STOP_TONE_MESSAGE)))
         return;
   }

   if (tone > 0) {
      req->data.starttone.tone = htolel(tone);
   }
   transmit_response(s, req);
}

static void transmit_selectsoftkeys(struct skinnysession *s, int instance, int callid, int softkey)
{
   struct skinny_req *req;

   if (!(req = req_alloc(sizeof(struct select_soft_keys_message), SELECT_SOFT_KEYS_MESSAGE)))
      return;

   req->data.selectsoftkey.instance = htolel(instance);
   req->data.selectsoftkey.reference = htolel(callid);
   req->data.selectsoftkey.softKeySetIndex = htolel(softkey);
   req->data.selectsoftkey.validKeyMask = htolel(0xFFFFFFFF);
   transmit_response(s, req);
}

static void transmit_lamp_indication(struct skinnysession *s, int stimulus, int instance, int indication)
{
   struct skinny_req *req;

   if (!(req = req_alloc(sizeof(struct set_lamp_message), SET_LAMP_MESSAGE)))
      return;

   req->data.setlamp.stimulus = htolel(stimulus);
   req->data.setlamp.stimulusInstance = htolel(instance);
   req->data.setlamp.deviceStimulus = htolel(indication);
   transmit_response(s, req);
}

static void transmit_ringer_mode(struct skinnysession *s, int mode)
{
   struct skinny_req *req;

   if (skinnydebug)
      ast_verbose("Setting ringer mode to '%d'.\n", mode);

   if (!(req = req_alloc(sizeof(struct set_ringer_message), SET_RINGER_MESSAGE)))
      return;

   req->data.setringer.ringerMode = htolel(mode);
   /* XXX okay, I don't quite know what this is, but here's what happens (on a 7960).
      Note: The phone will always show as ringing on the display.

      1: phone will audibly ring over and over
      2: phone will audibly ring only once
      any other value, will NOT cause the phone to audibly ring
   */
   req->data.setringer.unknown1 = htolel(1);
   /* XXX the value here doesn't seem to change anything.  Must be higher than 0.
      Perhaps a packet capture can shed some light on this. */
   req->data.setringer.unknown2 = htolel(1);
   transmit_response(s, req);
}

static void transmit_displaymessage(struct skinnysession *s, const char *text)
{
   struct skinny_req *req;

   if (text == 0) {
      if (!(req = req_alloc(0, CLEAR_DISPLAY_MESSAGE)))
         return;

      if (skinnydebug)
         ast_verbose("Clearing Display\n");
   } else {
      if (!(req = req_alloc(sizeof(struct displaytext_message), DISPLAYTEXT_MESSAGE)))
         return;

      ast_copy_string(req->data.displaytext.text, text, sizeof(req->data.displaytext.text));
      if (skinnydebug)
         ast_verbose("Displaying message '%s'\n", req->data.displaytext.text);
   }

   transmit_response(s, req);
}

static void transmit_displaynotify(struct skinnysession *s, const char *text, int t)
{
   struct skinny_req *req;

   if (!(req = req_alloc(sizeof(struct display_notify_message), DISPLAY_NOTIFY_MESSAGE)))
      return;

   ast_copy_string(req->data.displaynotify.displayMessage, text, sizeof(req->data.displaynotify.displayMessage));
   req->data.displaynotify.displayTimeout = htolel(t);

   if (skinnydebug)
      ast_verbose("Displaying notify '%s'\n", text);

   transmit_response(s, req);
}

static void transmit_displaypromptstatus(struct skinnysession *s, const char *text, int t, int instance, int callid)
{
   struct skinny_req *req;

   if (!(req = req_alloc(sizeof(struct display_prompt_status_message), DISPLAY_PROMPT_STATUS_MESSAGE)))
      return;

   ast_copy_string(req->data.displaypromptstatus.promptMessage, text, sizeof(req->data.displaypromptstatus.promptMessage));
   req->data.displaypromptstatus.messageTimeout = htolel(t);
   req->data.displaypromptstatus.lineInstance = htolel(instance);
   req->data.displaypromptstatus.callReference = htolel(callid);

   if (skinnydebug)
      ast_verbose("Displaying Prompt Status '%s'\n", text);

   transmit_response(s, req);
}

static void transmit_dialednumber(struct skinnysession *s, const char *text, int instance, int callid)
{
   struct skinny_req *req;

   if (!(req = req_alloc(sizeof(struct dialed_number_message), DIALED_NUMBER_MESSAGE)))
      return;

   ast_copy_string(req->data.dialednumber.dialedNumber, text, sizeof(req->data.dialednumber.dialedNumber));
   req->data.dialednumber.lineInstance = htolel(instance);
   req->data.dialednumber.callReference = htolel(callid);

   transmit_response(s, req);
}

/*
static int has_voicemail(struct skinny_line *l)
{
   return ast_app_has_voicemail(l->mailbox, NULL);
}
*/

static void do_housekeeping(struct skinnysession *s)
{
/*
   int new;
   int old;
   struct skinny_device *d = s->device;
   struct skinny_line *l;
*/

   transmit_displaymessage(s, NULL);

/*
   for (l = d->lines; l; l = l->next) {
      if (has_voicemail(l)) {
         if (skinnydebug)
            ast_verbose("Checking for voicemail Skinny %s@%s\n", l->name, d->name);
         ast_app_inboxcount(l->mailbox, &new, &old);
         if (skinnydebug)
            ast_verbose("Skinny %s@%s has voicemail!\n", l->name, d->name);
         transmit_lamp_indication(s, STIMULUS_VOICEMAIL, l->instance, l->mwiblink?SKINNY_LAMP_BLINK:SKINNY_LAMP_ON);
      } else {
         transmit_lamp_indication(s, STIMULUS_VOICEMAIL, l->instance, SKINNY_LAMP_OFF);
      }
   }
*/
}

/* I do not believe skinny can deal with video.
   Anyone know differently? */
/* Yes, it can.  Currently 7985 and Cisco VT Advantage do video. */
static enum ast_rtp_get_result skinny_get_vrtp_peer(struct ast_channel *c, struct ast_rtp **rtp)
{
   struct skinny_subchannel *sub = NULL;

   if (!(sub = c->tech_pvt) || !(sub->vrtp))
      return AST_RTP_GET_FAILED;

   *rtp = sub->vrtp;

   return AST_RTP_TRY_NATIVE;
}

static enum ast_rtp_get_result skinny_get_rtp_peer(struct ast_channel *c, struct ast_rtp **rtp)
{
   struct skinny_subchannel *sub = NULL;

   if (!(sub = c->tech_pvt) || !(sub->rtp))
      return AST_RTP_GET_FAILED;

   *rtp = sub->rtp;

   return AST_RTP_TRY_NATIVE;
}

static int skinny_set_rtp_peer(struct ast_channel *c, struct ast_rtp *rtp, struct ast_rtp *vrtp, int codecs, int nat_active)
{
   struct skinny_subchannel *sub;
   sub = c->tech_pvt;
   if (sub) {
      /* transmit_modify_with_sdp(sub, rtp); @@FIXME@@ if needed */
      return 0;
   }
   return -1;
}

static struct ast_rtp_protocol skinny_rtp = {
   .type = "Skinny",
   .get_rtp_info = skinny_get_rtp_peer,
   .get_vrtp_info = skinny_get_vrtp_peer,
   .set_rtp_peer = skinny_set_rtp_peer,
};

static int skinny_do_debug(int fd, int argc, char *argv[])
{
   if (argc != 3) {
      return RESULT_SHOWUSAGE;
   }
   skinnydebug = 1;
   ast_cli(fd, "Skinny Debugging Enabled\n");
   return RESULT_SUCCESS;
}

static int skinny_no_debug(int fd, int argc, char *argv[])
{
   if (argc != 4) {
      return RESULT_SHOWUSAGE;
   }
   skinnydebug = 0;
   ast_cli(fd, "Skinny Debugging Disabled\n");
   return RESULT_SUCCESS;
}

static char *complete_skinny_reset(const char *line, const char *word, int pos, int state)
{
   struct skinny_device *d;

   char *result = NULL;
   int wordlen = strlen(word);
   int which = 0;

   if (pos == 2) {
      for (d = devices; d && !result; d = d->next) {
         if (!strncasecmp(word, d->id, wordlen) && ++which > state)
            result = ast_strdup(d->id);
      }
   }

   return result;
}

static int skinny_reset_device(int fd, int argc, char *argv[])
{
   struct skinny_device *d;
   struct skinny_req *req;

   if (argc < 3 || argc > 4) {
      return RESULT_SHOWUSAGE;
   }
   ast_mutex_lock(&devicelock);

   for (d = devices; d; d = d->next) {
      int fullrestart = 0;
      if (!strcasecmp(argv[2], d->id) || !strcasecmp(argv[2], "all")) {
         if (!(d->session))
            continue;

         if (!(req = req_alloc(sizeof(struct reset_message), RESET_MESSAGE)))
            continue;

         if (argc == 4 && !strcasecmp(argv[3], "restart"))
            fullrestart = 1;

         if (fullrestart)
            req->data.reset.resetType = 2;
         else
            req->data.reset.resetType = 1;

         if (option_verbose > 2)
            ast_verbose(VERBOSE_PREFIX_3 "%s device %s.\n", (fullrestart) ? "Restarting" : "Resetting", d->id);
         transmit_response(d->session, req);
      }
   }
   ast_mutex_unlock(&devicelock);
   return RESULT_SUCCESS;
}

static char *device2str(int type)
{
   char *tmp;

   switch (type) {
   case SKINNY_DEVICE_NONE:
      return "No Device";
   case SKINNY_DEVICE_30SPPLUS:
      return "30SP Plus";
   case SKINNY_DEVICE_12SPPLUS:
      return "12SP Plus";
   case SKINNY_DEVICE_12SP:
      return "12SP";
   case SKINNY_DEVICE_12:
      return "12";
   case SKINNY_DEVICE_30VIP:
      return "30VIP";
   case SKINNY_DEVICE_7910:
      return "7910";
   case SKINNY_DEVICE_7960:
      return "7960";
   case SKINNY_DEVICE_7940:
      return "7940";
   case SKINNY_DEVICE_7935:
      return "7935";
   case SKINNY_DEVICE_ATA186:
      return "ATA186";
   case SKINNY_DEVICE_7941:
      return "7941";
   case SKINNY_DEVICE_7971:
      return "7971";
   case SKINNY_DEVICE_7985:
      return "7985";
   case SKINNY_DEVICE_7911:
      return "7911";
   case SKINNY_DEVICE_7961GE:
      return "7961GE";
   case SKINNY_DEVICE_7941GE:
      return "7941GE";
   case SKINNY_DEVICE_7905:
      return "7905";
   case SKINNY_DEVICE_7920:
      return "7920";
   case SKINNY_DEVICE_7970:
      return "7970";
   case SKINNY_DEVICE_7912:
      return "7912";
   case SKINNY_DEVICE_7902:
      return "7902";
   case SKINNY_DEVICE_CIPC:
      return "IP Communicator";
   case SKINNY_DEVICE_7961:
      return "7961";
   case SKINNY_DEVICE_7936:
      return "7936";
   case SKINNY_DEVICE_SCCPGATEWAY_AN:
      return "SCCPGATEWAY_AN";
   case SKINNY_DEVICE_SCCPGATEWAY_BRI:
      return "SCCPGATEWAY_BRI";
   case SKINNY_DEVICE_UNKNOWN:
      return "Unknown";
   default:
      if (!(tmp = ast_threadstorage_get(&device2str_threadbuf, DEVICE2STR_BUFSIZE)))
         return "Unknown";
      snprintf(tmp, DEVICE2STR_BUFSIZE, "UNKNOWN-%d", type);
      return tmp;
   }
}

static int skinny_show_devices(int fd, int argc, char *argv[])
{
   struct skinny_device *d;
   struct skinny_line *l;
   int numlines = 0;

   if (argc != 3) {
      return RESULT_SHOWUSAGE;
   }
   ast_mutex_lock(&devicelock);

   ast_cli(fd, "Name                 DeviceId         IP              Type            R NL\n");
   ast_cli(fd, "-------------------- ---------------- --------------- --------------- - --\n");
   for (d = devices; d; d = d->next) {
      numlines = 0;
      for (l = d->lines; l; l = l->next) {
         numlines++;
      }

      ast_cli(fd, "%-20s %-16s %-15s %-15s %c %2d\n",
            d->name,
            d->id,
            d->session?ast_inet_ntoa(d->session->sin.sin_addr):"",
            device2str(d->type),
            d->registered?'Y':'N',
            numlines);
   }
   ast_mutex_unlock(&devicelock);
   return RESULT_SUCCESS;
}

static int skinny_show_lines(int fd, int argc, char *argv[])
{
   struct skinny_device *d;
   struct skinny_line *l;

   if (argc != 3) {
      return RESULT_SHOWUSAGE;
   }
   ast_mutex_lock(&devicelock);

   ast_cli(fd, "Device Name          Instance Name                 Label               \n");
   ast_cli(fd, "-------------------- -------- -------------------- --------------------\n");
   for (d = devices; d; d = d->next) {
      for (l = d->lines; l; l = l->next) {
         ast_cli(fd, "%-20s %8d %-20s %-20s\n",
            d->name,
            l->instance,
            l->name,
            l->label);
      }
   }

   ast_mutex_unlock(&devicelock);
   return RESULT_SUCCESS;
}

static const char show_devices_usage[] =
"Usage: skinny show devices\n"
"       Lists all devices known to the Skinny subsystem.\n";

static const char show_lines_usage[] =
"Usage: skinny show lines\n"
"       Lists all lines known to the Skinny subsystem.\n";

static const char debug_usage[] =
"Usage: skinny set debug\n"
"       Enables dumping of Skinny packets for debugging purposes\n";

static const char no_debug_usage[] =
"Usage: skinny set debug off\n"
"       Disables dumping of Skinny packets for debugging purposes\n";

static const char reset_usage[] =
"Usage: skinny reset <DeviceId|all> [restart]\n"
"       Causes a Skinny device to reset itself, optionally with a full restart\n";

static struct ast_cli_entry cli_skinny[] = {
   { { "skinny", "show", "devices", NULL },
   skinny_show_devices, "List defined Skinny devices",
   show_devices_usage },

   { { "skinny", "show", "lines", NULL },
   skinny_show_lines, "List defined Skinny lines per device",
   show_lines_usage },

   { { "skinny", "set", "debug", NULL },
   skinny_do_debug, "Enable Skinny debugging",
   debug_usage },

   { { "skinny", "set", "debug", "off", NULL },
   skinny_no_debug, "Disable Skinny debugging",
   no_debug_usage },

   { { "skinny", "reset", NULL },
   skinny_reset_device, "Reset Skinny device(s)",
   reset_usage, complete_skinny_reset },
};

#if 0
static struct skinny_paging_device *build_paging_device(const char *cat, struct ast_variable *v)
{
   return NULL;
}
#endif

static struct skinny_device *build_device(const char *cat, struct ast_variable *v)
{
   struct skinny_device *d;
   struct skinny_line *l;
   struct skinny_speeddial *sd;
   struct skinny_addon *a;
   int lineInstance = 1;
   int speeddialInstance = 1;
   int y = 0;

   if (!(d = ast_calloc(1, sizeof(struct skinny_device)))) {
      return NULL;
   } else {
      ast_copy_string(d->name, cat, sizeof(d->name));
      d->lastlineinstance = 1;
      d->capability = default_capability;
      d->prefs = default_prefs;
      while(v) {
         if (!strcasecmp(v->name, "host")) {
            if (ast_get_ip(&d->addr, v->value)) {
               free(d);
               return NULL;
            }
         } else if (!strcasecmp(v->name, "port")) {
            d->addr.sin_port = htons(atoi(v->value));
         } else if (!strcasecmp(v->name, "device")) {
            ast_copy_string(d->id, v->value, sizeof(d->id));
         } else if (!strcasecmp(v->name, "permit") || !strcasecmp(v->name, "deny")) {
            d->ha = ast_append_ha(v->name, v->value, d->ha, NULL);
         } else if (!strcasecmp(v->name, "context")) {
            ast_copy_string(context, v->value, sizeof(context));
         } else if (!strcasecmp(v->name, "allow")) {
            ast_parse_allow_disallow(&d->prefs, &d->capability, v->value, 1);
         } else if (!strcasecmp(v->name, "disallow")) {
            ast_parse_allow_disallow(&d->prefs, &d->capability, v->value, 0);
         } else if (!strcasecmp(v->name, "version")) {
            ast_copy_string(d->version_id, v->value, sizeof(d->version_id));
         } else if (!strcasecmp(v->name, "nat")) {
            nat = ast_true(v->value);
         } else if (!strcasecmp(v->name, "callerid")) {
            if (!strcasecmp(v->value, "asreceived")) {
               cid_num[0] = '\0';
               cid_name[0] = '\0';
            } else {
               ast_callerid_split(v->value, cid_name, sizeof(cid_name), cid_num, sizeof(cid_num));
            }
         } else if (!strcasecmp(v->name, "language")) {
            ast_copy_string(language, v->value, sizeof(language));
         } else if (!strcasecmp(v->name, "accountcode")) {
            ast_copy_string(accountcode, v->value, sizeof(accountcode));
         } else if (!strcasecmp(v->name, "amaflags")) {
            y = ast_cdr_amaflags2int(v->value);
            if (y < 0) {
               ast_log(LOG_WARNING, "Invalid AMA flags: %s at line %d\n", v->value, v->lineno);
            } else {
               amaflags = y;
            }
         } else if (!strcasecmp(v->name, "mohinterpret") || !strcasecmp(v->name, "musiconhold")) {
            ast_copy_string(mohinterpret, v->value, sizeof(mohinterpret));
         } else if (!strcasecmp(v->name, "mohsuggest")) {
            ast_copy_string(mohsuggest, v->value, sizeof(mohsuggest));
         } else if (!strcasecmp(v->name, "callgroup")) {
            cur_callergroup = ast_get_group(v->value);
         } else if (!strcasecmp(v->name, "pickupgroup")) {
            cur_pickupgroup = ast_get_group(v->value);
         } else if (!strcasecmp(v->name, "immediate")) {
            immediate = ast_true(v->value);
         } else if (!strcasecmp(v->name, "cancallforward")) {
            cancallforward = ast_true(v->value);
         } else if (!strcasecmp(v->name, "mailbox")) {
            ast_copy_string(mailbox, v->value, sizeof(mailbox));
         } else if (!strcasecmp(v->name, "callreturn")) {
            callreturn = ast_true(v->value);
         } else if (!strcasecmp(v->name, "callwaiting")) {
            callwaiting = ast_true(v->value);
         } else if (!strcasecmp(v->name, "transfer")) {
            transfer = ast_true(v->value);
         } else if (!strcasecmp(v->name, "threewaycalling")) {
            threewaycalling = ast_true(v->value);
         } else if (!strcasecmp(v->name, "mwiblink")) {
            mwiblink = ast_true(v->value);
         } else if (!strcasecmp(v->name, "linelabel")) {
            ast_copy_string(linelabel, v->value, sizeof(linelabel));
         } else if (!strcasecmp(v->name, "speeddial")) {
            if (!(sd = ast_calloc(1, sizeof(struct skinny_speeddial)))) {
               return NULL;
            } else {
               char *stringp, *exten, *label;
               stringp = v->value;
               exten = strsep(&stringp, ",");
               label = strsep(&stringp, ",");
               ast_mutex_init(&sd->lock);
               ast_copy_string(sd->exten, exten, sizeof(sd->exten));
               if (label)
                  ast_copy_string(sd->label, label, sizeof(sd->label));
               else
                  ast_copy_string(sd->label, exten, sizeof(sd->label));
               sd->instance = speeddialInstance++;

               sd->next = d->speeddials;
               d->speeddials = sd;
            }
         } else if (!strcasecmp(v->name, "addon")) {
            if (!(a = ast_calloc(1, sizeof(struct skinny_addon)))) {
               return NULL;
            } else {
               ast_mutex_init(&a->lock);
               ast_copy_string(a->type, v->value, sizeof(a->type));

               a->next = d->addons;
               d->addons = a;
            }
         } else if (!strcasecmp(v->name, "trunk") || !strcasecmp(v->name, "line")) {
            if (!(l = ast_calloc(1, sizeof(struct skinny_line)))) {
               return NULL;
            } else {
               ast_mutex_init(&l->lock);
               ast_copy_string(l->name, v->value, sizeof(l->name));

               /* XXX Should we check for uniqueness?? XXX */
               ast_copy_string(l->context, context, sizeof(l->context));
               ast_copy_string(l->cid_num, cid_num, sizeof(l->cid_num));
               ast_copy_string(l->cid_name, cid_name, sizeof(l->cid_name));
               ast_copy_string(l->label, linelabel, sizeof(l->label));
               ast_copy_string(l->language, language, sizeof(l->language));
               ast_copy_string(l->mohinterpret, mohinterpret, sizeof(l->mohinterpret));
               ast_copy_string(l->mohsuggest, mohsuggest, sizeof(l->mohsuggest));
               ast_copy_string(l->mailbox, mailbox, sizeof(l->mailbox));
               ast_copy_string(l->mailbox, mailbox, sizeof(l->mailbox));
               if (!ast_strlen_zero(mailbox)) {
                  if (option_verbose > 2)
                     ast_verbose(VERBOSE_PREFIX_3 "Setting mailbox '%s' on %s@%s\n", mailbox, d->name, l->name);
               }
               l->msgstate = -1;
               l->capability = d->capability;
               l->prefs = d->prefs;
               l->parent = d;
               if (!strcasecmp(v->name, "trunk")) {
                  l->type = TYPE_TRUNK;
               } else {
                  l->type = TYPE_LINE;
               }
               l->immediate = immediate;
               l->callgroup = cur_callergroup;
               l->pickupgroup = cur_pickupgroup;
               l->callreturn = callreturn;
               l->cancallforward = cancallforward;
               l->callwaiting = callwaiting;
               l->transfer = transfer;
               l->threewaycalling = threewaycalling;
               l->mwiblink = mwiblink;
               l->onhooktime = time(NULL);
               l->instance = lineInstance++;
               /* ASSUME we're onhook at this point */
               l->hookstate = SKINNY_ONHOOK;
               l->nat = nat;

               l->next = d->lines;
               d->lines = l;
            }
         } else {
            ast_log(LOG_WARNING, "Don't know keyword '%s' at line %d\n", v->name, v->lineno);
         }
         v = v->next;
      }

      if (!d->lines) {
         ast_log(LOG_ERROR, "A Skinny device must have at least one line!\n");
         return NULL;
      }
      if (/*d->addr.sin_addr.s_addr && */!ntohs(d->addr.sin_port)) {
         d->addr.sin_port = htons(DEFAULT_SKINNY_PORT);
      }
#if 0
      /* I don't think we need this anymore at all, since d->ourip is set in skinny_register now */
      if (d->addr.sin_addr.s_addr) {
         /* XXX See note above, in 'host' option. */
         if (ast_ouraddrfor(&d->addr.sin_addr, &d->ourip)) {
            d->ourip = __ourip;
         }
      } else {
         d->ourip = __ourip;
      }
#endif
   }
   return d;
}

static void start_rtp(struct skinny_subchannel *sub)
{
   struct skinny_line *l = sub->parent;
   struct skinny_device *d = l->parent;
   int hasvideo = 0;

   ast_mutex_lock(&sub->lock);
   /* Allocate the RTP */
   sub->rtp = ast_rtp_new_with_bindaddr(sched, io, 1, 0, bindaddr.sin_addr);
   if (hasvideo)
      sub->vrtp = ast_rtp_new_with_bindaddr(sched, io, 1, 0, bindaddr.sin_addr);
   
   if (sub->rtp && sub->owner) {
      sub->owner->fds[0] = ast_rtp_fd(sub->rtp);
      sub->owner->fds[1] = ast_rtcp_fd(sub->rtp);
   }
   if (hasvideo && sub->vrtp && sub->owner) {
      sub->owner->fds[2] = ast_rtp_fd(sub->vrtp);
      sub->owner->fds[3] = ast_rtcp_fd(sub->vrtp);
   }
   if (sub->rtp) {
      ast_rtp_setnat(sub->rtp, l->nat);
   }
   if (sub->vrtp) {
      ast_rtp_setnat(sub->vrtp, l->nat);
   }
   /* Set Frame packetization */
   if (sub->rtp)
      ast_rtp_codec_setpref(sub->rtp, &l->prefs);

   /* Create the RTP connection */
   transmit_connect(d->session, sub);
   ast_mutex_unlock(&sub->lock);
}

static void *skinny_newcall(void *data)
{
   struct ast_channel *c = data;
   struct skinny_subchannel *sub = c->tech_pvt;
   struct skinny_line *l = sub->parent;
   struct skinny_device *d = l->parent;
   struct skinnysession *s = d->session;
   int res = 0;

   ast_copy_string(l->lastnumberdialed, c->exten, sizeof(l->lastnumberdialed));
   ast_set_callerid(c,
      l->hidecallerid ? "" : l->cid_num,
      l->hidecallerid ? "" : l->cid_name,
      c->cid.cid_ani ? NULL : l->cid_num);
   ast_setstate(c, AST_STATE_RING);
   res = ast_pbx_run(c);
   if (res) {
      ast_log(LOG_WARNING, "PBX exited non-zero\n");
      transmit_tone(s, SKINNY_REORDER);
   }
   return NULL;
}

static void *skinny_ss(void *data)
{
   struct ast_channel *c = data;
   struct skinny_subchannel *sub = c->tech_pvt;
   struct skinny_line *l = sub->parent;
   struct skinny_device *d = l->parent;
   struct skinnysession *s = d->session;
   char exten[AST_MAX_EXTENSION] = "";
   int len = 0;
   int timeout = firstdigittimeout;
   int res;
   int getforward=0;

   if (option_verbose > 2)
      ast_verbose( VERBOSE_PREFIX_3 "Starting simple switch on '%s@%s'\n", l->name, d->name);

   while (len < AST_MAX_EXTENSION-1) {
      res = ast_waitfordigit(c, timeout);
      timeout = 0;
      if (res < 0) {
         if (skinnydebug)
            ast_verbose("Skinny(%s@%s): waitfordigit returned < 0\n", l->name, d->name);
         ast_indicate(c, -1);
         ast_hangup(c);
         return NULL;
      } else if (res) {
         exten[len++]=res;
         exten[len] = '\0';
      }
      if (!ast_ignore_pattern(c->context, exten)) {
         transmit_tone(s, SKINNY_SILENCE);
      }
      if (ast_exists_extension(c, c->context, exten, 1, l->cid_num)) {
         if (!res || !ast_matchmore_extension(c, c->context, exten, 1, l->cid_num)) {
            if (getforward) {
               /* Record this as the forwarding extension */
               ast_copy_string(l->call_forward, exten, sizeof(l->call_forward));
               if (option_verbose > 2)
                  ast_verbose(VERBOSE_PREFIX_3 "Setting call forward to '%s' on channel %s\n",
                     l->call_forward, c->name);
               transmit_tone(s, SKINNY_DIALTONE);
               if (res) {
                  break;
               }
               ast_safe_sleep(c, 500);
               ast_indicate(c, -1);
               ast_safe_sleep(c, 1000);
               memset(exten, 0, sizeof(exten));
               transmit_tone(s, SKINNY_DIALTONE);
               len = 0;
               getforward = 0;
            } else {
               ast_copy_string(c->exten, exten, sizeof(c->exten));
               ast_copy_string(l->lastnumberdialed, exten, sizeof(l->lastnumberdialed));
               skinny_newcall(c);
               return NULL;
            }
         } else {
            /* It's a match, but they just typed a digit, and there is an ambiguous match,
               so just set the timeout to matchdigittimeout and wait some more */
            timeout = matchdigittimeout;
         }
      } else if (res == 0) {
         if (option_debug)
            ast_log(LOG_DEBUG, "Not enough digits (and no ambiguous match)...\n");
         transmit_tone(s, SKINNY_REORDER);
         ast_hangup(c);
         return NULL;
      } else if (!ast_canmatch_extension(c, c->context, exten, 1, c->cid.cid_num) &&
            ((exten[0] != '*') || (!ast_strlen_zero(exten) > 2))) {
         ast_log(LOG_WARNING, "Can't match [%s] from '%s' in context %s\n", exten, c->cid.cid_num ? c->cid.cid_num : "<Unknown Caller>", c->context);
         transmit_tone(s, SKINNY_REORDER);
         /* hang out for 3 seconds to let congestion play */
         ast_safe_sleep(c, 3000);
         break;
      }
      if (!timeout) {
         timeout = gendigittimeout;
      }
      if (len && !ast_ignore_pattern(c->context, exten)) {
         ast_indicate(c, -1);
      }
   }
   ast_hangup(c);
   return NULL;
}



static int skinny_call(struct ast_channel *ast, char *dest, int timeout)
{
   int res = 0;
   int tone = 0;
   struct skinny_subchannel *sub = ast->tech_pvt;
   struct skinny_line *l = sub->parent;
   struct skinny_device *d = l->parent;
   struct skinnysession *s = d->session;

   if (!d->registered) {
      ast_log(LOG_ERROR, "Device not registered, cannot call %s\n", dest);
      return -1;
   }

   if ((ast->_state != AST_STATE_DOWN) && (ast->_state != AST_STATE_RESERVED)) {
      ast_log(LOG_WARNING, "skinny_call called on %s, neither down nor reserved\n", ast->name);
      return -1;
   }

   if (skinnydebug)
      ast_verbose(VERBOSE_PREFIX_3 "skinny_call(%s)\n", ast->name);

   if (l->dnd) {
      ast_queue_control(ast, AST_CONTROL_BUSY);
      return -1;
   }

   switch (l->hookstate) {
   case SKINNY_OFFHOOK:
      tone = SKINNY_CALLWAITTONE;
      break;
   case SKINNY_ONHOOK:
      tone = SKINNY_ALERT;
      break;
   default:
      ast_log(LOG_ERROR, "Don't know how to deal with hookstate %d\n", l->hookstate);
      break;
   }

   transmit_lamp_indication(s, STIMULUS_LINE, l->instance, SKINNY_LAMP_BLINK);
   transmit_ringer_mode(s, SKINNY_RING_INSIDE);

   transmit_tone(s, tone);
   transmit_callinfo(s, ast->cid.cid_name, ast->cid.cid_num, l->cid_name, l->cid_num, l->instance, sub->callid, 1);
   transmit_callstate(s, l->instance, SKINNY_RINGIN, sub->callid);
   transmit_displaypromptstatus(s, "Ring-In", 0, l->instance, sub->callid);
   transmit_selectsoftkeys(s, l->instance, sub->callid, KEYDEF_RINGIN);

   ast_setstate(ast, AST_STATE_RINGING);
   ast_queue_control(ast, AST_CONTROL_RINGING);
   sub->outgoing = 1;
   return res;
}

static int skinny_hangup(struct ast_channel *ast)
{
   struct skinny_subchannel *sub = ast->tech_pvt;
   struct skinny_line *l;
   struct skinny_device *d;
   struct skinnysession *s;

   if (!sub) {
      if (option_debug)
         ast_log(LOG_DEBUG, "Asked to hangup channel not connected\n");
      return 0;
   }
   l = sub->parent;
   d = l->parent;
   s = d->session;
   if (skinnydebug)
      ast_verbose("skinny_hangup(%s) on %s@%s\n", ast->name, l->name, d->name);

   if (d->registered) {
      if ((l->type = TYPE_LINE) && (l->hookstate == SKINNY_OFFHOOK)) {
         l->hookstate = SKINNY_ONHOOK;
         transmit_callstate(s, l->instance, SKINNY_ONHOOK, sub->callid);
         transmit_lamp_indication(s, STIMULUS_LINE, l->instance, SKINNY_LAMP_OFF);
         transmit_speaker_mode(s, SKINNY_SPEAKEROFF);
      } else if ((l->type = TYPE_LINE) && (l->hookstate == SKINNY_ONHOOK)) {
         transmit_callstate(s, l->instance, SKINNY_ONHOOK, sub->callid);
         transmit_speaker_mode(s, SKINNY_SPEAKEROFF);
         transmit_ringer_mode(s, SKINNY_RING_OFF);
         transmit_tone(s, SKINNY_SILENCE);
         transmit_lamp_indication(s, STIMULUS_LINE, l->instance, SKINNY_LAMP_OFF);
         do_housekeeping(s);
      }
   }
   ast_mutex_lock(&sub->lock);
   sub->owner = NULL;
   ast->tech_pvt = NULL;
   sub->alreadygone = 0;
   sub->outgoing = 0;
   if (sub->rtp) {
      ast_rtp_destroy(sub->rtp);
      sub->rtp = NULL;
   }
   ast_mutex_unlock(&sub->lock);
   return 0;
}

static int skinny_answer(struct ast_channel *ast)
{
   int res = 0;
   struct skinny_subchannel *sub = ast->tech_pvt;
   struct skinny_line *l = sub->parent;
   struct skinny_device *d = l->parent;
   struct skinnysession *s = d->session;

   sub->cxmode = SKINNY_CX_SENDRECV;
   if (!sub->rtp) {
      start_rtp(sub);
   }
   if (skinnydebug)
      ast_verbose("skinny_answer(%s) on %s@%s-%d\n", ast->name, l->name, d->name, sub->callid);
   if (ast->_state != AST_STATE_UP) {
      ast_setstate(ast, AST_STATE_UP);
   }

   transmit_tone(s, SKINNY_SILENCE);
   /* order matters here...
      for some reason, transmit_callinfo must be before transmit_callstate,
      or you won't get keypad messages in some situations. */
   transmit_callinfo(s, ast->cid.cid_name, ast->cid.cid_num, ast->exten, ast->exten, l->instance, sub->callid, 2);
   transmit_callstate(s, l->instance, SKINNY_CONNECTED, sub->callid);
   transmit_displaypromptstatus(s, "Connected", 0, l->instance, sub->callid);
   return res;
}

/* Retrieve audio/etc from channel.  Assumes sub->lock is already held. */
static struct ast_frame *skinny_rtp_read(struct skinny_subchannel *sub)
{
   struct ast_channel *ast = sub->owner;
   struct ast_frame *f;

   if (!sub->rtp) {
      /* We have no RTP allocated for this channel */
      return &ast_null_frame;
   }

   switch(ast->fdno) {
   case 0:
      f = ast_rtp_read(sub->rtp);   /* RTP Audio */
      break;
   case 1:
      f = ast_rtcp_read(sub->rtp);  /* RTCP Control Channel */
      break;
   case 2:
      f = ast_rtp_read(sub->vrtp);  /* RTP Video */
      break;
   case 3:
      f = ast_rtcp_read(sub->vrtp); /* RTCP Control Channel for video */
      break;
#if 0
   case 5:
      /* Not yet supported */
      f = ast_udptl_read(sub->udptl);  /* UDPTL for T.38 */
      break;
#endif
   default:
      f = &ast_null_frame;
   }

   if (ast) {
      /* We already hold the channel lock */
      if (f->frametype == AST_FRAME_VOICE) {
         if (f->subclass != ast->nativeformats) {
            if (option_debug)
               ast_log(LOG_DEBUG, "Oooh, format changed to %d\n", f->subclass);
            ast->nativeformats = f->subclass;
            ast_set_read_format(ast, ast->readformat);
            ast_set_write_format(ast, ast->writeformat);
         }
      }
   }
   return f;
}

static struct ast_frame *skinny_read(struct ast_channel *ast)
{
   struct ast_frame *fr;
   struct skinny_subchannel *sub = ast->tech_pvt;
   ast_mutex_lock(&sub->lock);
   fr = skinny_rtp_read(sub);
   ast_mutex_unlock(&sub->lock);
   return fr;
}

static int skinny_write(struct ast_channel *ast, struct ast_frame *frame)
{
   struct skinny_subchannel *sub = ast->tech_pvt;
   int res = 0;
   if (frame->frametype != AST_FRAME_VOICE) {
      if (frame->frametype == AST_FRAME_IMAGE) {
         return 0;
      } else {
         ast_log(LOG_WARNING, "Can't send %d type frames with skinny_write\n", frame->frametype);
         return 0;
      }
   } else {
      if (!(frame->subclass & ast->nativeformats)) {
         ast_log(LOG_WARNING, "Asked to transmit frame type %d, while native formats is %d (read/write = %d/%d)\n",
            frame->subclass, ast->nativeformats, ast->readformat, ast->writeformat);
         return -1;
      }
   }
   if (sub) {
      ast_mutex_lock(&sub->lock);
      if (sub->rtp) {
         res = ast_rtp_write(sub->rtp, frame);
      }
      ast_mutex_unlock(&sub->lock);
   }
   return res;
}

static int skinny_fixup(struct ast_channel *oldchan, struct ast_channel *newchan)
{
   struct skinny_subchannel *sub = newchan->tech_pvt;
   ast_log(LOG_NOTICE, "skinny_fixup(%s, %s)\n", oldchan->name, newchan->name);
   if (sub->owner != oldchan) {
      ast_log(LOG_WARNING, "old channel wasn't %p but was %p\n", oldchan, sub->owner);
      return -1;
   }
   sub->owner = newchan;
   return 0;
}

static int skinny_senddigit_begin(struct ast_channel *ast, char digit)
{
   return -1; /* Start inband indications */
}

static int skinny_senddigit_end(struct ast_channel *ast, char digit, unsigned int duration)
{
#if 0
   struct skinny_subchannel *sub = ast->tech_pvt;
   struct skinny_line *l = sub->parent;
   struct skinny_device *d = l->parent;
   int tmp;
   /* not right */
   sprintf(tmp, "%d", digit);
   transmit_tone(d->session, digit);
#endif
   return -1; /* Stop inband indications */
}

static char *control2str(int ind) {
   char *tmp;

   switch (ind) {
   case AST_CONTROL_HANGUP:
      return "Other end has hungup";
   case AST_CONTROL_RING:
      return "Local ring";
   case AST_CONTROL_RINGING:
      return "Remote end is ringing";
   case AST_CONTROL_ANSWER:
      return "Remote end has answered";
   case AST_CONTROL_BUSY:
      return "Remote end is busy";
   case AST_CONTROL_TAKEOFFHOOK:
      return "Make it go off hook";
   case AST_CONTROL_OFFHOOK:
      return "Line is off hook";
   case AST_CONTROL_CONGESTION:
      return "Congestion (circuits busy)";
   case AST_CONTROL_FLASH:
      return "Flash hook";
   case AST_CONTROL_WINK:
      return "Wink";
   case AST_CONTROL_OPTION:
      return "Set a low-level option";
   case AST_CONTROL_RADIO_KEY:
      return "Key Radio";
   case AST_CONTROL_RADIO_UNKEY:
      return "Un-Key Radio";
   case AST_CONTROL_PROGRESS:
      return "Remote end is making Progress";
   case AST_CONTROL_PROCEEDING:
      return "Remote end is proceeding";
   case AST_CONTROL_HOLD:
      return "Hold";
   case AST_CONTROL_UNHOLD:
      return "Unhold";
   case -1:
      return "Stop tone";
   default:
      if (!(tmp = ast_threadstorage_get(&control2str_threadbuf, CONTROL2STR_BUFSIZE)))
                        return "Unknown";
      snprintf(tmp, CONTROL2STR_BUFSIZE, "UNKNOWN-%d", ind);
      return tmp;
   }
}


static int skinny_indicate(struct ast_channel *ast, int ind, const void *data, size_t datalen)
{
   struct skinny_subchannel *sub = ast->tech_pvt;
   struct skinny_line *l = sub->parent;
   struct skinny_device *d = l->parent;
   struct skinnysession *s = d->session;

   if (skinnydebug)
      ast_verbose(VERBOSE_PREFIX_3 "Asked to indicate '%s' condition on channel %s\n", control2str(ind), ast->name);
   switch(ind) {
   case AST_CONTROL_RINGING:
      if (ast->_state != AST_STATE_UP) {
         if (!sub->progress) {
            transmit_tone(s, SKINNY_ALERT);
            transmit_callstate(s, l->instance, SKINNY_RINGOUT, sub->callid);
            transmit_dialednumber(s, ast->exten, l->instance, sub->callid);
            transmit_displaypromptstatus(s, "Ring Out", 0, l->instance, sub->callid);
            transmit_callinfo(s, ast->cid.cid_name, ast->cid.cid_num, ast->exten, ast->exten, l->instance, sub->callid, 2); /* 2 = outgoing from phone */
            sub->ringing = 1;
            break;
         }
      }
      return -1;
   case AST_CONTROL_BUSY:
      if (ast->_state != AST_STATE_UP) {
         transmit_tone(s, SKINNY_BUSYTONE);
         transmit_callstate(s, l->instance, SKINNY_BUSY, sub->callid);
         sub->alreadygone = 1;
         ast_softhangup_nolock(ast, AST_SOFTHANGUP_DEV);
         break;
      }
      return -1;
   case AST_CONTROL_CONGESTION:
      if (ast->_state != AST_STATE_UP) {
         transmit_tone(s, SKINNY_REORDER);
         transmit_callstate(s, l->instance, SKINNY_CONGESTION, sub->callid);
         sub->alreadygone = 1;
         ast_softhangup_nolock(ast, AST_SOFTHANGUP_DEV);
         break;
      }
      return -1;
   case AST_CONTROL_PROGRESS:
      if ((ast->_state != AST_STATE_UP) && !sub->progress && !sub->outgoing) {
         transmit_tone(s, SKINNY_ALERT);
         transmit_callstate(s, l->instance, SKINNY_PROGRESS, sub->callid);
         transmit_displaypromptstatus(s, "Call Progress", 0, l->instance, sub->callid);
         transmit_callinfo(s, ast->cid.cid_name, ast->cid.cid_num, ast->exten, ast->exten, l->instance, sub->callid, 2); /* 2 = outgoing from phone */
         sub->progress = 1;
         break;
      }
      return -1;
   case -1:
      transmit_tone(s, SKINNY_SILENCE);
      break;
   case AST_CONTROL_HOLD:
      ast_moh_start(ast, data, l->mohinterpret);
      break;
   case AST_CONTROL_UNHOLD:
      ast_moh_stop(ast);
      break;
   case AST_CONTROL_PROCEEDING:
      break;
   default:
      ast_log(LOG_WARNING, "Don't know how to indicate condition %d\n", ind);
      return -1;
   }
   return 0;
}

static struct ast_channel *skinny_new(struct skinny_line *l, int state)
{
   struct ast_channel *tmp;
   struct skinny_subchannel *sub;
   struct skinny_device *d = l->parent;
   int fmt;

   tmp = ast_channel_alloc(1, state, l->cid_num, l->cid_name, "Skinny/%s@%s-%d", l->name, d->name, callnums);
   if (!tmp) {
      ast_log(LOG_WARNING, "Unable to allocate channel structure\n");
      return NULL;
   } else {
      sub = ast_calloc(1, sizeof(struct skinny_subchannel));
      if (!sub) {
         ast_log(LOG_WARNING, "Unable to allocate Skinny subchannel\n");
         return NULL;
      } else {
         ast_mutex_init(&sub->lock);

         sub->owner = tmp;
         sub->callid = callnums++;
         d->lastlineinstance = l->instance;
         d->lastcallreference = sub->callid;
         sub->cxmode = SKINNY_CX_INACTIVE;
         sub->nat = l->nat;
         sub->parent = l;
         sub->onhold = 0;

         sub->next = l->sub;
         l->sub = sub;
      }
      tmp->tech = &skinny_tech;
      tmp->tech_pvt = sub;
      tmp->nativeformats = l->capability;
      if (!tmp->nativeformats)
         tmp->nativeformats = default_capability;
      fmt = ast_best_codec(tmp->nativeformats);
      if (skinnydebug)
         ast_verbose("skinny_new: tmp->nativeformats=%d fmt=%d\n", tmp->nativeformats, fmt);
      if (sub->rtp) {
         tmp->fds[0] = ast_rtp_fd(sub->rtp);
      }
      if (state == AST_STATE_RING) {
         tmp->rings = 1;
      }
      tmp->writeformat = fmt;
      tmp->rawwriteformat = fmt;
      tmp->readformat = fmt;
      tmp->rawreadformat = fmt;
      if (!ast_strlen_zero(l->language))
         ast_string_field_set(tmp, language, l->language);
      if (!ast_strlen_zero(l->accountcode))
         ast_string_field_set(tmp, accountcode, l->accountcode);
      if (l->amaflags)
         tmp->amaflags = l->amaflags;

      ast_module_ref(ast_module_info->self);
      tmp->callgroup = l->callgroup;
      tmp->pickupgroup = l->pickupgroup;
      ast_string_field_set(tmp, call_forward, l->call_forward);
      ast_copy_string(tmp->context, l->context, sizeof(tmp->context));
      ast_copy_string(tmp->exten, l->exten, sizeof(tmp->exten));

      /* Don't use ast_set_callerid() here because it will
       * generate a needless NewCallerID event */
      tmp->cid.cid_num = ast_strdup(l->cid_num);
      tmp->cid.cid_ani = ast_strdup(l->cid_num);
      tmp->cid.cid_name = ast_strdup(l->cid_name);

      tmp->priority = 1;
      tmp->adsicpe = AST_ADSI_UNAVAILABLE;

      if (sub->rtp)
         ast_jb_configure(tmp, &global_jbconf);

      if (state != AST_STATE_DOWN) {
         if (ast_pbx_start(tmp)) {
            ast_log(LOG_WARNING, "Unable to start PBX on %s\n", tmp->name);
            ast_hangup(tmp);
            tmp = NULL;
         }
      }
   }
   return tmp;
}

static int skinny_hold(struct skinny_subchannel *sub)
{
   struct skinny_line *l = sub->parent;
   struct skinny_device *d = l->parent;
   struct skinnysession *s = d->session;
   struct skinny_req *req;

   /* Channel needs to be put on hold */
   if (skinnydebug)
      ast_verbose("Putting on Hold(%d)\n", l->instance);

   ast_queue_control_data(sub->owner, AST_CONTROL_HOLD,
      S_OR(l->mohsuggest, NULL),
      !ast_strlen_zero(l->mohsuggest) ? strlen(l->mohsuggest) + 1 : 0);

   if (!(req = req_alloc(sizeof(struct activate_call_plane_message), ACTIVATE_CALL_PLANE_MESSAGE)))
      return 0;

   req->data.activatecallplane.lineInstance = htolel(l->instance);
   transmit_response(s, req);

   if (!(req = req_alloc(sizeof(struct close_receive_channel_message), CLOSE_RECEIVE_CHANNEL_MESSAGE)))
      return 0;

   req->data.closereceivechannel.conferenceId = htolel(0);
   req->data.closereceivechannel.partyId = htolel(sub->callid);
   transmit_response(s, req);

   if (!(req = req_alloc(sizeof(struct stop_media_transmission_message), STOP_MEDIA_TRANSMISSION_MESSAGE)))
      return 0;

   req->data.stopmedia.conferenceId = htolel(0);
   req->data.stopmedia.passThruPartyId = htolel(sub->callid);
   transmit_response(s, req);

   transmit_lamp_indication(s, STIMULUS_LINE, l->instance, SKINNY_LAMP_BLINK);
   sub->onhold = 1;
   return 1;
}

static int skinny_unhold(struct skinny_subchannel *sub)
{
   struct skinny_line *l = sub->parent;
   struct skinny_device *d = l->parent;
   struct skinnysession *s = d->session;
   struct skinny_req *req;

   /* Channel is on hold, so we will unhold */
   if (skinnydebug)
      ast_verbose("Taking off Hold(%d)\n", l->instance);

   ast_queue_control(sub->owner, AST_CONTROL_UNHOLD);

   if (!(req = req_alloc(sizeof(struct activate_call_plane_message), ACTIVATE_CALL_PLANE_MESSAGE)))
      return 0;

   req->data.activatecallplane.lineInstance = htolel(l->instance);
   transmit_response(s, req);

   transmit_connect(s, sub);
   transmit_lamp_indication(s, STIMULUS_LINE, l->instance, SKINNY_LAMP_ON);
   sub->onhold = 0;
   return 1;
}

static int handle_keep_alive_message(struct skinny_req *req, struct skinnysession *s)
{
   if (!(req = req_alloc(0, KEEP_ALIVE_ACK_MESSAGE)))
      return -1;

   transmit_response(s, req);
   do_housekeeping(s);
   return 1;
}

static int handle_register_message(struct skinny_req *req, struct skinnysession *s)
{
   char name[16];
   int res;

   memcpy(&name, req->data.reg.name, sizeof(name));

   res = skinny_register(req, s);
   if (!res) {
      ast_log(LOG_ERROR, "Rejecting Device %s: Device not found\n", name);
      if (!(req = req_alloc(sizeof(struct register_rej_message), REGISTER_REJ_MESSAGE)))
         return -1;

      snprintf(req->data.regrej.errMsg, sizeof(req->data.regrej.errMsg), "No Authority: %s", name);
      transmit_response(s, req);
      return 0;
   }
   if (option_verbose > 2)
      ast_verbose(VERBOSE_PREFIX_3 "Device '%s' successfully registered\n", name);

   if (!(req = req_alloc(sizeof(struct register_ack_message), REGISTER_ACK_MESSAGE)))
      return -1;

   req->data.regack.res[0] = '0';
   req->data.regack.res[1] = '\0';
   req->data.regack.keepAlive = htolel(keep_alive);
   ast_copy_string(req->data.regack.dateTemplate, date_format, sizeof(req->data.regack.dateTemplate));
   req->data.regack.res2[0] = '0';
   req->data.regack.res2[1] = '\0';
   req->data.regack.secondaryKeepAlive = htolel(keep_alive);
   transmit_response(s, req);
   if (skinnydebug)
      ast_verbose("Requesting capabilities\n");

   if (!(req = req_alloc(0, CAPABILITIES_REQ_MESSAGE)))
      return -1;

   transmit_response(s, req);

   return res;
}

static int handle_ip_port_message(struct skinny_req *req, struct skinnysession *s)
{
   /* no response necessary */
   return 1;
}

static int handle_keypad_button_message(struct skinny_req *req, struct skinnysession *s)
{
   struct skinny_subchannel *sub = NULL;
   struct skinny_line *l;
   struct skinny_device *d = s->device;
   struct ast_frame f = { 0, };
   char dgt;
   int digit;
   int lineInstance;
   int callReference;

   digit = letohl(req->data.keypad.button);
   lineInstance = letohl(req->data.keypad.lineInstance);
   callReference = letohl(req->data.keypad.callReference);

   if (digit == 14) {
      dgt = '*';
   } else if (digit == 15) {
      dgt = '#';
   } else if (digit >= 0 && digit <= 9) {
      dgt = '0' + digit;
   } else {
      /* digit=10-13 (A,B,C,D ?), or
       * digit is bad value
       *
       * probably should not end up here, but set
       * value for backward compatibility, and log
       * a warning.
       */
      dgt = '0' + digit;
      ast_log(LOG_WARNING, "Unsupported digit %d\n", digit);
   }

   f.subclass = dgt;

   f.src = "skinny";

   if (lineInstance && callReference)
      sub = find_subchannel_by_instance_reference(d, lineInstance, callReference);
   else
      sub = find_subchannel_by_instance_reference(d, d->lastlineinstance, d->lastcallreference);

   if (!sub)
      return 0;

   l = sub->parent;
   if (sub->owner) {
      if (sub->owner->_state == 0) {
         f.frametype = AST_FRAME_DTMF_BEGIN;
         ast_queue_frame(sub->owner, &f);
      }
      /* XXX MUST queue this frame to all lines in threeway call if threeway call is active */
      f.frametype = AST_FRAME_DTMF_END;
      ast_queue_frame(sub->owner, &f);
      /* XXX This seriously needs to be fixed */
      if (sub->next && sub->next->owner) {
         if (sub->owner->_state == 0) {
            f.frametype = AST_FRAME_DTMF_BEGIN;
            ast_queue_frame(sub->next->owner, &f);
         }
         f.frametype = AST_FRAME_DTMF_END;
         ast_queue_frame(sub->next->owner, &f);
      }
   } else {
      if (skinnydebug)
         ast_verbose("No owner: %s\n", l->name);
   }
   return 1;
}

static int handle_stimulus_message(struct skinny_req *req, struct skinnysession *s)
{
   struct skinny_device *d = s->device;
   struct skinny_line *l;
   struct skinny_subchannel *sub;
   /*struct skinny_speeddial *sd;*/
   struct ast_channel *c;
   pthread_t t;
   int event;
   int instance;
   int unknown1;
   /*int res = 0;*/

   event = letohl(req->