X-Git-Url: http://git.eversberg.eu/gitweb.cgi?p=lcr.git;a=blobdiff_plain;f=dss1.cpp;h=6adbf1f4a363eeb984a69cd8bf103c6a4e37cdec;hp=e146653fe81cd6ab5d33d852ba16c3b5ad745076;hb=eab9beeb9b4aa65314f0a422970328e47183428a;hpb=2ed0fee489c37a6e2d4473f6185ebbe3e746ac11 diff --git a/dss1.cpp b/dss1.cpp index e146653..6adbf1f 100644 --- a/dss1.cpp +++ b/dss1.cpp @@ -1,6 +1,6 @@ /*****************************************************************************\ ** ** -** PBX4Linux ** +** LCR ** ** ** **---------------------------------------------------------------------------** ** Copyright: Andreas Eversberg ** @@ -9,44 +9,39 @@ ** ** \*****************************************************************************/ - -#include -#include -#include #include "main.h" -#include -#include -#include -#include -#include -#include -#include +#include "myisdn.h" +// socket mISDN +//#include extern "C" { -#include } +#include +#ifdef OLD_MT_ASSIGN +extern unsigned int mt_assign_pid; +#endif -//#define CENTREX - -#include "q931.h" #include "ie.cpp" +static int delete_event(struct lcr_work *work, void *instance, int index); /* * constructor */ -Pdss1::Pdss1(int type, mISDNport *mISDNport, char *portname, struct port_settings *settings, int channel, int exclusive) : PmISDN(type, mISDNport, portname, settings, channel, exclusive) +Pdss1::Pdss1(int type, struct mISDNport *mISDNport, char *portname, struct port_settings *settings, int channel, int exclusive, int mode) : PmISDN(type, mISDNport, portname, settings, channel, exclusive, mode) { - p_callerinfo.itype = INFO_ITYPE_ISDN; + p_callerinfo.itype = (mISDNport->ifport->interface->extension)?INFO_ITYPE_ISDN_EXTENSION:INFO_ITYPE_ISDN; p_m_d_ntmode = mISDNport->ntmode; + p_m_d_tespecial = mISDNport->tespecial; p_m_d_l3id = 0; + memset(&p_m_d_delete, 0, sizeof(p_m_d_delete)); + add_work(&p_m_d_delete, delete_event, this, 0); p_m_d_ces = -1; - p_m_d_queue = NULL; + p_m_d_queue[0] = '\0'; p_m_d_notify_pending = NULL; - p_m_d_collect_cause = CAUSE_NOUSER; - p_m_d_collect_location = LOCATION_PRIVATE_LOCAL; - + p_m_d_collect_cause = 0; + p_m_d_collect_location = 0; - PDEBUG(DEBUG_ISDN, "Created new mISDNPort(%s). Currently %d objects use, %s port #%d\n", portname, mISDNport->use, (mISDNport->ntmode)?"NT":"TE", p_m_portnum); + PDEBUG(DEBUG_ISDN, "Created new mISDNPort(%s). Currently %d objects use, %s%s port #%d\n", portname, mISDNport->use, (mISDNport->ntmode)?"NT":"TE", (mISDNport->tespecial)?" (special)":"", p_m_portnum); } @@ -55,287 +50,172 @@ Pdss1::Pdss1(int type, mISDNport *mISDNport, char *portname, struct port_setting */ Pdss1::~Pdss1() { - /* remove queued message */ - if (p_m_d_queue) - message_free(p_m_d_queue); + del_work(&p_m_d_delete); + /* remove queued message */ if (p_m_d_notify_pending) message_free(p_m_d_notify_pending); - - /* check how many processes are left */ - if (p_m_d_ntmode == 1) - { - if (p_m_mISDNport->nst.layer3->proc) - PDEBUG(DEBUG_ISDN, "destroyed mISDNPort(%s). WARNING: There is still a layer 3 process left. Ignore this, if currently are other calls. This message is not an error!\n", p_name); - } } /* * create layer 3 message */ -static msg_t *create_l3msg(int prim, int mt, int dinfo, int size, int ntmode) +static struct l3_msg *create_l3msg(void) { - int i = 0; - msg_t *dmsg; - Q931_info_t *qi; - iframe_t *frm; - - if (!ntmode) - size = sizeof(Q931_info_t)+2; - - while(i < 10) - { - if (ntmode) - { - dmsg = prep_l3data_msg(prim, dinfo, size, 256, NULL); - if (dmsg) - { - return(dmsg); - } - } else - { - dmsg = alloc_msg(size+256+mISDN_HEADER_LEN+DEFAULT_HEADROOM); - if (dmsg) - { - memset(msg_put(dmsg,size+mISDN_HEADER_LEN), 0, size+mISDN_HEADER_LEN); - frm = (iframe_t *)dmsg->data; - frm->prim = prim; - frm->dinfo = dinfo; - qi = (Q931_info_t *)(dmsg->data + mISDN_HEADER_LEN); - qi->type = mt; - return(dmsg); - } - } + struct l3_msg *l3m; - if (!i) - PERROR("cannot allocate memory, trying again...\n"); - i++; - usleep(50000); - } - PERROR("cannot allocate memory, system overloaded.\n"); - exit(-1); -} - -msg_t *create_l2msg(int prim, int dinfo, int size) /* NT only */ -{ - int i = 0; - msg_t *dmsg; - - while(i < 10) - { - dmsg = prep_l3data_msg(prim, dinfo, size, 256, NULL); - if (dmsg) - return(dmsg); - - if (!i) - PERROR("cannot allocate memory, trying again...\n"); - i++; - usleep(50000); - } - PERROR("cannot allocate memory, system overloaded.\n"); - exit(-1); -} - - -/* isdn messaging */ -static struct isdn_message { - char *name; - unsigned long value; -} isdn_message[] = { - {"TIMEOUT", CC_TIMEOUT}, - {"SETUP", CC_SETUP}, - {"SETUP_ACKNOWLEDGE", CC_SETUP_ACKNOWLEDGE}, - {"PROCEEDING", CC_PROCEEDING}, - {"ALERTING", CC_ALERTING}, - {"CONNECT", CC_CONNECT}, - {"CONNECT RESPONSE", CC_CONNECT}, - {"CONNECT_ACKNOWLEDGE", CC_CONNECT_ACKNOWLEDGE}, - {"DISCONNECT", CC_DISCONNECT}, - {"RELEASE", CC_RELEASE}, - {"RELEASE_COMPLETE", CC_RELEASE_COMPLETE}, - {"INFORMATION", CC_INFORMATION}, - {"PROGRESS", CC_PROGRESS}, - {"NOTIFY", CC_NOTIFY}, - {"SUSPEND", CC_SUSPEND}, - {"SUSPEND_ACKNOWLEDGE", CC_SUSPEND_ACKNOWLEDGE}, - {"SUSPEND_REJECT", CC_SUSPEND_REJECT}, - {"RESUME", CC_RESUME}, - {"RESUME_ACKNOWLEDGE", CC_RESUME_ACKNOWLEDGE}, - {"RESUME_REJECTE", CC_RESUME_REJECT}, - {"HOLD", CC_HOLD}, - {"HOLD_ACKNOWLEDGE", CC_HOLD_ACKNOWLEDGE}, - {"HOLD_REJECT", CC_HOLD_REJECT}, - {"RETRIEVE", CC_RETRIEVE}, - {"RETRIEVE_ACKNOWLEDGE", CC_RETRIEVE_ACKNOWLEDGE}, - {"RETRIEVE_REJECTE", CC_RETRIEVE_REJECT}, - {"FACILITY", CC_FACILITY}, - {"STATUS", CC_STATUS}, - {"RESTART", CC_RESTART}, - {"RELEASE_CR", CC_RELEASE_CR}, - {"NEW_CR", CC_NEW_CR}, - - {NULL, 0}, -}; - -static char *isdn_prim[4] = { - "REQUEST", - "CONFIRM", - "INDICATION", - "RESPONSE", -}; - - -/* - * show message to debug - */ -void Pdss1::isdn_show_send_message(unsigned long prim, msg_t *msg) -{ - int i; - char *msgtext = "<>"; - char *primtext; + l3m = alloc_l3_msg(); + if (l3m) + return(l3m); - i = 0; - while(isdn_message[i].name) - { - if (isdn_message[i].value == (prim&0xffffff00)) - { - msgtext = isdn_message[i].name; - break; - } - i++; - } - primtext = isdn_prim[prim&0x00000003]; - printisdn(">>> outgoing prim: %s %s (0x%x)\n", msgtext, primtext, prim); + FATAL("Cannot allocate memory, system overloaded.\n"); + exit(0); // make gcc happy } - /* * if we received a first reply to the setup message, * we will check if we have now channel information * return: <0: error, call is released, -cause is given * 0: ok, nothing to do */ -int Pdss1::received_first_reply_to_setup(unsigned long prim, int channel, int exclusive) +int Pdss1::received_first_reply_to_setup(unsigned int cmd, int channel, int exclusive) { int ret; - int headerlen = (p_m_d_ntmode)?mISDNUSER_HEAD_SIZE:mISDN_HEADER_LEN; - RELEASE_COMPLETE_t *release_complete; - msg_t *dmsg; + l3_msg *l3m; - /* corret exclusive to 0, if no explicit channel was given */ + /* correct exclusive to 0, if no explicit channel was given */ if (exclusive<0 || channel<=0) exclusive = 0; /* select scenario */ - if (p_m_b_channel && p_m_b_exclusive) - { + if (p_m_b_channel && p_m_b_exclusive) { /*** we gave an exclusive channel (or if we are done) ***/ /* if not first reply, we are done */ if (p_state != PORT_STATE_OUT_SETUP) return(0); + chan_trace_header(p_m_mISDNport, this, "CHANNEL SELECTION (first reply to setup)", DIRECTION_NONE); + add_trace("channel", "request", "%d (forced)", p_m_b_channel); + add_trace("channel", "reply", (channel>=0)?"%d":"(none)", channel); + /* if give channel not accepted or not equal */ - if (channel!=-1 && p_m_b_channel!=channel) - { - PDEBUG(DEBUG_BCHANNEL, "- our forced channel %d was not accepted\n", p_m_b_channel); + if (channel!=-1 && p_m_b_channel!=channel) { + add_trace("conclusion", NULL, "forced channel not accepted"); + end_trace(); ret = -44; goto channelerror; } + add_trace("conclusion", NULL, "channel was accepted"); + add_trace("connect", "channel", "%d", p_m_b_channel); + end_trace(); + /* activate our exclusive channel */ - bchannel_activate(p_m_mISDNport, p_m_b_index); + bchannel_event(p_m_mISDNport, p_m_b_index, B_EVENT_USE); } else - if (p_m_b_channel) - { + if (p_m_b_channel) { /*** we gave a non-exclusive channel ***/ /* if not first reply, we are done */ if (p_state != PORT_STATE_OUT_SETUP) return(0); + chan_trace_header(p_m_mISDNport, this, "CHANNEL SELECTION (first reply to setup)", DIRECTION_NONE); + add_trace("channel", "request", "%d (suggest)", p_m_b_channel); + add_trace("channel", "reply", (channel>=0)?"%d":"(none)", channel); + /* if channel was accepted as given */ - if (channel==-1 || p_m_b_channel==channel) - { - PDEBUG(DEBUG_BCHANNEL, "- our suggested channel %d was accpted\n", p_m_b_channel); + if (channel==-1 || p_m_b_channel==channel) { + add_trace("conclusion", NULL, "channel was accepted as given"); + add_trace("connect", "channel", "%d", p_m_b_channel); + end_trace(); p_m_b_exclusive = 1; // we are done - bchannel_activate(p_m_mISDNport, p_m_b_index); + bchannel_event(p_m_mISDNport, p_m_b_index, B_EVENT_USE); return(0); } /* if channel value is faulty */ - if (channel <= 0) - { - PDEBUG(DEBUG_BCHANNEL, "- our suggested channel %d was replied with no channel value.\n", p_m_b_channel); + if (channel <= 0) { + add_trace("conclusion", NULL, "illegal reply"); + end_trace(); ret = -111; // protocol error goto channelerror; } /* if channel was not accepted, try to get it */ - PDEBUG(DEBUG_BCHANNEL, "- our suggested channel %d was not accepted, but %d was given.\n", p_m_b_channel, channel); ret = seize_bchannel(channel, 1); // exclusively - if (ret < 0) - { - PDEBUG(DEBUG_BCHANNEL, "- the replied channel %d is not available (cause %d).\n", channel, -ret); + add_trace("channel", "available", ret<0?"no":"yes"); + if (ret < 0) { + add_trace("conclusion", NULL, "replied channel not available"); + end_trace(); goto channelerror; } - PDEBUG(DEBUG_BCHANNEL, "- we accepted channel %d.\n", channel); + add_trace("conclusion", NULL, "replied channel accepted"); + add_trace("connect", "channel", "%d", p_m_b_channel); + end_trace(); /* activate channel given by remote */ - bchannel_activate(p_m_mISDNport, p_m_b_index); + bchannel_event(p_m_mISDNport, p_m_b_index, B_EVENT_USE); } else - if (p_m_b_reserve) - { + if (p_m_b_reserve) { /*** we sent 'any channel acceptable' ***/ /* if not first reply, we are done */ if (p_state != PORT_STATE_OUT_SETUP) return(0); - /* if no channel was given */ - if (channel <= 0) - { - PDEBUG(DEBUG_BCHANNEL, "- our channel request was not replied by a channel.\n", p_m_b_channel); + chan_trace_header(p_m_mISDNport, this, "CHANNEL SELECTION (first reply to setup)", DIRECTION_NONE); + add_trace("channel", "request", "any"); + add_trace("channel", "reply", (channel>=0)?"%d":"(none)", channel); + /* if no channel was replied */ + if (channel <= 0) { + add_trace("conclusion", NULL, "no channel, protocol error"); + end_trace(); ret = -111; // protocol error goto channelerror; } /* we will see, if our received channel is available */ - PDEBUG(DEBUG_BCHANNEL, "- our channel request was replied with channel %d.\n", channel); ret = seize_bchannel(channel, 1); // exclusively - if (ret < 0) - { - PDEBUG(DEBUG_BCHANNEL, "- the replied channel %d is not available (cause %d).\n", channel, -ret); + add_trace("channel", "available", ret<0?"no":"yes"); + if (ret < 0) { + add_trace("conclusion", NULL, "replied channel not available"); + end_trace(); goto channelerror; } - PDEBUG(DEBUG_BCHANNEL, "- we accepted channel %d.\n", channel); + add_trace("conclusion", NULL, "replied channel accepted"); + add_trace("connect", "channel", "%d", p_m_b_channel); + end_trace(); /* activate channel given by remote */ - bchannel_activate(p_m_mISDNport, p_m_b_index); - } else - { + bchannel_event(p_m_mISDNport, p_m_b_index, B_EVENT_USE); + } else { /*** we sent 'no channel available' ***/ /* if not the first reply, but a connect, we are forced */ - if (prim==(CC_CONNECT | INDICATION) && p_state!=PORT_STATE_OUT_SETUP) - { - if (channel > 0) - { - PDEBUG(DEBUG_BCHANNEL, "- while call-waiting, we get a channel inside connect message, so we use it.\n", p_m_b_channel); + if (cmd==MT_CONNECT && p_state!=PORT_STATE_OUT_SETUP) { + chan_trace_header(p_m_mISDNport, this, "CHANNEL SELECTION (connect)", DIRECTION_NONE); + add_trace("channel", "request", "no-channel"); + add_trace("channel", "reply", (channel>=0)?"%d%s":"(none)", channel, exclusive?" (forced)":""); + if (channel > 0) { goto use_from_connect; } - PDEBUG(DEBUG_BCHANNEL, "- there is no channel inside connect message during call-waiting, so we request one.\n", p_m_b_channel); ret = seize_bchannel(CHANNEL_ANY, 0); // any channel - if (ret < 0) - { - PDEBUG(DEBUG_BCHANNEL, "- during call-waiting, we got a connect, but no available channel (cause=%d).\n", -ret); + add_trace("channel", "available", ret<0?"no":"yes"); + if (ret < 0) { + add_trace("conclusion", NULL, "no channel available during call-waiting"); + end_trace(); goto channelerror; } + add_trace("conclusion", NULL, "using channel %d", p_m_b_channel); + add_trace("connect", "channel", "%d", p_m_b_channel); + end_trace(); p_m_b_exclusive = 1; // we are done /* activate channel given by remote */ - bchannel_activate(p_m_mISDNport, p_m_b_index); + bchannel_event(p_m_mISDNport, p_m_b_index, B_EVENT_USE); return(0); } @@ -343,66 +223,250 @@ int Pdss1::received_first_reply_to_setup(unsigned long prim, int channel, int ex if (p_state != PORT_STATE_OUT_SETUP) return(0); + chan_trace_header(p_m_mISDNport, this, "CHANNEL SELECTION (first reply to setup)", DIRECTION_NONE); + add_trace("channel", "request", "no-channel"); + add_trace("channel", "reply", (channel>=0)?"%d":"(none)", channel); /* if first reply has no channel, we are done */ - if (channel <= 0) - { - PDEBUG(DEBUG_BCHANNEL, "- while call-waiting, we got no channel as first reply, this is good.\n"); + if (channel <= 0) { + add_trace("conclusion", NULL, "no channel until connect"); + end_trace(); return(0); } /* we will see, if our received channel is available */ - PDEBUG(DEBUG_BCHANNEL, "- our during call-waiting, we get channel %d as first reply.\n", channel); use_from_connect: ret = seize_bchannel(channel, exclusive); - if (ret <= 0) - { - PDEBUG(DEBUG_BCHANNEL, "- the given channel %d is not available (cause %d).\n", channel, -ret); + add_trace("channel", "available", ret<0?"no":"yes"); + if (ret < 0) { + add_trace("conclusion", NULL, "replied channel not available"); + end_trace(); goto channelerror; } - PDEBUG(DEBUG_BCHANNEL, "- we accepted channel %d.\n", channel); + add_trace("conclusion", NULL, "replied channel accepted"); + add_trace("connect", "channel", "%d", p_m_b_channel); + end_trace(); p_m_b_exclusive = 1; // we are done /* activate channel given by remote */ - bchannel_activate(p_m_mISDNport, p_m_b_index); + bchannel_event(p_m_mISDNport, p_m_b_index, B_EVENT_USE); } return(0); channelerror: - dmsg = create_l3msg(CC_RELEASE_COMPLETE | REQUEST, MT_RELEASE_COMPLETE, p_m_d_l3id, sizeof(RELEASE_COMPLETE_t), p_m_d_ntmode); - isdn_show_send_message(CC_RELEASE_COMPLETE | REQUEST, dmsg); - - release_complete = (RELEASE_COMPLETE_t *)(dmsg->data + headerlen); - enc_ie_cause(&release_complete->CAUSE, dmsg, (p_m_d_ntmode)?LOCATION_PRIVATE_LOCAL:LOCATION_PRIVATE_REMOTE, -ret); - msg_queue_tail(&p_m_mISDNport->downqueue, dmsg); + /* + * NOTE: we send MT_RELEASE_COMPLETE to "REJECT" the channel + * in response to the setup reply + */ + l3m = create_l3msg(); + l1l2l3_trace_header(p_m_mISDNport, this, L3_RELEASE_COMPLETE_REQ, DIRECTION_OUT); + enc_ie_cause(l3m, (p_m_mISDNport->locally)?LOCATION_PRIVATE_LOCAL:LOCATION_PRIVATE_REMOTE, -ret); + end_trace(); + p_m_mISDNport->ml3->to_layer3(p_m_mISDNport->ml3, MT_RELEASE_COMPLETE, p_m_d_l3id, l3m); new_state(PORT_STATE_RELEASE); - p_m_delete = 1; + trigger_work(&p_m_d_delete); return(-34); /* to epoint: no channel available */ } /* + * hunt bchannel for incoming setup or retrieve or resume + */ +int Pdss1::hunt_bchannel(int channel, int exclusive) +{ + struct select_channel *selchannel; + struct interface_port *ifport = p_m_mISDNport->ifport; + int i; + + chan_trace_header(p_m_mISDNport, this, "CHANNEL SELECTION (setup)", DIRECTION_NONE); + if (exclusive<0) + exclusive = 0; + if (channel == CHANNEL_NO) + add_trace("channel", "request", "no-channel"); + else + add_trace("channel", "request", (channel>0)?"%d%s":"any", channel, exclusive?" (forced)":""); + if (channel==CHANNEL_NO && p_type==PORT_TYPE_DSS1_TE_IN) { + add_trace("conclusion", NULL, "incoming call-waiting not supported for TE-mode"); + end_trace(); + return(-6); // channel unacceptable + } + if (channel <= 0) /* not given, no channel, whatever.. */ + channel = CHANNEL_ANY; /* any channel */ + add_trace("channel", "reserved", "%d", p_m_mISDNport->b_reserved); + if (p_m_mISDNport->b_reserved >= p_m_mISDNport->b_num) { // of out chan.. + add_trace("conclusion", NULL, "all channels are reserved"); + end_trace(); + return(-34); // no channel + } + if (channel == CHANNEL_ANY) + goto get_from_list; + if (channel > 0) { + /* check for given channel in selection list */ + selchannel = ifport->in_channel; + while(selchannel) { + if (selchannel->channel == channel || selchannel->channel == CHANNEL_FREE) + break; + selchannel = selchannel->next; + } + if (!selchannel) + channel = 0; + + /* exclusive channel requests must be in the list */ + if (exclusive) { + /* no exclusive channel */ + if (!channel) { + add_trace("conclusion", NULL, "exclusively requested channel not in list"); + end_trace(); + return(-6); // channel unacceptable + } + /* get index for channel */ + i = channel-1-(channel>=17); + if (i < 0 || i >= p_m_mISDNport->b_num || channel == 16) { + add_trace("conclusion", NULL, "exclusively requested channel outside interface range"); + end_trace(); + return(-6); // channel unacceptable + } + /* check if busy */ + if (p_m_mISDNport->b_port[i] == NULL) + goto use_channel; + add_trace("conclusion", NULL, "exclusively requested channel is busy"); + end_trace(); + return(-6); // channel unacceptable + } + + /* requested channels in list will be used */ + if (channel) { + /* get index for channel */ + i = channel-1-(channel>=17); + if (i < 0 || i >= p_m_mISDNport->b_num || channel == 16) { + add_trace("info", NULL, "requested channel %d outside interface range", channel); + } else /* if inside range (else) check if available */ + if (p_m_mISDNport->b_port[i] == NULL) + goto use_channel; + } + + /* if channel is not available or not in list, it must be searched */ + get_from_list: + /* check for first free channel in list */ + channel = 0; + selchannel = ifport->in_channel; + while(selchannel) { + switch(selchannel->channel) { + case CHANNEL_FREE: /* free channel */ + add_trace("hunting", "channel", "free"); + if (p_m_mISDNport->b_reserved >= p_m_mISDNport->b_num) + break; /* all channel in use or reserverd */ + /* find channel */ + i = 0; + while(i < p_m_mISDNport->b_num) { + if (p_m_mISDNport->b_port[i] == NULL) { + channel = i+1+(i>=15); + break; + } + i++; + } + break; + + default: + add_trace("hunting", "channel", "%d", selchannel->channel); + if (selchannel->channel<1 || selchannel->channel==16) + break; /* invalid channels */ + i = selchannel->channel-1-(selchannel->channel>=17); + if (i >= p_m_mISDNport->b_num) + break; /* channel not in port */ + if (p_m_mISDNport->b_port[i] == NULL) { + channel = selchannel->channel; + break; + } + break; + } + if (channel) + break; /* found channel */ + selchannel = selchannel->next; + } + if (!channel) { + add_trace("conclusion", NULL, "no channel available"); + end_trace(); + return(-6); // channel unacceptable + } + } +use_channel: + add_trace("conclusion", NULL, "channel available"); + add_trace("connect", "channel", "%d", channel); + end_trace(); + return(channel); +} + +/* * handles all indications */ /* CC_SETUP INDICATION */ -void Pdss1::setup_ind(unsigned long prim, unsigned long dinfo, void *data) +void Pdss1::setup_ind(unsigned int cmd, unsigned int pid, struct l3_msg *l3m) { - int headerlen = (p_m_d_ntmode)?mISDNUSER_HEAD_SIZE:mISDN_HEADER_LEN; - SETUP_t *setup = (SETUP_t *)((unsigned long)data + headerlen); - int type, plan, present, screen, reason; - int coding, capability, mode, rate, multi, user, presentation, interpretation, hlc, exthlc; + int calling_type, calling_plan, calling_present, calling_screen; + int calling_type2, calling_plan2, calling_present2, calling_screen2; + int called_type, called_plan; + int redir_type, redir_plan, redir_present, redir_screen, redir_reason; + int hlc_coding, hlc_presentation, hlc_interpretation, hlc_hlc, hlc_exthlc; + int bearer_coding, bearer_capability, bearer_mode, bearer_rate, bearer_multi, bearer_user; int exclusive, channel; int ret; - msg_t *dmsg; - unsigned char keypad[32] = ""; + unsigned char keypad[33] = ""; unsigned char useruser[128]; int useruser_len = 0, useruser_protocol; class Endpoint *epoint; - struct message *message; + struct lcr_msg *message; + + /* process given callref */ + l1l2l3_trace_header(p_m_mISDNport, this, L3_NEW_L3ID_IND, DIRECTION_IN); + add_trace("callref", "new", "0x%x", pid); + if (p_m_d_l3id) { + /* release in case the ID is already in use */ + add_trace("error", NULL, "callref already in use"); + end_trace(); + l3m = create_l3msg(); + l1l2l3_trace_header(p_m_mISDNport, this, L3_RELEASE_COMPLETE_REQ, DIRECTION_OUT); + enc_ie_cause(l3m, (p_m_mISDNport->locally)?LOCATION_PRIVATE_LOCAL:LOCATION_PRIVATE_REMOTE, 47); + add_trace("reason", NULL, "callref already in use"); + end_trace(); + p_m_mISDNport->ml3->to_layer3(p_m_mISDNport->ml3, MT_RELEASE_COMPLETE, pid, l3m); + new_state(PORT_STATE_RELEASE); + trigger_work(&p_m_d_delete); + return; + } + p_m_d_l3id = pid; + p_m_d_ces = pid >> 16; + end_trace(); - /* caller information */ - dec_ie_calling_pn(setup->CALLING_PN, (Q931_info_t *)((unsigned long)data+headerlen), &type, &plan, &present, &screen, (unsigned char *)p_callerinfo.id, sizeof(p_callerinfo.id)); - switch (present) - { + l1l2l3_trace_header(p_m_mISDNport, this, L3_SETUP_IND, DIRECTION_IN); + dec_ie_calling_pn(l3m, &calling_type, &calling_plan, &calling_present, &calling_screen, (unsigned char *)p_callerinfo.id, sizeof(p_callerinfo.id), &calling_type2, &calling_plan2, &calling_present2, &calling_screen2, (unsigned char *)p_callerinfo.id2, sizeof(p_callerinfo.id2)); + dec_ie_called_pn(l3m, &called_type, &called_plan, (unsigned char *)p_dialinginfo.id, sizeof(p_dialinginfo.id)); + dec_ie_keypad(l3m, (unsigned char *)keypad, sizeof(keypad)); + /* te-mode: CNIP (calling name identification presentation) */ + dec_facility_centrex(l3m, (unsigned char *)p_callerinfo.name, sizeof(p_callerinfo.name)); + dec_ie_useruser(l3m, &useruser_protocol, useruser, &useruser_len); + dec_ie_complete(l3m, &p_dialinginfo.sending_complete); + dec_ie_redir_nr(l3m, &redir_type, &redir_plan, &redir_present, &redir_screen, &redir_reason, (unsigned char *)p_redirinfo.id, sizeof(p_redirinfo.id)); + dec_ie_channel_id(l3m, &exclusive, &channel); + dec_ie_hlc(l3m, &hlc_coding, &hlc_interpretation, &hlc_presentation, &hlc_hlc, &hlc_exthlc); + dec_ie_bearer(l3m, &bearer_coding, &bearer_capability, &bearer_mode, &bearer_rate, &bearer_multi, &bearer_user); + dec_ie_display(l3m, (unsigned char *)p_dialinginfo.display, sizeof(p_dialinginfo.display)); + end_trace(); + + /* if blocked, release call with MT_RELEASE_COMPLETE */ + if (p_m_mISDNport->ifport->block) { + l3m = create_l3msg(); + l1l2l3_trace_header(p_m_mISDNport, this, L3_RELEASE_COMPLETE_REQ, DIRECTION_OUT); + enc_ie_cause(l3m, (p_m_mISDNport->locally)?LOCATION_PRIVATE_LOCAL:LOCATION_PRIVATE_REMOTE, 27); /* temporary unavailable */ + add_trace("reason", NULL, "port blocked"); + end_trace(); + p_m_mISDNport->ml3->to_layer3(p_m_mISDNport->ml3, MT_RELEASE_COMPLETE, p_m_d_l3id, l3m); + new_state(PORT_STATE_RELEASE); + trigger_work(&p_m_d_delete); + return; + } + + /* caller info */ + switch (calling_present) { case 1: p_callerinfo.present = INFO_PRESENT_RESTRICTED; break; @@ -413,21 +477,26 @@ void Pdss1::setup_ind(unsigned long prim, unsigned long dinfo, void *data) p_callerinfo.present = INFO_PRESENT_ALLOWED; break; } - switch (screen) - { + switch (calling_screen) { case 0: p_callerinfo.screen = INFO_SCREEN_USER; break; + case 1: + p_callerinfo.screen = INFO_SCREEN_USER_VERIFIED_PASSED; + break; + case 2: + p_callerinfo.screen = INFO_SCREEN_USER_VERIFIED_FAILED; + break; default: p_callerinfo.screen = INFO_SCREEN_NETWORK; break; } - switch (type) - { + switch (calling_type) { case -1: + p_callerinfo.ntype = INFO_NTYPE_NOTPRESENT; + break; + case 0x0: p_callerinfo.ntype = INFO_NTYPE_UNKNOWN; - p_callerinfo.present = INFO_PRESENT_NOTAVAIL; - p_callerinfo.screen = INFO_SCREEN_NETWORK; break; case 0x1: p_callerinfo.ntype = INFO_NTYPE_INTERNATIONAL; @@ -443,12 +512,58 @@ void Pdss1::setup_ind(unsigned long prim, unsigned long dinfo, void *data) break; } p_callerinfo.isdn_port = p_m_portnum; + SCPY(p_callerinfo.interface, p_m_mISDNport->ifport->interface->name); + + /* caller info2 */ + switch (calling_present2) { + case 1: + p_callerinfo.present2 = INFO_PRESENT_RESTRICTED; + break; + case 2: + p_callerinfo.present2 = INFO_PRESENT_NOTAVAIL; + break; + default: + p_callerinfo.present2 = INFO_PRESENT_ALLOWED; + break; + } + switch (calling_screen2) { + case 0: + p_callerinfo.screen2 = INFO_SCREEN_USER; + break; + case 1: + p_callerinfo.screen2 = INFO_SCREEN_USER_VERIFIED_PASSED; + break; + case 2: + p_callerinfo.screen2 = INFO_SCREEN_USER_VERIFIED_FAILED; + break; + default: + p_callerinfo.screen2 = INFO_SCREEN_NETWORK; + break; + } + switch (calling_type2) { + case -1: + p_callerinfo.ntype2 = INFO_NTYPE_NOTPRESENT; + break; + case 0x0: + p_callerinfo.ntype2 = INFO_NTYPE_UNKNOWN; + break; + case 0x1: + p_callerinfo.ntype2 = INFO_NTYPE_INTERNATIONAL; + break; + case 0x2: + p_callerinfo.ntype2 = INFO_NTYPE_NATIONAL; + break; + case 0x4: + p_callerinfo.ntype2 = INFO_NTYPE_SUBSCRIBER; + break; + default: + p_callerinfo.ntype2 = INFO_NTYPE_UNKNOWN; + break; + } + /* dialing information */ - dec_ie_called_pn(setup->CALLED_PN, (Q931_info_t *)((unsigned long)data+headerlen), &type, &plan, (unsigned char *)p_dialinginfo.number, sizeof(p_dialinginfo.number)); - dec_ie_keypad(setup->KEYPAD, (Q931_info_t *)((unsigned long)data+headerlen), (unsigned char *)keypad, sizeof(keypad)); - SCAT(p_dialinginfo.number, (char *)keypad); - switch (type) - { + SCAT(p_dialinginfo.id, (char *)keypad); + switch (called_type) { case 0x1: p_dialinginfo.ntype = INFO_NTYPE_INTERNATIONAL; break; @@ -462,21 +577,9 @@ void Pdss1::setup_ind(unsigned long prim, unsigned long dinfo, void *data) p_dialinginfo.ntype = INFO_NTYPE_UNKNOWN; break; } -#ifdef CENTREX - /* te-mode: CNIP (calling name identification presentation) */ - if (!p_m_d_ntmode) - dec_facility_centrex(setup->FACILITY, (Q931_info_t *)((unsigned long)data+headerlen), (unsigned char *)p_callerinfo.name, sizeof(p_callerinfo.name)); -#endif - - /* uus */ - dec_ie_useruser(setup->USER_USER, (Q931_info_t *)((unsigned long)data+headerlen), &useruser_protocol, useruser, &useruser_len); - /* sending complete */ - dec_ie_complete(setup->COMPLETE, (Q931_info_t *)((unsigned long)data+headerlen), &p_dialinginfo.sending_complete); - /* redirecting number */ - dec_ie_redir_nr(setup->REDIR_NR, (Q931_info_t *)((unsigned long)data+headerlen), &type, &plan, &present, &screen, &reason, (unsigned char *)p_redirinfo.id, sizeof(p_redirinfo.id)); - switch (present) - { + /* redir info */ + switch (redir_present) { case 1: p_redirinfo.present = INFO_PRESENT_RESTRICTED; break; @@ -487,17 +590,21 @@ void Pdss1::setup_ind(unsigned long prim, unsigned long dinfo, void *data) p_redirinfo.present = INFO_PRESENT_ALLOWED; break; } - switch (screen) - { + switch (redir_screen) { case 0: p_redirinfo.screen = INFO_SCREEN_USER; break; + case 1: + p_redirinfo.screen = INFO_SCREEN_USER_VERIFIED_PASSED; + break; + case 2: + p_redirinfo.screen = INFO_SCREEN_USER_VERIFIED_FAILED; + break; default: p_redirinfo.screen = INFO_SCREEN_NETWORK; break; } - switch (reason) - { + switch (redir_reason) { case 1: p_redirinfo.reason = INFO_REDIR_BUSY; break; @@ -517,12 +624,12 @@ void Pdss1::setup_ind(unsigned long prim, unsigned long dinfo, void *data) p_redirinfo.reason = INFO_REDIR_UNKNOWN; break; } - switch (type) - { + switch (redir_type) { case -1: + p_redirinfo.ntype = INFO_NTYPE_NOTPRESENT; + break; + case 0x0: p_redirinfo.ntype = INFO_NTYPE_UNKNOWN; - p_redirinfo.present = INFO_PRESENT_NULL; /* not redirecting */ - p_redirinfo.reason = INFO_REDIR_UNKNOWN; break; case 0x1: p_redirinfo.ntype = INFO_NTYPE_INTERNATIONAL; @@ -538,20 +645,18 @@ void Pdss1::setup_ind(unsigned long prim, unsigned long dinfo, void *data) break; } p_redirinfo.isdn_port = p_m_portnum; + /* bearer capability */ - dec_ie_bearer(setup->BEARER, (Q931_info_t *)((unsigned long)data+headerlen), &coding, &capability, &mode, &rate, &multi, &user); - switch (capability) - { + switch (bearer_capability) { case -1: p_capainfo.bearer_capa = INFO_BC_AUDIO; - user = (options.law=='a')?3:2; + bearer_user = (options.law=='a')?3:2; break; default: - p_capainfo.bearer_capa = capability; + p_capainfo.bearer_capa = bearer_capability; break; } - switch (mode) - { + switch (bearer_mode) { case 2: p_capainfo.bearer_mode = INFO_BMODE_PACKET; break; @@ -559,253 +664,79 @@ void Pdss1::setup_ind(unsigned long prim, unsigned long dinfo, void *data) p_capainfo.bearer_mode = INFO_BMODE_CIRCUIT; break; } - switch (user) - { + switch (bearer_user) { case -1: p_capainfo.bearer_info1 = INFO_INFO1_NONE; break; default: - p_capainfo.bearer_info1 = user + 0x80; + p_capainfo.bearer_info1 = bearer_user + 0x80; break; } /* hlc */ - dec_ie_hlc(setup->HLC, (Q931_info_t *)((unsigned long)data+headerlen), &coding, &interpretation, &presentation, &hlc, &exthlc); - switch (hlc) - { + switch (hlc_hlc) { case -1: p_capainfo.hlc = INFO_HLC_NONE; break; default: - p_capainfo.hlc = hlc + 0x80; + p_capainfo.hlc = hlc_hlc + 0x80; break; } - switch (exthlc) - { + switch (hlc_exthlc) { case -1: p_capainfo.exthlc = INFO_HLC_NONE; break; default: - p_capainfo.exthlc = exthlc + 0x80; + p_capainfo.exthlc = hlc_exthlc + 0x80; break; } - /* channel_id */ jolly todo - dec_ie_channel_id(setup->CHANNEL_ID, (Q931_info_t *)((unsigned long)data+headerlen), &exclusive, &channel); - if (exclusive<0) - exclusive = 0; - if (channel==CHANNEL_NO && p_type==PORT_TYPE_DSS1_TE_IN) - PDEBUG(DEBUG_BCHANNEL, "- no channel is given by the network, causing to fail, since CW is not possible for external lines\n"); - if (channel <= 0) /* not given, no channel, whatever.. */ - channel = CHANNEL_ANY; /* any channel */ - if (channel == CHANNE_ANY) - { - PDEBUG(DEBUG_BCHANNEL, "- any channel is assumed from the %s, so we need to return the a channel from our list\n", (p_m_d_ntmode)?"user":"network"); - /* check for any channel form selection list */ - channel = 0; - selchannel = ifport->channel_in; - while(selchannel) - { - switch(selchannel->channel) - { - case CHANNEL_FREE: /* free channel */ - if (mISDNport->b_inuse >= mISDNport->b_num) - break; /* all channel in use or reserverd */ - /* find channel */ - i = 0; - while(i < mISDNport->b_num) - { - if (mISDNport->b_port[i] == NULL) - { - channel = i+1+(i>=15); - //printlog("%3d port#%d position %d selecting free channel %d\n", ea_endpoint->ep_serial, ifport_start->portnum, index, *channel); - break; - } - i++; - } - break; - - default: - if (selchannel->channel<1 || selchannel->channel==16) - break; /* invalid channels */ - i = selchannel->channel-1-(selchannel->channel>=17); - if (i >= mISDNport->b_num) - break; /* channel not in port */ - if (mISDNport->b_port[i] == NULL) - { - channel = selchannel->channel; - //printlog("%3d port#%d position %d selecting given channel %d\n", ea_endpoint->ep_serial, ifport_start->portnum, index, *channel); - break; - } - break; - } - if (channel) - break; /* found channel */ - //printlog("%3d port#%d position %d skipping, because no channel found.\n", ea_endpoint->ep_serial, ifport_start->portnum, index); - selchannel = selchannel->next; - } - if (!channel) - { - ret = -34; // no channel - goto no_channel; - } - } - if (channel > 0) - /* check for given channel in selection list */ - selchannel = ifport->channel_in; - while(selchannel) - { - if (selchannel->channel == channel || selchannel->channel == CHANNEL_FREE) - break; - //printlog("%3d port#%d position %d skipping, because no channel found.\n", ea_endpoint->ep_serial, ifport_start->portnum, index); - selchannel = selchannel->next; - } - if (!selchannel) - channel = 0; + /* set bchannel mode */ + if (p_capainfo.bearer_capa==INFO_BC_DATAUNRESTRICTED + || p_capainfo.bearer_capa==INFO_BC_DATARESTRICTED + || p_capainfo.bearer_capa==INFO_BC_VIDEO) + p_capainfo.source_mode = B_MODE_HDLC; + else + p_capainfo.source_mode = B_MODE_TRANSPARENT; + p_m_b_mode = p_capainfo.source_mode; - if (exclusive) - { - if (!channel) - { - PDEBUG(DEBUG_BCHANNEL, "- exclusive channel %d is selected, but not in list of incomming channel.\n", channel); - ret = 6; // unacceptable - goto no_channel; - } - PDEBUG(DEBUG_BCHANNEL, "- exclusive channel %d is selected, as in list of incomming channels.\n", channel); - } else - if (channel) - { - PDEBUG(DEBUG_BCHANNEL, "- channel %d given, found in list.\n", channel); - i = selchannel->channel-1-(selchannel->channel>=17); - if (mISDNport->b_port[i] == NULL) - { - goto use_channel; - } - goto inuse_search_differnt; - } else - { - inuse_search_different: - PDEBUG(DEBUG_BCHANNEL, "- channel %d given, but not in list of incomming channels.\n", channel); - - /* check for first free channel in list */ - selchannel = ifport->channel_in; - while(selchannel) - { - switch(selchannel->channel) - { - case CHANNEL_FREE: /* free channel */ - if (mISDNport->b_inuse >= mISDNport->b_num) - break; /* all channel in use or reserverd */ - /* find channel */ - i = 0; - while(i < mISDNport->b_num) - { - if (mISDNport->b_port[i] == NULL) - { - channel = i+1+(i>=15); - //printlog("%3d port#%d position %d selecting free channel %d\n", ea_endpoint->ep_serial, ifport_start->portnum, index, *channel); - break; - } - i++; - } - break; + /* hunt channel */ + ret = channel = hunt_bchannel(channel, exclusive); + if (ret < 0) + goto no_channel; - default: - if (selchannel->channel<1 || selchannel->channel==16) - break; /* invalid channels */ - i = selchannel->channel-1-(selchannel->channel>=17); - if (i >= mISDNport->b_num) - break; /* channel not in port */ - if (mISDNport->b_port[i] == NULL) - { - channel = selchannel->channel; - //printlog("%3d port#%d position %d selecting given channel %d\n", ea_endpoint->ep_serial, ifport_start->portnum, index, *channel); - break; - } - break; - } - if (channel) - break; /* found channel */ - //printlog("%3d port#%d position %d skipping, because no channel found.\n", ea_endpoint->ep_serial, ifport_start->portnum, index); - selchannel = selchannel->next; - } - if (!channel) - { - ret = 6; // unacceptable - goto no_channel; - } - } -channel wählen /* open channel */ - use_channel: ret = seize_bchannel(channel, 1); - if (ret < 0) - { + if (ret < 0) { no_channel: - PDEBUG(DEBUG_BCHANNEL, "- channel is not available (cause=%d), so we send a release_complete.\n", -ret); - RELEASE_COMPLETE_t *release_complete; - - dmsg = create_l3msg(CC_RELEASE_COMPLETE | REQUEST, MT_RELEASE_COMPLETE, dinfo, sizeof(RELEASE_COMPLETE_t), p_m_d_ntmode); - isdn_show_send_message(CC_RELEASE_COMPLETE | REQUEST, dmsg); - release_complete = (RELEASE_COMPLETE_t *)(dmsg->data + headerlen); - enc_ie_cause(&release_complete->CAUSE, dmsg, (p_m_d_ntmode)?LOCATION_PRIVATE_LOCAL:LOCATION_PRIVATE_REMOTE, -ret); - msg_queue_tail(&p_m_mISDNport->downqueue, dmsg); + /* + * NOTE: we send MT_RELEASE_COMPLETE to "REJECT" the channel + * in response to the setup + */ + l3m = create_l3msg(); + l1l2l3_trace_header(p_m_mISDNport, this, L3_RELEASE_COMPLETE_REQ, DIRECTION_OUT); + enc_ie_cause(l3m, (p_m_mISDNport->locally)?LOCATION_PRIVATE_LOCAL:LOCATION_PRIVATE_REMOTE, -ret); + end_trace(); + p_m_mISDNport->ml3->to_layer3(p_m_mISDNport->ml3, MT_RELEASE_COMPLETE, p_m_d_l3id, l3m); new_state(PORT_STATE_RELEASE); - p_m_delete = 1; + trigger_work(&p_m_d_delete); return; } - PDEBUG(DEBUG_BCHANNEL, "- channel is available, we selected channel %d.\n", ret); + bchannel_event(p_m_mISDNport, p_m_b_index, B_EVENT_USE); + /* create endpoint */ if (p_epointlist) - { - PERROR("SOFTWARE ERROR: incoming call but already got an endpoint, exitting...\n"); - exit(-1); - } + FATAL("Incoming call but already got an endpoint.\n"); if (!(epoint = new Endpoint(p_serial, 0))) - { - RELEASE_COMPLETE_t *release_complete; + FATAL("No memory for Endpoint instance\n"); + epoint->ep_app = new_endpointapp(epoint, 0, p_m_mISDNport->ifport->interface->app); //incoming + epointlist_new(epoint->ep_serial); - dmsg = create_l3msg(CC_RELEASE_COMPLETE | REQUEST, MT_RELEASE_COMPLETE, dinfo, sizeof(RELEASE_COMPLETE_t), p_m_d_ntmode); - isdn_show_send_message(CC_RELEASE_COMPLETE | REQUEST, dmsg); - release_complete = (RELEASE_COMPLETE_t *)(dmsg->data + headerlen); - enc_ie_cause(&release_complete->CAUSE, dmsg, (p_m_d_ntmode)?LOCATION_PRIVATE_LOCAL:LOCATION_PRIVATE_REMOTE, 41); /* temporary failure */ - msg_queue_tail(&p_m_mISDNport->downqueue, dmsg); - new_state(PORT_STATE_RELEASE); - p_m_delete = 1; - return; - } - if (!(epoint->ep_app = new DEFAULT_ENDPOINT_APP(epoint))) - { - PERROR("no memory for application\n"); - exit(-1); - } - if (!(epointlist_new(epoint->ep_serial))) - { - PERROR("no memory for epointlist\n"); - exit(-1); - } - if (p_m_d_ntmode) - { - /* nt-library now gives us the id via CC_SETUP */ - if (dinfo&(~0xff) == 0xff00) - { - PERROR("fatal software error: l3-stack gives us a process id 0xff00-0xffff\n"); - exit(-1); - } - printisdn(" l3id 0x%x changes to 0x%x\n", p_m_d_l3id, dinfo); - if (p_m_d_l3id&(~0xff) == 0xff00) - p_m_mISDNport->procids[p_m_d_l3id&0xff] = 0; - p_m_d_l3id = dinfo; - p_m_d_ces = setup->ces; - PDEBUG(DEBUG_ISDN, "Pdss1(%s) nt-mode gives us new l3id via setup ind: 0x%x\n", p_name, p_m_d_l3id); - } - - PDEBUG(DEBUG_ISDN, "Pdss1(%s) setup: %s->%s\n", p_name, p_callerinfo.id, p_dialinginfo.number); + /* send setup message to endpoit */ message = message_create(p_serial, ACTIVE_EPOINT(p_epointlist), PORT_TO_EPOINT, MESSAGE_SETUP); message->param.setup.isdn_port = p_m_portnum; message->param.setup.port_type = p_type; - p_callerinfo.isdn_port = p_m_portnum; - SCPY(p_callerinfo.interface, p_m_mISDNport->ifport->interface->name);; +// message->param.setup.dtmf = !p_m_mISDNport->ifport->nodtmf; memcpy(&message->param.setup.dialinginfo, &p_dialinginfo, sizeof(struct dialing_info)); memcpy(&message->param.setup.callerinfo, &p_callerinfo, sizeof(struct caller_info)); memcpy(&message->param.setup.redirinfo, &p_redirinfo, sizeof(struct redir_info)); @@ -819,20 +750,21 @@ channel w } /* CC_INFORMATION INDICATION */ -void Pdss1::information_ind(unsigned long prim, unsigned long dinfo, void *data) +void Pdss1::information_ind(unsigned int cmd, unsigned int pid, struct l3_msg *l3m) { - int headerlen = (p_m_d_ntmode)?mISDNUSER_HEAD_SIZE:mISDN_HEADER_LEN; - INFORMATION_t *information = (INFORMATION_t *)((unsigned long)data + headerlen); int type, plan; - unsigned char keypad[32] = ""; - struct message *message; - - /* dialing information */ - dec_ie_called_pn(information->CALLED_PN, (Q931_info_t *)((unsigned long)data+headerlen), &type, &plan, (unsigned char *)p_dialinginfo.number, sizeof(p_dialinginfo.number)); - dec_ie_keypad(information->KEYPAD, (Q931_info_t *)((unsigned long)data+headerlen), (unsigned char *)keypad, sizeof(keypad)); - SCAT(p_dialinginfo.number, (char *)keypad); - switch (type) - { + unsigned char keypad[33] = "", display[128] = ""; + struct lcr_msg *message; + + l1l2l3_trace_header(p_m_mISDNport, this, L3_INFORMATION_IND, DIRECTION_IN); + dec_ie_called_pn(l3m, &type, &plan, (unsigned char *)p_dialinginfo.id, sizeof(p_dialinginfo.id)); + dec_ie_keypad(l3m, (unsigned char *)keypad, sizeof(keypad)); + dec_ie_display(l3m, (unsigned char *)display, sizeof(display)); + dec_ie_complete(l3m, &p_dialinginfo.sending_complete); + end_trace(); + + SCAT(p_dialinginfo.id, (char *)keypad); + switch (type) { case 0x1: p_dialinginfo.ntype = INFO_NTYPE_INTERNATIONAL; break; @@ -846,9 +778,7 @@ void Pdss1::information_ind(unsigned long prim, unsigned long dinfo, void *data) p_dialinginfo.ntype = INFO_NTYPE_UNKNOWN; break; } - /* sending complete */ - dec_ie_complete(information->COMPLETE, (Q931_info_t *)((unsigned long)data+headerlen), &p_dialinginfo.sending_complete);; - PDEBUG(DEBUG_ISDN, "Pdss1(%s) more digits: %s\n", p_name,p_dialinginfo.number); + SCPY(p_dialinginfo.display, (char *)display); message = message_create(p_serial, ACTIVE_EPOINT(p_epointlist), PORT_TO_EPOINT, MESSAGE_INFORMATION); memcpy(&message->param.information, &p_dialinginfo, sizeof(struct dialing_info)); message_put(message); @@ -857,59 +787,92 @@ void Pdss1::information_ind(unsigned long prim, unsigned long dinfo, void *data) } /* CC_SETUP_ACCNOWLEDGE INDICATION */ -void Pdss1::setup_acknowledge_ind(unsigned long prim, unsigned long dinfo, void *data) +void Pdss1::setup_acknowledge_ind(unsigned int cmd, unsigned int pid, struct l3_msg *l3m) { - int headerlen = (p_m_d_ntmode)?mISDNUSER_HEAD_SIZE:mISDN_HEADER_LEN; - SETUP_ACKNOWLEDGE_t *setup_acknowledge = (SETUP_ACKNOWLEDGE_t *)((unsigned long)data + headerlen); int exclusive, channel; int coding, location, progress; int ret; - struct message *message; + struct lcr_msg *message; + int max = p_m_mISDNport->ifport->dialmax; + char *number; + l3_msg *nl3m; + + l1l2l3_trace_header(p_m_mISDNport, this, L3_SETUP_ACKNOWLEDGE_IND, DIRECTION_IN); + dec_ie_channel_id(l3m, &exclusive, &channel); + dec_ie_progress(l3m, &coding, &location, &progress); + end_trace(); + + if (progress >= 0) { + message = message_create(p_serial, ACTIVE_EPOINT(p_epointlist), PORT_TO_EPOINT, MESSAGE_PROGRESS); + message->param.progressinfo.progress = progress; + message->param.progressinfo.location = location; + message_put(message); + } - /* channel_id */ - dec_ie_channel_id(setup_acknowledge->CHANNEL_ID, (Q931_info_t *)((unsigned long)data+headerlen), &exclusive, &channel); - dec_ie_progress(setup_acknowledge->PROGRESS, (Q931_info_t *)((unsigned long)data+headerlen), &coding, &location, &progress); - ret = received_first_reply_to_setup(prim, exclusive, channel); - if (ret < 0) - { + /* process channel */ + ret = received_first_reply_to_setup(cmd, channel, exclusive); + if (ret < 0) { message = message_create(p_serial, ACTIVE_EPOINT(p_epointlist), PORT_TO_EPOINT, MESSAGE_RELEASE); message->param.disconnectinfo.cause = -ret; message->param.disconnectinfo.location = LOCATION_PRIVATE_LOCAL; message_put(message); new_state(PORT_STATE_RELEASE); - p_m_delete = 1; + trigger_work(&p_m_d_delete); return; } + message = message_create(p_serial, ACTIVE_EPOINT(p_epointlist), PORT_TO_EPOINT, MESSAGE_OVERLAP); message_put(message); new_state(PORT_STATE_OUT_OVERLAP); + + number = p_m_d_queue; + while (number[0]) { /* as long we have something to dial */ + if (max > (int)strlen(number) || max == 0) + max = (int)strlen(number); + + nl3m = create_l3msg(); + l1l2l3_trace_header(p_m_mISDNport, this, L3_INFORMATION_REQ, DIRECTION_OUT); + enc_ie_called_pn(nl3m, 0, 1, (unsigned char *)number, max); + end_trace(); + p_m_mISDNport->ml3->to_layer3(p_m_mISDNport->ml3, MT_INFORMATION, p_m_d_l3id, nl3m); + number += max; + } + p_m_d_queue[0] = '\0'; } /* CC_PROCEEDING INDICATION */ -void Pdss1::proceeding_ind(unsigned long prim, unsigned long dinfo, void *data) +void Pdss1::proceeding_ind(unsigned int cmd, unsigned int pid, struct l3_msg *l3m) { - int headerlen = (p_m_d_ntmode)?mISDNUSER_HEAD_SIZE:mISDN_HEADER_LEN; - CALL_PROCEEDING_t *proceeding = (CALL_PROCEEDING_t *)((unsigned long)data + headerlen); int exclusive, channel; int coding, location, progress; int ret; - struct message *message; + struct lcr_msg *message; int notify = -1, type, plan, present; char redir[32]; - /* channel id */ - dec_ie_channel_id(proceeding->CHANNEL_ID, (Q931_info_t *)((unsigned long)data+headerlen), &exclusive, &channel); - dec_ie_progress(proceeding->PROGRESS, (Q931_info_t *)((unsigned long)data+headerlen), &coding, &location, &progress); - ret = received_first_reply_to_setup(prim, exclusive, channel); - if (ret < 0) - { + l1l2l3_trace_header(p_m_mISDNport, this, L3_PROCEEDING_IND, DIRECTION_IN); + dec_ie_channel_id(l3m, &exclusive, &channel); + dec_ie_progress(l3m, &coding, &location, &progress); + dec_ie_notify(l3m, ¬ify); + dec_ie_redir_dn(l3m, &type, &plan, &present, (unsigned char *)redir, sizeof(redir)); + end_trace(); + + if (progress >= 0) { + message = message_create(p_serial, ACTIVE_EPOINT(p_epointlist), PORT_TO_EPOINT, MESSAGE_PROGRESS); + message->param.progressinfo.progress = progress; + message->param.progressinfo.location = location; + message_put(message); + } + + ret = received_first_reply_to_setup(cmd, channel, exclusive); + if (ret < 0) { message = message_create(p_serial, ACTIVE_EPOINT(p_epointlist), PORT_TO_EPOINT, MESSAGE_RELEASE); message->param.disconnectinfo.cause = -ret; message->param.disconnectinfo.location = LOCATION_PRIVATE_LOCAL; message_put(message); new_state(PORT_STATE_RELEASE); - p_m_delete = 1; + trigger_work(&p_m_d_delete); return; } message = message_create(p_serial, ACTIVE_EPOINT(p_epointlist), PORT_TO_EPOINT, MESSAGE_PROCEEDING); @@ -917,22 +880,18 @@ void Pdss1::proceeding_ind(unsigned long prim, unsigned long dinfo, void *data) new_state(PORT_STATE_OUT_PROCEEDING); - dec_ie_notify(NULL/*proceeding->NOTIFY*/, (Q931_info_t *)((unsigned long)data+headerlen), ¬ify); if (notify >= 0) notify |= 0x80; else notify = 0; - dec_ie_redir_dn(proceeding->REDIR_DN, (Q931_info_t *)((unsigned long)data+headerlen), &type, &plan, &present, (unsigned char *)redir, sizeof(redir)); - if (type >= 0 || notify) - { + if (type >= 0 || notify) { if (!notify && type >= 0) notify = 251; message = message_create(p_serial, ACTIVE_EPOINT(p_epointlist), PORT_TO_EPOINT, MESSAGE_NOTIFY); message->param.notifyinfo.notify = notify; SCPY(message->param.notifyinfo.id, redir); /* redirection number */ - switch (present) - { + switch (present) { case 1: message->param.notifyinfo.present = INFO_PRESENT_RESTRICTED; break; @@ -943,11 +902,9 @@ void Pdss1::proceeding_ind(unsigned long prim, unsigned long dinfo, void *data) message->param.notifyinfo.present = INFO_PRESENT_ALLOWED; break; } - switch (type) - { + switch (type) { case -1: - message->param.notifyinfo.ntype = INFO_NTYPE_UNKNOWN; - message->param.notifyinfo.present = INFO_PRESENT_NULL; + message->param.notifyinfo.ntype = INFO_NTYPE_NOTPRESENT; break; case 1: message->param.notifyinfo.ntype = INFO_NTYPE_INTERNATIONAL; @@ -968,29 +925,38 @@ void Pdss1::proceeding_ind(unsigned long prim, unsigned long dinfo, void *data) } /* CC_ALERTING INDICATION */ -void Pdss1::alerting_ind(unsigned long prim, unsigned long dinfo, void *data) +void Pdss1::alerting_ind(unsigned int cmd, unsigned int pid, struct l3_msg *l3m) { - int headerlen = (p_m_d_ntmode)?mISDNUSER_HEAD_SIZE:mISDN_HEADER_LEN; - ALERTING_t *alerting = (ALERTING_t *)((unsigned long)data + headerlen); int exclusive, channel; int coding, location, progress; int ret; - struct message *message; + struct lcr_msg *message; int notify = -1, type, plan, present; char redir[32]; - /* channel id */ - dec_ie_channel_id(alerting->CHANNEL_ID, (Q931_info_t *)((unsigned long)data+headerlen), &exclusive, &channel); - dec_ie_progress(alerting->PROGRESS, (Q931_info_t *)((unsigned long)data+headerlen), &coding, &location, &progress); - ret = received_first_reply_to_setup(prim, exclusive, channel); - if (ret < 0) - { + l1l2l3_trace_header(p_m_mISDNport, this, L3_ALERTING_IND, DIRECTION_IN); + dec_ie_channel_id(l3m, &exclusive, &channel); + dec_ie_progress(l3m, &coding, &location, &progress); + dec_ie_notify(l3m, ¬ify); + dec_ie_redir_dn(l3m, &type, &plan, &present, (unsigned char *)redir, sizeof(redir)); + end_trace(); + + if (progress >= 0) { + message = message_create(p_serial, ACTIVE_EPOINT(p_epointlist), PORT_TO_EPOINT, MESSAGE_PROGRESS); + message->param.progressinfo.progress = progress; + message->param.progressinfo.location = location; + message_put(message); + } + + /* process channel */ + ret = received_first_reply_to_setup(cmd, channel, exclusive); + if (ret < 0) { message = message_create(p_serial, ACTIVE_EPOINT(p_epointlist), PORT_TO_EPOINT, MESSAGE_RELEASE); message->param.disconnectinfo.cause = -ret; message->param.disconnectinfo.location = LOCATION_PRIVATE_LOCAL; message_put(message); new_state(PORT_STATE_RELEASE); - p_m_delete = 1; + trigger_work(&p_m_d_delete); return; } message = message_create(p_serial, ACTIVE_EPOINT(p_epointlist), PORT_TO_EPOINT, MESSAGE_ALERTING); @@ -998,21 +964,17 @@ void Pdss1::alerting_ind(unsigned long prim, unsigned long dinfo, void *data) new_state(PORT_STATE_OUT_ALERTING); - dec_ie_notify(NULL/*alerting->NOTIFY*/, (Q931_info_t *)((unsigned long)data+headerlen), ¬ify); if (notify >= 0) notify |= 0x80; else notify = 0; - dec_ie_redir_dn(alerting->REDIR_DN, (Q931_info_t *)((unsigned long)data+headerlen), &type, &plan, &present, (unsigned char *)redir, sizeof(redir)); - if (type >= 0 || notify) - { + if (type >= 0 || notify) { if (!notify && type >= 0) notify = 251; message = message_create(p_serial, ACTIVE_EPOINT(p_epointlist), PORT_TO_EPOINT, MESSAGE_NOTIFY); message->param.notifyinfo.notify = notify; SCPY(message->param.notifyinfo.id, redir); - switch (present) - { + switch (present) { case 1: message->param.notifyinfo.present = INFO_PRESENT_RESTRICTED; break; @@ -1023,11 +985,9 @@ void Pdss1::alerting_ind(unsigned long prim, unsigned long dinfo, void *data) message->param.notifyinfo.present = INFO_PRESENT_ALLOWED; break; } - switch (type) - { + switch (type) { case -1: - message->param.notifyinfo.ntype = INFO_NTYPE_UNKNOWN; - message->param.notifyinfo.present = INFO_PRESENT_NULL; + message->param.notifyinfo.ntype = INFO_NTYPE_NOTPRESENT; break; case 1: message->param.notifyinfo.ntype = INFO_NTYPE_INTERNATIONAL; @@ -1048,41 +1008,37 @@ void Pdss1::alerting_ind(unsigned long prim, unsigned long dinfo, void *data) } /* CC_CONNECT INDICATION */ -void Pdss1::connect_ind(unsigned long prim, unsigned long dinfo, void *data) +void Pdss1::connect_ind(unsigned int cmd, unsigned int pid, struct l3_msg *l3m) { - int headerlen = (p_m_d_ntmode)?mISDNUSER_HEAD_SIZE:mISDN_HEADER_LEN; - CONNECT_t *connect = (CONNECT_t *)((unsigned long)data + headerlen); int exclusive, channel; int type, plan, present, screen; int ret; - msg_t *dmsg; - struct message *message; + struct lcr_msg *message; int bchannel_before; - if (p_m_d_ntmode) - p_m_d_ces = connect->ces; + l1l2l3_trace_header(p_m_mISDNport, this, L3_CONNECT_IND, DIRECTION_IN); + dec_ie_channel_id(l3m, &exclusive, &channel); + dec_ie_connected_pn(l3m, &type, &plan, &present, &screen, (unsigned char *)p_connectinfo.id, sizeof(p_connectinfo.id)); + dec_ie_display(l3m, (unsigned char *)p_connectinfo.display, sizeof(p_connectinfo.display)); + /* te-mode: CONP (connected name identification presentation) */ + dec_facility_centrex(l3m, (unsigned char *)p_connectinfo.name, sizeof(p_connectinfo.name)); + end_trace(); - /* NOTE: we do not check the connected channel, since we - * ready sent a channel to the remote side - */ - /* channel id */ - dec_ie_channel_id(connect->CHANNEL_ID, (Q931_info_t *)((unsigned long)data+headerlen), &exclusive, &channel); + /* select channel */ bchannel_before = p_m_b_channel; - ret = received_first_reply_to_setup(prim, exclusive, channel); - if (ret < 0) - { + ret = received_first_reply_to_setup(cmd, channel, exclusive); + if (ret < 0) { message = message_create(p_serial, ACTIVE_EPOINT(p_epointlist), PORT_TO_EPOINT, MESSAGE_RELEASE); message->param.disconnectinfo.cause = -ret; message->param.disconnectinfo.location = LOCATION_PRIVATE_LOCAL; message_put(message); new_state(PORT_STATE_RELEASE); - p_m_delete = 1; + trigger_work(&p_m_d_delete); return; } + /* connect information */ - dec_ie_connected_pn(connect->CONNECT_PN, (Q931_info_t *)((unsigned long)data+headerlen), &type, &plan, &present, &screen, (unsigned char *)p_connectinfo.id, sizeof(p_connectinfo.id)); - switch (present) - { + switch (present) { case 1: p_connectinfo.present = INFO_PRESENT_RESTRICTED; break; @@ -1093,20 +1049,23 @@ void Pdss1::connect_ind(unsigned long prim, unsigned long dinfo, void *data) p_connectinfo.present = INFO_PRESENT_ALLOWED; break; } - switch (screen) - { + switch (screen) { case 0: p_connectinfo.screen = INFO_SCREEN_USER; break; + case 1: + p_connectinfo.screen = INFO_SCREEN_USER_VERIFIED_PASSED; + break; + case 2: + p_connectinfo.screen = INFO_SCREEN_USER_VERIFIED_FAILED; + break; default: p_connectinfo.screen = INFO_SCREEN_NETWORK; break; } - switch (type) - { - case 0x0: - p_connectinfo.present = INFO_PRESENT_NULL; /* no COLP info */ - p_connectinfo.ntype = INFO_NTYPE_UNKNOWN; + switch (type) { + case -1: + p_connectinfo.ntype = INFO_NTYPE_NOTPRESENT; break; case 0x1: p_connectinfo.ntype = INFO_NTYPE_INTERNATIONAL; @@ -1122,23 +1081,20 @@ void Pdss1::connect_ind(unsigned long prim, unsigned long dinfo, void *data) break; } p_connectinfo.isdn_port = p_m_portnum; -#ifdef CENTREX - /* te-mode: CONP (connected name identification presentation) */ - if (!p_m_d_ntmode) - dec_facility_centrex(connect->FACILITY, (Q931_info_t *)((unsigned long)data+headerlen), (unsigned char *)p_connectinfo.name, sizeof(p_connectinfo.name)); -#endif - /* send connect acknowledge */ - CONNECT_ACKNOWLEDGE_t *connect_acknowledge; - - dmsg = create_l3msg(CC_CONNECT | RESPONSE, MT_CONNECT, dinfo, sizeof(CONNECT_ACKNOWLEDGE_t), p_m_d_ntmode); - isdn_show_send_message(CC_CONNECT | RESPONSE, dmsg); - connect_acknowledge = (CONNECT_ACKNOWLEDGE_t *)(dmsg->data + headerlen); - /* if we had no bchannel before, we send it now */ - if (!bchannel_before && p_m_b_channel) - enc_ie_channel_id(&connect_acknowledge->CHANNEL_ID, dmsg, 1, p_m_b_channel); - msg_queue_tail(&p_m_mISDNport->downqueue, dmsg); - - PDEBUG(DEBUG_ISDN, "Pdss1(%s) connect (to '%s' COLP: '%s')\n", p_name, p_dialinginfo.number, p_connectinfo.id); + SCPY(p_connectinfo.interface, p_m_mISDNport->ifport->interface->name); + + /* only in nt-mode we send connect ack. in te-mode it is done by stack itself or optional */ + if (p_m_d_ntmode) { + /* send connect acknowledge */ + l3m = create_l3msg(); + l1l2l3_trace_header(p_m_mISDNport, this, L3_CONNECT_RES, DIRECTION_OUT); + /* if we had no bchannel before, we send it now */ + if (!bchannel_before && p_m_b_channel) + enc_ie_channel_id(l3m, 1, p_m_b_channel); + end_trace(); + p_m_mISDNport->ml3->to_layer3(p_m_mISDNport->ml3, MT_CONNECT_ACKNOWLEDGE, p_m_d_l3id, l3m); + } + message = message_create(p_serial, ACTIVE_EPOINT(p_epointlist), PORT_TO_EPOINT, MESSAGE_CONNECT); memcpy(&message->param.connectinfo, &p_connectinfo, sizeof(struct connect_info)); message_put(message); @@ -1147,61 +1103,74 @@ void Pdss1::connect_ind(unsigned long prim, unsigned long dinfo, void *data) } /* CC_DISCONNECT INDICATION */ -void Pdss1::disconnect_ind(unsigned long prim, unsigned long dinfo, void *data) +void Pdss1::disconnect_ind(unsigned int cmd, unsigned int pid, struct l3_msg *l3m) { - int headerlen = (p_m_d_ntmode)?mISDNUSER_HEAD_SIZE:mISDN_HEADER_LEN; - DISCONNECT_t *disconnect = (DISCONNECT_t *)((unsigned long)data + headerlen); int location, cause; int coding, proglocation, progress; - struct message *message; + struct lcr_msg *message; + unsigned char display[128] = ""; - /* cause */ - dec_ie_progress(disconnect->PROGRESS, (Q931_info_t *)((unsigned long)data+headerlen), &coding, &proglocation, &progress); - dec_ie_cause(disconnect->CAUSE, (Q931_info_t *)((unsigned long)data+headerlen), &location, &cause); - if (cause < 0) + l1l2l3_trace_header(p_m_mISDNport, this, L3_DISCONNECT_IND, DIRECTION_IN); + dec_ie_progress(l3m, &coding, &proglocation, &progress); + dec_ie_cause(l3m, &location, &cause); + dec_ie_display(l3m, (unsigned char *)display, sizeof(display)); + end_trace(); + + if (cause < 0) { cause = 16; + location = LOCATION_PRIVATE_LOCAL; + } - /* release if we are internal, since internal TEs don't send tones */ - if (p_m_d_ntmode) // || !options.inbandpattern) - { - RELEASE_t *release; - msg_t *dmsg; + if (progress >= 0) { + message = message_create(p_serial, ACTIVE_EPOINT(p_epointlist), PORT_TO_EPOINT, MESSAGE_PROGRESS); + message->param.progressinfo.progress = progress; + message->param.progressinfo.location = proglocation; + message_put(message); + } + + /* release if remote sends us no tones */ + if (!p_m_mISDNport->earlyb) { + l3_msg *l3m; - PDEBUG(DEBUG_ISDN, "Pdss1(%s) send release because internal phone disconnects OR inbandpatterns are not enabled.\n", p_name); - dmsg = create_l3msg(CC_RELEASE | REQUEST, MT_RELEASE, dinfo, sizeof(RELEASE_t), p_m_d_ntmode); - isdn_show_send_message(CC_RELEASE | REQUEST, dmsg); - release = (RELEASE_t *)(dmsg->data + headerlen); - enc_ie_cause(&release->CAUSE, dmsg, (p_m_d_ntmode)?LOCATION_PRIVATE_LOCAL:LOCATION_PRIVATE_REMOTE, 16); /* normal */ - msg_queue_tail(&p_m_mISDNport->downqueue, dmsg); + l3m = create_l3msg(); + l1l2l3_trace_header(p_m_mISDNport, this, L3_RELEASE_REQ, DIRECTION_OUT); + enc_ie_cause(l3m, location, cause); /* normal */ + add_trace("reason", NULL, "no remote patterns"); + end_trace(); + p_m_mISDNport->ml3->to_layer3(p_m_mISDNport->ml3, MT_RELEASE, p_m_d_l3id, l3m); /* sending release to endpoint */ - while(p_epointlist) - { + if (location == LOCATION_PRIVATE_LOCAL) + location = LOCATION_PRIVATE_REMOTE; + while(p_epointlist) { message = message_create(p_serial, p_epointlist->epoint_id, PORT_TO_EPOINT, MESSAGE_RELEASE); message->param.disconnectinfo.cause = cause; message->param.disconnectinfo.location = location; + SCAT(message->param.disconnectinfo.display, (char *)display); message_put(message); /* remove epoint */ free_epointlist(p_epointlist); } new_state(PORT_STATE_RELEASE); - p_m_delete = 1; + trigger_work(&p_m_d_delete); return; } /* sending disconnect to active endpoint and release to inactive endpoints */ - if (ACTIVE_EPOINT(p_epointlist)) - { + if (location == LOCATION_PRIVATE_LOCAL) + location = LOCATION_PRIVATE_REMOTE; + if (ACTIVE_EPOINT(p_epointlist)) { message = message_create(p_serial, ACTIVE_EPOINT(p_epointlist), PORT_TO_EPOINT, MESSAGE_DISCONNECT); message->param.disconnectinfo.location = location; message->param.disconnectinfo.cause = cause; + SCAT(message->param.disconnectinfo.display, (char *)display); message_put(message); } - while(INACTIVE_EPOINT(p_epointlist)) - { + while(INACTIVE_EPOINT(p_epointlist)) { message = message_create(p_serial, INACTIVE_EPOINT(p_epointlist), PORT_TO_EPOINT, MESSAGE_RELEASE); message->param.disconnectinfo.location = location; message->param.disconnectinfo.cause = cause; + SCAT(message->param.disconnectinfo.display, (char *)display); message_put(message); /* remove epoint */ free_epointid(INACTIVE_EPOINT(p_epointlist)); @@ -1210,104 +1179,100 @@ void Pdss1::disconnect_ind(unsigned long prim, unsigned long dinfo, void *data) } /* CC_DISCONNECT INDICATION */ -void Pdss1::disconnect_ind_i(unsigned long prim, unsigned long dinfo, void *data) +void Pdss1::disconnect_ind_i(unsigned int cmd, unsigned int pid, struct l3_msg *l3m) { - int headerlen = (p_m_d_ntmode)?mISDNUSER_HEAD_SIZE:mISDN_HEADER_LEN; - DISCONNECT_t *disconnect = (DISCONNECT_t *)((unsigned long)data + headerlen); int location, cause; /* cause */ - dec_ie_cause(disconnect->CAUSE, (Q931_info_t *)((unsigned long)data+headerlen), &location, &cause); + l1l2l3_trace_header(p_m_mISDNport, this, L3_DISCONNECT_IND, DIRECTION_IN); + if (p_m_d_collect_cause > 0) { + add_trace("old-cause", "location", "%d", p_m_d_collect_location); + add_trace("old-cause", "value", "%d", p_m_d_collect_cause); + } + dec_ie_cause(l3m, &location, &cause); + if (location == LOCATION_PRIVATE_LOCAL) + location = LOCATION_PRIVATE_REMOTE; /* collect cause */ - PDEBUG(DEBUG_ISDN, "PORT(%d) collecting cause %d location %d.\n", p_serial, cause, location); - if (cause == CAUSE_REJECTED) /* call rejected */ - { - p_m_d_collect_cause = CAUSE_REJECTED; - p_m_d_collect_location = location; - } else - if (cause==CAUSE_NORMAL && p_m_d_collect_cause!=CAUSE_REJECTED) /* reject via hangup */ - { - p_m_d_collect_cause = CAUSE_NORMAL; - p_m_d_collect_location = location; - } else - if (cause==CAUSE_BUSY && p_m_d_collect_cause!=CAUSE_REJECTED && p_m_d_collect_cause!=CAUSE_NORMAL) /* busy */ - { - p_m_d_collect_cause = CAUSE_BUSY; - p_m_d_collect_location = location; - } else - if (cause==CAUSE_OUTOFORDER && p_m_d_collect_cause!=CAUSE_BUSY && p_m_d_collect_cause!=CAUSE_REJECTED && p_m_d_collect_cause!=CAUSE_NORMAL) /* no L1 */ - { - p_m_d_collect_cause = CAUSE_OUTOFORDER; - p_m_d_collect_location = location; - } else - if (cause!=0 && cause!=CAUSE_NOUSER && p_m_d_collect_cause!=CAUSE_OUTOFORDER && p_m_d_collect_cause!=CAUSE_BUSY && p_m_d_collect_cause!=CAUSE_REJECTED && p_m_d_collect_cause!=CAUSE_NORMAL) /* anything if cause exists and not 18 */ - { - p_m_d_collect_cause = cause; - p_m_d_collect_location = location; - } - PDEBUG(DEBUG_ISDN, "PORT(%d) new multipoint cause %d location %d.\n", p_serial, p_m_d_collect_cause, p_m_d_collect_location); + collect_cause(&p_m_d_collect_cause, &p_m_d_collect_location, cause, location); + add_trace("new-cause", "location", "%d", p_m_d_collect_location); + add_trace("new-cause", "value", "%d", p_m_d_collect_cause); + end_trace(); } /* CC_RELEASE INDICATION */ -void Pdss1::release_ind(unsigned long prim, unsigned long dinfo, void *data) +void Pdss1::release_ind(unsigned int cmd, unsigned int pid, struct l3_msg *l3m) { - int headerlen = (p_m_d_ntmode)?mISDNUSER_HEAD_SIZE:mISDN_HEADER_LEN; - RELEASE_t *release = (RELEASE_t *)((unsigned long)data + headerlen); - msg_t *dmsg; int location, cause; - struct message *message; + struct lcr_msg *message; + unsigned char display[128] = ""; - /* cause */ - dec_ie_cause(release->CAUSE, (Q931_info_t *)((unsigned long)data+headerlen), &location, &cause); - if (cause < 0) + l1l2l3_trace_header(p_m_mISDNport, this, L3_RELEASE_IND, DIRECTION_IN); + dec_ie_cause(l3m, &location, &cause); + dec_ie_display(l3m, (unsigned char *)display, sizeof(display)); + end_trace(); + + if (cause < 0) { cause = 16; + location = LOCATION_PRIVATE_LOCAL; + } /* sending release to endpoint */ - while(p_epointlist) - { + if (location == LOCATION_PRIVATE_LOCAL) + location = LOCATION_PRIVATE_REMOTE; + while(p_epointlist) { message = message_create(p_serial, p_epointlist->epoint_id, PORT_TO_EPOINT, MESSAGE_RELEASE); message->param.disconnectinfo.cause = cause; message->param.disconnectinfo.location = location; + SCAT(message->param.disconnectinfo.display, (char *)display); message_put(message); /* remove epoint */ free_epointlist(p_epointlist); } - /* only in NT mode we must send release_complete, if we got a release confirm */ - if (prim == (CC_RELEASE | CONFIRM)) - { - /* sending release complete */ - RELEASE_COMPLETE_t *release_complete; + new_state(PORT_STATE_RELEASE); + trigger_work(&p_m_d_delete); +} - dmsg = create_l3msg(CC_RELEASE_COMPLETE | REQUEST, MT_RELEASE_COMPLETE, dinfo, sizeof(RELEASE_COMPLETE_t), p_m_d_ntmode); - isdn_show_send_message(CC_RELEASE_COMPLETE | REQUEST, dmsg); - release_complete = (RELEASE_COMPLETE_t *)(dmsg->data + headerlen); - enc_ie_cause(&release_complete->CAUSE, dmsg, (p_m_d_ntmode)?LOCATION_PRIVATE_LOCAL:LOCATION_PRIVATE_REMOTE, 16); - msg_queue_tail(&p_m_mISDNport->downqueue, dmsg); - } +/* CC_RESTART INDICATION */ +void Pdss1::restart_ind(unsigned int cmd, unsigned int pid, struct l3_msg *l3m) +{ + l1l2l3_trace_header(p_m_mISDNport, this, L3_RESTART_IND, DIRECTION_IN); + end_trace(); - new_state(PORT_STATE_RELEASE); - p_m_delete = 1; + // L3 process is not toucht. (not even by network stack) } -/* CC_RELEASE_COMPLETE INDICATION */ -void Pdss1::release_complete_ind(unsigned long prim, unsigned long dinfo, void *data) +/* CC_RELEASE_COMPLETE INDICATION (a reject) */ +void Pdss1::release_complete_ind(unsigned int cmd, unsigned int pid, struct l3_msg *l3m) { - int headerlen = (p_m_d_ntmode)?mISDNUSER_HEAD_SIZE:mISDN_HEADER_LEN; - RELEASE_COMPLETE_t *release_complete = (RELEASE_COMPLETE_t *)((unsigned long)data + headerlen); int location, cause; - struct message *message; + struct lcr_msg *message; + + l1l2l3_trace_header(p_m_mISDNport, this, L3_RELEASE_COMPLETE_IND, DIRECTION_IN); + /* in case layer 2 is down during setup, we send cause 27 loc 5 */ + if (p_state == PORT_STATE_OUT_SETUP && p_m_mISDNport->l1link == 0) { + cause = 27; + location = 5; + } else { + dec_ie_cause(l3m, &location, &cause); + if (p_m_mISDNport->l1link < 0) + add_trace("layer 1", NULL, "unknown"); + else + add_trace("layer 1", NULL, (p_m_mISDNport->l1link)?"up":"down"); + } + end_trace(); + if (location == LOCATION_PRIVATE_LOCAL) + location = LOCATION_PRIVATE_REMOTE; - /* cause */ - dec_ie_cause(release_complete->CAUSE, (Q931_info_t *)((unsigned long)data+headerlen), &location, &cause); - if (cause < 0) + if (cause < 0) { cause = 16; + location = LOCATION_PRIVATE_LOCAL; + } /* sending release to endpoint */ - while(p_epointlist) - { + while(p_epointlist) { message = message_create(p_serial, p_epointlist->epoint_id, PORT_TO_EPOINT, MESSAGE_RELEASE); message->param.disconnectinfo.cause = cause; message->param.disconnectinfo.location = location; @@ -1316,56 +1281,41 @@ void Pdss1::release_complete_ind(unsigned long prim, unsigned long dinfo, void * free_epointlist(p_epointlist); } - PDEBUG(DEBUG_ISDN, "Pdss1(%s) release_complete (cause %d)\n", p_name, cause); new_state(PORT_STATE_RELEASE); - p_m_delete = 1; + trigger_work(&p_m_d_delete); } /* T312 timeout */ -void Pdss1::t312_timeout(unsigned long prim, unsigned long dinfo, void *data) +void Pdss1::t312_timeout_ind(unsigned int cmd, unsigned int pid, struct l3_msg *l3m) { - struct message *message; - - /* sending release to endpoint */ - while(p_epointlist) - { - message = message_create(p_serial, p_epointlist->epoint_id, PORT_TO_EPOINT, MESSAGE_RELEASE); - message->param.disconnectinfo.cause = p_m_d_collect_cause; - message->param.disconnectinfo.location = p_m_d_collect_location; - message_put(message); - /* remove epoint */ - free_epointlist(p_epointlist); - } - - PDEBUG(DEBUG_ISDN, "Pdss1(%s) t312_timeout (collected cause %d location %d)\n", p_name, p_m_d_collect_cause, p_m_d_collect_location); - new_state(PORT_STATE_RELEASE); - p_m_delete = 1; + // not required, release is performed with MT_FREE } /* CC_NOTIFY INDICATION */ -void Pdss1::notify_ind(unsigned long prim, unsigned long dinfo, void *data) +void Pdss1::notify_ind(unsigned int cmd, unsigned int pid, struct l3_msg *l3m) { - int headerlen = (p_m_d_ntmode)?mISDNUSER_HEAD_SIZE:mISDN_HEADER_LEN; - NOTIFY_t *notifying = (NOTIFY_t *)((unsigned long)data + headerlen); - struct message *message; + struct lcr_msg *message; int notify, type, plan, present; + unsigned char notifyid[sizeof(message->param.notifyinfo.id)]; + unsigned char display[128] = ""; + + l1l2l3_trace_header(p_m_mISDNport, this, L3_NOTIFY_IND, DIRECTION_IN); + dec_ie_notify(l3m, ¬ify); + dec_ie_redir_dn(l3m, &type, &plan, &present, notifyid, sizeof(notifyid)); + dec_ie_display(l3m, (unsigned char *)display, sizeof(display)); + end_trace(); if (!ACTIVE_EPOINT(p_epointlist)) - { - PDEBUG(DEBUG_ISDN, "Pdss1(%s) there is no active endpoint to notify to.\n", p_name); return; - } /* notification indicator */ - dec_ie_notify(notifying->NOTIFY, (Q931_info_t *)((unsigned long)data+headerlen), ¬ify); if (notify < 0) return; notify |= 0x80; message = message_create(p_serial, ACTIVE_EPOINT(p_epointlist), PORT_TO_EPOINT, MESSAGE_NOTIFY); message->param.notifyinfo.notify = notify; + SCPY(message->param.notifyinfo.id, (char *)notifyid); /* redirection number */ - dec_ie_redir_dn(notifying->REDIR_DN, (Q931_info_t *)((unsigned long)data+headerlen), &type, &plan, &present, (unsigned char *)message->param.notifyinfo.id, sizeof(message->param.notifyinfo.id)); - switch (present) - { + switch (present) { case 1: message->param.notifyinfo.present = INFO_PRESENT_RESTRICTED; break; @@ -1376,11 +1326,9 @@ void Pdss1::notify_ind(unsigned long prim, unsigned long dinfo, void *data) message->param.notifyinfo.present = INFO_PRESENT_ALLOWED; break; } - switch (type) - { + switch (type) { case -1: - message->param.notifyinfo.ntype = INFO_NTYPE_UNKNOWN; - message->param.notifyinfo.present = INFO_PRESENT_NULL; + message->param.notifyinfo.ntype = INFO_NTYPE_NOTPRESENT; break; case 1: message->param.notifyinfo.ntype = INFO_NTYPE_INTERNATIONAL; @@ -1395,32 +1343,28 @@ void Pdss1::notify_ind(unsigned long prim, unsigned long dinfo, void *data) message->param.notifyinfo.ntype = INFO_NTYPE_UNKNOWN; break; } + SCAT(message->param.notifyinfo.display, (char *)display); message->param.notifyinfo.isdn_port = p_m_portnum; message_put(message); } /* CC_HOLD INDICATION */ -void Pdss1::hold_ind(unsigned long prim, unsigned long dinfo, void *data) + struct lcr_msg *message; +void Pdss1::hold_ind(unsigned int cmd, unsigned int pid, struct l3_msg *l3m) { - int headerlen = (p_m_d_ntmode)?mISDNUSER_HEAD_SIZE:mISDN_HEADER_LEN; -// HOLD_t *hold = (HOLD_t *)((unsigned long)data + headerlen); - struct message *message; - HOLD_REJECT_t *hold_reject; - HOLD_ACKNOWLEDGE_t *hold_acknowledge; - msg_t *dmsg; // class Endpoint *epoint; - if (!ACTIVE_EPOINT(p_epointlist) || p_m_hold) - { - - PDEBUG(DEBUG_ISDN, "Pdss1(%s) there is no endpoint to notify hold OR we are already on hold, so we reject.\n", p_name); + l1l2l3_trace_header(p_m_mISDNport, this, L3_HOLD_IND, DIRECTION_IN); + end_trace(); - dmsg = create_l3msg(CC_HOLD_REJECT | REQUEST, MT_HOLD_REJECT, dinfo, sizeof(HOLD_REJECT_t), p_m_d_ntmode); - isdn_show_send_message(CC_HOLD_REJECT | REQUEST, dmsg); - hold_reject = (HOLD_REJECT_t *)(dmsg->data + headerlen); - enc_ie_cause(&hold_reject->CAUSE, dmsg, (p_m_d_ntmode)?LOCATION_PRIVATE_LOCAL:LOCATION_PRIVATE_REMOTE, p_m_hold?101:31); /* normal unspecified / incompatible state */ - msg_queue_tail(&p_m_mISDNport->downqueue, dmsg); + if (!ACTIVE_EPOINT(p_epointlist) || p_m_hold) { + l3m = create_l3msg(); + l1l2l3_trace_header(p_m_mISDNport, this, L3_HOLD_REJECT_REQ, DIRECTION_OUT); + enc_ie_cause(l3m, (p_m_mISDNport->locally)?LOCATION_PRIVATE_LOCAL:LOCATION_PRIVATE_REMOTE, p_m_hold?101:31); /* normal unspecified / incompatible state */ + add_trace("reason", NULL, "no endpoint"); + end_trace(); + p_m_mISDNport->ml3->to_layer3(p_m_mISDNport->ml3, MT_HOLD_REJECT, p_m_d_l3id, l3m); return; } @@ -1432,50 +1376,49 @@ void Pdss1::hold_ind(unsigned long prim, unsigned long dinfo, void *data) message_put(message); /* deactivate bchannel */ - free_bchannel(); + chan_trace_header(p_m_mISDNport, this, "CHANNEL RELEASE (hold)", DIRECTION_NONE); + add_trace("disconnect", "channel", "%d", p_m_b_channel); + end_trace(); + drop_bchannel(); /* set hold state */ p_m_hold = 1; #if 0 epoint = find_epoint_id(ACTIVE_EPOINT(p_epointlist)); - if (epoint && p_m_d_ntmode) - { - p_m_timeout = p_settings.tout_hold; - time(&p_m_timer); + if (epoint && p_m_d_ntmode) { + if (p_settings.tout_hold) + schedule_timer(&p_m_timeout, p_settings.tout_hold, 0); } #endif /* acknowledge hold */ - dmsg = create_l3msg(CC_HOLD_ACKNOWLEDGE | REQUEST, MT_HOLD_ACKNOWLEDGE, dinfo, sizeof(HOLD_ACKNOWLEDGE_t), p_m_d_ntmode); - isdn_show_send_message(CC_HOLD_ACKNOWLEDGE | REQUEST, dmsg); - hold_acknowledge = (HOLD_ACKNOWLEDGE_t *)(dmsg->data + headerlen); - msg_queue_tail(&p_m_mISDNport->downqueue, dmsg); + l3m = create_l3msg(); + l1l2l3_trace_header(p_m_mISDNport, this, L3_HOLD_ACKNOWLEDGE_REQ, DIRECTION_OUT); + end_trace(); + p_m_mISDNport->ml3->to_layer3(p_m_mISDNport->ml3, MT_HOLD_ACKNOWLEDGE, p_m_d_l3id, l3m); } /* CC_RETRIEVE INDICATION */ -void Pdss1::retrieve_ind(unsigned long prim, unsigned long dinfo, void *data) +void Pdss1::retrieve_ind(unsigned int cmd, unsigned int pid, struct l3_msg *l3m) { - int headerlen = (p_m_d_ntmode)?mISDNUSER_HEAD_SIZE:mISDN_HEADER_LEN; - RETRIEVE_t *retrieve = (RETRIEVE_t *)((unsigned long)data + headerlen); - RETRIEVE_REJECT_t *retrieve_reject; - RETRIEVE_ACKNOWLEDGE_t *retrieve_acknowledge; - struct message *message; + struct lcr_msg *message; int channel, exclusive, cause; - msg_t *dmsg; int ret; - if (!p_m_hold) - { + l1l2l3_trace_header(p_m_mISDNport, this, L3_RETRIEVE_IND, DIRECTION_IN); + dec_ie_channel_id(l3m, &exclusive, &channel); + end_trace(); + + if (!p_m_hold) { cause = 101; /* incompatible state */ reject: - PDEBUG(DEBUG_ISDN, "Pdss1(%s) we are not on hold, so we reject (cazse %d).\n", p_name, cause); - dmsg = create_l3msg(CC_RETRIEVE_REJECT | REQUEST, MT_RETRIEVE_REJECT, dinfo, sizeof(RETRIEVE_REJECT_t), p_m_d_ntmode); - isdn_show_send_message(CC_RETRIEVE_REJECT | REQUEST, dmsg); - retrieve_reject = (RETRIEVE_REJECT_t *)(dmsg->data + headerlen); - enc_ie_cause(&retrieve_reject->CAUSE, dmsg, (p_m_d_ntmode)?LOCATION_PRIVATE_LOCAL:LOCATION_PRIVATE_REMOTE, cause); - msg_queue_tail(&p_m_mISDNport->downqueue, dmsg); + l3m = create_l3msg(); + l1l2l3_trace_header(p_m_mISDNport, this, L3_RETRIEVE_REJECT_REQ, DIRECTION_OUT); + enc_ie_cause(l3m, (p_m_mISDNport->locally)?LOCATION_PRIVATE_LOCAL:LOCATION_PRIVATE_REMOTE, cause); + end_trace(); + p_m_mISDNport->ml3->to_layer3(p_m_mISDNport->ml3, MT_RETRIEVE_REJECT, p_m_d_l3id, l3m); return; } @@ -1486,88 +1429,64 @@ void Pdss1::retrieve_ind(unsigned long prim, unsigned long dinfo, void *data) message->param.notifyinfo.local = 1; /* call is retrieved by supplementary service */ message_put(message); - /* channel_id */ - dec_ie_channel_id(retrieve->CHANNEL_ID, (Q931_info_t *)((unsigned long)data+headerlen), &exclusive, &channel); - if (exclusive<0) - exclusive = 0; - if (channel < 0) - channel = -1; /* any channel */ - if (channel == ANY_CHANNEL) - channel = -1; /* any channel */ - /* debug */ - if (channel < 0) - PDEBUG(DEBUG_BCHANNEL, "- any channel is selected the %s, so we need to return the selected channel\n", (p_m_d_ntmode)?"user":"network"); - if (channel==0 && (p_type==PORT_TYPE_DSS1_TE_IN||p_type==PORT_TYPE_DSS1_TE_OUT)) - PDEBUG(DEBUG_BCHANNEL, "- no channel is given by the network, causing to fail, since CW is not possible for external lines\n"); - if (channel >= 0) - if (exclusive) - PDEBUG(DEBUG_BCHANNEL, "- exclusive channel(%d) is selected.\n", channel); - else - PDEBUG(DEBUG_BCHANNEL, "- channel(%d) given, but we select a different channel if not available.\n", channel); - /* open channel */ - ret = alloc_bchannel(channel, exclusive); + /* hunt channel */ + ret = channel = hunt_bchannel(channel, exclusive); if (ret < 0) - { - PDEBUG(DEBUG_BCHANNEL, "- channel is not available (cause=%d), so we send a retrieve_reject.\n", -ret); + goto no_channel; + + /* open channel */ + ret = seize_bchannel(channel, 1); + if (ret < 0) { + no_channel: cause = -ret; goto reject; } + bchannel_event(p_m_mISDNport, p_m_b_index, B_EVENT_USE); /* set hold state */ p_m_hold = 0; - p_m_timeout = 0; + unsched_timer(&p_m_timeout); /* acknowledge retrieve */ - dmsg = create_l3msg(CC_RETRIEVE_ACKNOWLEDGE | REQUEST, MT_RETRIEVE_ACKNOWLEDGE, dinfo, sizeof(RETRIEVE_ACKNOWLEDGE_t), p_m_d_ntmode); - isdn_show_send_message(CC_RETRIEVE_ACKNOWLEDGE | REQUEST, dmsg); - retrieve_acknowledge = (RETRIEVE_ACKNOWLEDGE_t *)(dmsg->data + headerlen); - /* channel information */ - enc_ie_channel_id(&retrieve_acknowledge->CHANNEL_ID, dmsg, 1, p_m_b_channel); - msg_queue_tail(&p_m_mISDNport->downqueue, dmsg); + l3m = create_l3msg(); + l1l2l3_trace_header(p_m_mISDNport, this, L3_RETRIEVE_ACKNOWLEDGE_REQ, DIRECTION_OUT); + enc_ie_channel_id(l3m, 1, p_m_b_channel); + end_trace(); + p_m_mISDNport->ml3->to_layer3(p_m_mISDNport->ml3, MT_RETRIEVE_ACKNOWLEDGE, p_m_d_l3id, l3m); } /* CC_SUSPEND INDICATION */ -void Pdss1::suspend_ind(unsigned long prim, unsigned long dinfo, void *data) +void Pdss1::suspend_ind(unsigned int cmd, unsigned int pid, struct l3_msg *l3m) { - int headerlen = (p_m_d_ntmode)?mISDNUSER_HEAD_SIZE:mISDN_HEADER_LEN; - SUSPEND_t *suspend = (SUSPEND_t *)((unsigned long)data + headerlen); - SUSPEND_ACKNOWLEDGE_t *suspend_acknowledge; - SUSPEND_REJECT_t *suspend_reject; - struct message *message; + struct lcr_msg *message; class Endpoint *epoint; unsigned char callid[8]; int len; - msg_t *dmsg; int ret = -31; /* normal, unspecified */ - if (!ACTIVE_EPOINT(p_epointlist)) - { - PDEBUG(DEBUG_ISDN, "Pdss1(%s) there is no endpoint to notify suspend, so we reject.\n", p_name); + l1l2l3_trace_header(p_m_mISDNport, this, L3_SUSPEND_IND, DIRECTION_IN); + dec_ie_call_id(l3m, callid, &len); + end_trace(); + if (!ACTIVE_EPOINT(p_epointlist)) { reject: - dmsg = create_l3msg(CC_SUSPEND_REJECT | REQUEST, MT_SUSPEND_REJECT, dinfo, sizeof(SUSPEND_REJECT_t), p_m_d_ntmode); - isdn_show_send_message(CC_SUSPEND_REJECT | REQUEST, dmsg); - suspend_reject = (SUSPEND_REJECT_t *)(dmsg->data + headerlen); - enc_ie_cause(&suspend_reject->CAUSE, dmsg, (p_m_d_ntmode)?LOCATION_PRIVATE_LOCAL:LOCATION_PRIVATE_REMOTE, -ret); - msg_queue_tail(&p_m_mISDNport->downqueue, dmsg); - + l3m = create_l3msg(); + l1l2l3_trace_header(p_m_mISDNport, this, L3_SUSPEND_REJECT_REQ, DIRECTION_OUT); + enc_ie_cause(l3m, (p_m_mISDNport->locally)?LOCATION_PRIVATE_LOCAL:LOCATION_PRIVATE_REMOTE, -ret); + end_trace(); + p_m_mISDNport->ml3->to_layer3(p_m_mISDNport->ml3, MT_SUSPEND_REJECT, p_m_d_l3id, l3m); return; } /* call id */ - dec_ie_call_id(suspend->CALL_ID, (Q931_info_t *)((unsigned long)data+headerlen), callid, &len); if (len<0) len = 0; /* check if call id is in use */ epoint = epoint_first; - while(epoint) - { - if (epoint->ep_park) - { + while(epoint) { + if (epoint->ep_park) { if (epoint->ep_park_len == len) - if (!memcmp(epoint->ep_park_callid, callid, len)) - { - PDEBUG(DEBUG_ISDN, "Pdss1(%s) call id is in use, so we reject.\n", p_name); + if (!memcmp(epoint->ep_park_callid, callid, len)) { ret = -84; /* call id in use */ goto reject; } @@ -1582,11 +1501,13 @@ void Pdss1::suspend_ind(unsigned long prim, unsigned long dinfo, void *data) message_put(message); /* deactivate bchannel */ - free_bchannel(); + chan_trace_header(p_m_mISDNport, this, "CHANNEL RELEASE (suspend)", DIRECTION_NONE); + add_trace("disconnect", "channel", "%d", p_m_b_channel); + end_trace(); + drop_bchannel(); /* sending suspend to endpoint */ - while (p_epointlist) - { + while (p_epointlist) { message = message_create(p_serial, p_epointlist->epoint_id, PORT_TO_EPOINT, MESSAGE_SUSPEND); memcpy(message->param.parkinfo.callid, callid, sizeof(message->param.parkinfo.callid)); message->param.parkinfo.len = len; @@ -1596,67 +1517,94 @@ void Pdss1::suspend_ind(unsigned long prim, unsigned long dinfo, void *data) } /* sending SUSPEND_ACKNOWLEDGE */ - dmsg = create_l3msg(CC_SUSPEND_ACKNOWLEDGE | REQUEST, MT_SUSPEND_ACKNOWLEDGE, dinfo, sizeof(SUSPEND_ACKNOWLEDGE_t), p_m_d_ntmode); - isdn_show_send_message(CC_SUSPEND_ACKNOWLEDGE | REQUEST, dmsg); - suspend_acknowledge = (SUSPEND_ACKNOWLEDGE_t *)(dmsg->data + headerlen); - msg_queue_tail(&p_m_mISDNport->downqueue, dmsg); + l3m = create_l3msg(); + l1l2l3_trace_header(p_m_mISDNport, this, L3_SUSPEND_ACKNOWLEDGE_REQ, DIRECTION_OUT); + end_trace(); + p_m_mISDNport->ml3->to_layer3(p_m_mISDNport->ml3, MT_SUSPEND_ACKNOWLEDGE, p_m_d_l3id, l3m); new_state(PORT_STATE_RELEASE); - p_m_delete = 1; + trigger_work(&p_m_d_delete); } /* CC_RESUME INDICATION */ -void Pdss1::resume_ind(unsigned long prim, unsigned long dinfo, void *data) +void Pdss1::resume_ind(unsigned int cmd, unsigned int pid, struct l3_msg *l3m) { - int headerlen = (p_m_d_ntmode)?mISDNUSER_HEAD_SIZE:mISDN_HEADER_LEN; - RESUME_t *resume = (RESUME_t *)((unsigned long)data + headerlen); - RESUME_REJECT_t *resume_reject; - RESUME_ACKNOWLEDGE_t *resume_acknowledge; unsigned char callid[8]; int len; int channel, exclusive; - msg_t *dmsg; class Endpoint *epoint; - struct message *message; + struct lcr_msg *message; int ret; + /* process given callref */ + l1l2l3_trace_header(p_m_mISDNport, this, L3_NEW_L3ID_IND, DIRECTION_IN); + add_trace("callref", "new", "0x%x", pid); + if (p_m_d_l3id) { + /* release is case the ID is already in use */ + add_trace("error", NULL, "callref already in use"); + end_trace(); + l3m = create_l3msg(); + l1l2l3_trace_header(p_m_mISDNport, this, L3_RESUME_REJECT_REQ, DIRECTION_OUT); + enc_ie_cause(l3m, (p_m_mISDNport->locally)?LOCATION_PRIVATE_LOCAL:LOCATION_PRIVATE_REMOTE, 47); + add_trace("reason", NULL, "callref already in use"); + end_trace(); + p_m_mISDNport->ml3->to_layer3(p_m_mISDNport->ml3, MT_RESUME_REJECT, pid, l3m); + new_state(PORT_STATE_RELEASE); + trigger_work(&p_m_d_delete); + return; + } + p_m_d_l3id = pid; + p_m_d_ces = pid >> 16; + end_trace(); + + l1l2l3_trace_header(p_m_mISDNport, this, L3_RESUME_IND, DIRECTION_IN); + dec_ie_call_id(l3m, callid, &len); + end_trace(); + + /* if blocked, release call */ + if (p_m_mISDNport->ifport->block) { + ret = -27; + goto reject; + } + /* call id */ - dec_ie_call_id(resume->CALL_ID, (Q931_info_t *)((unsigned long)data+headerlen), callid, &len); if (len<0) len = 0; - /* channel_id */ + /* channel_id (no channel is possible in message) */ exclusive = 0; channel = -1; /* any channel */ - PDEBUG(DEBUG_BCHANNEL, "- any channel is selected the %s, so we need to return the selected channel\n", (p_m_d_ntmode)?"user":"network"); - /* open channel */ - ret = alloc_bchannel(channel, exclusive); + + /* hunt channel */ + ret = channel = hunt_bchannel(channel, exclusive); if (ret < 0) - { - PDEBUG(DEBUG_BCHANNEL, "- channel is not available (cause=%d), so we send a RESUME_REJECT.\n", -ret); + goto no_channel; +// mode (if hdlc parked) to be done. never mind, this is almost never requested + /* open channel */ + ret = seize_bchannel(channel, 1); + if (ret < 0) { + no_channel: reject: - dmsg = create_l3msg(CC_RESUME_REJECT | REQUEST, MT_RESUME_REJECT, dinfo, sizeof(RESUME_REJECT_t), p_m_d_ntmode); - isdn_show_send_message(CC_RESUME_REJECT | REQUEST, dmsg); - resume_reject = (RESUME_REJECT_t *)(dmsg->data + headerlen); - enc_ie_cause(&resume_reject->CAUSE, dmsg, (p_m_d_ntmode)?LOCATION_PRIVATE_LOCAL:LOCATION_PRIVATE_REMOTE, -ret); - msg_queue_tail(&p_m_mISDNport->downqueue, dmsg); + l3m = create_l3msg(); + l1l2l3_trace_header(p_m_mISDNport, this, L3_RESUME_REJECT_REQ, DIRECTION_OUT); + enc_ie_cause(l3m, (p_m_mISDNport->locally)?LOCATION_PRIVATE_LOCAL:LOCATION_PRIVATE_REMOTE, -ret); + if (ret == -27) + add_trace("reason", NULL, "port blocked"); + end_trace(); + p_m_mISDNport->ml3->to_layer3(p_m_mISDNport->ml3, MT_RESUME_REJECT, p_m_d_l3id, l3m); new_state(PORT_STATE_RELEASE); - p_m_delete = 1; + trigger_work(&p_m_d_delete); return; } - PDEBUG(DEBUG_BCHANNEL, "- channel is available, we selected channel %d.\n", ret); + bchannel_event(p_m_mISDNport, p_m_b_index, B_EVENT_USE); + /* create endpoint */ if (p_epointlist) - { - PERROR("SOFTWARE ERROR: incoming resume but already got an endpoint, exitting...\n"); - exit(-1); - } + FATAL("Incoming resume but already got an endpoint.\n"); ret = -85; /* no call suspended */ epoint = epoint_first; - while(epoint) - { - if (epoint->ep_park) - { + while(epoint) { + if (epoint->ep_park) { ret = -83; /* suspended call exists, but this not */ if (epoint->ep_park_len == len) if (!memcmp(epoint->ep_park_callid, callid, len)) @@ -1665,38 +1613,11 @@ void Pdss1::resume_ind(unsigned long prim, unsigned long dinfo, void *data) epoint = epoint->next; } if (!epoint) - { - PDEBUG(DEBUG_ISDN, "Pdss1(%s) no suspended call, so we reject with cause %d.\n", p_name, ret); goto reject; - } - if (!(epointlist_new(epoint->ep_serial))) - { - PERROR("no memory for epointlist\n"); - exit(-1); - } - if (!(epoint->portlist_new(p_serial, p_type))) - { - PERROR("no memory for portlist\n"); - exit(-1); - } - if (p_m_d_ntmode) - { - /* nt-library now gives us the id via CC_RESUME */ - if (dinfo&(~0xff) == 0xff00) - { - PERROR("fatal software error: l3-stack gives us a process id 0xff00-0xffff\n"); - exit(-1); - } - printisdn(" l3id 0x%x changes to 0x%x\n", p_m_d_l3id, dinfo); - if (p_m_d_l3id&(~0xff) == 0xff00) - p_m_mISDNport->procids[p_m_d_l3id&0xff] = 0; - p_m_d_l3id = dinfo; - p_m_d_ces = resume->ces; - PDEBUG(DEBUG_ISDN, "Pdss1(%s: nt-mode gives us new l3id via resume ind: 0x%x\n", p_name, p_m_d_l3id); - } - - PDEBUG(DEBUG_ISDN, "Pdss1(%s) resume\n", p_name); + epointlist_new(epoint->ep_serial); + if (!(epoint->portlist_new(p_serial, p_type, p_m_mISDNport->earlyb))) + FATAL("No memory for portlist\n"); message = message_create(p_serial, ACTIVE_EPOINT(p_epointlist), PORT_TO_EPOINT, MESSAGE_RESUME); message_put(message); @@ -1707,32 +1628,31 @@ void Pdss1::resume_ind(unsigned long prim, unsigned long dinfo, void *data) message_put(message); /* sending RESUME_ACKNOWLEDGE */ - dmsg = create_l3msg(CC_RESUME_ACKNOWLEDGE | REQUEST, MT_RESUME_ACKNOWLEDGE, dinfo, sizeof(RESUME_ACKNOWLEDGE_t), p_m_d_ntmode); - isdn_show_send_message(CC_RESUME_ACKNOWLEDGE | REQUEST, dmsg); - resume_acknowledge = (RESUME_ACKNOWLEDGE_t *)(dmsg->data + headerlen); - /* channel information */ - enc_ie_channel_id(&resume_acknowledge->CHANNEL_ID, dmsg, 1, p_m_b_channel); - msg_queue_tail(&p_m_mISDNport->downqueue, dmsg); + l3m = create_l3msg(); + l1l2l3_trace_header(p_m_mISDNport, this, L3_RESUME_ACKNOWLEDGE_REQ, DIRECTION_OUT); + enc_ie_channel_id(l3m, 1, p_m_b_channel); + end_trace(); + p_m_mISDNport->ml3->to_layer3(p_m_mISDNport->ml3, MT_RESUME_ACKNOWLEDGE, p_m_d_l3id, l3m); new_state(PORT_STATE_CONNECT); } /* CC_FACILITY INDICATION */ -void Pdss1::facility_ind(unsigned long prim, unsigned long dinfo, void *data) +void Pdss1::facility_ind(unsigned int cmd, unsigned int pid, struct l3_msg *l3m) { - int headerlen = (p_m_d_ntmode)?mISDNUSER_HEAD_SIZE:mISDN_HEADER_LEN; - FACILITY_t *facility = (FACILITY_t *)((unsigned long)data + headerlen); unsigned char facil[256]; int facil_len; - struct message *message; + struct lcr_msg *message; + + l1l2l3_trace_header(p_m_mISDNport, this, L3_FACILITY_IND, DIRECTION_IN); + dec_ie_facility(l3m, facil, &facil_len); + end_trace(); /* facility */ - dec_ie_facility(facility->FACILITY, (Q931_info_t *)((unsigned long)data+headerlen), facil, &facil_len); if (facil_len<=0) return; - PDEBUG(DEBUG_ISDN, "Pdss1(%s) facility\n", p_name); message = message_create(p_serial, ACTIVE_EPOINT(p_epointlist), PORT_TO_EPOINT, MESSAGE_FACILITY); message->param.facilityinfo.len = facil_len; memcpy(message->param.facilityinfo.data, facil, facil_len); @@ -1740,304 +1660,235 @@ void Pdss1::facility_ind(unsigned long prim, unsigned long dinfo, void *data) } +/* CC_PROGRESS INDICATION */ +void Pdss1::progress_ind(unsigned int cmd, unsigned int pid, struct l3_msg *l3m) +{ + int coding, location, progress; + + l1l2l3_trace_header(p_m_mISDNport, this, L3_PROGRESS_IND, DIRECTION_IN); + dec_ie_progress(l3m, &coding, &location, &progress); + end_trace(); + + if (progress >= 0) { + message = message_create(p_serial, ACTIVE_EPOINT(p_epointlist), PORT_TO_EPOINT, MESSAGE_PROGRESS); + message->param.progressinfo.progress = progress; + message->param.progressinfo.location = location; + message_put(message); + } +} + + /* * handler for isdn connections * incoming information are parsed and sent via message to the endpoint */ -void Pdss1::message_isdn(unsigned long prim, unsigned long dinfo, void *data) +void Pdss1::message_isdn(unsigned int cmd, unsigned int pid, struct l3_msg *l3m) { - char *msgtext = "<>"; - char *primtext; - int i; - int new_l3id; + int timer = 0; - i = 0; - while(isdn_message[i].name) - { - if (isdn_message[i].value == (prim&0xffffff00)) - { - msgtext = isdn_message[i].name; + switch (cmd) { + case MT_TIMEOUT: + if (!l3m->cause) { + PERROR("Pdss1(%s) timeout without cause.\n", p_name); break; } - i++; - } - primtext = isdn_prim[prim&0x00000003]; - printisdn("<<< incoming prim: %s %s (0x%x)\n", msgtext, primtext, prim); - switch (prim) - { - case CC_TIMEOUT | INDICATION: - if (p_m_d_ntmode) - { - int headerlen = (p_m_d_ntmode)?mISDNUSER_HEAD_SIZE:mISDN_HEADER_LEN; - int t = *((int *)(((char *)data)+headerlen)); - PDEBUG(DEBUG_ISDN, "Pdss1(%s) timeout (t%x in NT-mode)\n", p_name, t); - if (t == 0x312) - t312_timeout(prim, dinfo, data); - } else { - PDEBUG(DEBUG_ISDN, "Pdss1(%s) timeout (ignoring)\n", p_name); + if (l3m->cause[0] != 5) { + PERROR("Pdss1(%s) expecting timeout with timer diagnostic. (got len=%d)\n", p_name, l3m->cause[0]); + break; } + timer = (l3m->cause[3]-'0')*100; + timer += (l3m->cause[4]-'0')*10; + timer += (l3m->cause[5]-'0'); + l1l2l3_trace_header(p_m_mISDNport, this, L3_TIMEOUT_IND, DIRECTION_IN); + add_trace("timer", NULL, "%d", timer); + end_trace(); + if (timer == 312) + t312_timeout_ind(cmd, pid, l3m); break; - case CC_SETUP | INDICATION: - PDEBUG((DEBUG_BCHANNEL|DEBUG_ISDN), "Pdss1(%s) setup\n", p_name); + case MT_SETUP: if (p_state != PORT_STATE_IDLE) - { - PDEBUG(DEBUG_ISDN, "Pdss1(%s) received setup again, IGNORING.\n", p_name); break; - } - setup_ind(prim, dinfo, data); - break; - - case CC_SETUP | CONFIRM: - if (p_m_d_ntmode) - { - /* nt-library now gives us a new id via CC_SETUP_CONFIRM */ - if ((p_m_d_l3id&0xff00) == 0xff00) - { -// p_m_mISDNport->procids[p_m_d_l3id&0xff] = 0; -// printisdn(" procid 0x%x freed\n", p_m_d_l3id&0xff); - printisdn(" procid 0x%x still in use\n", p_m_d_l3id&0xff); - } else - { - printisdn(" strange setup-procid 0x%x\n", p_m_d_l3id); - } - p_m_d_l3id = *((int *)(((u_char *)data)+ mISDNUSER_HEAD_SIZE)); - printisdn(" l3id changes to 0x%x\n", p_m_d_l3id); - } - PDEBUG(DEBUG_ISDN, "Pdss1(%s) setup confirm (l3id=0x%x)\n", p_name, p_m_d_l3id); + setup_ind(cmd, pid, l3m); break; - case CC_INFORMATION | INDICATION: - PDEBUG(DEBUG_ISDN, "Pdss1(%s) information\n", p_name); - information_ind(prim, dinfo, data); + case MT_INFORMATION: + information_ind(cmd, pid, l3m); break; - case CC_SETUP_ACKNOWLEDGE | INDICATION: - PDEBUG(DEBUG_ISDN, "Pdss1(%s) setup acknowledge\n", p_name); - if (p_state != PORT_STATE_OUT_SETUP) - { + case MT_SETUP_ACKNOWLEDGE: + if (p_state != PORT_STATE_OUT_SETUP) { PDEBUG(DEBUG_ISDN, "Pdss1(%s) received setup_acknowledge, but we are not in outgoing setup state, IGNORING.\n", p_name); break; } - setup_acknowledge_ind(prim, dinfo, data); + setup_acknowledge_ind(cmd, pid, l3m); break; - case CC_PROCEEDING | INDICATION: - PDEBUG(DEBUG_ISDN, "Pdss1(%s) proceeding\n", p_name); + case MT_CALL_PROCEEDING: if (p_state != PORT_STATE_OUT_SETUP - && p_state != PORT_STATE_OUT_OVERLAP) - { + && p_state != PORT_STATE_OUT_OVERLAP) { PDEBUG(DEBUG_ISDN, "Pdss1(%s) received proceeding, but we are not in outgoing setup OR overlap state, IGNORING.\n", p_name); break; } - proceeding_ind(prim, dinfo, data); + proceeding_ind(cmd, pid, l3m); break; - case CC_ALERTING | INDICATION: - PDEBUG(DEBUG_ISDN, "Pdss1(%s) alerting\n", p_name); + case MT_ALERTING: if (p_state != PORT_STATE_OUT_SETUP && p_state != PORT_STATE_OUT_OVERLAP - && p_state != PORT_STATE_OUT_PROCEEDING) - { + && p_state != PORT_STATE_OUT_PROCEEDING) { PDEBUG(DEBUG_ISDN, "Pdss1(%s) received alerting, but we are not in outgoing setup OR overlap OR proceeding state, IGNORING.\n", p_name); break; } - alerting_ind(prim, dinfo, data); + alerting_ind(cmd, pid, l3m); break; - case CC_CONNECT | INDICATION: - PDEBUG(DEBUG_ISDN, "Pdss1(%s) connect\n", p_name); + case MT_CONNECT: if (p_state != PORT_STATE_OUT_SETUP && p_state != PORT_STATE_OUT_OVERLAP && p_state != PORT_STATE_OUT_PROCEEDING - && p_state != PORT_STATE_OUT_ALERTING) - { + && p_state != PORT_STATE_OUT_ALERTING) { PDEBUG(DEBUG_ISDN, "Pdss1(%s) received alerting, but we are not in outgoing setup OR overlap OR proceeding OR ALERTING state, IGNORING.\n", p_name); break; } - connect_ind(prim, dinfo, data); - if (p_m_d_notify_pending) - { - PDEBUG(DEBUG_ISDN, "received or connect, so we send pending notify message.\n"); + connect_ind(cmd, pid, l3m); + if (p_m_d_notify_pending) { + /* send pending notify message during connect */ message_notify(ACTIVE_EPOINT(p_epointlist), p_m_d_notify_pending->type, &p_m_d_notify_pending->param); message_free(p_m_d_notify_pending); p_m_d_notify_pending = NULL; } break; - case CC_CONNECT_ACKNOWLEDGE | INDICATION: - case CC_CONNECT | CONFIRM: - PDEBUG(DEBUG_ISDN, "Pdss1(%s) connect_acknowlege.\n", p_name); + case MT_CONNECT_ACKNOWLEDGE: if (p_state == PORT_STATE_CONNECT_WAITING) new_state(PORT_STATE_CONNECT); - if (p_m_d_notify_pending) - { - PDEBUG(DEBUG_ISDN, "received or connect-ack, so we send pending notify message.\n"); + if (p_m_d_notify_pending) { + /* send pending notify message during connect-ack */ message_notify(ACTIVE_EPOINT(p_epointlist), p_m_d_notify_pending->type, &p_m_d_notify_pending->param); message_free(p_m_d_notify_pending); p_m_d_notify_pending = NULL; } break; - case CC_DISCONNECT | INDICATION: - PDEBUG(DEBUG_ISDN, "Pdss1(%s) disconnect\n", p_name); - disconnect_ind(prim, dinfo, data); + case MT_DISCONNECT: + disconnect_ind(cmd, pid, l3m); break; - case CC_RELEASE | CONFIRM: - PDEBUG(DEBUG_ISDN, "Pdss1(%s) release confirm\n", p_name); - case CC_RELEASE | INDICATION: - PDEBUG(DEBUG_ISDN, "Pdss1(%s) release\n", p_name); - release_ind(prim, dinfo, data); + case MT_RELEASE: + release_ind(cmd, pid, l3m); break; - case CC_RELEASE_COMPLETE | INDICATION: - PDEBUG(DEBUG_ISDN, "Pdss1(%s) release_complete.\n", p_name); - release_complete_ind(prim, dinfo, data); + case MT_RELEASE_COMPLETE: + release_complete_ind(cmd, pid, l3m); break; - case CC_RELEASE_COMPLETE | CONFIRM: - PDEBUG(DEBUG_ISDN, "Pdss1(%s) release_complete (confirm).\n", p_name); + case MT_RESTART: + restart_ind(cmd, pid, l3m); break; - case CC_NOTIFY | INDICATION: - PDEBUG(DEBUG_ISDN, "Pdss1(%s) notify\n", p_name); - notify_ind(prim, dinfo, data); + case MT_NOTIFY: + notify_ind(cmd, pid, l3m); break; - case CC_HOLD | INDICATION: - PDEBUG(DEBUG_ISDN, "Pdss1(%s) hold\n", p_name); - hold_ind(prim, dinfo, data); + case MT_HOLD: + hold_ind(cmd, pid, l3m); break; - case CC_RETRIEVE | INDICATION: - PDEBUG(DEBUG_ISDN, "Pdss1(%s) retrieve\n", p_name); - retrieve_ind(prim, dinfo, data); + case MT_RETRIEVE: + retrieve_ind(cmd, pid, l3m); break; - case CC_SUSPEND | INDICATION: - PDEBUG(DEBUG_ISDN, "Pdss1(%s) suspend\n", p_name); - suspend_ind(prim, dinfo, data); + case MT_SUSPEND: + suspend_ind(cmd, pid, l3m); break; - case CC_RESUME | INDICATION: - PDEBUG(DEBUG_ISDN, "Pdss1(%s) resume\n", p_name); - resume_ind(prim, dinfo, data); + case MT_RESUME: + resume_ind(cmd, pid, l3m); break; - case CC_FACILITY | INDICATION: - PDEBUG(DEBUG_ISDN, "Pdss1(%s) facility\n", p_name); - facility_ind(prim, dinfo, data); + case MT_FACILITY: + facility_ind(cmd, pid, l3m); break; - case CC_RELEASE_CR | INDICATION: - PDEBUG(DEBUG_ISDN, "Pdss1(%s) call ref is released (l3id=0x%x)\n", p_name, p_m_d_l3id); - printisdn(" process 0x%x released\n", p_m_d_l3id); - if (p_m_d_ntmode) - { - if ((p_m_d_l3id&0xff00) == 0xff00) - { - p_m_mISDNport->procids[p_m_d_l3id&0xff] = 0; - printisdn(" procid 0x%x freed\n", p_m_d_l3id&0xff); - } - } + case MT_PROGRESS: + progress_ind(cmd, pid, l3m); + break; + + case MT_FREE: + l1l2l3_trace_header(p_m_mISDNport, this, L3_RELEASE_L3ID_IND, DIRECTION_IN); + add_trace("callref", NULL, "0x%x", p_m_d_l3id); + end_trace(); p_m_d_l3id = 0; - p_m_delete = 1; + trigger_work(&p_m_d_delete); + p_m_d_ces = -1; /* sending release to endpoint in case we still have an endpoint - * NOTE: this only happens if the stack releases due to layer1 - * or layer2 breakdown. otherwhise a release is received first. + * this is because we don't get any response if a release_complete is received (or a release in release state) */ - while(p_epointlist) - { - struct message *message; + while(p_epointlist) { // only if not already released + struct lcr_msg *message; message = message_create(p_serial, p_epointlist->epoint_id, PORT_TO_EPOINT, MESSAGE_RELEASE); - message->param.disconnectinfo.cause = (p_m_d_collect_cause!=CAUSE_NOUSER)?p_m_d_collect_cause:CAUSE_UNSPECIFIED; - message->param.disconnectinfo.location = (p_m_d_collect_cause!=CAUSE_NOUSER)?p_m_d_collect_location:LOCATION_PRIVATE_LOCAL; + if (p_m_d_collect_cause) { + message->param.disconnectinfo.cause = p_m_d_collect_cause; + message->param.disconnectinfo.location = p_m_d_collect_location; + } else { + message->param.disconnectinfo.cause = CAUSE_NOUSER; + message->param.disconnectinfo.location = LOCATION_PRIVATE_LOCAL; + } message_put(message); /* remove epoint */ free_epointlist(p_epointlist); - PDEBUG(DEBUG_ISDN, "Pdss1(%s) release due to breakdown of l3-process.\n", p_name); new_state(PORT_STATE_RELEASE); } break; - case CC_NEW_CR | INDICATION: - if (p_m_d_ntmode) - { - new_l3id = *((int *)(((u_char *)data+mISDNUSER_HEAD_SIZE))); - printisdn(" process 0x%x received\n", new_l3id); - if (((new_l3id&0xff00)!=0xff00) && ((p_m_d_l3id&0xff00)==0xff00)) - { - p_m_mISDNport->procids[p_m_d_l3id&0xff] = 0; - printisdn(" procid 0x%x freed\n", p_m_d_l3id&0xff); - } - } else - { - new_l3id = dinfo; - printisdn(" process 0x%x received\n", new_l3id); - } - p_m_d_l3id = new_l3id; - PDEBUG(DEBUG_ISDN, "Pdss1(%s) call ref is created (l3id=0x%x)\n", p_name, p_m_d_l3id); - break; - default: - PDEBUG(DEBUG_ISDN, "Pdss1(%s) unhandled prim: 0x%x\n", p_name, prim); + l1l2l3_trace_header(p_m_mISDNport, this, L3_UNKNOWN_IND, DIRECTION_IN); + add_trace("unhandled", "cmd", "0x%x", cmd); + end_trace(); } } void Pdss1::new_state(int state) { - class Endpoint *epoint; +// class Endpoint *epoint; /* set timeout */ - epoint = find_epoint_id(ACTIVE_EPOINT(p_epointlist)); - if (epoint && p_m_d_ntmode) - { - if (state == PORT_STATE_IN_OVERLAP) - { - p_m_timeout = p_settings.tout_dialing; - time(&p_m_timer); + if (state == PORT_STATE_IN_OVERLAP) { + if (p_m_mISDNport->ifport->tout_dialing) + schedule_timer(&p_m_timeout, p_m_mISDNport->ifport->tout_dialing, 0); + } + if (state != p_state) { + unsched_timer(&p_m_timeout); + if (state == PORT_STATE_IN_SETUP + || state == PORT_STATE_OUT_SETUP + || state == PORT_STATE_IN_OVERLAP + || state == PORT_STATE_OUT_OVERLAP) { + if (p_m_mISDNport->ifport->tout_setup) + schedule_timer(&p_m_timeout, p_m_mISDNport->ifport->tout_setup, 0); + } + if (state == PORT_STATE_IN_PROCEEDING + || state == PORT_STATE_OUT_PROCEEDING) { + if (p_m_mISDNport->ifport->tout_proceeding) + schedule_timer(&p_m_timeout, p_m_mISDNport->ifport->tout_proceeding, 0); + } + if (state == PORT_STATE_IN_ALERTING + || state == PORT_STATE_OUT_ALERTING) { + if (p_m_mISDNport->ifport->tout_alerting) + schedule_timer(&p_m_timeout, p_m_mISDNport->ifport->tout_alerting, 0); } - if (state != p_state) - { #if 0 - if (state == PORT_STATE_OUT_SETUP - || state == PORT_STATE_OUT_OVERLAP) - { - p_m_timeout = 8; - time(&p_m_timer); - } + if (state == PORT_STATE_CONNECT + || state == PORT_STATE_CONNECT_WAITING) { + if (p_m_mISDNport->ifport->tout_connect) + schedule_timer(&p_m_timeout, p_m_mISDNport->ifport->tout_connect, 0); + } #endif - if (state == PORT_STATE_IN_SETUP - || state == PORT_STATE_IN_OVERLAP) - { - p_m_timeout = p_settings.tout_setup; - time(&p_m_timer); - } - if (state == PORT_STATE_IN_PROCEEDING - || state == PORT_STATE_OUT_PROCEEDING) - { - p_m_timeout = p_settings.tout_proceeding; - time(&p_m_timer); - } - if (state == PORT_STATE_IN_ALERTING - || state == PORT_STATE_OUT_ALERTING) - { - p_m_timeout = p_settings.tout_alerting; - time(&p_m_timer); - } - if (state == PORT_STATE_CONNECT - || state == PORT_STATE_CONNECT_WAITING) - { - p_m_timeout = 0; - } - if (state == PORT_STATE_IN_DISCONNECT - || state == PORT_STATE_OUT_DISCONNECT) - { - p_m_timeout = p_settings.tout_disconnect; - time(&p_m_timer); - } + if (state == PORT_STATE_IN_DISCONNECT + || state == PORT_STATE_OUT_DISCONNECT) { + if (p_m_mISDNport->ifport->tout_disconnect) + schedule_timer(&p_m_timeout, p_m_mISDNport->ifport->tout_disconnect, 0); } } @@ -2045,20 +1896,15 @@ void Pdss1::new_state(int state) } -/* - * handler - */ -int Pdss1::handler(void) +/* deletes only if l3id is release, otherwhise it will be triggered then */ +static int delete_event(struct lcr_work *work, void *instance, int index) { - /* handle destruction */ - if (p_m_delete && p_m_d_l3id==0) - { - PDEBUG(DEBUG_ISDN, "Pdss1(%s) doing pending release.\n", p_name); - delete this; - return(-1); - } + class Pdss1 *isdnport = (class Pdss1 *)instance; - return(PmISDN::handler()); + if (!isdnport->p_m_d_l3id) + delete isdnport; + + return 0; } @@ -2066,86 +1912,99 @@ int Pdss1::handler(void) * handles all messages from endpoint */ /* MESSAGE_INFORMATION */ -void Pdss1::message_information(unsigned long epoint_id, int message_id, union parameter *param) +void Pdss1::message_information(unsigned int epoint_id, int message_id, union parameter *param) { - int headerlen = (p_m_d_ntmode)?mISDNUSER_HEAD_SIZE:mISDN_HEADER_LEN; - INFORMATION_t *information; - msg_t *dmsg; - - if (param->information.number[0]) /* only if we have something to dial */ - { - dmsg = create_l3msg(CC_INFORMATION | REQUEST, MT_INFORMATION, p_m_d_l3id, sizeof(INFORMATION_t), p_m_d_ntmode); - isdn_show_send_message(CC_INFORMATION | REQUEST, dmsg); - information = (INFORMATION_t *)(dmsg->data + headerlen); - enc_ie_called_pn(&information->CALLED_PN, dmsg, 0, 1, (unsigned char *)param->information.number); - msg_queue_tail(&p_m_mISDNport->downqueue, dmsg); + l3_msg *l3m; + char *display = param->information.display; + char *number = param->information.id; + int max = p_m_mISDNport->ifport->dialmax; + + while (number[0]) { /* as long we have something to dial */ + if (max > (int)strlen(number) || max == 0) + max = (int)strlen(number); + + l3m = create_l3msg(); + l1l2l3_trace_header(p_m_mISDNport, this, L3_INFORMATION_REQ, DIRECTION_OUT); + enc_ie_called_pn(l3m, 0, 1, (unsigned char *)number, max); + if ((p_m_d_ntmode || p_m_d_tespecial) && display[0]) { + enc_ie_display(l3m, (unsigned char *)display); + display = (char *)""; + } + end_trace(); + p_m_mISDNport->ml3->to_layer3(p_m_mISDNport->ml3, MT_INFORMATION, p_m_d_l3id, l3m); + number += max; } new_state(p_state); } -int newteid = 0; - /* MESSAGE_SETUP */ -void Pdss1::message_setup(unsigned long epoint_id, int message_id, union parameter *param) +void Pdss1::message_setup(unsigned int epoint_id, int message_id, union parameter *param) { - int headerlen = (p_m_d_ntmode)?mISDNUSER_HEAD_SIZE:mISDN_HEADER_LEN; - INFORMATION_t *information; - SETUP_t *setup; - msg_t *dmsg; + l3_msg *l3m; +#ifdef OLD_MT_ASSIGN + int ret; +#endif int plan, type, screen, present, reason; + int plan2, type2, screen2, present2; int capability, mode, rate, coding, user, presentation, interpretation, hlc, exthlc; int channel, exclusive; - int i; struct epoint_list *epointlist; + int max = p_m_mISDNport->ifport->dialmax; + + /* release if port is blocked */ + if (p_m_mISDNport->ifport->block) { + struct lcr_msg *message; + + message = message_create(p_serial, ACTIVE_EPOINT(p_epointlist), PORT_TO_EPOINT, MESSAGE_RELEASE); + message->param.disconnectinfo.cause = 27; // temp. unavail. + message->param.disconnectinfo.location = LOCATION_PRIVATE_LOCAL; + message_put(message); + new_state(PORT_STATE_RELEASE); + trigger_work(&p_m_d_delete); + return; + } /* copy setup infos to port */ memcpy(&p_callerinfo, ¶m->setup.callerinfo, sizeof(p_callerinfo)); memcpy(&p_dialinginfo, ¶m->setup.dialinginfo, sizeof(p_dialinginfo)); memcpy(&p_capainfo, ¶m->setup.capainfo, sizeof(p_capainfo)); memcpy(&p_redirinfo, ¶m->setup.redirinfo, sizeof(p_redirinfo)); -// SCPY(&p_m_tones_dir, param->setup.ext.tones_dir); + /* screen outgoing caller id */ + do_screen(1, p_callerinfo.id, sizeof(p_callerinfo.id), &p_callerinfo.ntype, &p_callerinfo.present, p_m_mISDNport->ifport->interface->name); + do_screen(1, p_callerinfo.id2, sizeof(p_callerinfo.id2), &p_callerinfo.ntype2, &p_callerinfo.present2, p_m_mISDNport->ifport->interface->name); + do_screen(1, p_redirinfo.id, sizeof(p_redirinfo.id), &p_redirinfo.ntype, &p_redirinfo.present, p_m_mISDNport->ifport->interface->name); /* only display at connect state: this case happens if endpoint is in connected mode */ - if (p_state==PORT_STATE_CONNECT) - { + if (p_state==PORT_STATE_CONNECT) { if (p_type!=PORT_TYPE_DSS1_NT_OUT && p_type!=PORT_TYPE_DSS1_NT_IN) return; - if (p_callerinfo.display[0]) - { + if (p_callerinfo.display[0]) { /* sending information */ - dmsg = create_l3msg(CC_INFORMATION | REQUEST, MT_INFORMATION, p_m_d_l3id, sizeof(INFORMATION_t), p_m_d_ntmode); - isdn_show_send_message(CC_INFORMATION | REQUEST, dmsg); - information = (INFORMATION_t *)(dmsg->data + headerlen); - if (p_m_d_ntmode) - enc_ie_display(&information->DISPLAY, dmsg, (unsigned char *)p_callerinfo.display); - msg_queue_tail(&p_m_mISDNport->downqueue, dmsg); + l3m = create_l3msg(); + l1l2l3_trace_header(p_m_mISDNport, this, L3_INFORMATION_REQ, DIRECTION_OUT); + if (p_m_d_ntmode || p_m_d_tespecial) + enc_ie_display(l3m, (unsigned char *)p_callerinfo.display); + end_trace(); + p_m_mISDNport->ml3->to_layer3(p_m_mISDNport->ml3, MT_INFORMATION, p_m_d_l3id, l3m); return; } } /* attach only if not already */ epointlist = p_epointlist; - while(epointlist) - { + while(epointlist) { if (epointlist->epoint_id == epoint_id) break; epointlist = epointlist->next; } if (!epointlist) - { - if (!(epointlist_new(epoint_id))) - { - PERROR("no memory for epointlist\n"); - exit(-1); - } - } + epointlist_new(epoint_id); /* get channel */ exclusive = 0; - if (p_m_b_channel) - { + if (p_m_b_channel) { channel = p_m_b_channel; exclusive = p_m_b_exclusive; } else @@ -2155,65 +2014,50 @@ void Pdss1::message_setup(unsigned long epoint_id, int message_id, union paramet channel = CHANNEL_NO; /* creating l3id */ - if (p_m_d_ntmode) - { - i = 0; - while(i < 0x100) - { - if (p_m_mISDNport->procids[i] == 0) - break; - i++; - } - if (i == 0x100) - { - struct message *message; - - printisdn(" no free process id\n"); - PDEBUG(DEBUG_ISDN, "no more free process ID for port.\n"); - message = message_create(p_serial, ACTIVE_EPOINT(p_epointlist), PORT_TO_EPOINT, MESSAGE_RELEASE); - message->param.disconnectinfo.cause = 47; - message->param.disconnectinfo.location = LOCATION_PRIVATE_LOCAL; - message_put(message); - new_state(PORT_STATE_RELEASE); - p_m_delete = 1; - return; - } - p_m_mISDNport->procids[i] = 1; - printisdn(" procid 0x%x allocated\n", i); - p_m_d_l3id = 0xff00 | i; - printisdn(" l3id is now 0x%x\n", p_m_d_l3id); - } else + l1l2l3_trace_header(p_m_mISDNport, this, L3_NEW_L3ID_REQ, DIRECTION_OUT); +#ifdef OLD_MT_ASSIGN + /* see MT_ASSIGN notes at do_layer3() */ + mt_assign_pid = 0; + ret = p_m_mISDNport->ml3->to_layer3(p_m_mISDNport->ml3, MT_ASSIGN, 0, NULL); + if (mt_assign_pid == 0 || ret < 0) + p_m_d_l3id = mt_assign_pid; + mt_assign_pid = ~0; +#else + p_m_d_l3id = request_new_pid(p_m_mISDNport->ml3); + if (p_m_d_l3id == MISDN_PID_NONE) +#endif { - iframe_t ncr; - /* if we are in te-mode, we need to create a process first */ - if (newteid++ > 0x7fff) - newteid = 0x0001; - p_m_d_l3id = (entity<<16) | newteid; - /* preparing message */ - ncr.prim = CC_NEW_CR | REQUEST; - ncr.addr = p_m_mISDNport->upper_id | FLG_MSG_DOWN; - ncr.dinfo = p_m_d_l3id; - ncr.len = 0; - isdn_show_send_message(CC_NEW_CR | REQUEST, NULL); - /* send message */ - mISDN_write(mISDNdevice, &ncr, mISDN_HEADER_LEN+ncr.len, TIMEOUT_1SEC); -// if (!dmsg) -// goto nomem; + struct lcr_msg *message; + + add_trace("callref", NULL, "no free id"); + end_trace(); + message = message_create(p_serial, ACTIVE_EPOINT(p_epointlist), PORT_TO_EPOINT, MESSAGE_RELEASE); + message->param.disconnectinfo.cause = 47; + message->param.disconnectinfo.location = LOCATION_PRIVATE_LOCAL; + message_put(message); + new_state(PORT_STATE_RELEASE); + trigger_work(&p_m_d_delete); + return; } +#ifdef OLD_MT_ASSIGN + p_m_d_l3id = mt_assign_pid; + mt_assign_pid = ~0; +#endif + add_trace("callref", "new", "0x%x", p_m_d_l3id); + end_trace(); /* preparing setup message */ - dmsg = create_l3msg(CC_SETUP | REQUEST, MT_SETUP, p_m_d_l3id, sizeof(SETUP_t), p_m_d_ntmode); - isdn_show_send_message(CC_SETUP | REQUEST, dmsg); - setup = (SETUP_t *)(dmsg->data + headerlen); + l3m = create_l3msg(); + l1l2l3_trace_header(p_m_mISDNport, this, L3_SETUP_REQ, DIRECTION_OUT); /* channel information */ - if (channel >= 0) /* it should */ - { - enc_ie_channel_id(&setup->CHANNEL_ID, dmsg, exclusive, channel); - } + if (p_m_d_ntmode || channel != CHANNEL_ANY) /* only omit channel id in te-mode/any channel */ + enc_ie_channel_id(l3m, exclusive, channel); /* caller information */ plan = 1; - switch (p_callerinfo.ntype) - { + switch (p_callerinfo.ntype) { + case INFO_NTYPE_UNKNOWN: + type = 0x0; + break; case INFO_NTYPE_INTERNATIONAL: type = 0x1; break; @@ -2223,50 +2067,104 @@ void Pdss1::message_setup(unsigned long epoint_id, int message_id, union paramet case INFO_NTYPE_SUBSCRIBER: type = 0x4; break; - default: /* INFO_NTYPE_UNKNOWN */ - type = 0x0; + default: /* INFO_NTYPE_NOTPRESENT */ + type = -1; break; } - switch (p_callerinfo.screen) - { + switch (p_callerinfo.screen) { case INFO_SCREEN_USER: screen = 0; break; + case INFO_SCREEN_USER_VERIFIED_PASSED: + screen = 1; + break; + case INFO_SCREEN_USER_VERIFIED_FAILED: + screen = 2; + break; default: /* INFO_SCREEN_NETWORK */ screen = 3; break; } - switch (p_callerinfo.present) - { + switch (p_callerinfo.present) { + case INFO_PRESENT_ALLOWED: + present = 0; + break; case INFO_PRESENT_RESTRICTED: present = 1; break; - case INFO_PRESENT_NOTAVAIL: + default: /* INFO_PRESENT_NOTAVAIL */ present = 2; break; - default: /* INFO_PRESENT_ALLOWED */ - present = 0; + } + /* caller information 2 */ + plan2 = 1; + switch (p_callerinfo.ntype2) { + case INFO_NTYPE_UNKNOWN: + type2 = 0x0; + break; + case INFO_NTYPE_INTERNATIONAL: + type2 = 0x1; + break; + case INFO_NTYPE_NATIONAL: + type2 = 0x2; + break; + case INFO_NTYPE_SUBSCRIBER: + type2 = 0x4; + break; + default: /* INFO_NTYPE_NOTPRESENT */ + type2 = -1; + break; + } + switch (p_callerinfo.screen2) { + case INFO_SCREEN_USER: + screen2 = 0; + break; + case INFO_SCREEN_USER_VERIFIED_PASSED: + screen2 = 1; + break; + case INFO_SCREEN_USER_VERIFIED_FAILED: + screen2 = 2; + break; + default: /* INFO_SCREEN_NETWORK */ + screen2 = 3; + break; + } + switch (p_callerinfo.present2) { + case INFO_PRESENT_ALLOWED: + present2 = 0; + break; + case INFO_PRESENT_RESTRICTED: + present2 = 1; + break; + default: /* INFO_PRESENT_NOTAVAIL */ + present2 = 2; break; } if (type >= 0) - enc_ie_calling_pn(&setup->CALLING_PN, dmsg, type, plan, present, screen, (unsigned char *)p_callerinfo.id); + enc_ie_calling_pn(l3m, type, plan, present, screen, (unsigned char *)p_callerinfo.id, type2, plan2, present2, screen2, (unsigned char *)p_callerinfo.id2); /* dialing information */ - if (p_dialinginfo.number[0]) /* only if we have something to dial */ - { - enc_ie_called_pn(&setup->CALLED_PN, dmsg, 0, 1, (unsigned char *)p_dialinginfo.number); - } + if (p_dialinginfo.id[0]) { /* only if we have something to dial */ + if (max > (int)strlen(p_dialinginfo.id) || max == 0) + max = (int)strlen(p_dialinginfo.id); + enc_ie_called_pn(l3m, 0, 1, (unsigned char *)p_dialinginfo.id, max); + SCPY(p_m_d_queue, p_dialinginfo.id + max); + } + /* keypad */ + if (p_dialinginfo.keypad[0]) + enc_ie_keypad(l3m, (unsigned char *)p_dialinginfo.keypad); /* sending complete */ if (p_dialinginfo.sending_complete) - enc_ie_complete(&setup->COMPLETE, dmsg, 1); + enc_ie_complete(l3m, 1); /* sending user-user */ - if (param->setup.useruser.len) - { - enc_ie_useruser(&setup->USER_USER, dmsg, param->setup.useruser.protocol, param->setup.useruser.data, param->setup.useruser.len); + if (param->setup.useruser.len) { + enc_ie_useruser(l3m, param->setup.useruser.protocol, param->setup.useruser.data, param->setup.useruser.len); } /* redirecting number */ plan = 1; - switch (p_redirinfo.ntype) - { + switch (p_redirinfo.ntype) { + case INFO_NTYPE_UNKNOWN: + type = 0x0; + break; case INFO_NTYPE_INTERNATIONAL: type = 0x1; break; @@ -2276,21 +2174,25 @@ void Pdss1::message_setup(unsigned long epoint_id, int message_id, union paramet case INFO_NTYPE_SUBSCRIBER: type = 0x4; break; - default: /* INFO_NTYPE_UNKNOWN */ - type = 0x0; + default: /* INFO_NTYPE_NOTPRESENT */ + type = -1; break; } - switch (p_redirinfo.screen) - { + switch (p_redirinfo.screen) { case INFO_SCREEN_USER: screen = 0; break; + case INFO_SCREEN_USER_VERIFIED_PASSED: + screen = 1; + break; + case INFO_SCREEN_USER_VERIFIED_FAILED: + screen = 2; + break; default: /* INFO_SCREE_NETWORK */ screen = 3; break; } - switch (p_redirinfo.reason) - { + switch (p_redirinfo.reason) { case INFO_REDIR_BUSY: reason = 1; break; @@ -2310,36 +2212,27 @@ void Pdss1::message_setup(unsigned long epoint_id, int message_id, union paramet reason = 0; break; } - switch (p_redirinfo.present) - { - case INFO_PRESENT_NULL: /* no redir at all */ - present = -1; - screen = -1; - reason = -1; - plan = -1; - type = -1; + switch (p_redirinfo.present) { + case INFO_PRESENT_ALLOWED: + present = 0; break; case INFO_PRESENT_RESTRICTED: present = 1; break; - case INFO_PRESENT_NOTAVAIL: + default: /* INFO_PRESENT_NOTAVAIL */ present = 2; break; - default: /* INFO_PRESENT_ALLOWED */ - present = 0; - break; } /* sending redirecting number only in ntmode */ - if (type >= 0 && p_m_d_ntmode) - enc_ie_redir_nr(&setup->REDIR_NR, dmsg, type, plan, present, screen, reason, (unsigned char *)p_redirinfo.id); + if (type >= 0 && (p_m_d_ntmode || p_m_d_tespecial)) + enc_ie_redir_nr(l3m, type, plan, present, screen, reason, (unsigned char *)p_redirinfo.id); /* bearer capability */ //printf("hlc=%d\n",p_capainfo.hlc); coding = 0; capability = p_capainfo.bearer_capa; mode = p_capainfo.bearer_mode; rate = (mode==INFO_BMODE_CIRCUIT)?0x10:0x00; - switch (p_capainfo.bearer_info1) - { + switch (p_capainfo.bearer_info1) { case INFO_INFO1_NONE: user = -1; break; @@ -2347,10 +2240,9 @@ void Pdss1::message_setup(unsigned long epoint_id, int message_id, union paramet user = p_capainfo.bearer_info1 & 0x7f; break; } - enc_ie_bearer(&setup->BEARER, dmsg, coding, capability, mode, rate, -1, user); + enc_ie_bearer(l3m, coding, capability, mode, rate, -1, user); /* hlc */ - if (p_capainfo.hlc) - { + if (p_capainfo.hlc) { coding = 0; interpretation = 4; presentation = 1; @@ -2358,70 +2250,65 @@ void Pdss1::message_setup(unsigned long epoint_id, int message_id, union paramet exthlc = -1; if (p_capainfo.exthlc) exthlc = p_capainfo.exthlc & 0x7f; - enc_ie_hlc(&setup->HLC, dmsg, coding, interpretation, presentation, hlc, exthlc); + enc_ie_hlc(l3m, coding, interpretation, presentation, hlc, exthlc); } /* display */ - if (p_callerinfo.display[0] && p_m_d_ntmode) - enc_ie_display(&setup->DISPLAY, dmsg, (unsigned char *)p_callerinfo.display); -#ifdef CENTREX + if (p_callerinfo.display[0] && (p_m_d_ntmode || p_m_d_tespecial)) + enc_ie_display(l3m, (unsigned char *)p_callerinfo.display); /* nt-mode: CNIP (calling name identification presentation) */ - if (p_callerinfo.name[0] && p_m_d_ntmode) - enc_facility_centrex(&setup->FACILITY, dmsg, (unsigned char *)p_callerinfo.name, 1); -#endif +// if (p_callerinfo.name[0] && (p_m_d_ntmode || p_m_d_tespecial)) +// enc_facility_centrex(&setup->FACILITY, dmsg, (unsigned char *)p_callerinfo.name, 1); + end_trace(); /* send setup message now */ - msg_queue_tail(&p_m_mISDNport->downqueue, dmsg); + p_m_mISDNport->ml3->to_layer3(p_m_mISDNport->ml3, MT_SETUP, p_m_d_l3id, l3m); new_state(PORT_STATE_OUT_SETUP); } /* MESSAGE_FACILITY */ -void Pdss1::message_facility(unsigned long epoint_id, int message_id, union parameter *param) +void Pdss1::message_facility(unsigned int epoint_id, int message_id, union parameter *param) { - int headerlen = (p_m_d_ntmode)?mISDNUSER_HEAD_SIZE:mISDN_HEADER_LEN; - FACILITY_t *facility; - msg_t *dmsg; + l3_msg *l3m; /* facility will not be sent to external lines */ - if (!p_m_d_ntmode) + if (!p_m_d_ntmode && !p_m_d_tespecial) return; - PDEBUG(DEBUG_ISDN, "Pdss1(%s) sending facility message\n", p_name); - /* sending facility */ - dmsg = create_l3msg(CC_FACILITY | REQUEST, MT_FACILITY, p_m_d_l3id, sizeof(FACILITY_t), p_m_d_ntmode); - isdn_show_send_message(CC_FACILITY | REQUEST, dmsg); - facility = (FACILITY_t *)(dmsg->data + headerlen); - enc_ie_facility(&facility->FACILITY, dmsg, (unsigned char *)param->facilityinfo.data, param->facilityinfo.len); - msg_queue_tail(&p_m_mISDNport->downqueue, dmsg); + l3m = create_l3msg(); + l1l2l3_trace_header(p_m_mISDNport, this, L3_FACILITY_REQ, DIRECTION_OUT); + enc_ie_facility(l3m, (unsigned char *)param->facilityinfo.data, param->facilityinfo.len); + end_trace(); + p_m_mISDNport->ml3->to_layer3(p_m_mISDNport->ml3, MT_FACILITY, p_m_d_l3id, l3m); } /* MESSAGE_NOTIFY */ -void Pdss1::message_notify(unsigned long epoint_id, int message_id, union parameter *param) +void Pdss1::message_notify(unsigned int epoint_id, int message_id, union parameter *param) { - int headerlen = (p_m_d_ntmode)?mISDNUSER_HEAD_SIZE:mISDN_HEADER_LEN; - INFORMATION_t *information; - NOTIFY_t *notification; + l3_msg *l3m; int notify; - int plan, type = -1, present; - msg_t *dmsg; + int plan = 0, type = -1, present = 0; - PDEBUG(DEBUG_ISDN, "Pdss1(%s) sending information message\n", p_name); + if (p_m_mISDNport->ifport->nonotify) { + l1l2l3_trace_header(p_m_mISDNport, this, L3_NOTIFY_REQ, DIRECTION_OUT); + add_trace("info", NULL, "blocked by config"); + end_trace(); + return; + } + +// printf("if = %d\n", param->notifyinfo.notify); if (param->notifyinfo.notify>INFO_NOTIFY_NONE) notify = param->notifyinfo.notify & 0x7f; else notify = -1; - if (p_state != PORT_STATE_CONNECT) - { - /* notify only allowed in active state */ - notify = -1; - } - if (notify >= 0) - { + if (notify >= 0) { plan = 1; - switch (param->notifyinfo.ntype) - { + switch (param->notifyinfo.ntype) { + case INFO_NTYPE_UNKNOWN: + type = 0; + break; case INFO_NTYPE_INTERNATIONAL: type = 1; break; @@ -2432,225 +2319,203 @@ void Pdss1::message_notify(unsigned long epoint_id, int message_id, union parame type = 4; break; default: /* INFO_NTYPE_UNKNOWN */ - type = 0; + type = -1; break; } - switch (param->notifyinfo.present) - { - case INFO_PRESENT_NULL: /* no redir at all */ - present = -1; - plan = -1; - type = -1; + switch (param->notifyinfo.present) { + case INFO_PRESENT_ALLOWED: + present = 0; break; case INFO_PRESENT_RESTRICTED: present = 1; break; - case INFO_PRESENT_NOTAVAIL: + default: /* INFO_PRESENT_NOTAVAIL */ present = 2; break; - default: /* INFO_PRESENT_ALLOWED */ - present = 0; - break; } } - if (notify<0 && !param->notifyinfo.display[0]) - { - PDEBUG(DEBUG_ISDN, "Pdss1(%s) nothing to notify, nothing to display\n", p_name); + if (notify<0 && !param->notifyinfo.display[0]) { + /* nothing to notify, nothing to display */ return; } - if (notify >= 0) - { - if (p_state!=PORT_STATE_CONNECT) - { + if (notify >= 0) { + if (p_state!=PORT_STATE_CONNECT && p_state!=PORT_STATE_IN_PROCEEDING && p_state!=PORT_STATE_IN_ALERTING) { /* queue notification */ - PDEBUG(DEBUG_ISDN, "Pdss1(%s) queueing notification because isdn port is not active state.\n", p_name); if (p_m_d_notify_pending) message_free(p_m_d_notify_pending); p_m_d_notify_pending = message_create(ACTIVE_EPOINT(p_epointlist), p_serial, EPOINT_TO_PORT, message_id); memcpy(&p_m_d_notify_pending->param, param, sizeof(union parameter)); - } else - { + } else { /* sending notification */ - dmsg = create_l3msg(CC_NOTIFY | REQUEST, MT_NOTIFY, p_m_d_l3id, sizeof(NOTIFY_t), p_m_d_ntmode); - isdn_show_send_message(CC_NOTIFY | REQUEST, dmsg); - notification = (NOTIFY_t *)(dmsg->data + headerlen); - enc_ie_notify(¬ification->NOTIFY, dmsg, notify); + l3m = create_l3msg(); + l1l2l3_trace_header(p_m_mISDNport, this, L3_NOTIFY_REQ, DIRECTION_OUT); + enc_ie_notify(l3m, notify); /* sending redirection number only in ntmode */ - if (type >= 0 && p_m_d_ntmode) - enc_ie_redir_dn(¬ification->REDIR_DN, dmsg, type, plan, present, (unsigned char *)param->notifyinfo.id); - if (param->notifyinfo.display[0] && p_m_d_ntmode) - enc_ie_display(¬ification->DISPLAY, dmsg, (unsigned char *)param->notifyinfo.display); - msg_queue_tail(&p_m_mISDNport->downqueue, dmsg); - } - } else if (p_m_d_ntmode) - { + if (type >= 0 && (p_m_d_ntmode || p_m_d_tespecial)) + enc_ie_redir_dn(l3m, type, plan, present, (unsigned char *)param->notifyinfo.id); + if (param->notifyinfo.display[0] && (p_m_d_ntmode || p_m_d_tespecial)) + enc_ie_display(l3m, (unsigned char *)param->notifyinfo.display); + end_trace(); + p_m_mISDNport->ml3->to_layer3(p_m_mISDNport->ml3, MT_NOTIFY, p_m_d_l3id, l3m); + } + } else if (p_m_d_ntmode || p_m_d_tespecial) { /* sending information */ - dmsg = create_l3msg(CC_INFORMATION | REQUEST, MT_INFORMATION, p_m_d_l3id, sizeof(INFORMATION_t), p_m_d_ntmode); - isdn_show_send_message(CC_INFORMATION | REQUEST, dmsg); - information = (INFORMATION_t *)(dmsg->data + headerlen); - enc_ie_display(&information->DISPLAY, dmsg, (unsigned char *)param->notifyinfo.display); - msg_queue_tail(&p_m_mISDNport->downqueue, dmsg); + l3m = create_l3msg(); + l1l2l3_trace_header(p_m_mISDNport, this, L3_INFORMATION_REQ, DIRECTION_OUT); + enc_ie_display(l3m, (unsigned char *)param->notifyinfo.display); + end_trace(); + p_m_mISDNport->ml3->to_layer3(p_m_mISDNport->ml3, MT_INFORMATION, p_m_d_l3id, l3m); } } /* MESSAGE_OVERLAP */ -void Pdss1::message_overlap(unsigned long epoint_id, int message_id, union parameter *param) +void Pdss1::message_overlap(unsigned int epoint_id, int message_id, union parameter *param) { - int headerlen = (p_m_d_ntmode)?mISDNUSER_HEAD_SIZE:mISDN_HEADER_LEN; - SETUP_ACKNOWLEDGE_t *setup_acknowledge; - msg_t *dmsg; + l3_msg *l3m; + + /* in case of sending complete, we proceed */ + if (p_dialinginfo.sending_complete) { + PDEBUG(DEBUG_ISDN, "sending proceeding instead of setup_acknowledge, because address is complete.\n"); + message_proceeding(epoint_id, message_id, param); + return; + } /* sending setup_acknowledge */ - dmsg = create_l3msg(CC_SETUP_ACKNOWLEDGE | REQUEST, MT_SETUP_ACKNOWLEDGE, p_m_d_l3id, sizeof(SETUP_ACKNOWLEDGE_t), p_m_d_ntmode); - isdn_show_send_message(CC_SETUP_ACKNOWLEDGE | REQUEST, dmsg); - setup_acknowledge = (SETUP_ACKNOWLEDGE_t *)(dmsg->data + headerlen); + l3m = create_l3msg(); + l1l2l3_trace_header(p_m_mISDNport, this, L3_SETUP_ACKNOWLEDGE_REQ, DIRECTION_OUT); /* channel information */ if (p_state == PORT_STATE_IN_SETUP) - enc_ie_channel_id(&setup_acknowledge->CHANNEL_ID, dmsg, 1, p_m_b_channel); + enc_ie_channel_id(l3m, 1, p_m_b_channel); /* progress information */ if (p_capainfo.bearer_capa==INFO_BC_SPEECH || p_capainfo.bearer_capa==INFO_BC_AUDIO || p_capainfo.bearer_capa==INFO_BC_DATAUNRESTRICTED_TONES) - if (p_m_d_ntmode || options.inbandpattern) - enc_ie_progress(&setup_acknowledge->PROGRESS, dmsg, 0, p_m_d_ntmode?1:5, 8); - msg_queue_tail(&p_m_mISDNport->downqueue, dmsg); + if (p_m_mISDNport->tones) + enc_ie_progress(l3m, 0, (p_m_d_ntmode)?1:5, 8); + end_trace(); + p_m_mISDNport->ml3->to_layer3(p_m_mISDNport->ml3, MT_SETUP_ACKNOWLEDGE, p_m_d_l3id, l3m); new_state(PORT_STATE_IN_OVERLAP); } /* MESSAGE_PROCEEDING */ -void Pdss1::message_proceeding(unsigned long epoint_id, int message_id, union parameter *param) +void Pdss1::message_proceeding(unsigned int epoint_id, int message_id, union parameter *param) { - int headerlen = (p_m_d_ntmode)?mISDNUSER_HEAD_SIZE:mISDN_HEADER_LEN; - CALL_PROCEEDING_t *proceeding; - msg_t *dmsg; + l3_msg *l3m; /* sending proceeding */ - dmsg = create_l3msg(CC_PROCEEDING | REQUEST, MT_CALL_PROCEEDING, p_m_d_l3id, sizeof(CALL_PROCEEDING_t), p_m_d_ntmode); - isdn_show_send_message(CC_PROCEEDING | REQUEST, dmsg); - proceeding = (CALL_PROCEEDING_t *)(dmsg->data + headerlen); + l3m = create_l3msg(); + l1l2l3_trace_header(p_m_mISDNport, this, L3_PROCEEDING_REQ, DIRECTION_OUT); /* channel information */ if (p_state == PORT_STATE_IN_SETUP) - enc_ie_channel_id(&proceeding->CHANNEL_ID, dmsg, 1, p_m_b_channel); + enc_ie_channel_id(l3m, 1, p_m_b_channel); /* progress information */ if (p_capainfo.bearer_capa==INFO_BC_SPEECH || p_capainfo.bearer_capa==INFO_BC_AUDIO || p_capainfo.bearer_capa==INFO_BC_DATAUNRESTRICTED_TONES) - if (p_m_d_ntmode || options.inbandpattern) - enc_ie_progress(&proceeding->PROGRESS, dmsg, 0, p_m_d_ntmode?1:5, 8); - msg_queue_tail(&p_m_mISDNport->downqueue, dmsg); + if (p_m_mISDNport->tones) + enc_ie_progress(l3m, 0, (p_m_d_ntmode)?1:5, 8); + end_trace(); + p_m_mISDNport->ml3->to_layer3(p_m_mISDNport->ml3, MT_CALL_PROCEEDING, p_m_d_l3id, l3m); new_state(PORT_STATE_IN_PROCEEDING); } /* MESSAGE_ALERTING */ -void Pdss1::message_alerting(unsigned long epoint_id, int message_id, union parameter *param) +void Pdss1::message_alerting(unsigned int epoint_id, int message_id, union parameter *param) { - int headerlen = (p_m_d_ntmode)?mISDNUSER_HEAD_SIZE:mISDN_HEADER_LEN; - ALERTING_t *alerting; - msg_t *dmsg; + l3_msg *l3m; /* NT-MODE in setup state we must send PROCEEDING first */ - if (p_m_d_ntmode && p_state==PORT_STATE_IN_SETUP) - { - CALL_PROCEEDING_t *proceeding; - + if (p_m_d_ntmode && p_state==PORT_STATE_IN_SETUP) { /* sending proceeding */ - dmsg = create_l3msg(CC_PROCEEDING | REQUEST, MT_CALL_PROCEEDING, p_m_d_l3id, sizeof(CALL_PROCEEDING_t), p_m_d_ntmode); - isdn_show_send_message(CC_PROCEEDING | REQUEST, dmsg); - proceeding = (CALL_PROCEEDING_t *)(dmsg->data + headerlen); + l3m = create_l3msg(); + l1l2l3_trace_header(p_m_mISDNport, this, L3_PROCEEDING_REQ, DIRECTION_OUT); /* channel information */ - enc_ie_channel_id(&proceeding->CHANNEL_ID, dmsg, 1, p_m_b_channel); + enc_ie_channel_id(l3m, 1, p_m_b_channel); /* progress information */ if (p_capainfo.bearer_capa==INFO_BC_SPEECH || p_capainfo.bearer_capa==INFO_BC_AUDIO || p_capainfo.bearer_capa==INFO_BC_DATAUNRESTRICTED_TONES) - enc_ie_progress(&proceeding->PROGRESS, dmsg, 0, p_m_d_ntmode?1:5, 8); - msg_queue_tail(&p_m_mISDNport->downqueue, dmsg); + if (p_m_mISDNport->tones) + enc_ie_progress(l3m, 0, (p_m_d_ntmode)?1:5, 8); + end_trace(); + p_m_mISDNport->ml3->to_layer3(p_m_mISDNport->ml3, MT_CALL_PROCEEDING, p_m_d_l3id, l3m); new_state(PORT_STATE_IN_PROCEEDING); } /* sending alerting */ - dmsg = create_l3msg(CC_ALERTING | REQUEST, MT_ALERTING, p_m_d_l3id, sizeof(ALERTING_t), p_m_d_ntmode); - isdn_show_send_message(CC_ALERTING | REQUEST, dmsg); - alerting = (ALERTING_t *)(dmsg->data + headerlen); + l3m = create_l3msg(); + l1l2l3_trace_header(p_m_mISDNport, this, L3_ALERTING_REQ, DIRECTION_OUT); /* channel information */ if (p_state == PORT_STATE_IN_SETUP) - enc_ie_channel_id(&alerting->CHANNEL_ID, dmsg, 1, p_m_b_channel); + enc_ie_channel_id(l3m, 1, p_m_b_channel); /* progress information */ if (p_capainfo.bearer_capa==INFO_BC_SPEECH || p_capainfo.bearer_capa==INFO_BC_AUDIO || p_capainfo.bearer_capa==INFO_BC_DATAUNRESTRICTED_TONES) - if (p_m_d_ntmode || options.inbandpattern) - enc_ie_progress(&alerting->PROGRESS, dmsg, 0, p_m_d_ntmode?1:5, 8); - msg_queue_tail(&p_m_mISDNport->downqueue, dmsg); + if (p_m_mISDNport->tones) + enc_ie_progress(l3m, 0, (p_m_d_ntmode)?1:5, 8); + end_trace(); + p_m_mISDNport->ml3->to_layer3(p_m_mISDNport->ml3, MT_ALERTING, p_m_d_l3id, l3m); new_state(PORT_STATE_IN_ALERTING); } /* MESSAGE_CONNECT */ -void Pdss1::message_connect(unsigned long epoint_id, int message_id, union parameter *param) +void Pdss1::message_connect(unsigned int epoint_id, int message_id, union parameter *param) { - int headerlen = (p_m_d_ntmode)?mISDNUSER_HEAD_SIZE:mISDN_HEADER_LEN; - INFORMATION_t *information; - CONNECT_t *connect; + l3_msg *l3m; int type, plan, present, screen; - msg_t *dmsg; class Endpoint *epoint; + time_t current_time; /* NT-MODE in setup state we must send PROCEEDING first */ - if (p_m_d_ntmode && p_state==PORT_STATE_IN_SETUP) - { - CALL_PROCEEDING_t *proceeding; - + if (p_m_d_ntmode && p_state==PORT_STATE_IN_SETUP) { /* sending proceeding */ - dmsg = create_l3msg(CC_PROCEEDING | REQUEST, MT_CALL_PROCEEDING, p_m_d_l3id, sizeof(CALL_PROCEEDING_t), p_m_d_ntmode); - isdn_show_send_message(CC_PROCEEDING | REQUEST, dmsg); - proceeding = (CALL_PROCEEDING_t *)(dmsg->data + headerlen); + l3m = create_l3msg(); + l1l2l3_trace_header(p_m_mISDNport, this, L3_PROCEEDING_REQ, DIRECTION_OUT); /* channel information */ - enc_ie_channel_id(&proceeding->CHANNEL_ID, dmsg, 1, p_m_b_channel); -// /* progress information */ -// if (p_capainfo.bearer_capa==INFO_BC_SPEECH -// || p_capainfo.bearer_capa==INFO_BC_AUDIO -// || p_capainfo.bearer_capa==INFO_BC_DATAUNRESTRICTED_TONES) -// enc_ie_progress(&proceeding->PROGRESS, dmsg, 0, p_m_d_ntmode?1:5, 8); - msg_queue_tail(&p_m_mISDNport->downqueue, dmsg); + enc_ie_channel_id(l3m, 1, p_m_b_channel); + end_trace(); + p_m_mISDNport->ml3->to_layer3(p_m_mISDNport->ml3, MT_CALL_PROCEEDING, p_m_d_l3id, l3m); new_state(PORT_STATE_IN_PROCEEDING); } /* copy connected information */ memcpy(&p_connectinfo, ¶m->connectinfo, sizeof(p_connectinfo)); + /* screen outgoing caller id */ + do_screen(1, p_connectinfo.id, sizeof(p_connectinfo.id), &p_connectinfo.ntype, &p_connectinfo.present, p_m_mISDNport->ifport->interface->name); /* only display at connect state */ if (p_state == PORT_STATE_CONNECT) - if (p_connectinfo.display[0]) - { + if (p_connectinfo.display[0]) { /* sending information */ - dmsg = create_l3msg(CC_INFORMATION | REQUEST, MT_INFORMATION, p_m_d_l3id, sizeof(INFORMATION_t), p_m_d_ntmode); - isdn_show_send_message(CC_INFORMATION | REQUEST, dmsg); - information = (INFORMATION_t *)(dmsg->data + headerlen); - if (p_m_d_ntmode) - enc_ie_display(&information->DISPLAY, dmsg, (unsigned char *)p_connectinfo.display); - msg_queue_tail(&p_m_mISDNport->downqueue, dmsg); + l3m = create_l3msg(); + l1l2l3_trace_header(p_m_mISDNport, this, L3_INFORMATION_REQ, DIRECTION_OUT); + if (p_m_d_ntmode || p_m_d_tespecial) + enc_ie_display(l3m, (unsigned char *)p_connectinfo.display); + end_trace(); + p_m_mISDNport->ml3->to_layer3(p_m_mISDNport->ml3, MT_INFORMATION, p_m_d_l3id, l3m); return; } - if (p_state!=PORT_STATE_IN_SETUP && p_state!=PORT_STATE_IN_OVERLAP && p_state!=PORT_STATE_IN_PROCEEDING && p_state!=PORT_STATE_IN_ALERTING) - { - PDEBUG(DEBUG_ISDN, "Pdss1(%s) connect command only possible in setup, proceeding or alerting state.\n", p_name); + if (p_state!=PORT_STATE_IN_SETUP && p_state!=PORT_STATE_IN_OVERLAP && p_state!=PORT_STATE_IN_PROCEEDING && p_state!=PORT_STATE_IN_ALERTING) { + /* connect command only possible in setup, proceeding or alerting state */ return; } /* preparing connect message */ - dmsg = create_l3msg(CC_CONNECT | REQUEST, MT_CONNECT, p_m_d_l3id, sizeof(CONNECT_t), p_m_d_ntmode); - isdn_show_send_message(CC_CONNECT | REQUEST, dmsg); - connect = (CONNECT_t *)(dmsg->data + headerlen); + l3m = create_l3msg(); + l1l2l3_trace_header(p_m_mISDNport, this, L3_CONNECT_REQ, DIRECTION_OUT); /* connect information */ plan = 1; - switch (p_connectinfo.ntype) - { + switch (p_connectinfo.ntype) { + case INFO_NTYPE_UNKNOWN: + type = 0x0; + break; case INFO_NTYPE_INTERNATIONAL: type = 0x1; break; @@ -2660,55 +2525,52 @@ void Pdss1::message_connect(unsigned long epoint_id, int message_id, union param case INFO_NTYPE_SUBSCRIBER: type = 0x4; break; - default: /* INFO_NTYPE_UNKNOWN */ - type = 0x0; + default: /* INFO_NTYPE_NOTPRESENT */ + type = -1; break; } - switch (param->connectinfo.screen) - { + switch (param->connectinfo.screen) { case INFO_SCREEN_USER: screen = 0; break; + case INFO_SCREEN_USER_VERIFIED_PASSED: + screen = 1; + break; + case INFO_SCREEN_USER_VERIFIED_FAILED: + screen = 2; + break; default: /* INFO_SCREE_NETWORK */ screen = 3; break; } - switch (p_connectinfo.present) - { - case INFO_PRESENT_NULL: /* no colp at all */ - present = -1; - screen = -1; - plan = -1; - type = -1; + switch (p_connectinfo.present) { + case INFO_PRESENT_ALLOWED: + present = 0; break; case INFO_PRESENT_RESTRICTED: present = 1; break; - case INFO_PRESENT_NOTAVAIL: + default: /* INFO_PRESENT_NOTAVAIL */ present = 2; break; - default: /* INFO_PRESENT_ALLOWED */ - present = 0; - break; } if (type >= 0) - enc_ie_connected_pn(&connect->CONNECT_PN, dmsg, type, plan, present, screen, (unsigned char *)p_connectinfo.id); + enc_ie_connected_pn(l3m, type, plan, present, screen, (unsigned char *)p_connectinfo.id); /* display */ - if (p_connectinfo.display[0] && p_m_d_ntmode) - enc_ie_display(&connect->DISPLAY, dmsg, (unsigned char *)p_connectinfo.display); -#ifdef CENTREX + if (p_connectinfo.display[0] && (p_m_d_ntmode || p_m_d_tespecial)) + enc_ie_display(l3m, (unsigned char *)p_connectinfo.display); /* nt-mode: CONP (connected name identification presentation) */ - if (p_connectinfo.name[0] && p_m_d_ntmode) - enc_facility_centrex(&connect->FACILITY, dmsg, (unsigned char *)p_connectinfo.name, 0); -#endif +// if (p_connectinfo.name[0] && (p_m_d_ntmode || p_m_d_tespecial)) +// enc_facility_centrex(&connect->FACILITY, dmsg, (unsigned char *)p_connectinfo.name, 0); /* date & time */ - if (p_m_d_ntmode) - { + if (p_m_d_ntmode || p_m_d_tespecial) { epoint = find_epoint_id(epoint_id); - enc_ie_date(&connect->DATE, dmsg, now, p_settings.no_seconds); + time(¤t_time); + enc_ie_date(l3m, current_time, p_settings.no_seconds); } + end_trace(); /* finally send message */ - msg_queue_tail(&p_m_mISDNport->downqueue, dmsg); + p_m_mISDNport->ml3->to_layer3(p_m_mISDNport->ml3, MT_CONNECT, p_m_d_l3id, l3m); if (p_m_d_ntmode) new_state(PORT_STATE_CONNECT); @@ -2718,209 +2580,189 @@ void Pdss1::message_connect(unsigned long epoint_id, int message_id, union param } /* MESSAGE_DISCONNECT */ -void Pdss1::message_disconnect(unsigned long epoint_id, int message_id, union parameter *param) +void Pdss1::message_disconnect(unsigned int epoint_id, int message_id, union parameter *param) { - int headerlen = (p_m_d_ntmode)?mISDNUSER_HEAD_SIZE:mISDN_HEADER_LEN; - DISCONNECT_t *disconnect; - RELEASE_COMPLETE_t *release_complete; - msg_t *dmsg; - struct message *message; + l3_msg *l3m; + struct lcr_msg *message; char *p = NULL; - /* we reject during incoming setup when we have no inbandpatterns. also if we are in outgoing setup state */ - if ((!p_m_d_ntmode && p_state==PORT_STATE_IN_SETUP && !options.inbandpattern) - || p_state==PORT_STATE_OUT_SETUP) - { + /* we reject during incoming setup when we have no tones. also if we are in outgoing setup state */ +// if ((p_state==PORT_STATE_IN_SETUP && !p_m_mISDNport->tones) +if (/* ||*/ p_state==PORT_STATE_OUT_SETUP) { /* sending release to endpoint */ - while(p_epointlist) - { + while(p_epointlist) { message = message_create(p_serial, p_epointlist->epoint_id, PORT_TO_EPOINT, MESSAGE_RELEASE); - message->param.disconnectinfo.cause = 16; - message->param.disconnectinfo.location = LOCATION_PRIVATE_LOCAL; + memcpy(&message->param, param, sizeof(union parameter)); message_put(message); /* remove epoint */ free_epointlist(p_epointlist); } /* sending release */ - dmsg = create_l3msg(CC_RELEASE_COMPLETE | REQUEST, MT_RELEASE_COMPLETE, p_m_d_l3id, sizeof(RELEASE_COMPLETE_t), p_m_d_ntmode); - isdn_show_send_message(CC_RELEASE_COMPLETE | REQUEST, dmsg); - release_complete = (RELEASE_COMPLETE_t *)(dmsg->data + headerlen); + l3m = create_l3msg(); + l1l2l3_trace_header(p_m_mISDNport, this, L3_RELEASE_COMPLETE_REQ, DIRECTION_OUT); /* send cause */ - enc_ie_cause(&release_complete->CAUSE, dmsg, (p_m_d_ntmode && param->disconnectinfo.location==LOCATION_PRIVATE_LOCAL)?LOCATION_PRIVATE_LOCAL:param->disconnectinfo.location, param->disconnectinfo.cause); + enc_ie_cause(l3m, (!p_m_mISDNport->locally && param->disconnectinfo.location==LOCATION_PRIVATE_LOCAL)?LOCATION_PRIVATE_REMOTE:param->disconnectinfo.location, param->disconnectinfo.cause); + end_trace(); + p_m_mISDNport->ml3->to_layer3(p_m_mISDNport->ml3, MT_RELEASE_COMPLETE, p_m_d_l3id, l3m); new_state(PORT_STATE_RELEASE); - msg_queue_tail(&p_m_mISDNport->downqueue, dmsg); - p_m_delete = 1; + trigger_work(&p_m_d_delete); return; } - /* NT-MODE in setup state we must send PROCEEDING first */ - if (p_state==PORT_STATE_IN_SETUP) - { - CALL_PROCEEDING_t *proceeding; - + /* workarround: NT-MODE in setup state we must send PROCEEDING first to make it work */ + if (p_state==PORT_STATE_IN_SETUP) { /* sending proceeding */ - dmsg = create_l3msg(CC_PROCEEDING | REQUEST, MT_CALL_PROCEEDING, p_m_d_l3id, sizeof(CALL_PROCEEDING_t), p_m_d_ntmode); - isdn_show_send_message(CC_PROCEEDING | REQUEST, dmsg); - proceeding = (CALL_PROCEEDING_t *)(dmsg->data + headerlen); + l3m = create_l3msg(); + l1l2l3_trace_header(p_m_mISDNport, this, L3_PROCEEDING_REQ, DIRECTION_OUT); /* channel information */ - enc_ie_channel_id(&proceeding->CHANNEL_ID, dmsg, 1, p_m_b_channel); + enc_ie_channel_id(l3m, 1, p_m_b_channel); /* progress information */ if (p_capainfo.bearer_capa==INFO_BC_SPEECH || p_capainfo.bearer_capa==INFO_BC_AUDIO || p_capainfo.bearer_capa==INFO_BC_DATAUNRESTRICTED_TONES) - enc_ie_progress(&proceeding->PROGRESS, dmsg, 0, p_m_d_ntmode?1:5, 8); - msg_queue_tail(&p_m_mISDNport->downqueue, dmsg); + if (p_m_mISDNport->tones) + enc_ie_progress(l3m, 0, (p_m_d_ntmode)?1:5, 8); + end_trace(); + p_m_mISDNport->ml3->to_layer3(p_m_mISDNport->ml3, MT_CALL_PROCEEDING, p_m_d_l3id, l3m); new_state(PORT_STATE_IN_PROCEEDING); } /* sending disconnect */ - dmsg = create_l3msg(CC_DISCONNECT | REQUEST, MT_DISCONNECT, p_m_d_l3id, sizeof(DISCONNECT_t), p_m_d_ntmode); - isdn_show_send_message(CC_DISCONNECT | REQUEST, dmsg); - disconnect = (DISCONNECT_t *)(dmsg->data + headerlen); + l3m = create_l3msg(); + l1l2l3_trace_header(p_m_mISDNport, this, L3_DISCONNECT_REQ, DIRECTION_OUT); /* progress information */ if (p_capainfo.bearer_capa==INFO_BC_SPEECH || p_capainfo.bearer_capa==INFO_BC_AUDIO || p_capainfo.bearer_capa==INFO_BC_DATAUNRESTRICTED_TONES) - if (p_m_d_ntmode || options.inbandpattern) - enc_ie_progress(&disconnect->PROGRESS, dmsg, 0, p_m_d_ntmode?1:5, 8); + if (p_m_mISDNport->tones) + enc_ie_progress(l3m, 0, (p_m_d_ntmode)?1:5, 8); /* send cause */ - enc_ie_cause(&disconnect->CAUSE, dmsg, (p_m_d_ntmode && param->disconnectinfo.location==LOCATION_PRIVATE_LOCAL)?LOCATION_PRIVATE_LOCAL:param->disconnectinfo.location, param->disconnectinfo.cause); + enc_ie_cause(l3m, (!p_m_mISDNport->locally && param->disconnectinfo.location==LOCATION_PRIVATE_LOCAL)?LOCATION_PRIVATE_REMOTE:param->disconnectinfo.location, param->disconnectinfo.cause); /* send display */ if (param->disconnectinfo.display[0]) p = param->disconnectinfo.display; - if (p) if (*p && p_m_d_ntmode) - enc_ie_display(&disconnect->DISPLAY, dmsg, (unsigned char *)p); + if (p) if (*p && (p_m_d_ntmode || p_m_d_tespecial)) + enc_ie_display(l3m, (unsigned char *)p); + end_trace(); + p_m_mISDNport->ml3->to_layer3(p_m_mISDNport->ml3, MT_DISCONNECT, p_m_d_l3id, l3m); new_state(PORT_STATE_OUT_DISCONNECT); - msg_queue_tail(&p_m_mISDNport->downqueue, dmsg); } /* MESSAGE_RELEASE */ -void Pdss1::message_release(unsigned long epoint_id, int message_id, union parameter *param) +void Pdss1::message_release(unsigned int epoint_id, int message_id, union parameter *param) { - int headerlen = (p_m_d_ntmode)?mISDNUSER_HEAD_SIZE:mISDN_HEADER_LEN; - RELEASE_t *release; - RELEASE_COMPLETE_t *release_complete; - DISCONNECT_t *disconnect; - msg_t *dmsg; + l3_msg *l3m; class Endpoint *epoint; char *p = NULL; - /* if we have incoming disconnected, we may release */ - if (p_state==PORT_STATE_IN_DISCONNECT - || p_state==PORT_STATE_OUT_DISCONNECT) - { - /* sending release */ - dmsg = create_l3msg(CC_RELEASE | REQUEST, MT_RELEASE, p_m_d_l3id, sizeof(RELEASE_t), p_m_d_ntmode); - isdn_show_send_message(CC_RELEASE | REQUEST, dmsg); - release = (RELEASE_t *)(dmsg->data + headerlen); + /* + * if we are on incoming call setup, we may reject by sending a release_complete + * also on outgoing call setup, we send a release complete, BUT this is not conform. (i don't know any other way) + */ + if (p_state==PORT_STATE_IN_SETUP + || p_state==PORT_STATE_OUT_SETUP) { +//#warning remove me +//PDEBUG(DEBUG_LOG, "JOLLY sending release complete %d\n", p_serial); + /* sending release complete */ + l3m = create_l3msg(); + l1l2l3_trace_header(p_m_mISDNport, this, L3_RELEASE_REQ, DIRECTION_OUT); /* send cause */ - enc_ie_cause(&release->CAUSE, dmsg, (p_m_d_ntmode && param->disconnectinfo.location==LOCATION_PRIVATE_LOCAL)?LOCATION_PRIVATE_LOCAL:param->disconnectinfo.location, param->disconnectinfo.cause); + enc_ie_cause(l3m, (p_m_mISDNport->locally && param->disconnectinfo.location==LOCATION_PRIVATE_LOCAL)?LOCATION_PRIVATE_LOCAL:param->disconnectinfo.location, param->disconnectinfo.cause); + end_trace(); + p_m_mISDNport->ml3->to_layer3(p_m_mISDNport->ml3, MT_RELEASE_COMPLETE, p_m_d_l3id, l3m); new_state(PORT_STATE_RELEASE); - msg_queue_tail(&p_m_mISDNport->downqueue, dmsg); /* remove epoint */ - remove_endpoint: free_epointid(epoint_id); - if (p_m_d_ntmode) - { - if ((p_m_d_l3id&0xff00) == 0xff00) - { - p_m_mISDNport->procids[p_m_d_l3id&0xff] = 0; - printisdn(" procid 0x%x freed\n", p_m_d_l3id&0xff); - } - } - p_m_d_l3id = 0; - p_m_delete = 1; + // wait for callref to be released return; } - /* if we are on outgoing/incoming call setup, we may release complete */ - if (p_state==PORT_STATE_OUT_SETUP - || p_state==PORT_STATE_IN_SETUP -// NOTE: a bug in mISDNuser (see disconnect_req_out !!!) - || p_state==PORT_STATE_OUT_PROCEEDING) - { + /* + * we may only release during incoming disconnect state. + * this means that the endpoint doesnt require audio anymore + */ + if (p_state == PORT_STATE_IN_DISCONNECT + || p_state == PORT_STATE_OUT_DISCONNECT + || param->disconnectinfo.force) { /* sending release */ - dmsg = create_l3msg(CC_RELEASE_COMPLETE | REQUEST, MT_RELEASE_COMPLETE, p_m_d_l3id, sizeof(RELEASE_COMPLETE_t), p_m_d_ntmode); - isdn_show_send_message(CC_RELEASE_COMPLETE | REQUEST, dmsg); - release_complete = (RELEASE_COMPLETE_t *)(dmsg->data + headerlen); + l3m = create_l3msg(); + l1l2l3_trace_header(p_m_mISDNport, this, L3_RELEASE_REQ, DIRECTION_OUT); /* send cause */ - enc_ie_cause(&release_complete->CAUSE, dmsg, (p_m_d_ntmode && param->disconnectinfo.location==LOCATION_PRIVATE_LOCAL)?LOCATION_PRIVATE_LOCAL:param->disconnectinfo.location, param->disconnectinfo.cause); + enc_ie_cause(l3m, (p_m_mISDNport->locally && param->disconnectinfo.location==LOCATION_PRIVATE_LOCAL)?LOCATION_PRIVATE_LOCAL:param->disconnectinfo.location, param->disconnectinfo.cause); + end_trace(); + p_m_mISDNport->ml3->to_layer3(p_m_mISDNport->ml3, MT_RELEASE, p_m_d_l3id, l3m); new_state(PORT_STATE_RELEASE); - msg_queue_tail(&p_m_mISDNport->downqueue, dmsg); - goto remove_endpoint; + /* remove epoint */ + free_epointid(epoint_id); + // wait for callref to be released + return; + } +#if 0 +wirklich erst proceeding?: /* NT-MODE in setup state we must send PROCEEDING first */ - if (p_m_d_ntmode && p_state==PORT_STATE_IN_SETUP) - { + if (p_m_d_ntmode && p_state==PORT_STATE_IN_SETUP) { CALL_PROCEEDING_t *proceeding; /* sending proceeding */ - dmsg = create_l3msg(CC_PROCEEDING | REQUEST, MT_CALL_PROCEEDING, p_m_d_l3id, sizeof(CALL_PROCEEDING_t), p_m_d_ntmode); - proceeding = (CALL_PROCEEDING_t *)(dmsg->data + headerlen); + l3m = create_l3msg(); + l1l2l3_trace_header(p_m_mISDNport, this, L3_PROCEEDING_REQ, DIRECTION_OUT); /* channel information */ - enc_ie_channel_id(&proceeding->CHANNEL_ID, dmsg, 1, p_m_b_channel); + enc_ie_channel_id(l3m, 1, p_m_b_channel); /* progress information */ if (p_capainfo.bearer_capa==INFO_BC_SPEECH || p_capainfo.bearer_capa==INFO_BC_AUDIO || p_capainfo.bearer_capa==INFO_BC_DATAUNRESTRICTED_TONES) - enc_ie_progress(&proceeding->PROGRESS, dmsg, 0, p_m_d_ntmode?1:5, 8); - msg_queue_tail(&p_m_mISDNport->downqueue, dmsg); + if (p_m_mISDNport->tones) + enc_ie_progress(l3m, 0, (p_m_d_ntmode)?1:5, 8); + end_trace(); + p_m_mISDNport->ml3->to_layer3(p_m_mISDNport->ml3, MT_CALL_PROCEEDING, p_m_d_l3id, l3m); } +#endif /* sending disconnect */ - dmsg = create_l3msg(CC_DISCONNECT | REQUEST, MT_DISCONNECT, p_m_d_l3id, sizeof(DISCONNECT_t), p_m_d_ntmode); - isdn_show_send_message(CC_DISCONNECT | REQUEST, dmsg); - disconnect = (DISCONNECT_t *)(dmsg->data + headerlen); + l3m = create_l3msg(); + l1l2l3_trace_header(p_m_mISDNport, this, L3_DISCONNECT_REQ, DIRECTION_OUT); /* progress information */ if (p_capainfo.bearer_capa==INFO_BC_SPEECH || p_capainfo.bearer_capa==INFO_BC_AUDIO || p_capainfo.bearer_capa==INFO_BC_DATAUNRESTRICTED_TONES) - if (p_m_d_ntmode || options.inbandpattern) - enc_ie_progress(&disconnect->PROGRESS, dmsg, 0, p_m_d_ntmode?1:5, 8); + if (p_m_mISDNport->tones) + enc_ie_progress(l3m, 0, (p_m_d_ntmode)?1:5, 8); /* send cause */ - enc_ie_cause(&disconnect->CAUSE, dmsg, (p_m_d_ntmode && param->disconnectinfo.location==LOCATION_PRIVATE_LOCAL)?LOCATION_PRIVATE_LOCAL:param->disconnectinfo.location, param->disconnectinfo.cause); + enc_ie_cause(l3m, (p_m_mISDNport->locally && param->disconnectinfo.location==LOCATION_PRIVATE_LOCAL)?LOCATION_PRIVATE_LOCAL:param->disconnectinfo.location, param->disconnectinfo.cause); /* send display */ epoint = find_epoint_id(epoint_id); if (param->disconnectinfo.display[0]) p = param->disconnectinfo.display; - if (p) if (*p && p_m_d_ntmode) - enc_ie_display(&disconnect->DISPLAY, dmsg, (unsigned char *)p); -#if 0 - /* sending release */ - dmsg = create_l3msg(CC_RELEASE | REQUEST, MT_RELEASE, p_m_d_l3id, sizeof(RELEASE_t), p_m_d_ntmode); - isdn_show_send_message(CC_RELEASE | REQUEST, dmsg); - release = (RELEASE_t *)(dmsg->data + headerlen); - /* send cause */ - enc_ie_cause(&release->CAUSE, dmsg, (p_m_d_ntmode && param->disconnectinfo.location==LOCATION_PRIVATE_LOCAL)?LOCATION_PRIVATE_LOCAL:param->disconnectinfo.location, param->disconnectinfo.cause); -#endif - new_state(PORT_STATE_RELEASE); - msg_queue_tail(&p_m_mISDNport->downqueue, dmsg); + if (p) if (*p && (p_m_d_ntmode || p_m_d_tespecial)) + enc_ie_display(l3m, (unsigned char *)p); + end_trace(); + p_m_mISDNport->ml3->to_layer3(p_m_mISDNport->ml3, MT_DISCONNECT, p_m_d_l3id, l3m); + new_state(PORT_STATE_OUT_DISCONNECT); + /* remove epoint */ free_epointid(epoint_id); -// p_m_delete = 1; + // wait for release and callref to be released +//#warning remove me +//PDEBUG(DEBUG_LOG, "JOLLY sending disconnect %d\n", p_serial); } /* * endpoint sends messages to the port */ -int Pdss1::message_epoint(unsigned long epoint_id, int message_id, union parameter *param) +int Pdss1::message_epoint(unsigned int epoint_id, int message_id, union parameter *param) { - struct message *message; - if (PmISDN::message_epoint(epoint_id, message_id, param)) return(1); - switch(message_id) - { + switch(message_id) { case MESSAGE_INFORMATION: /* overlap dialing */ - PDEBUG(DEBUG_ISDN, "Pdss1(%s) received dialing info '%s'.\n", p_name, param->information.number); if (p_type==PORT_TYPE_DSS1_NT_OUT && p_state!=PORT_STATE_OUT_OVERLAP && p_state!=PORT_STATE_CONNECT && p_state!=PORT_STATE_OUT_DISCONNECT - && p_state!=PORT_STATE_IN_DISCONNECT) - { - PDEBUG(DEBUG_ISDN, "Pdss1(%s) (internal outgoing) ignoring information, invalid state.\n", p_name); + && p_state!=PORT_STATE_IN_DISCONNECT) { break; } if (p_type==PORT_TYPE_DSS1_TE_OUT @@ -2929,10 +2771,7 @@ int Pdss1::message_epoint(unsigned long epoint_id, int message_id, union paramet && p_state!=PORT_STATE_OUT_ALERTING && p_state!=PORT_STATE_CONNECT && p_state!=PORT_STATE_OUT_DISCONNECT - && p_state!=PORT_STATE_IN_DISCONNECT) - { - if (options.deb & DEBUG_ISDN) - PERROR("Pdss1(%s) (external outgoing) ignoring information, invalid state.\n", p_name); + && p_state!=PORT_STATE_IN_DISCONNECT) { break; } if ((p_type==PORT_TYPE_DSS1_NT_IN || p_type==PORT_TYPE_DSS1_TE_IN) @@ -2942,114 +2781,85 @@ int Pdss1::message_epoint(unsigned long epoint_id, int message_id, union paramet && p_state!=PORT_STATE_CONNECT && p_state!=PORT_STATE_CONNECT_WAITING && p_state!=PORT_STATE_OUT_DISCONNECT - && p_state!=PORT_STATE_IN_DISCONNECT) - { - PDEBUG(DEBUG_ISDN, "Pdss1(%s) (incoming) ignoring information, invalid state.\n", p_name); + && p_state!=PORT_STATE_IN_DISCONNECT) { break; } message_information(epoint_id, message_id, param); break; case MESSAGE_SETUP: /* dial-out command received from epoint */ - PDEBUG((DEBUG_ISDN | DEBUG_BCHANNEL), "Pdss1(%s) isdn port received setup from '%s' to '%s'\n", p_name, param->setup.callerinfo.id, param->setup.dialinginfo.number); if (p_state!=PORT_STATE_IDLE - && p_state!=PORT_STATE_CONNECT) - { + && p_state!=PORT_STATE_CONNECT) { PERROR("Pdss1(%s) ignoring setup because isdn port is not in idle state (or connected for sending display info).\n", p_name); break; } if (p_epointlist && p_state==PORT_STATE_IDLE) - { - PERROR("Pdss1(%s): software error: epoint pointer is set in idle state, how bad!! exitting.\n", p_name); - exit(-1); - } - /* note: pri is a special case, because links must be up for pri */ - if (p_m_mISDNport->l1link || p_m_mISDNport->pri || !p_m_mISDNport->ntmode || p_state!=PORT_STATE_IDLE) - { - /* LAYER 1 is up, or we may send */ - message_setup(epoint_id, message_id, param); - } else { - iframe_t act; - /* LAYER 1 id down, so we queue */ - p_m_d_queue = message_create(epoint_id, p_serial, EPOINT_TO_PORT, message_id); - memcpy(&p_m_d_queue->param, param, sizeof(union parameter)); - /* attach us */ - if (!(epointlist_new(epoint_id))) - { - PERROR("no memory for epointlist\n"); - exit(-1); - } - /* activate link */ - PDEBUG(DEBUG_ISDN, "the L1 is down, we try to establish the link NT portnum=%d (%s).\n", p_m_mISDNport->portnum, p_name); - act.prim = PH_ACTIVATE | REQUEST; - act.addr = p_m_mISDNport->upper_id | FLG_MSG_DOWN; - act.dinfo = 0; - act.len = 0; - mISDN_write(mISDNdevice, &act, mISDN_HEADER_LEN+act.len, TIMEOUT_1SEC); -// /* set timeout */ -// p_m_mISDNport->l1timeout = now+3; - } + FATAL("Pdss1(%s): epoint pointer is set in idle state, how bad!!\n", p_name); + message_setup(epoint_id, message_id, param); break; case MESSAGE_NOTIFY: /* display and notifications */ - PDEBUG(DEBUG_ISDN, "Pdss1(%s) isdn port with (caller id %s) received notification: display='%s' notify=%d phone=%s\n", p_name, p_callerinfo.id, param->notifyinfo.display, param->notifyinfo.notify, param->notifyinfo.id); message_notify(epoint_id, message_id, param); break; case MESSAGE_FACILITY: /* facility message */ - PDEBUG(DEBUG_ISDN, "Pdss1(%s) isdn port with (caller id %s) received facility.\n", p_name, p_callerinfo.id); message_facility(epoint_id, message_id, param); break; case MESSAGE_OVERLAP: /* more information is needed */ - PDEBUG(DEBUG_ISDN, "Pdss1(%s) isdn port with (caller id %s) received setup acknowledge\n", p_name, p_callerinfo.id); - if (p_state!=PORT_STATE_IN_SETUP) - { - PDEBUG(DEBUG_ISDN, "Pdss1(%s) ignoring setup acknowledge because isdn port is not incoming setup state.\n", p_name); + if (p_state!=PORT_STATE_IN_SETUP) { break; } message_overlap(epoint_id, message_id, param); break; case MESSAGE_PROCEEDING: /* call of endpoint is proceeding */ - PDEBUG(DEBUG_ISDN, "Pdss1(%s) isdn port with (caller id %s) received proceeding\n", p_name, p_callerinfo.id); if (p_state!=PORT_STATE_IN_SETUP - && p_state!=PORT_STATE_IN_OVERLAP) - { - PDEBUG(DEBUG_ISDN, "Pdss1(%s) ignoring: proceeding command not possible in current state.\n", p_name); + && p_state!=PORT_STATE_IN_OVERLAP) { break; } message_proceeding(epoint_id, message_id, param); + if (p_m_d_notify_pending) { + /* send pending notify message during connect */ + message_notify(ACTIVE_EPOINT(p_epointlist), p_m_d_notify_pending->type, &p_m_d_notify_pending->param); + message_free(p_m_d_notify_pending); + p_m_d_notify_pending = NULL; + } break; case MESSAGE_ALERTING: /* call of endpoint is ringing */ - PDEBUG(DEBUG_ISDN, "Pdss1(%s) isdn port with (caller id %s) received alerting\n", p_name, p_callerinfo.id); if (p_state!=PORT_STATE_IN_SETUP && p_state!=PORT_STATE_IN_OVERLAP - && p_state!=PORT_STATE_IN_PROCEEDING) - { - PDEBUG(DEBUG_ISDN, "Pdss1(%s) ignoring: alerting command not possible in current state.\n", p_name); + && p_state!=PORT_STATE_IN_PROCEEDING) { break; } message_alerting(epoint_id, message_id, param); + if (p_m_d_notify_pending) { + /* send pending notify message during connect */ + message_notify(ACTIVE_EPOINT(p_epointlist), p_m_d_notify_pending->type, &p_m_d_notify_pending->param); + message_free(p_m_d_notify_pending); + p_m_d_notify_pending = NULL; + } break; case MESSAGE_CONNECT: /* call of endpoint is connected */ - PDEBUG(DEBUG_ISDN, "Pdss1(%s) isdn port with (caller id %s) received connect\n", p_name, p_callerinfo.id); if (p_state!=PORT_STATE_IN_SETUP && p_state!=PORT_STATE_IN_OVERLAP && p_state!=PORT_STATE_IN_PROCEEDING && p_state!=PORT_STATE_IN_ALERTING - && !(p_state==PORT_STATE_CONNECT && p_m_d_ntmode)) - { - PDEBUG(DEBUG_ISDN, "Pdss1(%s) ignoring: connect command not possible in current state.\n", p_name); + && !(p_state==PORT_STATE_CONNECT && p_m_d_ntmode)) { break; } message_connect(epoint_id, message_id, param); + if (p_m_d_notify_pending) { + /* send pending notify message during connect */ + message_notify(ACTIVE_EPOINT(p_epointlist), p_m_d_notify_pending->type, &p_m_d_notify_pending->param); + message_free(p_m_d_notify_pending); + p_m_d_notify_pending = NULL; + } break; case MESSAGE_DISCONNECT: /* call has been disconnected */ - PDEBUG(DEBUG_ISDN, "Pdss1(%s) isdn port with (caller id %s) received disconnect cause=%d\n", p_name, p_callerinfo.id, param->disconnectinfo.cause); if (p_state!=PORT_STATE_IN_SETUP && p_state!=PORT_STATE_IN_OVERLAP && p_state!=PORT_STATE_IN_PROCEEDING @@ -3059,26 +2869,21 @@ int Pdss1::message_epoint(unsigned long epoint_id, int message_id, union paramet && p_state!=PORT_STATE_OUT_PROCEEDING && p_state!=PORT_STATE_OUT_ALERTING && p_state!=PORT_STATE_CONNECT - && p_state!=PORT_STATE_CONNECT_WAITING) - { - PDEBUG(DEBUG_ISDN, "Pdss1(%s) ignoring: disconnect command not possible in current state.\n", p_name); + && p_state!=PORT_STATE_CONNECT_WAITING) { break; } message_disconnect(epoint_id, message_id, param); break; case MESSAGE_RELEASE: /* release isdn port */ - PDEBUG(DEBUG_ISDN, "Pdss1(%s) isdn port with (caller id %s) received release cause=%d\n", p_name, p_callerinfo.id, param->disconnectinfo.cause); - if (p_state==PORT_STATE_RELEASE) - { - PDEBUG(DEBUG_ISDN, "Pdss1(%s) ignoring: release command not possible in RELEASE state.\n", p_name); + if (p_state==PORT_STATE_RELEASE) { break; } message_release(epoint_id, message_id, param); break; default: - PDEBUG(DEBUG_ISDN, "Pdss1(%s) isdn port with (caller id %s) received a wrong message: %d\n", p_name, p_callerinfo.id, message); + PERROR("Pdss1(%s) isdn port with (caller id %s) received a wrong message: %d\n", p_name, p_callerinfo.id, message_id); } return(1); @@ -3089,279 +2894,134 @@ int Pdss1::message_epoint(unsigned long epoint_id, int message_id, union paramet /* * data from isdn-stack (layer-3) to pbx (port class) */ -/* NOTE: nt mode use mISDNuser_head_t as header */ -int stack2manager_nt(void *dat, void *arg) +int stack2manager(struct mISDNport *mISDNport, unsigned int cmd, unsigned int pid, struct l3_msg *l3m) { class Port *port; class Pdss1 *pdss1; - manager_t *mgr = (manager_t *)dat; - msg_t *msg = (msg_t *)arg; - mISDNuser_head_t *hh; - struct mISDNport *mISDNport; char name[32]; - if (!msg || !mgr) - return(-EINVAL); - - /* note: nst is the first data feld of mISDNport */ - mISDNport = (struct mISDNport *)mgr->nst; + PDEBUG(DEBUG_ISDN, "cmd(0x%x) pid(0x%x)\n", cmd, pid); - hh = (mISDNuser_head_t *)msg->data; - PDEBUG(DEBUG_ISDN, "prim(0x%x) dinfo(0x%x) msg->len(%d)\n", hh->prim, hh->dinfo, msg->len); + if (pid == 0) { + PDEBUG(DEBUG_ISDN, "ignoring dummy process from phone.\n"); + return(0); + } /* find Port object of type ISDN */ port = port_first; - while(port) - { - if (port->p_type == PORT_TYPE_DSS1_NT_IN || port->p_type == PORT_TYPE_DSS1_NT_OUT) - { + while(port) { + /* are we ISDN ? */ + if ((port->p_type & PORT_CLASS_mISDN_MASK) == PORT_CLASS_DSS1) { pdss1 = (class Pdss1 *)port; -//PDEBUG(DEBUG_ISDN, "comparing dinfo = 0x%x with l3id 0x%x\n", hh->dinfo, pdss1->p_m_d_l3id); - /* check out correct stack */ - if (pdss1->p_m_mISDNport == mISDNport) - /* check out correct id */ - if ((hh->dinfo&0xffff0000) == (pdss1->p_m_d_l3id&0xffff0000)) - { - /* found port, the message belongs to */ - break; + /* check out correct stack and id */ + if (pdss1->p_m_mISDNport == mISDNport) { + if (pdss1->p_m_d_l3id & MISDN_PID_CR_FLAG) { + /* local callref, so match value only */ + if ((pdss1->p_m_d_l3id & MISDN_PID_CRVAL_MASK) == (pid & MISDN_PID_CRVAL_MASK)) + break; // found + } else { + /* remote callref, ref + channel id */ + if (pdss1->p_m_d_l3id == pid) + break; // found + } } } port = port->next; } - if (port) - { - /* if process id is master process, but a child disconnects */ - if ((hh->dinfo&0x0000ff00)!=0x0000ff00 && (pdss1->p_m_d_l3id&0x0000ff00)==0x0000ff00 && hh->prim==(CC_DISCONNECT|INDICATION)) - { - /* send special indication for child disconnect */ - pdss1->disconnect_ind_i(hh->prim, hh->dinfo, msg->data); - free_msg(msg); + + /* aktueller prozess */ + if (port) { + if (cmd == MT_ASSIGN) { + /* stack gives us new layer 3 id (during connect) */ + l1l2l3_trace_header(mISDNport, pdss1, L3_NEW_L3ID_IND, DIRECTION_IN); + add_trace("callref", "old", "0x%x", pdss1->p_m_d_l3id); + /* nt-library now gives us a new id via CC_SETUP_CONFIRM */ + if ((pdss1->p_m_d_l3id&MISDN_PID_CRTYPE_MASK) != MISDN_PID_MASTER) + PERROR(" strange setup-procid 0x%x\n", pdss1->p_m_d_l3id); + pdss1->p_m_d_l3id = pid; + if (port->p_state == PORT_STATE_CONNECT) + pdss1->p_m_d_ces = pid >> 16; + add_trace("callref", "new", "0x%x", pdss1->p_m_d_l3id); + end_trace(); return(0); } - /* if process id and layer 3 id matches */ - if (hh->dinfo == pdss1->p_m_d_l3id) - { - pdss1->message_isdn(hh->prim, hh->dinfo, msg->data); - free_msg(msg); + /* if process id is master process, but a child disconnects */ + if (mISDNport->ntmode + && (pid & MISDN_PID_CRTYPE_MASK) != MISDN_PID_MASTER + && (pdss1->p_m_d_l3id & MISDN_PID_CRTYPE_MASK) == MISDN_PID_MASTER) { + if (cmd == MT_DISCONNECT + || cmd == MT_RELEASE) { + /* send special indication for child disconnect */ + pdss1->disconnect_ind_i(cmd, pid, l3m); + return(0); + } + if (cmd == MT_RELEASE_COMPLETE) + return(0); + } + /* if we have child pid and got different child pid message, ignore */ + if (mISDNport->ntmode + && (pid & MISDN_PID_CRTYPE_MASK) != MISDN_PID_MASTER + && (pdss1->p_m_d_l3id & MISDN_PID_CRTYPE_MASK) != MISDN_PID_MASTER + && pid != pdss1->p_m_d_l3id) return(0); - } + + /* process message */ + pdss1->message_isdn(cmd, pid, l3m); + return(0); } /* d-message */ - switch(hh->prim) - { - case MGR_SHORTSTATUS | INDICATION: - case MGR_SHORTSTATUS | CONFIRM: - switch(hh->dinfo) { - case SSTATUS_L2_ESTABLISHED: - goto ss_estab; - case SSTATUS_L2_RELEASED: - goto ss_rel; - } - break; + switch(cmd) { + case MT_SETUP: + /* creating port object, transparent until setup with hdlc */ + SPRINT(name, "%s-%d-in", mISDNport->ifport->interface->name, mISDNport->portnum); + if (!(pdss1 = new Pdss1(PORT_TYPE_DSS1_NT_IN, mISDNport, name, NULL, 0, 0, B_MODE_TRANSPARENT))) - case DL_ESTABLISH | INDICATION: - case DL_ESTABLISH | CONFIRM: - ss_estab: - PDEBUG(DEBUG_ISDN, "establish data link (DL) NT portnum=%d TEI=%d\n", mISDNport->portnum, hh->dinfo); - if (mISDNport->ptp && hh->dinfo == 0) - { - if (mISDNport->l2establish) - { - mISDNport->l2establish = 0; - PDEBUG(DEBUG_ISDN, "the link became active before l2establish timer expiry.\n"); - } - mISDNport->l2link = 1; - if (mISDNport->pri); - mISDNport->l1link = 1; /* this is a hack, we also assume L1 to be active */ - } + FATAL("Cannot create Port instance.\n"); + pdss1->message_isdn(cmd, pid, l3m); break; - case DL_RELEASE | INDICATION: - case DL_RELEASE | CONFIRM: - ss_rel: - PDEBUG(DEBUG_ISDN, "release data link (DL) NT portnum=%d TEI=%d\n", mISDNport->portnum, hh->dinfo); - if (mISDNport->ptp && hh->dinfo == 0) - { - mISDNport->l2link = 0; - time(&mISDNport->l2establish); - PDEBUG(DEBUG_ISDN, "because we are ptp, we set a l2establish timer.\n"); - } + case MT_RESUME: + /* creating port object, transparent until setup with hdlc */ + SPRINT(name, "%s-%d-in", mISDNport->ifport->interface->name, mISDNport->portnum); + if (!(pdss1 = new Pdss1(PORT_TYPE_DSS1_NT_IN, mISDNport, name, NULL, 0, 0, B_MODE_TRANSPARENT))) + FATAL("Cannot create Port instance.\n"); + pdss1->message_isdn(cmd, pid, l3m); break; - case CC_SETUP | INDICATION: - /* creating port object */ - SPRINT(name, "%s-%d-in", mISDNport->ifport->interface->name, mISDNport->portnum); - if (!(pdss1 = new Pdss1(PORT_TYPE_DSS1_NT_IN, mISDNport, name, NULL, 0, 0))) - { - RELEASE_COMPLETE_t *release_complete; - msg_t *dmsg; - - fprintf(stderr, "FATAL ERROR: cannot create port object.\n"); - dmsg = create_l3msg(CC_RELEASE_COMPLETE | REQUEST, MT_RELEASE_COMPLETE, hh->dinfo, sizeof(RELEASE_COMPLETE_t), mISDNport->ntmode); - release_complete = (RELEASE_COMPLETE_t *)(dmsg->data + mISDN_HEADER_LEN); - enc_ie_cause_standalone(mISDNport->ntmode?&release_complete->CAUSE:NULL, dmsg, (mISDNport->ntmode)?LOCATION_PRIVATE_LOCAL:LOCATION_PRIVATE_REMOTE, 47); - msg_queue_tail(&mISDNport->downqueue, dmsg); - break; - } - pdss1->message_isdn(hh->prim, hh->dinfo, msg->data); + case MT_FREE: + PDEBUG(DEBUG_ISDN, "unused call ref released (l3id=0x%x)\n", pid); break; - case CC_RESUME | INDICATION: - /* creating port object */ - SPRINT(name, "%s-%d-in", mISDNport->ifport->interface->name, mISDNport->portnum); - if (!(pdss1 = new Pdss1(PORT_TYPE_DSS1_NT_IN, mISDNport, name, NULL))) - { - SUSPEND_REJECT_t *suspend_reject; - msg_t *dmsg; - - fprintf(stderr, "FATAL ERROR: cannot create port object.\n"); - dmsg = create_l3msg(CC_SUSPEND_REJECT | REQUEST, MT_SUSPEND_REJECT, hh->dinfo, sizeof(SUSPEND_REJECT_t), mISDNport->ntmode); - suspend_reject = (SUSPEND_REJECT_t *)(dmsg->data + mISDN_HEADER_LEN); - enc_ie_cause_standalone(mISDNport->ntmode?&suspend_reject->CAUSE:NULL, dmsg, (mISDNport->ntmode)?1:0, 47); - msg_queue_tail(&mISDNport->downqueue, dmsg); - break; - } - pdss1->message_isdn(hh->prim, hh->dinfo, msg->data); + case MT_RELEASE_COMPLETE: + PERROR("must be ignored by stack, not sent to app\n"); break; - case CC_RELEASE_CR | INDICATION: - PDEBUG(DEBUG_ISDN, "%s: unhandled message from stack: call ref released (l3id=0x%x)\n", __FUNCTION__, hh->dinfo); + case MT_FACILITY: + // facility als broadcast break; - case CC_DISCONNECT | INDICATION: + case MT_L2IDLE: + // L2 became idle - we could sent a MT_L2RELEASE if we are the L2 master + PDEBUG(DEBUG_ISDN, "Got L2 idle\n"); + break; - // fall throug default: - PDEBUG(DEBUG_ISDN, "%s: unhandled message: prim(0x%x) dinfo(0x%x) msg->len(%d)\n", __FUNCTION__, hh->prim, hh->dinfo, msg->len); - return(-EINVAL); - } - free_msg(msg); - return(0); -} - -/* NOTE: te mode use iframe_t as header */ -int stack2manager_te(struct mISDNport *mISDNport, msg_t *msg) -{ - class Port *port; - class Pdss1 *pdss1; - iframe_t *frm; - char name[32]; - - if (!msg || !mISDNport) - return(-EINVAL); - frm = (iframe_t *)msg->data; - PDEBUG(DEBUG_ISDN, "prim(0x%x) dinfo(0x%x) msg->len(%d)\n", frm->prim, frm->dinfo, msg->len); - - /* find Port object of type ISDN */ - port = port_first; - while(port) - { - if (port->p_type == PORT_TYPE_DSS1_TE_IN || port->p_type == PORT_TYPE_DSS1_TE_OUT) - { - pdss1 = (class Pdss1 *)port; -//PDEBUG(DEBUG_ISDN, "comparing dinfo = 0x%x with l3id 0x%x\n", frm->dinfo, pdss1->p_m_d_l3id); - /* check out correct stack */ - if (pdss1->p_m_mISDNport == mISDNport) - /* check out correct id */ - if (frm->dinfo == pdss1->p_m_d_l3id) - { - /* found port, the message belongs to */ - break; - } - } - port = port->next; - } - if (port) - { - pdss1->message_isdn(frm->prim, frm->dinfo, msg->data); - free_msg(msg); - return(0); - } - - /* process new cr (before setup indication) */ -//printf("prim = 0x%x, looking for 0x%x\n",frm->prim, (CC_NEW_CR | INDICATION)); - if (frm->prim == (CC_NEW_CR | INDICATION)) - { - - /* creating port object */ - SPRINT(name, "%s-%d-in", mISDNport->ifport->interface->name, mISDNport->portnum); - if (!(pdss1 = new Pdss1(PORT_TYPE_DSS1_TE_IN, mISDNport, name, NULL))) - { - RELEASE_COMPLETE_t *release_complete; - msg_t *dmsg; - - fprintf(stderr, "FATAL ERROR: cannot create port object.\n"); - dmsg = create_l3msg(CC_RELEASE_COMPLETE | REQUEST, MT_RELEASE_COMPLETE, frm->dinfo, sizeof(RELEASE_COMPLETE_t), mISDNport->ntmode); - release_complete = (RELEASE_COMPLETE_t *)(dmsg->data + mISDN_HEADER_LEN); - enc_ie_cause_standalone(mISDNport->ntmode?&release_complete->CAUSE:NULL, dmsg, (mISDNport->ntmode)?LOCATION_PRIVATE_LOCAL:LOCATION_PRIVATE_REMOTE, 47); - msg_queue_tail(&mISDNport->downqueue, dmsg); - free_msg(msg); - return(0); - } - /* l3id will be set from dinfo at message_isdn */ - pdss1->message_isdn(frm->prim, frm->dinfo, msg->data); - free_msg(msg); - return(0); - } - - if (frm->prim == (CC_RELEASE_CR | INDICATION)) - { - PDEBUG(DEBUG_ISDN, "unhandled message from stack: call ref released (l3id=0x%x)\n", frm->dinfo); - free_msg(msg); - return(0); - } - PDEBUG(DEBUG_ISDN, "unhandled message: prim(0x%x) dinfo(0x%x) msg->len(%d)\n", frm->prim, frm->dinfo, msg->len); - return(-EINVAL); -} - - -/* - * sending message that were queued during L1 activation - * or releasing port if link is down - */ -void setup_queue(struct mISDNport *mISDNport, int link) -{ - class Port *port; - class Pdss1 *pdss1; - struct message *message; - - if (!mISDNport->ntmode) - return; - - /* check all port objects for pending message */ - port = port_first; - while(port) - { - if ((port->p_type&PORT_CLASS_mISDN_MASK) == PORT_CLASS_mISDN_DSS1) - { - pdss1 = (class Pdss1 *)port; - if (pdss1->p_m_mISDNport == mISDNport) - { - if (pdss1->p_m_d_queue) - { - if (link) - { - PDEBUG(DEBUG_ISDN, "the L1 became active, so we send queued message for portnum=%d (%s).\n", mISDNport->portnum, pdss1->p_name); - /* LAYER 1 is up, so we send */ - pdss1->message_setup(pdss1->p_m_d_queue->id_from, pdss1->p_m_d_queue->type, &pdss1->p_m_d_queue->param); - message_free(pdss1->p_m_d_queue); - pdss1->p_m_d_queue = NULL; - } else - { - PDEBUG(DEBUG_ISDN, "the L1 became NOT active, so we release port for portnum=%d (%s).\n", mISDNport->portnum, pdss1->p_name); - message = message_create(pdss1->p_serial, pdss1->p_m_d_queue->id_from, PORT_TO_EPOINT, MESSAGE_RELEASE); - message->param.disconnectinfo.cause = 27; - message->param.disconnectinfo.location = LOCATION_PRIVATE_LOCAL; - message_put(message); - pdss1->new_state(PORT_STATE_RELEASE); - pdss1->p_m_delete = 1; - } - } + PERROR("unhandled message: cmd(0x%x) pid(0x%x)\n", cmd, pid); + port = port_first; + while(port) { + if (port->p_type == PORT_TYPE_DSS1_NT_IN || port->p_type == PORT_TYPE_DSS1_NT_OUT) { + pdss1 = (class Pdss1 *)port; + /* check out correct stack */ + if (pdss1->p_m_mISDNport == mISDNport) + /* check out correct id */ + PERROR("unhandled message: pid=%x is not associated with port-dinfo=%x\n", pid, pdss1->p_m_d_l3id); } + port = port->next; } - port = port->next; + return(-EINVAL); } + return(0); }