Home page | Mailing list | Docs

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

Asterisk developer's documentation :: Codename Pineapple

---

chan_misdn.c

Go to the documentation of this file.

/*
 * Asterisk -- An open source telephony toolkit.
 * 
 * Copyright (C) 2004 - 2006, Christian Richter
 *
 * Christian Richter <crich@beronet.com>
 *
 * See http://www.asterisk.org for more information about
 * the Asterisk project. Please do not directly contact
 * any of the maintainers of this project for assistance;
 * the project provides a web site, mailing lists and IRC
 * channels for your use.
 *
 * This program is free software, distributed under the terms of
 * the GNU General Public License Version 2. See the LICENSE file
 * at the top of the source tree.
 *
 */

/*!
 * \file
 *
 * \brief the chan_misdn channel driver for Asterisk
 * \author Christian Richter <crich@beronet.com>
 *
 * \ingroup channel_drivers
 */

/*** MODULEINFO
   <depend>isdnnet</depend>
   <depend>misdn</depend>
   <depend>suppserv</depend>
 ***/
#include "asterisk.h"

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

#include <stdio.h>
#include <pthread.h>
#include <string.h>
#include <sys/socket.h>
#include <sys/time.h>
#include <errno.h>
#include <unistd.h>
#include <stdlib.h>
#include <arpa/inet.h>
#include <fcntl.h>
#include <sys/ioctl.h>
#include <signal.h>
#include <sys/file.h>
#include <semaphore.h>

#include "asterisk/channel.h"
#include "asterisk/config.h"
#include "asterisk/logger.h"
#include "asterisk/module.h"
#include "asterisk/pbx.h"
#include "asterisk/options.h"
#include "asterisk/io.h"
#include "asterisk/frame.h"
#include "asterisk/translate.h"
#include "asterisk/cli.h"
#include "asterisk/musiconhold.h"
#include "asterisk/dsp.h"
#include "asterisk/translate.h"
#include "asterisk/config.h"
#include "asterisk/file.h"
#include "asterisk/callerid.h"
#include "asterisk/indications.h"
#include "asterisk/app.h"
#include "asterisk/features.h"
#include "asterisk/term.h"
#include "asterisk/sched.h"
#include "asterisk/stringfields.h"

#include "chan_misdn_config.h"
#include "isdn_lib.h"

char global_tracefile[BUFFERSIZE+1];

static int g_config_initialized=0;

struct misdn_jb{
   int size;
   int upper_threshold;
   char *samples, *ok;
   int wp,rp;
   int state_empty;
   int state_full;
   int state_buffer;
   int bytes_wrote;
   ast_mutex_t mutexjb;
};



/* allocates the jb-structure and initialise the elements*/
struct misdn_jb *misdn_jb_init(int size, int upper_threshold);

/* frees the data and destroys the given jitterbuffer struct */
void misdn_jb_destroy(struct misdn_jb *jb);

/* fills the jitterbuffer with len data returns < 0 if there was an
error (bufferoverun). */
int misdn_jb_fill(struct misdn_jb *jb, const char *data, int len);

/* gets len bytes out of the jitterbuffer if available, else only the
available data is returned and the return value indicates the number
of data. */
int misdn_jb_empty(struct misdn_jb *jb, char *data, int len);


enum misdn_chan_state {
   MISDN_NOTHING=0,  /*!< at beginning */
   MISDN_WAITING4DIGS, /*!<  when waiting for infos */
   MISDN_EXTCANTMATCH, /*!<  when asterisk couldnt match our ext */
   MISDN_DIALING, /*!<  when pbx_start */
   MISDN_PROGRESS, /*!<  we got a progress */
   MISDN_PROCEEDING, /*!<  we got a progress */
   MISDN_CALLING, /*!<  when misdn_call is called */
   MISDN_CALLING_ACKNOWLEDGE, /*!<  when we get SETUP_ACK */
   MISDN_ALERTING, /*!<  when Alerting */
   MISDN_BUSY, /*!<  when BUSY */
   MISDN_CONNECTED, /*!<  when connected */
   MISDN_PRECONNECTED, /*!<  when connected */
   MISDN_DISCONNECTED, /*!<  when connected */
   MISDN_RELEASED, /*!<  when connected */
   MISDN_BRIDGED, /*!<  when bridged */
   MISDN_CLEANING, /*!< when hangup from * but we were connected before */
   MISDN_HUNGUP_FROM_MISDN, /*!< when DISCONNECT/RELEASE/REL_COMP  cam from misdn */
   MISDN_HUNGUP_FROM_AST, /*!< when DISCONNECT/RELEASE/REL_COMP came out of */
   /* misdn_hangup */
   MISDN_HOLDED, /*!< if this chan is holded */
   MISDN_HOLD_DISCONNECT, /*!< if this chan is holded */
  
};

#define ORG_AST 1
#define ORG_MISDN 2

struct hold_info {
   int port;
   int channel;
};

struct chan_list {
  
   char allowed_bearers[BUFFERSIZE+1];
   
   enum misdn_chan_state state;
   int need_queue_hangup;
   int need_hangup;
   int need_busy;
   
   int orginator;

   int norxtone;
   int notxtone; 

   int toggle_ec;
   
   int incoming_early_audio;

   int ignore_dtmf;

   int pipe[2];
   char ast_rd_buf[4096];
   struct ast_frame frame;

   int faxdetect; /* 0:no 1:yes 2:yes+nojump */
   int faxdetect_timeout;
   struct timeval faxdetect_tv;
   int faxhandled;

   int ast_dsp;

   int jb_len;
   int jb_upper_threshold;
   struct misdn_jb *jb;
   
   struct ast_dsp *dsp;
   struct ast_trans_pvt *trans;
  
   struct ast_channel * ast;

   int dummy;
  
   struct misdn_bchannel *bc;

   struct hold_info hold_info;

   unsigned int l3id;
   int addr;

   char context[BUFFERSIZE];

   int zero_read_cnt;
   int dropped_frame_cnt;

   int far_alerting;

   int nttimeout;

   int other_pid;
   struct chan_list *other_ch;

   const struct ind_tone_zone_sound *ts;
   
   int overlap_dial;
   int overlap_dial_task;
   ast_mutex_t overlap_tv_lock;
   struct timeval overlap_tv;
  
   struct chan_list *peer;
   struct chan_list *next;
   struct chan_list *prev;
   struct chan_list *first;
};



void export_ch(struct ast_channel *chan, struct misdn_bchannel *bc, struct chan_list *ch);
void import_ch(struct ast_channel *chan, struct misdn_bchannel *bc, struct chan_list *ch);

struct robin_list {
   char *group;
   int port;
   int channel;
   struct robin_list *next;
   struct robin_list *prev;
};
static struct robin_list *robin = NULL;



static struct ast_frame *process_ast_dsp(struct chan_list *tmp, struct ast_frame *frame);



static inline void free_robin_list_r (struct robin_list *r)
{
        if (r) {
                if (r->next) free_robin_list_r(r->next);
                if (r->group) free(r->group);
                free(r);
        }
}

static void free_robin_list ( void )
{
   free_robin_list_r(robin);
   robin = NULL;
}

static struct robin_list* get_robin_position (char *group) 
{
   struct robin_list *iter = robin;
   for (; iter; iter = iter->next) {
      if (!strcasecmp(iter->group, group))
         return iter;
   }
   struct robin_list *new = (struct robin_list *)calloc(1, sizeof(struct robin_list));
   new->group = strndup(group, strlen(group));
   new->channel = 1;
   if (robin) {
      new->next = robin;
      robin->prev = new;
   }
   robin = new;
   return robin;
}


/* the main schedule context for stuff like l1 watcher, overlap dial, ... */
static struct sched_context *misdn_tasks = NULL;
static pthread_t misdn_tasks_thread;

static int *misdn_ports;

static void chan_misdn_log(int level, int port, char *tmpl, ...);

static struct ast_channel *misdn_new(struct chan_list *cl, int state,  char *exten, char *callerid, int format, int port, int c);
static void send_digit_to_chan(struct chan_list *cl, char digit );

static void hangup_chan(struct chan_list *ch);
static int pbx_start_chan(struct chan_list *ch);


#define AST_CID_P(ast) ast->cid.cid_num
#define AST_BRIDGED_P(ast) ast_bridged_channel(ast) 
#define AST_LOAD_CFG ast_config_load
#define AST_DESTROY_CFG ast_config_destroy

#define MISDN_ASTERISK_TECH_PVT(ast) ast->tech_pvt
#define MISDN_ASTERISK_PVT(ast) 1

#include <asterisk/strings.h>

/* #define MISDN_DEBUG 1 */

static const char misdn_type[] = "mISDN";

static int tracing = 0 ;

static char **misdn_key_vector=NULL;
static int misdn_key_vector_size=0;

/* Only alaw and mulaw is allowed for now */
static int prefformat =  AST_FORMAT_ALAW ; /*  AST_FORMAT_SLINEAR ;  AST_FORMAT_ULAW | */

static int *misdn_debug;
static int *misdn_debug_only;
static int max_ports;

static int *misdn_in_calls;
static int *misdn_out_calls;


struct chan_list dummy_cl;

struct chan_list *cl_te=NULL;
ast_mutex_t cl_te_lock;

static enum event_response_e
cb_events(enum event_e event, struct misdn_bchannel *bc, void *user_data);

static void send_cause2ast(struct ast_channel *ast, struct misdn_bchannel*bc, struct chan_list *ch);

static void cl_queue_chan(struct chan_list **list, struct chan_list *chan);
static void cl_dequeue_chan(struct chan_list **list, struct chan_list *chan);
static struct chan_list *find_chan_by_bc(struct chan_list *list, struct misdn_bchannel *bc);
static struct chan_list *find_chan_by_pid(struct chan_list *list, int pid);



static int dialtone_indicate(struct chan_list *cl);
static int hanguptone_indicate(struct chan_list *cl);
static int stop_indicate(struct chan_list *cl);

static int start_bc_tones(struct chan_list *cl);
static int stop_bc_tones(struct chan_list *cl);
static void release_chan(struct misdn_bchannel *bc);

static int misdn_set_opt_exec(struct ast_channel *chan, void *data);
static int misdn_facility_exec(struct ast_channel *chan, void *data);

int chan_misdn_jb_empty(struct misdn_bchannel *bc, char *buf, int len);


void debug_numplan(int port, int numplan, char *type);


int add_out_calls(int port);
int add_in_calls(int port);


static int update_ec_config(struct misdn_bchannel *bc);




/*protos*/ 

int chan_misdn_jb_empty ( struct misdn_bchannel *bc, char *buf, int len); 

/*************** Helpers *****************/

static struct chan_list * get_chan_by_ast(struct ast_channel *ast)
{
   struct chan_list *tmp;
  
   for (tmp=cl_te; tmp; tmp = tmp->next) {
      if ( tmp->ast == ast ) return tmp;
   }
  
   return NULL;
}

static struct chan_list * get_chan_by_ast_name(char *name)
{
   struct chan_list *tmp;
  
   for (tmp=cl_te; tmp; tmp = tmp->next) {
      if ( tmp->ast  && strcmp(tmp->ast->name,name) == 0) return tmp;
   }
  
   return NULL;
}



struct allowed_bearers {
   int cap;
   int val;
   char *name;
};

struct allowed_bearers allowed_bearers_array[]={
   {INFO_CAPABILITY_SPEECH,1,"speech"},
   {INFO_CAPABILITY_AUDIO_3_1K,2,"3_1khz"},
   {INFO_CAPABILITY_DIGITAL_UNRESTRICTED,4,"digital_unrestricted"},
   {INFO_CAPABILITY_DIGITAL_RESTRICTED,8,"digital_restriced"},
   {INFO_CAPABILITY_VIDEO,16,"video"}
};

static char *bearer2str(int cap) {
   static char *bearers[]={
      "Speech",
      "Audio 3.1k",
      "Unres Digital",
      "Res Digital",
      "Video",
      "Unknown Bearer"
   };
   
   switch (cap) {
   case INFO_CAPABILITY_SPEECH:
      return bearers[0];
      break;
   case INFO_CAPABILITY_AUDIO_3_1K:
      return bearers[1];
      break;
   case INFO_CAPABILITY_DIGITAL_UNRESTRICTED:
      return bearers[2];
      break;
   case INFO_CAPABILITY_DIGITAL_RESTRICTED:
      return bearers[3];
      break;
   case INFO_CAPABILITY_VIDEO:
      return bearers[4];
      break;
   default:
      return bearers[5];
      break;
   }
}


static void print_facility(struct FacParm *fac, struct misdn_bchannel *bc)
{
   switch (fac->Function) {
   case Fac_CD:
      chan_misdn_log(0,bc->port," --> calldeflect to: %s, screened: %s\n", fac->u.CDeflection.DeflectedToNumber,
                  fac->u.CDeflection.PresentationAllowed ? "yes" : "no");
      break;
   case Fac_AOCDCurrency:
      if (fac->u.AOCDcur.chargeNotAvailable)
         chan_misdn_log(0,bc->port," --> AOCD currency: charge not available\n");
      else if (fac->u.AOCDcur.freeOfCharge)
         chan_misdn_log(0,bc->port," --> AOCD currency: free of charge\n");
      else if (fac->u.AOCDchu.billingId >= 0)
         chan_misdn_log(0,bc->port," --> AOCD currency: currency:%s amount:%d multiplier:%d typeOfChargingInfo:%d billingId:%d\n",
                     fac->u.AOCDcur.currency, fac->u.AOCDcur.currencyAmount, fac->u.AOCDcur.multiplier,
                     (fac->u.AOCDcur.typeOfChargingInfo == 0) ? "subTotal" : "total", fac->u.AOCDcur.billingId);
      else
         chan_misdn_log(0,bc->port," --> AOCD currency: currency:%s amount:%d multiplier:%d typeOfChargingInfo:%d\n",
                     fac->u.AOCDcur.currency, fac->u.AOCDcur.currencyAmount, fac->u.AOCDcur.multiplier,
                     (fac->u.AOCDcur.typeOfChargingInfo == 0) ? "subTotal" : "total");
      break;
   case Fac_AOCDChargingUnit:
      if (fac->u.AOCDchu.chargeNotAvailable)
         chan_misdn_log(0,bc->port," --> AOCD charging unit: charge not available\n");
      else if (fac->u.AOCDchu.freeOfCharge)
         chan_misdn_log(0,bc->port," --> AOCD charging unit: free of charge\n");
      else if (fac->u.AOCDchu.billingId >= 0)
         chan_misdn_log(0,bc->port," --> AOCD charging unit: recordedUnits:%d typeOfChargingInfo:%s billingId:%d\n",
                     fac->u.AOCDchu.recordedUnits, (fac->u.AOCDchu.typeOfChargingInfo == 0) ? "subTotal" : "total", fac->u.AOCDchu.billingId);
      else
         chan_misdn_log(0,bc->port," --> AOCD charging unit: recordedUnits:%d typeOfChargingInfo:%s\n",
                     fac->u.AOCDchu.recordedUnits, (fac->u.AOCDchu.typeOfChargingInfo == 0) ? "subTotal" : "total");
      break;
   default:
      chan_misdn_log(0,bc->port," --> unknown\n");
   }
}

static void print_bearer(struct misdn_bchannel *bc) 
{
   
   chan_misdn_log(2, bc->port, " --> Bearer: %s\n",bearer2str(bc->capability));
   
   switch(bc->law) {
   case INFO_CODEC_ALAW:
      chan_misdn_log(2, bc->port, " --> Codec: Alaw\n");
      break;
   case INFO_CODEC_ULAW:
      chan_misdn_log(2, bc->port, " --> Codec: Ulaw\n");
      break;
   }
}
/*************** Helpers END *************/

static void sighandler(int sig)
{}

static void* misdn_tasks_thread_func (void *data)
{
   int wait;
   struct sigaction sa;

   sa.sa_handler = sighandler;
   sa.sa_flags = SA_NODEFER;
   sigemptyset(&sa.sa_mask);
   sigaddset(&sa.sa_mask, SIGUSR1);
   sigaction(SIGUSR1, &sa, NULL);
   
   sem_post((sem_t *)data);

   while (1) {
      wait = ast_sched_wait(misdn_tasks);
      if (wait < 0)
         wait = 8000;
      if (poll(NULL, 0, wait) < 0)
         chan_misdn_log(4, 0, "Waking up misdn_tasks thread\n");
      ast_sched_runq(misdn_tasks);
   }
   return NULL;
}

static void misdn_tasks_init (void)
{
   sem_t blocker;
   int i = 5;

   if (sem_init(&blocker, 0, 0)) {
      perror("chan_misdn: Failed to initialize semaphore!");
      exit(1);
   }

   chan_misdn_log(4, 0, "Starting misdn_tasks thread\n");
   
   misdn_tasks = sched_context_create();
   pthread_create(&misdn_tasks_thread, NULL, misdn_tasks_thread_func, &blocker);

   while (sem_wait(&blocker) && --i);
   sem_destroy(&blocker);
}

static void misdn_tasks_destroy (void)
{
   if (misdn_tasks) {
      chan_misdn_log(4, 0, "Killing misdn_tasks thread\n");
      if ( pthread_cancel(misdn_tasks_thread) == 0 ) {
         cb_log(4, 0, "Joining misdn_tasks thread\n");
         pthread_join(misdn_tasks_thread, NULL);
      }
      sched_context_destroy(misdn_tasks);
   }
}

static inline void misdn_tasks_wakeup (void)
{
   pthread_kill(misdn_tasks_thread, SIGUSR1);
}

static inline int _misdn_tasks_add_variable (int timeout, ast_sched_cb callback, void *data, int variable)
{
   int task_id;

   if (!misdn_tasks) {
      misdn_tasks_init();
   }
   task_id = ast_sched_add_variable(misdn_tasks, timeout, callback, data, variable);
   misdn_tasks_wakeup();

   return task_id;
}

static int misdn_tasks_add (int timeout, ast_sched_cb callback, void *data)
{
   return _misdn_tasks_add_variable(timeout, callback, data, 0);
}

static int misdn_tasks_add_variable (int timeout, ast_sched_cb callback, void *data)
{
   return _misdn_tasks_add_variable(timeout, callback, data, 1);
}

static void misdn_tasks_remove (int task_id)
{
   ast_sched_del(misdn_tasks, task_id);
}

static int misdn_l1_task (void *data)
{
   misdn_lib_isdn_l1watcher(*(int *)data);
   chan_misdn_log(5, *(int *)data, "L1watcher timeout\n");
   return 1;
}

static int misdn_overlap_dial_task (void *data)
{
   struct timeval tv_end, tv_now;
   int diff;
   struct chan_list *ch = (struct chan_list *)data;

   chan_misdn_log(4, ch->bc->port, "overlap dial task, chan_state: %d\n", ch->state);

   if (ch->state != MISDN_WAITING4DIGS) {
      ch->overlap_dial_task = -1;
      return 0;
   }
   
   ast_mutex_lock(&ch->overlap_tv_lock);
   tv_end = ch->overlap_tv;
   ast_mutex_unlock(&ch->overlap_tv_lock);
   
   tv_end.tv_sec += ch->overlap_dial;
   tv_now = ast_tvnow();

   diff = ast_tvdiff_ms(tv_end, tv_now);

   if (diff <= 100) {
      /* if we are 100ms near the timeout, we are satisfied.. */
      stop_indicate(ch);
      if (ast_exists_extension(ch->ast, ch->context, ch->bc->dad, 1, ch->bc->oad)) {
         ch->state=MISDN_DIALING;
         if (pbx_start_chan(ch) < 0) {
            chan_misdn_log(-1, ch->bc->port, "ast_pbx_start returned < 0 in misdn_overlap_dial_task\n");
            goto misdn_overlap_dial_task_disconnect;
         }
      } else {
misdn_overlap_dial_task_disconnect:
         hanguptone_indicate(ch);
         if (ch->bc->nt)
            misdn_lib_send_event(ch->bc, EVENT_RELEASE_COMPLETE );
         else
            misdn_lib_send_event(ch->bc, EVENT_RELEASE);
      }
      ch->overlap_dial_task = -1;
      return 0;
   } else
      return diff;
}

static void send_digit_to_chan(struct chan_list *cl, char digit )
{
   static const char* dtmf_tones[] = {
      "!941+1336/100,!0/100", /* 0 */
      "!697+1209/100,!0/100", /* 1 */
      "!697+1336/100,!0/100", /* 2 */
      "!697+1477/100,!0/100", /* 3 */
      "!770+1209/100,!0/100", /* 4 */
      "!770+1336/100,!0/100", /* 5 */
      "!770+1477/100,!0/100", /* 6 */
      "!852+1209/100,!0/100", /* 7 */
      "!852+1336/100,!0/100", /* 8 */
      "!852+1477/100,!0/100", /* 9 */
      "!697+1633/100,!0/100", /* A */
      "!770+1633/100,!0/100", /* B */
      "!852+1633/100,!0/100", /* C */
      "!941+1633/100,!0/100", /* D */
      "!941+1209/100,!0/100", /* * */
      "!941+1477/100,!0/100" };  /* # */
   struct ast_channel *chan=cl->ast; 
  
   if (digit >= '0' && digit <='9')
      ast_playtones_start(chan,0,dtmf_tones[digit-'0'], 0);
   else if (digit >= 'A' && digit <= 'D')
      ast_playtones_start(chan,0,dtmf_tones[digit-'A'+10], 0);
   else if (digit == '*')
      ast_playtones_start(chan,0,dtmf_tones[14], 0);
   else if (digit == '#')
      ast_playtones_start(chan,0,dtmf_tones[15], 0);
   else {
      /* not handled */
      if (option_debug)
         ast_log(LOG_DEBUG, "Unable to handle DTMF tone '%c' for '%s'\n", digit, chan->name);
   }
}
/*** CLI HANDLING ***/
static int misdn_set_debug(int fd, int argc, char *argv[])
{
   if (argc != 4 && argc != 5 && argc != 6 && argc != 7)
      return RESULT_SHOWUSAGE; 

   int level = atoi(argv[3]);

   switch (argc) {
      case 4:  
      case 5: {
               int only = 0;
               if (argc == 5) {
                  if (strncasecmp(argv[4], "only", strlen(argv[4])))
                     return RESULT_SHOWUSAGE;
                  else
                     only = 1;
               }
               int i;
               for (i=0; i<=max_ports; i++) {
                  misdn_debug[i] = level;
                  misdn_debug_only[i] = only;
               }
               ast_cli(fd, "changing debug level for all ports to %d%s\n",misdn_debug[0], only?" (only)":"");
            }
            break;
      case 6: 
      case 7: {
               if (strncasecmp(argv[4], "port", strlen(argv[4])))
                  return RESULT_SHOWUSAGE;
               int port = atoi(argv[5]);
               if (port <= 0 || port > max_ports) {
                  switch (max_ports) {
                     case 0:
                        ast_cli(fd, "port number not valid! no ports available so you won't get lucky with any number here...\n");
                        break;
                     case 1:
                        ast_cli(fd, "port number not valid! only port 1 is availble.\n");
                        break;
                     default:
                        ast_cli(fd, "port number not valid! only ports 1 to %d are available.\n", max_ports);
                     }
                     return 0;
               }
               if (argc == 7) {
                  if (strncasecmp(argv[6], "only", strlen(argv[6])))
                     return RESULT_SHOWUSAGE;
                  else
                     misdn_debug_only[port] = 1;
               } else
                  misdn_debug_only[port] = 0;
               misdn_debug[port] = level;
               ast_cli(fd, "changing debug level to %d%s for port %d\n", misdn_debug[port], misdn_debug_only[port]?" (only)":"", port);
            }
   }
   return 0;
}

static int misdn_set_crypt_debug(int fd, int argc, char *argv[])
{
   if (argc != 5) return RESULT_SHOWUSAGE; 

   return 0;
}


static int misdn_port_block(int fd, int argc, char *argv[])
{
   int port;
  
   if (argc != 4)
      return RESULT_SHOWUSAGE;
  
   port = atoi(argv[3]);

   misdn_lib_port_block(port);

   return 0;
}

static int misdn_port_unblock(int fd, int argc, char *argv[])
{
   int port;
  
   if (argc != 4)
      return RESULT_SHOWUSAGE;
  
   port = atoi(argv[3]);

   misdn_lib_port_unblock(port);

   return 0;
}


static int misdn_restart_port (int fd, int argc, char *argv[])
{
   int port;
  
   if (argc != 4)
      return RESULT_SHOWUSAGE;
  
   port = atoi(argv[3]);

   misdn_lib_port_restart(port);

   return 0;
}

static int misdn_restart_pid (int fd, int argc, char *argv[])
{
   int pid;
  
   if (argc != 4)
      return RESULT_SHOWUSAGE;
  
   pid = atoi(argv[3]);

   misdn_lib_pid_restart(pid);

   return 0;
}

static int misdn_port_up (int fd, int argc, char *argv[])
{
   int port;
   
   if (argc != 4)
      return RESULT_SHOWUSAGE;
   
   port = atoi(argv[3]);
   
   misdn_lib_get_port_up(port);
  
   return 0;
}

static int misdn_port_down (int fd, int argc, char *argv[])
{
   int port;
   
   if (argc != 4)
      return RESULT_SHOWUSAGE;
   
   port = atoi(argv[3]);
   
   misdn_lib_get_port_down(port);
  
   return 0;
}

static inline void show_config_description (int fd, enum misdn_cfg_elements elem)
{
   char section[BUFFERSIZE];
   char name[BUFFERSIZE];
   char desc[BUFFERSIZE];
   char def[BUFFERSIZE];
   char tmp[BUFFERSIZE];

   misdn_cfg_get_name(elem, tmp, sizeof(tmp));
   term_color(name, tmp, COLOR_BRWHITE, 0, sizeof(tmp));
   misdn_cfg_get_desc(elem, desc, sizeof(desc), def, sizeof(def));

   if (elem < MISDN_CFG_LAST)
      term_color(section, "PORTS SECTION", COLOR_YELLOW, 0, sizeof(section));
   else
      term_color(section, "GENERAL SECTION", COLOR_YELLOW, 0, sizeof(section));

   if (*def)
      ast_cli(fd, "[%s] %s   (Default: %s)\n\t%s\n", section, name, def, desc);
   else
      ast_cli(fd, "[%s] %s\n\t%s\n", section, name, desc);
}

static int misdn_show_config (int fd, int argc, char *argv[])
{
   char buffer[BUFFERSIZE];
   enum misdn_cfg_elements elem;
   int linebreak;
   int onlyport = -1;
   int ok = 0;

   if (argc >= 4) {
      if (!strcmp(argv[3], "description")) {
         if (argc == 5) {
            enum misdn_cfg_elements elem = misdn_cfg_get_elem (argv[4]);
            if (elem == MISDN_CFG_FIRST)
               ast_cli(fd, "Unknown element: %s\n", argv[4]);
            else
               show_config_description(fd, elem);
            return 0;
         }
         return RESULT_SHOWUSAGE;
      }
      if (!strcmp(argv[3], "descriptions")) {
         if ((argc == 4) || ((argc == 5) && !strcmp(argv[4], "general"))) {
            for (elem = MISDN_GEN_FIRST + 1; elem < MISDN_GEN_LAST; ++elem) {
               show_config_description(fd, elem);
               ast_cli(fd, "\n");
            }
            ok = 1;
         }
         if ((argc == 4) || ((argc == 5) && !strcmp(argv[4], "ports"))) {
            for (elem = MISDN_CFG_FIRST + 1; elem < MISDN_CFG_LAST - 1 /* the ptp hack, remove the -1 when ptp is gone */; ++elem) {
               show_config_description(fd, elem);
               ast_cli(fd, "\n");
            }
            ok = 1;
         }
         return ok ? 0 : RESULT_SHOWUSAGE;
      }
      if (!sscanf(argv[3], "%d", &onlyport) || onlyport < 0) {
         ast_cli(fd, "Unknown option: %s\n", argv[3]);
         return RESULT_SHOWUSAGE;
      }
   }
   
   if (argc == 3 || onlyport == 0) {
      ast_cli(fd,"Misdn General-Config: \n"); 
      for (elem = MISDN_GEN_FIRST + 1, linebreak = 1; elem < MISDN_GEN_LAST; elem++, linebreak++) {
         misdn_cfg_get_config_string( 0, elem, buffer, BUFFERSIZE);
         ast_cli(fd, "%-36s%s", buffer, !(linebreak % 2) ? "\n" : "");
      }
      ast_cli(fd, "\n");
   }

   if (onlyport < 0) {
      int port = misdn_cfg_get_next_port(0);
      for (; port > 0; port = misdn_cfg_get_next_port(port)) {
         ast_cli(fd, "\n[PORT %d]\n", port);
         for (elem = MISDN_CFG_FIRST + 1, linebreak = 1; elem < MISDN_CFG_LAST; elem++, linebreak++) {
            misdn_cfg_get_config_string( port, elem, buffer, BUFFERSIZE);
            ast_cli(fd, "%-36s%s", buffer, !(linebreak % 2) ? "\n" : "");
         }  
         ast_cli(fd, "\n");
      }
   }
   
   if (onlyport > 0) {
      if (misdn_cfg_is_port_valid(onlyport)) {
         ast_cli(fd, "[PORT %d]\n", onlyport);
         for (elem = MISDN_CFG_FIRST + 1, linebreak = 1; elem < MISDN_CFG_LAST; elem++, linebreak++) {
            misdn_cfg_get_config_string(onlyport, elem, buffer, BUFFERSIZE);
            ast_cli(fd, "%-36s%s", buffer, !(linebreak % 2) ? "\n" : "");
         }  
         ast_cli(fd, "\n");
      } else {
         ast_cli(fd, "Port %d is not active!\n", onlyport);
      }
   }
   return 0;
}

struct state_struct {
   enum misdn_chan_state state;
   char txt[255] ;
} ;

static struct state_struct state_array[] = {
   {MISDN_NOTHING,"NOTHING"}, /* at beginning */
   {MISDN_WAITING4DIGS,"WAITING4DIGS"}, /*  when waiting for infos */
   {MISDN_EXTCANTMATCH,"EXTCANTMATCH"}, /*  when asterisk couldnt match our ext */
   {MISDN_DIALING,"DIALING"}, /*  when pbx_start */
   {MISDN_PROGRESS,"PROGRESS"}, /*  when pbx_start */
   {MISDN_PROCEEDING,"PROCEEDING"}, /*  when pbx_start */
   {MISDN_CALLING,"CALLING"}, /*  when misdn_call is called */
   {MISDN_CALLING_ACKNOWLEDGE,"CALLING_ACKNOWLEDGE"}, /*  when misdn_call is called */
   {MISDN_ALERTING,"ALERTING"}, /*  when Alerting */
   {MISDN_BUSY,"BUSY"}, /*  when BUSY */
   {MISDN_CONNECTED,"CONNECTED"}, /*  when connected */
   {MISDN_PRECONNECTED,"PRECONNECTED"}, /*  when connected */
   {MISDN_DISCONNECTED,"DISCONNECTED"}, /*  when connected */
   {MISDN_RELEASED,"RELEASED"}, /*  when connected */
   {MISDN_BRIDGED,"BRIDGED"}, /*  when bridged */
   {MISDN_CLEANING,"CLEANING"}, /* when hangup from * but we were connected before */
   {MISDN_HUNGUP_FROM_MISDN,"HUNGUP_FROM_MISDN"}, /* when DISCONNECT/RELEASE/REL_COMP  cam from misdn */
   {MISDN_HOLDED,"HOLDED"}, /* when DISCONNECT/RELEASE/REL_COMP  cam from misdn */
   {MISDN_HOLD_DISCONNECT,"HOLD_DISCONNECT"}, /* when DISCONNECT/RELEASE/REL_COMP  cam from misdn */
   {MISDN_HUNGUP_FROM_AST,"HUNGUP_FROM_AST"} /* when DISCONNECT/RELEASE/REL_COMP came out of */
   /* misdn_hangup */
};

static char *misdn_get_ch_state(struct chan_list *p) 
{
   int i;
   static char state[8];
   
   if( !p) return NULL;
  
   for (i=0; i< sizeof(state_array)/sizeof(struct state_struct); i++) {
      if ( state_array[i].state == p->state) return state_array[i].txt; 
   }

   sprintf(state,"%d",p->state) ;

   return state;
}



static void reload_config(void)
{
   int i, cfg_debug;

   if (!g_config_initialized) {
      ast_log(LOG_WARNING, "chan_misdn is not initialized properly, still reloading ?\n");
      return ;
   }
   
   free_robin_list();
   misdn_cfg_reload();
   misdn_cfg_update_ptp();
   misdn_cfg_get( 0, MISDN_GEN_TRACEFILE, global_tracefile, BUFFERSIZE);
   misdn_cfg_get( 0, MISDN_GEN_DEBUG, &cfg_debug, sizeof(int));

   for (i = 0;  i <= max_ports; i++) {
      misdn_debug[i] = cfg_debug;
      misdn_debug_only[i] = 0;
   }
}

static int misdn_reload (int fd, int argc, char *argv[])
{
   ast_cli(fd, "Reloading mISDN Config\n");
   reload_config();
   return 0;
}

static void print_bc_info (int fd, struct chan_list* help, struct misdn_bchannel* bc)
{
   struct ast_channel *ast=help->ast;
   ast_cli(fd,
      "* Pid:%d Prt:%d Ch:%d Mode:%s Org:%s dad:%s oad:%s rad:%s ctx:%s state:%s\n",

      bc->pid, bc->port, bc->channel,
      bc->nt?"NT":"TE",
      help->orginator == ORG_AST?"*":"I",
      ast?ast->exten:NULL,
      ast?AST_CID_P(ast):NULL,
      bc->rad,
      ast?ast->context:NULL,
      misdn_get_ch_state(help)
      );
   if (misdn_debug[bc->port] > 0)
      ast_cli(fd,
         "  --> astname: %s\n"
         "  --> ch_l3id: %x\n"
         "  --> ch_addr: %x\n"
         "  --> bc_addr: %x\n"
         "  --> bc_l3id: %x\n"
         "  --> display: %s\n"
         "  --> activated: %d\n"
         "  --> state: %s\n"
         "  --> capability: %s\n"
         "  --> echo_cancel: %d\n"
         "  --> notone : rx %d tx:%d\n"
         "  --> bc_hold: %d\n",
         help->ast->name,
         help->l3id,
         help->addr,
         bc->addr,
         bc?bc->l3_id:-1,
         bc->display,
         
         bc->active,
         bc_state2str(bc->bc_state),
         bearer2str(bc->capability),
         bc->ec_enable,

         help->norxtone,help->notxtone,
         bc->holded
         );
  
}

static int misdn_show_cls (int fd, int argc, char *argv[])
{
   struct chan_list *help=cl_te;
  
   ast_cli(fd,"Chan List: %p\n",cl_te); 
  
   for (;help; help=help->next) {
      struct misdn_bchannel *bc=help->bc;   
      struct ast_channel *ast=help->ast;
      if (misdn_debug[0] > 2) ast_cli(fd, "Bc:%p Ast:%p\n", bc, ast);
      if (bc) {
         print_bc_info(fd, help, bc);
      } else {
         if (help->state == MISDN_HOLDED) {
            chan_misdn_log(2, 0, "ITS A HOLDED BC:\n");
            chan_misdn_log(2,0," --> l3_id: %x\n"
                  " --> dad:%s oad:%s\n"
                  " --> hold_port: %d\n"
                  " --> hold_channel: %d\n"
            
                  ,help->l3id
                  ,ast->exten
                  ,AST_CID_P(ast)
                  ,help->hold_info.port
                  ,help->hold_info.channel
                  );
         } else {
            ast_cli(fd,"* Channel in unknown STATE !!! Exten:%s, Callerid:%s\n", ast->exten, AST_CID_P(ast));
         }
      }
   }
  
  
   return 0;
}

static int misdn_show_cl (int fd, int argc, char *argv[])
{
   struct chan_list *help=cl_te;

   if (argc != 4)
      return RESULT_SHOWUSAGE;
  
   for (;help; help=help->next) {
      struct misdn_bchannel *bc=help->bc;   
      struct ast_channel *ast=help->ast;
    
      if (bc && ast) {
         if (!strcasecmp(ast->name,argv[3])) {
            print_bc_info(fd, help, bc);
            break; 
         }
      } 
   }
  
  
   return 0;
}

ast_mutex_t lock;
int MAXTICS=8;

static int misdn_set_tics (int fd, int argc, char *argv[])
{
   if (argc != 4)
      return RESULT_SHOWUSAGE;
  
   MAXTICS=atoi(argv[3]);
  
   return 0;
}

static int misdn_show_stacks (int fd, int argc, char *argv[])
{
   int port;

   ast_cli(fd, "BEGIN STACK_LIST:\n");

   for (port=misdn_cfg_get_next_port(0); port > 0;
        port=misdn_cfg_get_next_port(port)) {
      char buf[128];
      get_show_stack_details(port,buf);
      ast_cli(fd,"  %s  Debug:%d%s\n", buf, misdn_debug[port], misdn_debug_only[port]?"(only)":"");
   }
      
   return 0;
}


static int misdn_show_ports_stats (int fd, int argc, char *argv[])
{
   int port;

   ast_cli(fd, "Port\tin_calls\tout_calls\n");
   
   for (port=misdn_cfg_get_next_port(0); port > 0;
        port=misdn_cfg_get_next_port(port)) {
      ast_cli(fd,"%d\t%d\t\t%d\n",port,misdn_in_calls[port],misdn_out_calls[port]);
   }
   ast_cli(fd,"\n");
   
   return 0;

}


static int misdn_show_port (int fd, int argc, char *argv[])
{
   int port;
   
   if (argc != 4)
      return RESULT_SHOWUSAGE;
  
   port = atoi(argv[3]);
  
   ast_cli(fd, "BEGIN STACK_LIST:\n");

   char buf[128];
   get_show_stack_details(port,buf);
   ast_cli(fd,"  %s  Debug:%d%s\n",buf, misdn_debug[port], misdn_debug_only[port]?"(only)":"");

   
   return 0;
}

static int misdn_send_cd (int fd, int argc, char *argv[])
{
   char *channame; 
   char *nr; 
  
   if (argc != 5)
      return RESULT_SHOWUSAGE;
  
   channame = argv[3];
   nr = argv[4];

   ast_cli(fd, "Sending Calldeflection (%s) to %s\n",nr, channame);
   
   {
      struct chan_list *tmp=get_chan_by_ast_name(channame);
      
      if (!tmp) {
         ast_cli(fd, "Sending CD with nr %s to %s failed: Channel does not exist.\n",nr, channame);
         return 0; 
      } else {
         if (strlen(nr) >= 15) {
            ast_cli(fd, "Sending CD with nr %s to %s failed: Number too long (up to 15 digits are allowed).\n",nr, channame);
            return 0; 
         }
         tmp->bc->fac_out.Function = Fac_CD;
         strncpy((char *)tmp->bc->fac_out.u.CDeflection.DeflectedToNumber, nr, sizeof(tmp->bc->fac_out.u.CDeflection.DeflectedToNumber));
         misdn_lib_send_event(tmp->bc, EVENT_FACILITY);
      }
   }
  
   return 0; 
}

static int misdn_send_digit (int fd, int argc, char *argv[])
{
   char *channame; 
   char *msg; 
  
   if (argc != 5)
      return RESULT_SHOWUSAGE;
  
   channame = argv[3];
   msg = argv[4];

   ast_cli(fd, "Sending %s to %s\n",msg, channame);
  
   {
      struct chan_list *tmp=get_chan_by_ast_name(channame);
    
      if (!tmp) {
         ast_cli(fd, "Sending %s to %s failed Channel does not exist\n",msg, channame);
         return 0; 
      } else {
#if 1
         int i;
         int msglen = strlen(msg);
         for (i=0; i<msglen; i++) {
            ast_cli(fd, "Sending: %c\n",msg[i]);
            send_digit_to_chan(tmp, msg[i]);
            /* res = ast_safe_sleep(tmp->ast, 250); */
            usleep(250000);
            /* res = ast_waitfor(tmp->ast,100); */
         }
#else
         int res;
         res = ast_dtmf_stream(tmp->ast,NULL,msg,250);
#endif
      }
   }
  
   return 0; 
}

static int misdn_toggle_echocancel (int fd, int argc, char *argv[])
{
   char *channame; 

   if (argc != 4)
      return RESULT_SHOWUSAGE;
   
   channame = argv[3];
  
   ast_cli(fd, "Toggling EchoCancel on %s\n", channame);
  
   {
      struct chan_list *tmp=get_chan_by_ast_name(channame);
    
      if (!tmp) {
         ast_cli(fd, "Toggling EchoCancel %s failed Channel does not exist\n", channame);
         return 0; 
      } else {
         
         tmp->toggle_ec=tmp->toggle_ec?0:1;

         if (tmp->toggle_ec) {
            update_ec_config(tmp->bc);
            manager_ec_enable(tmp->bc);
         } else {
            manager_ec_disable(tmp->bc);
         }
      }
   }
  
   return 0; 
}

static int misdn_send_display (int fd, int argc, char *argv[])
{
   char *channame; 
   char *msg; 
  
   if (argc != 5)
      return RESULT_SHOWUSAGE;
  
   channame = argv[3];
   msg = argv[4];

   ast_cli(fd, "Sending %s to %s\n",msg, channame);
   {
      struct chan_list *tmp;
      tmp=get_chan_by_ast_name(channame);
    
      if (tmp && tmp->bc) {
         ast_copy_string(tmp->bc->display, msg, sizeof(tmp->bc->display));
         misdn_lib_send_event(tmp->bc, EVENT_INFORMATION);
      } else {
         ast_cli(fd,"No such channel %s\n",channame);
         return RESULT_FAILURE;
      }
   }

   return RESULT_SUCCESS ;
}

static char *complete_ch_helper(const char *line, const char *word, int pos, int state, int rpos)
{
   struct ast_channel *c;
   int which=0;
   char *ret;
   if (pos != rpos)
      return NULL;
   c = ast_channel_walk_locked(NULL);
   while(c) {
      if (!strncasecmp(word, c->name, strlen(word))) {
         if (++which > state)
            break;
      }
      ast_mutex_unlock(&c->lock);
      c = ast_channel_walk_locked(c);
   }
   if (c) {
      ret = strdup(c->name);
      ast_mutex_unlock(&c->lock);
   } else
      ret = NULL;
   return ret;
}

static char *complete_ch(const char *line, const char *word, int pos, int state)
{
   return complete_ch_helper(line, word, pos, state, 3);
}

static char *complete_debug_port (const char *line, const char *word, int pos, int state)
{
   if (state)
      return NULL;

   switch (pos) {
   case 4: if (*word == 'p')
            return strdup("port");
         else if (*word == 'o')
            return strdup("only");
         break;
   case 6: if (*word == 'o')
            return strdup("only");
         break;
   }
   return NULL;
}

static char *complete_show_config (const char *line, const char *word, int pos, int state)
{
   char buffer[BUFFERSIZE];
   enum misdn_cfg_elements elem;
   int wordlen = strlen(word);
   int which = 0;
   int port = 0;

   switch (pos) {
   case 3: if ((!strncmp(word, "description", wordlen)) && (++which > state))
            return strdup("description");
         if ((!strncmp(word, "descriptions", wordlen)) && (++which > state))
            return strdup("descriptions");
         if ((!strncmp(word, "0", wordlen)) && (++which > state))
            return strdup("0");
         while ((port = misdn_cfg_get_next_port(port)) != -1) {
            snprintf(buffer, sizeof(buffer), "%d", port);
            if ((!strncmp(word, buffer, wordlen)) && (++which > state)) {
               return strdup(buffer);
            }
         }
         break;
   case 4:
         if (strstr(line, "description ")) {
            for (elem = MISDN_CFG_FIRST + 1; elem < MISDN_GEN_LAST; ++elem) {
               if ((elem == MISDN_CFG_LAST) || (elem == MISDN_GEN_FIRST))
                  continue;
               misdn_cfg_get_name(elem, buffer, BUFFERSIZE);
               if (!wordlen || !strncmp(word, buffer, wordlen)) {
                  if (++which > state)
                     return strdup(buffer);
               }
            }
         } else if (strstr(line, "descriptions ")) {
            if ((!wordlen || !strncmp(word, "general", wordlen)) && (++which > state))
               return strdup("general");
            if ((!wordlen || !strncmp(word, "ports", wordlen)) && (++which > state))
               return strdup("ports");
         }
         break;
   }
   return NULL;
}

static struct ast_cli_entry chan_misdn_clis[] = {
   { {"misdn","send","calldeflect", NULL}, misdn_send_cd, "Sends CallDeflection to mISDN Channel",
      "Usage: misdn send calldeflect <channel> \"<nr>\" \n", complete_ch },
   { {"misdn","send","digit", NULL}, misdn_send_digit,   "Sends DTMF Digit to mISDN Channel",
      "Usage: misdn send digit <channel> \"<msg>\" \n"
      "       Send <digit> to <channel> as DTMF Tone\n"
      "       when channel is a mISDN channel\n", complete_ch },
   { {"misdn","toggle","echocancel", NULL}, misdn_toggle_echocancel, "Toggles EchoCancel on mISDN Channel",
      "Usage: misdn toggle echocancel <channel>\n", complete_ch },
   { {"misdn","send","display", NULL}, misdn_send_display, "Sends Text to mISDN Channel", 
      "Usage: misdn send display <channel> \"<msg>\" \n"
      "       Send <msg> to <channel> as Display Message\n"
      "       when channel is a mISDN channel\n", complete_ch },
   { {"misdn","show","config", NULL}, misdn_show_config, "Shows internal mISDN config, read from cfg-file",
      "Usage: misdn show config [<port> | description <config element> | descriptions [general|ports]]\n"
      "       Use 0 for <port> to only print the general config.\n", complete_show_config },
   { {"misdn","reload", NULL}, misdn_reload, "Reloads internal mISDN config, read from cfg-file",
      "Usage: misdn reload\n" },
   { {"misdn","set","tics", NULL}, misdn_set_tics, "", 
      "\n" },
   { {"misdn","show","channels", NULL}, misdn_show_cls, "Shows internal mISDN chan_list",
      "Usage: misdn show channels\n" },
   { {"misdn","show","channel", NULL}, misdn_show_cl, "Shows internal mISDN chan_list",
      "Usage: misdn show channels\n", complete_ch },
   { {"misdn","port","block", NULL}, misdn_port_block, "Blocks the given port",
      "Usage: misdn port block\n" },
   { {"misdn","port","unblock", NULL}, misdn_port_unblock, "Unblocks the given port",
      "Usage: misdn port unblock\n" },
   { {"misdn","restart","port", NULL}, misdn_restart_port, "Restarts the given port",
      "Usage: misdn restart port\n" },
   { {"misdn","restart","pid", NULL}, misdn_restart_pid, "Restarts the given pid",
      "Usage: misdn restart pid\n" },
   { {"misdn","port","up", NULL}, misdn_port_up, "Tries to establish L1 on the given port",
      "Usage: misdn port up <port>\n" },
   { {"misdn","port","down", NULL}, misdn_port_down, "Tries to deacivate the L1 on the given port",
      "Usage: misdn port down <port>\n" },
   { {"misdn","show","stacks", NULL}, misdn_show_stacks, "Shows internal mISDN stack_list",
      "Usage: misdn show stacks\n" },
   { {"misdn","show","ports","stats", NULL}, misdn_show_ports_stats, "Shows chan_misdns call statistics per port",
      "Usage: misdn show port stats\n" },
   { {"misdn","show","port", NULL}, misdn_show_port, "Shows detailed information for given port",
      "Usage: misdn show port <port>\n" },
   { {"misdn","set","debug", NULL}, misdn_set_debug, "Sets Debuglevel of chan_misdn",
      "Usage: misdn set debug <level> [only] | [port <port> [only]]\n", complete_debug_port },
   { {"misdn","set","crypt","debug", NULL}, misdn_set_crypt_debug, "Sets CryptDebuglevel of chan_misdn, at the moment, level={1,2}",
      "Usage: misdn set crypt debug <level>\n" }
};

static int update_config (struct chan_list *ch, int orig) 
{
   if (!ch) {
      ast_log(LOG_WARNING, "Cannot configure without chanlist\n");
      return -1;
   }
   
   struct ast_channel *ast=ch->ast;
   struct misdn_bchannel *bc=ch->bc;
   if (! ast || ! bc ) {
      ast_log(LOG_WARNING, "Cannot configure without ast || bc\n");
      return -1;
   }
   
   int port=bc->port;
   
   chan_misdn_log(7,port,"update_config: Getting Config\n");

   int hdlc=0;
   misdn_cfg_get( port, MISDN_CFG_HDLC, &hdlc, sizeof(int));
   
   if (hdlc) {
      switch (bc->capability) {
      case INFO_CAPABILITY_DIGITAL_UNRESTRICTED:
      case INFO_CAPABILITY_DIGITAL_RESTRICTED:
         chan_misdn_log(1,bc->port," --> CONF HDLC\n");
         bc->hdlc=1;
         break;
      }
      
   }
   
   
   int pres, screen;
         
   misdn_cfg_get( port, MISDN_CFG_PRES, &pres, sizeof(int));
   misdn_cfg_get( port, MISDN_CFG_SCREEN, &screen, sizeof(int));
   chan_misdn_log(2,port," --> pres: %d screen: %d\n",pres, screen);
      
   if ( (pres + screen) < 0 ) {

      chan_misdn_log(2,port," --> pres: %x\n", ast->cid.cid_pres);
         
      switch (ast->cid.cid_pres & 0x60){
            
      case AST_PRES_RESTRICTED:
         bc->pres=1;
         chan_misdn_log(2, port, " --> PRES: Restricted (0x1)\n");
         break;
            
            
      case AST_PRES_UNAVAILABLE:
         bc->pres=2;
         chan_misdn_log(2, port, " --> PRES: Unavailable (0x2)\n");
         break;
            
      default:
         bc->pres=0;
         chan_misdn_log(2, port, " --> PRES: Allowed (0x0)\n");
      }
         
      switch (ast->cid.cid_pres & 0x3){
            
      case AST_PRES_USER_NUMBER_UNSCREENED:
         bc->screen=0;
         chan_misdn_log(2, port, " --> SCREEN: Unscreened (0x0)\n");
         break;

      case AST_PRES_USER_NUMBER_PASSED_SCREEN:
         bc->screen=1;
         chan_misdn_log(2, port, " --> SCREEN: Passed Screen (0x1)\n");
         break;
      case AST_PRES_USER_NUMBER_FAILED_SCREEN:
         bc->screen=2;
         chan_misdn_log(2, port, " --> SCREEN: Failed Screen (0x2)\n");
         break;
            
      case AST_PRES_NETWORK_NUMBER:
         bc->screen=3;
         chan_misdn_log(2, port, " --> SCREEN: Network Nr. (0x3)\n");
         break;
            
      default:
         bc->screen=0;
         chan_misdn_log(2, port, " --> SCREEN: Unscreened (0x0)\n");
      }

         
   } else {
      bc->screen=screen;
      bc->pres=pres;
   }

   return 0;
   
}




static void config_jitterbuffer(struct chan_list *ch)
{
   struct misdn_bchannel *bc=ch->bc;
   int len=ch->jb_len, threshold=ch->jb_upper_threshold;
   
   chan_misdn_log(5,bc->port, "config_jb: Called\n");
   
   if ( ! len ) {
      chan_misdn_log(1,bc->port, "config_jb: Deactivating Jitterbuffer\n");
      bc->nojitter=1;
   } else {
      
      if (len <=100 || len > 8000) {
         chan_misdn_log(0,bc->port,"config_jb: Jitterbuffer out of Bounds, setting to 1000\n");
         len=1000;
      }
      
      if ( threshold > len ) {
         chan_misdn_log(0,bc->port,"config_jb: Jitterbuffer Threshold > Jitterbuffer setting to Jitterbuffer -1\n");
      }
      
      if ( ch->jb) {
         cb_log(0,bc->port,"config_jb: We've got a Jitterbuffer Already on this port.\n");
         misdn_jb_destroy(ch->jb);
         ch->jb=NULL;
      }
      
      ch->jb=misdn_jb_init(len, threshold);

      if (!ch->jb ) 
         bc->nojitter=1;
   }
}


void debug_numplan(int port, int numplan, char *type)
{
   switch (numplan) {
   case NUMPLAN_INTERNATIONAL:
      chan_misdn_log(2, port, " --> %s: International\n",type);
      break;
   case NUMPLAN_NATIONAL:
      chan_misdn_log(2, port, " --> %s: National\n",type);
      break;
   case NUMPLAN_SUBSCRIBER:
      chan_misdn_log(2, port, " --> %s: Subscriber\n",type);
      break;
   case NUMPLAN_UNKNOWN:
      chan_misdn_log(2, port, " --> %s: Unknown\n",type);
      break;
      /* Maybe we should cut off the prefix if present ? */
   default:
      chan_misdn_log(0, port, " --> !!!! Wrong dialplan setting, please see the misdn.conf sample file\n ");
      break;
   }
}




static int update_ec_config(struct misdn_bchannel *bc)
{
   int ec;
   int port=bc->port;
      
   misdn_cfg_get( port, MISDN_CFG_ECHOCANCEL, &ec, sizeof(int));
   
   if (ec == 1 ) {
      bc->ec_enable=1;
   } else if ( ec > 1 ) {
      bc->ec_enable=1;
      bc->ec_deftaps=ec;
   }
#ifdef WITH_ECHOTRAINING 
   int ectr;
   misdn_cfg_get( port, MISDN_CFG_ECHOTRAINING, &ectr, sizeof(int));
   
   if ( ectr >= 0 ) {
      bc->ec_training=ectr;
   }
#endif

   return 0;
}


static int read_config(struct chan_list *ch, int orig) {

   if (!ch) {
      ast_log(LOG_WARNING, "Cannot configure without chanlist\n");
      return -1;
   }

   struct ast_channel *ast=ch->ast;
   struct misdn_bchannel *bc=ch->bc;
   if (! ast || ! bc ) {
      ast_log(LOG_WARNING, "Cannot configure without ast || bc\n");
      return -1;
   }
   
   int port=bc->port;
   
   chan_misdn_log(1,port,"read_config: Getting Config\n");

   char lang[BUFFERSIZE+1];
   

   misdn_cfg_get( port, MISDN_CFG_LANGUAGE, lang, BUFFERSIZE);
   ast_string_field_set(ast, language, lang);

   char localmusicclass[BUFFERSIZE+1];
   
   misdn_cfg_get( port, MISDN_CFG_MUSICCLASS, localmusicclass, BUFFERSIZE);
   ast_string_field_set(ast, musicclass, localmusicclass);
   
   
   misdn_cfg_get( port, MISDN_CFG_TXGAIN, &bc->txgain, sizeof(int));
   misdn_cfg_get( port, MISDN_CFG_RXGAIN, &bc->rxgain, sizeof(int));
   
   misdn_cfg_get( port, MISDN_CFG_INCOMING_EARLY_AUDIO, &ch->incoming_early_audio, sizeof(int));
   
   misdn_cfg_get( port, MISDN_CFG_SENDDTMF, &bc->send_dtmf, sizeof(int));

   misdn_cfg_get( port, MISDN_CFG_NEED_MORE_INFOS, &bc->need_more_infos, sizeof(int));
   misdn_cfg_get( port, MISDN_CFG_NTTIMEOUT, &ch->nttimeout, sizeof(int));
   
   misdn_cfg_get( port, MISDN_CFG_FAR_ALERTING, &ch->far_alerting, sizeof(int));

   misdn_cfg_get( port, MISDN_CFG_ALLOWED_BEARERS, &ch->allowed_bearers, BUFFERSIZE);
   
   char faxdetect[BUFFERSIZE+1];
   misdn_cfg_get( port, MISDN_CFG_FAXDETECT, faxdetect, BUFFERSIZE);
   
   int hdlc=0;
   misdn_cfg_get( port, MISDN_CFG_HDLC, &hdlc, sizeof(int));
   
   if (hdlc) {
      switch (bc->capability) {
      case INFO_CAPABILITY_DIGITAL_UNRESTRICTED:
      case INFO_CAPABILITY_DIGITAL_RESTRICTED:
         chan_misdn_log(1,bc->port," --> CONF HDLC\n");
         bc->hdlc=1;
         break;
      }
      
   }
   /*Initialize new Jitterbuffer*/
   {
      misdn_cfg_get( port, MISDN_CFG_JITTERBUFFER, &ch->jb_len, sizeof(int));
      misdn_cfg_get( port, MISDN_CFG_JITTERBUFFER_UPPER_THRESHOLD, &ch->jb_upper_threshold, sizeof(int));
      
      config_jitterbuffer(ch);
   }
   
   misdn_cfg_get( bc->port, MISDN_CFG_CONTEXT, ch->context, sizeof(ch->context));
   
   ast_copy_string (ast->context,ch->context,sizeof(ast->context));  

   update_ec_config(bc);

   {
      int eb3;
      
      misdn_cfg_get( bc->port, MISDN_CFG_EARLY_BCONNECT, &eb3, sizeof(int));
      bc->early_bconnect=eb3;
   }
   
   port=bc->port;
   
   {
      char buf[256];
      ast_group_t pg,cg;
      
      misdn_cfg_get(port, MISDN_CFG_PICKUPGROUP, &pg, sizeof(pg));
      misdn_cfg_get(port, MISDN_CFG_CALLGROUP, &cg, sizeof(cg));
      
      chan_misdn_log(5, port, " --> * CallGrp:%s PickupGrp:%s\n",ast_print_group(buf,sizeof(buf),cg),ast_print_group(buf,sizeof(buf),pg));
      ast->pickupgroup=pg;
      ast->callgroup=cg;
   }
   
   if ( orig  == ORG_AST) {
      misdn_cfg_get( port, MISDN_CFG_TE_CHOOSE_CHANNEL, &(bc->te_choose_channel), sizeof(int));
      
      if (strstr(faxdetect, "outgoing") || strstr(faxdetect, "both")) {
         if (strstr(faxdetect, "nojump"))
            ch->faxdetect=2;
         else
            ch->faxdetect=1;
      }

      {
         char callerid[BUFFERSIZE+1];
         misdn_cfg_get( port, MISDN_CFG_CALLERID, callerid, BUFFERSIZE);
         if ( ! ast_strlen_zero(callerid) ) {
            chan_misdn_log(1, port, " --> * Setting Cid to %s\n", callerid);
            {
               int l = sizeof(bc->oad);
               strncpy(bc->oad,callerid, l);
               bc->oad[l-1] = 0;
            }

         }

         
         misdn_cfg_get( port, MISDN_CFG_DIALPLAN, &bc->dnumplan, sizeof(int));
         misdn_cfg_get( port, MISDN_CFG_LOCALDIALPLAN, &bc->onumplan, sizeof(int));
         misdn_cfg_get( port, MISDN_CFG_CPNDIALPLAN, &bc->cpnnumplan, sizeof(int));
         debug_numplan(port, bc->dnumplan,"TON");
         debug_numplan(port, bc->onumplan,"LTON");
         debug_numplan(port, bc->cpnnumplan,"CTON");
      }

      ch->overlap_dial = 0;
   } else { /** ORIGINATOR MISDN **/
      if (strstr(faxdetect, "incoming") || strstr(faxdetect, "both")) {
         if (strstr(faxdetect, "nojump"))
            ch->faxdetect=2;
         else
            ch->faxdetect=1;
      }
   
      misdn_cfg_get( port, MISDN_CFG_CPNDIALPLAN, &bc->cpnnumplan, sizeof(int));
      debug_numplan(port, bc->cpnnumplan,"CTON");
      
      char prefix[BUFFERSIZE+1]="";
      switch( bc->onumplan ) {
      case NUMPLAN_INTERNATIONAL:
         misdn_cfg_get( bc->port, MISDN_CFG_INTERNATPREFIX, prefix, BUFFERSIZE);
         break;
         
      case NUMPLAN_NATIONAL:
         misdn_cfg_get( bc->port, MISDN_CFG_NATPREFIX, prefix, BUFFERSIZE);
         break;
      default:
         break;
      }
      
      {
         int l = strlen(prefix) + strlen(bc->oad);
         char tmp[l+1];
         strcpy(tmp,prefix);
         strcat(tmp,bc->oad);
         strcpy(bc->oad,tmp);
      }
      
      if (!ast_strlen_zero(bc->dad)) {
         ast_copy_string(bc->orig_dad,bc->dad, sizeof(bc->orig_dad));
      }
      
      if ( ast_strlen_zero(bc->dad) && !ast_strlen_zero(bc->keypad)) {
         ast_copy_string(bc->dad,bc->keypad, sizeof(bc->dad));
      }

      prefix[0] = 0;
      
      switch( bc->dnumplan ) {
      case NUMPLAN_INTERNATIONAL:
         misdn_cfg_get( bc->port, MISDN_CFG_INTERNATPREFIX, prefix, BUFFERSIZE);
         break;
      case NUMPLAN_NATIONAL:
         misdn_cfg_get( bc->port, MISDN_CFG_NATPREFIX, prefix, BUFFERSIZE);
         break;
      default:
         break;
      }
      
      {
         int l = strlen(prefix) + strlen(bc->dad);
         char tmp[l+1];
         strcpy(tmp,prefix);
         strcat(tmp,bc->dad);
         strcpy(bc->dad,tmp);
      }
      
      if ( strcmp(bc->dad,ast->exten)) {
         ast_copy_string(ast->exten, bc->dad, sizeof(ast->exten));
      }
      
      ast_set_callerid(ast, bc->oad, NULL, bc->oad);
      
      if ( !ast_strlen_zero(bc->rad) ) {
         if (ast->cid.cid_rdnis)
            free(ast->cid.cid_rdnis);
         ast->cid.cid_rdnis = strdup(bc->rad);
      }
   
      misdn_cfg_get(bc->port, MISDN_CFG_OVERLAP_DIAL, &ch->overlap_dial, sizeof(ch->overlap_dial));
      ast_mutex_init(&ch->overlap_tv_lock);
   } /* ORIG MISDN END */

   ch->overlap_dial_task = -1;
   
   if (ch->faxdetect) {
      misdn_cfg_get( port, MISDN_CFG_FAXDETECT_TIMEOUT, &ch->faxdetect_timeout, sizeof(ch->faxdetect_timeout));
      if (!ch->dsp)
         ch->dsp = ast_dsp_new();
      if (ch->dsp)
         ast_dsp_set_features(ch->dsp, DSP_FEATURE_DTMF_DETECT | DSP_FEATURE_FAX_DETECT);
      if (!ch->trans)
         ch->trans=ast_translator_build_path(AST_FORMAT_SLINEAR, AST_FORMAT_ALAW);
   }

   /* AOCD initialization */
   bc->AOCDtype = Fac_None;

   return 0;
}


/*****************************/
/*** AST Indications Start ***/
/*****************************/

static int misdn_call(struct ast_channel *ast, char *dest, int timeout)
{
   int port=0;
   int r;
   struct chan_list *ch=MISDN_ASTERISK_TECH_PVT(ast);
   struct misdn_bchannel *newbc;
   char *opts=NULL, *ext,*tokb;
   char dest_cp[256];

   {
      strncpy(dest_cp,dest,sizeof(dest_cp)-1);
      dest_cp[sizeof(dest_cp)]=0;
      
      ext=strtok_r(dest_cp,"/",&tokb);
      
      if (ext) {
         ext=strtok_r(NULL,"/",&tokb);
         if (ext) {
            opts=strtok_r(NULL,"/",&tokb);
         } else {
            chan_misdn_log(0,0,"misdn_call: No Extension given!\n");
            return -1;
         }
      }
   }

   if (!ast) {
      ast_log(LOG_WARNING, " --> ! misdn_call called on ast_channel *ast where ast == NULL\n");
      return -1;
   }

   if (((ast->_state != AST_STATE_DOWN) && (ast->_state != AST_STATE_RESERVED)) || !dest  ) {
      ast_log(LOG_WARNING, " --> ! misdn_call called on %s, neither down nor reserved (or dest==NULL)\n", ast->name);
      ast->hangupcause=41;
      ast_setstate(ast, AST_STATE_DOWN);
      return -1;
   }

   if (!ch) {
      ast_log(LOG_WARNING, " --> ! misdn_call called on %s, neither down nor reserved (or dest==NULL)\n", ast->name);
      ast->hangupcause=41;
      ast_setstate(ast, AST_STATE_DOWN);
      return -1;
   }
   
   newbc=ch->bc;
   
   if (!newbc) {
      ast_log(LOG_WARNING, " --> ! misdn_call called on %s, neither down nor reserved (or dest==NULL)\n", ast->name);
      ast->hangupcause=41;
      ast_setstate(ast, AST_STATE_DOWN);
      return -1;
   }
   
   port=newbc->port;
   strncpy(newbc->dad,ext,sizeof( newbc->dad));
   strncpy(ast->exten,ext,sizeof(ast->exten));

   int exceed;
   if ((exceed=add_out_calls(port))) {
      char tmp[16];
      sprintf(tmp,"%d",exceed);
      pbx_builtin_setvar_helper(ast,"MAX_OVERFLOW",tmp);
      return -1;
   }
   
   chan_misdn_log(1, port, "* CALL: %s\n",dest);
   
   chan_misdn_log(2, port, " --> * dad:%s tech:%s ctx:%s\n",ast->exten,ast->name, ast->context);
   
   chan_misdn_log(3, port, " --> * adding2newbc ext %s\n",ast->exten);
   if (ast->exten) {
      int l = sizeof(newbc->dad);
      strncpy(newbc->dad,ast->exten, l);
      newbc->dad[l-1] = 0;
   }
   newbc->rad[0]=0;
   chan_misdn_log(3, port, " --> * adding2newbc callerid %s\n",AST_CID_P(ast));
   if (ast_strlen_zero(newbc->oad) && AST_CID_P(ast) ) {

      if (AST_CID_P(ast)) {
         int l = sizeof(newbc->oad);
         strncpy(newbc->oad,AST_CID_P(ast), l);
         newbc->oad[l-1] = 0;
      }
   }
   
   {
      struct chan_list *ch=MISDN_ASTERISK_TECH_PVT(ast);
      if (!ch) { ast_verbose("No chan_list in misdn_call\n"); return -1;}
      
      newbc->capability=ast->transfercapability;
      pbx_builtin_setvar_helper(ast,"TRANSFERCAPABILITY",ast_transfercapability2str(newbc->capability));
      if ( ast->transfercapability == INFO_CAPABILITY_DIGITAL_UNRESTRICTED) {
         chan_misdn_log(2, port, " --> * Call with flag Digital\n");
      }
      

      /* update screening and presentation */ 
      update_config(ch,ORG_AST);
      
      /* fill in some ies from channel vary*/
      import_ch(ast, newbc, ch);
      
      /* Finally The Options Override Everything */
      if (opts)
         misdn_set_opt_exec(ast,opts);
      else
         chan_misdn_log(2,port,"NO OPTS GIVEN\n");

      /*check for bridging*/
      int bridging;
      misdn_cfg_get( 0, MISDN_GEN_BRIDGING, &bridging, sizeof(int));
      if (bridging && ch->other_ch) {
         chan_misdn_log(0, port, "Disabling EC on both Sides\n"); 
         ch->bc->ec_enable=0;
         ch->other_ch->bc->ec_enable=0;
      }
      
      r=misdn_lib_send_event( newbc, EVENT_SETUP );
      
      /** we should have l3id after sending setup **/
      ch->l3id=newbc->l3_id;
   }
   
   if ( r == -ENOCHAN  ) {
      chan_misdn_log(0, port, " --> * Theres no Channel at the moment .. !\n");
      chan_misdn_log(1, port, " --> * SEND: State Down pid:%d\n",newbc?newbc->pid:-1);
      ast->hangupcause=34;
      ast_setstate(ast, AST_STATE_DOWN);
      return -1;
   }
   
   chan_misdn_log(2, port, " --> * SEND: State Dialing pid:%d\n",newbc?newbc->pid:1);

   ast_setstate(ast, AST_STATE_DIALING);
   ast->hangupcause=16;
   
   if (newbc->nt) stop_bc_tones(ch);

   ch->state=MISDN_CALLING;
   
   return 0; 
}


static int misdn_answer(struct ast_channel *ast)
{
   struct chan_list *p;

   
   if (!ast || ! (p=MISDN_ASTERISK_TECH_PVT(ast)) ) return -1;
   
   chan_misdn_log(1, p? (p->bc? p->bc->port : 0) : 0, "* ANSWER:\n");
   
   if (!p) {
      ast_log(LOG_WARNING, " --> Channel not connected ??\n");
      ast_queue_hangup(ast);
   }

   if (!p->bc) {
      chan_misdn_log(1, 0, " --> Got Answer, but theres no bc obj ??\n");

      ast_queue_hangup(ast);
   }

   {
      const char *tmp_key = pbx_builtin_getvar_helper(p->ast, "CRYPT_KEY");
      
      if (tmp_key ) {
         chan_misdn_log(1, p->bc->port, " --> Connection will be BF crypted\n");
         {
            int l = sizeof(p->bc->crypt_key);
            strncpy(p->bc->crypt_key,tmp_key, l);
            p->bc->crypt_key[l-1] = 0;
         }
      } else {
         chan_misdn_log(3, p->bc->port, " --> Connection is without BF encryption\n");
      }
    
   }

   {
      const char *nodsp=pbx_builtin_getvar_helper(ast, "MISDN_DIGITAL_TRANS");
      if (nodsp) {
         chan_misdn_log(1, p->bc->port, " --> Connection is transparent digital\n");
         p->bc->nodsp=1;
         p->bc->hdlc=0;
         p->bc->nojitter=1;
      }
   }
   
   p->state = MISDN_CONNECTED;
   stop_indicate(p);

   if ( ast_strlen_zero(p->bc->cad) ) {
      chan_misdn_log(2,p->bc->port," --> empty cad using dad\n");
      ast_copy_string(p->bc->cad,p->bc->dad,sizeof(p->bc->cad));
   }

   misdn_lib_send_event( p->bc, EVENT_CONNECT);
   start_bc_tones(p);
   
   return 0;
}

static int misdn_digit_begin(struct ast_channel *chan, char digit)
{
   /* XXX Modify this callback to support Asterisk controlling the length of DTMF */
   return 0;
}

static int misdn_digit_end(struct ast_channel *ast, char digit, unsigned int duration)
{
   struct chan_list *p;
   
   if (!ast || ! (p=MISDN_ASTERISK_TECH_PVT(ast))) return -1;

   struct misdn_bchannel *bc=p->bc;
   chan_misdn_log(1, bc?bc->port:0, "* IND : Digit %c\n",digit);
   
   if (!bc) {
      ast_log(LOG_WARNING, " --> !! Got Digit Event withut having bchannel Object\n");
      return -1;
   }
   
   switch (p->state ) {
      case MISDN_CALLING:
      {
         
         char buf[8];
         buf[0]=digit;
         buf[1]=0;
         
         int l = sizeof(bc->infos_pending);
         strncat(bc->infos_pending,buf,l);
         bc->infos_pending[l-1] = 0;
      }
      break;
      case MISDN_CALLING_ACKNOWLEDGE:
      {
         bc->info_dad[0]=digit;
         bc->info_dad[1]=0;
         
         {
            int l = sizeof(bc->dad);
            strncat(bc->dad,bc->info_dad, l - strlen(bc->dad));
            bc->dad[l-1] = 0;
      }
         {
            int l = sizeof(p->ast->exten);
            strncpy(p->ast->exten, bc->dad, l);
            p->ast->exten[l-1] = 0;
         }
         
         misdn_lib_send_event( bc, EVENT_INFORMATION);
      }
      break;
      
      default:
         if ( bc->send_dtmf ) {
            send_digit_to_chan(p,digit);
         }
      break;
   }
   
   return 0;
}


static int misdn_fixup(struct ast_channel *oldast, struct ast_channel *ast)
{
   struct chan_list *p;
   
   if (!ast || ! (p=MISDN_ASTERISK_TECH_PVT(ast) )) return -1;
   
   chan_misdn_log(1, p->bc?p->bc->port:0, "* IND: Got Fixup State:%s L3id:%x\n", misdn_get_ch_state(p), p->l3id);
   
   p->ast = ast ;
  
   return 0;
}



static int misdn_indication(struct ast_channel *ast, int cond, const void *data, size_t datalen)
{
   struct chan_list *p;

  
   if (!ast || ! (p=MISDN_ASTERISK_TECH_PVT(ast))) {
      ast_log(LOG_WARNING, "Returnded -1 in misdn_indication\n");
      return -1;
   }
   
   if (!p->bc ) {
      chan_misdn_log(1, 0, "* IND : Indication from %s\n",ast->exten);
      ast_log(LOG_WARNING, "Private Pointer but no bc ?\n");
      return -1;
   }
   
   chan_misdn_log(5, p->bc->port, "* IND : Indication [%d] from %s\n",cond, ast->exten);
   
   switch (cond) {
   case AST_CONTROL_BUSY:
      chan_misdn_log(1, p->bc->port, "* IND :\tbusy pid:%d\n",p->bc?p->bc->pid:-1);
      ast_setstate(ast,AST_STATE_BUSY);

      p->bc->out_cause=17;
      if (p->state != MISDN_CONNECTED) {
         start_bc_tones(p);
         misdn_lib_send_event( p->bc, EVENT_DISCONNECT);
      } else {
         chan_misdn_log(-1, p->bc->port, " --> !! Got Busy in Connected State !?! ast:%s\n", ast->name);
      }
      return -1;
      break;
   case AST_CONTROL_RING:
      chan_misdn_log(1, p->bc->port, "* IND :\tring pid:%d\n",p->bc?p->bc->pid:-1);
      return -1;
      break;
      
   case AST_CONTROL_RINGING:
      chan_misdn_log(1, p->bc->port, "* IND :\tringing pid:%d\n",p->bc?p->bc->pid:-1);
      switch (p->state) {
         case MISDN_ALERTING:
            chan_misdn_log(2, p->bc->port, " --> * IND :\tringing pid:%d but I was Ringing before, so ignoreing it\n",p->bc?p->bc->pid:-1);
            break;
         case MISDN_CONNECTED:
            chan_misdn_log(2, p->bc->port, " --> * IND :\tringing pid:%d but Connected, so just send TONE_ALERTING without state changes \n",p->bc?p->bc->pid:-1);
            return -1;
            break;
         default:
            p->state=MISDN_ALERTING;
            chan_misdn_log(2, p->bc->port, " --> * IND :\tringing pid:%d\n",p->bc?p->bc->pid:-1);
            misdn_lib_send_event( p->bc, EVENT_ALERTING);
         
            if (p->other_ch && p->other_ch->bc) {
               if (misdn_inband_avail(p->other_ch->bc)) {
                  chan_misdn_log(2,p->bc->port, " --> other End is mISDN and has inband info available\n");
                  break;
               }

               if (!p->other_ch->bc->nt) {
                  chan_misdn_log(2,p->bc->port, " --> other End is mISDN TE so it has inband info for sure (?)\n");
                  break;
               }
            }

            chan_misdn_log(3, p->bc->port, " --> * SEND: State Ring pid:%d\n",p->bc?p->bc->pid:-1);
            ast_setstate(ast,AST_STATE_RINGING);
         
            if ( !p->bc->nt && (p->orginator==ORG_MISDN) && !p->incoming_early_audio ) 
               chan_misdn_log(2,p->bc->port, " --> incoming_early_audio off\n");
            else 
               return -1;
      }
      break;
   case AST_CONTROL_ANSWER:
      chan_misdn_log(1, p->bc->port, " --> * IND :\tanswer pid:%d\n",p->bc?p->bc->pid:-1);
      start_bc_tones(p);
      break;
   case AST_CONTROL_TAKEOFFHOOK:
      chan_misdn_log(1, p->bc->port, " --> *\ttakeoffhook pid:%d\n",p->bc?p->bc->pid:-1);
      return -1;
      break;
   case AST_CONTROL_OFFHOOK:
      chan_misdn_log(1, p->bc->port, " --> *\toffhook pid:%d\n",p->bc?p->bc->pid:-1);
      return -1;
      break; 
   case AST_CONTROL_FLASH:
      chan_misdn_log(1, p->bc->port, " --> *\tflash pid:%d\n",p->bc?p->bc->pid:-1);
      break;
   case AST_CONTROL_PROGRESS:
      chan_misdn_log(1, p->bc->port, " --> * IND :\tprogress pid:%d\n",p->bc?p->bc->pid:-1);
      misdn_lib_send_event( p->bc, EVENT_PROGRESS);
      break;
   case AST_CONTROL_PROCEEDING:
      chan_misdn_log(1, p->bc->port, " --> * IND :\tproceeding pid:%d\n",p->bc?p->bc->pid:-1);
      misdn_lib_send_event( p->bc, EVENT_PROCEEDING);
      break;
   case AST_CONTROL_CONGESTION:
      chan_misdn_log(1, p->bc->port, " --> * IND :\tcongestion pid:%d\n",p->bc?p->bc->pid:-1);

      p->bc->out_cause=42;
      if (p->state != MISDN_CONNECTED) {
         start_bc_tones(p);
         misdn_lib_send_event( p->bc, EVENT_RELEASE);
      } else {
         misdn_lib_send_event( p->bc, EVENT_DISCONNECT);
      }

      if (p->bc->nt) {
         hanguptone_indicate(p);
      }
      break;
   case -1 :
      chan_misdn_log(1, p->bc->port, " --> * IND :\t-1! (stop indication) pid:%d\n",p->bc?p->bc->pid:-1);
      
      stop_indicate(p);

      if (p->state == MISDN_CONNECTED) 
         start_bc_tones(p);

      break;

   case AST_CONTROL_HOLD:
      chan_misdn_log(1, p->bc->port, " --> *\tHOLD pid:%d\n",p->bc?p->bc->pid:-1);
      break;
   case AST_CONTROL_UNHOLD:
      chan_misdn_log(1, p->bc->port, " --> *\tUNHOLD pid:%d\n",p->bc?p->bc->pid:-1);
      break;
   default:
      chan_misdn_log(1, p->bc->port, " --> * Unknown Indication:%d pid:%d\n",cond,p->bc?p->bc->pid:-1);
   }
  
   return 0;
}

static int misdn_hangup(struct ast_channel *ast)
{
   struct chan_list *p;
   struct misdn_bchannel *bc=NULL;

   if (option_debug)
      ast_log(LOG_DEBUG, "misdn_hangup(%s)\n", ast->name);
   
   if (!ast || ! (p=MISDN_ASTERISK_TECH_PVT(ast) ) ) return -1;
   
   if (!p) {
      chan_misdn_log(3, 0, "misdn_hangup called, without chan_list obj.\n");
      return 0 ;
   }
   
   bc=p->bc;


   
   MISDN_ASTERISK_TECH_PVT(ast)=NULL;
   p->ast=NULL;

   bc=p->bc;
   
   if (ast->_state == AST_STATE_RESERVED || 
      p->state == MISDN_NOTHING || 
      p->state == MISDN_HOLDED || 
      p->state == MISDN_HOLD_DISCONNECT ) {

      CLEAN_CH:
      /* between request and call */
      if (option_debug)
         ast_log(LOG_DEBUG, "State Reserved (or nothing) => chanIsAvail\n");
      MISDN_ASTERISK_TECH_PVT(ast)=NULL;
      
      cl_dequeue_chan(&cl_te, p);
      close(p->pipe[0]);
      close(p->pipe[1]);
      free(p);
      
      if (bc)
         misdn_lib_release(bc);
      
      return 0;
   }

   if (!bc) {
      ast_log(LOG_WARNING,"Hangup with private but no bc ? state:%s l3id:%x\n", misdn_get_ch_state(p), p->l3id);
      goto CLEAN_CH;
   }


   p->need_hangup=0;
   p->need_queue_hangup=0;
   p->need_busy=0;


   if (!p->bc->nt) 
      stop_bc_tones(p);

   
   {
      const char *varcause=NULL;
      bc->out_cause=ast->hangupcause?ast->hangupcause:16;
      
      if ( (varcause=pbx_builtin_getvar_helper(ast, "HANGUPCAUSE")) ||
           (varcause=pbx_builtin_getvar_helper(ast, "PRI_CAUSE"))) {
         int tmpcause=atoi(varcause);
         bc->out_cause=tmpcause?tmpcause:16;
      }
    
      chan_misdn_log(1, bc->port, "* IND : HANGUP\tpid:%d ctx:%s dad:%s oad:%s State:%s\n",p->bc?p->bc->pid:-1, ast->context, ast->exten, AST_CID_P(ast), misdn_get_ch_state(p));
      chan_misdn_log(3, bc->port, " --> l3id:%x\n",p->l3id);
      chan_misdn_log(3, bc->port, " --> cause:%d\n",bc->cause);
      chan_misdn_log(2, bc->port, " --> out_cause:%d\n",bc->out_cause);
      chan_misdn_log(2, bc->port, " --> state:%s\n", misdn_get_ch_state(p));
      
      switch (p->state) {
      case MISDN_CALLING:
         p->state=MISDN_CLEANING;
         misdn_lib_send_event( bc, EVENT_RELEASE_COMPLETE);
         break;
      case MISDN_HOLDED:
      case MISDN_DIALING:
         start_bc_tones(p);
         hanguptone_indicate(p);
      
         if (bc->need_disconnect)
            misdn_lib_send_event( bc, EVENT_DISCONNECT);
         break;

      case MISDN_CALLING_ACKNOWLEDGE:
         start_bc_tones(p);
         hanguptone_indicate(p);
      
         if (bc->need_disconnect)
            misdn_lib_send_event( bc, EVENT_DISCONNECT);
         break;
      
      case MISDN_ALERTING:
      case MISDN_PROGRESS:
      case MISDN_PROCEEDING:
         if (p->orginator != ORG_AST) 
            hanguptone_indicate(p);
      
         /*p->state=MISDN_CLEANING;*/
         if (bc->need_disconnect)
            misdn_lib_send_event( bc, EVENT_DISCONNECT);
         break;
      case MISDN_CONNECTED:
      case MISDN_PRECONNECTED:
         /*  Alerting or Disconect */
         if (p->bc->nt) {
            start_bc_tones(p);
            hanguptone_indicate(p);
            p->bc->progress_indicator=8;
         }
         if (bc->need_disconnect)
            misdn_lib_send_event( bc, EVENT_DISCONNECT);

         /*p->state=MISDN_CLEANING;*/
         break;
      case MISDN_DISCONNECTED:
         misdn_lib_send_event( bc, EVENT_RELEASE);
         p->state=MISDN_CLEANING; /* MISDN_HUNGUP_FROM_AST; */
         break;

      case MISDN_RELEASED:
      case MISDN_CLEANING:
         p->state=MISDN_CLEANING;
         break;

      case MISDN_BUSY:
         break;
      
      case MISDN_HOLD_DISCONNECT:
         /* need to send release here */
         chan_misdn_log(1, bc->port, " --> cause %d\n",bc->cause);
         chan_misdn_log(1, bc->port, " --> out_cause %d\n",bc->out_cause);
         
         bc->out_cause=-1;
         misdn_lib_send_event(bc,EVENT_RELEASE);
         p->state=MISDN_CLEANING;
         break;
      default:
         if (bc->nt) {
            bc->out_cause=-1;
            misdn_lib_send_event(bc, EVENT_RELEASE);
            p->state=MISDN_CLEANING; 
         } else {
            if (bc->need_disconnect)
               misdn_lib_send_event(bc, EVENT_DISCONNECT);
         }
      }

      p->state=MISDN_CLEANING;
    
   }
   

   chan_misdn_log(3, bc->port, " --> Channel: %s hanguped new state:%s\n",ast->name,misdn_get_ch_state(p));
   
   return 0;
}


static struct ast_frame *process_ast_dsp(struct chan_list *tmp, struct ast_frame *frame)
{
   struct ast_frame *f,*f2;
 
   if (tmp->trans) {
      f2 = ast_translate(tmp->trans, frame, 0);
      f = ast_dsp_process(tmp->ast, tmp->dsp, f2);
   } else {
      chan_misdn_log(0, tmp->bc->port, "No T-Path found\n");
      return NULL;
   }

 
   if (!f || (f->frametype != AST_FRAME_DTMF))
      return frame;
 
   if (option_debug)
      ast_log(LOG_DEBUG, "Detected inband DTMF digit: %c\n", f->subclass);
 
   if (tmp->faxdetect && (f->subclass == 'f')) {
      /* Fax tone -- Handle and return NULL */
      if (!tmp->faxhandled) {
         struct ast_channel *ast = tmp->ast;
         tmp->faxhandled++;
         chan_misdn_log(0, tmp->bc->port, "Fax detected, preparing %s for fax transfer.\n", ast->name);
         tmp->bc->rxgain = 0;
         isdn_lib_update_rxgain(tmp->bc);
         tmp->bc->txgain = 0;
         isdn_lib_update_txgain(tmp->bc);
         tmp->bc->ec_enable = 0;
         isdn_lib_update_ec(tmp->bc);
         isdn_lib_stop_dtmf(tmp->bc);
         switch (tmp->faxdetect) {
         case 1:
            if (strcmp(ast->exten, "fax")) {
               char *context;
               char context_tmp[BUFFERSIZE];
               misdn_cfg_get(tmp->bc->port, MISDN_CFG_FAXDETECT_CONTEXT, &context_tmp, sizeof(context_tmp));
               context = ast_strlen_zero(context_tmp) ? (ast_strlen_zero(ast->macrocontext) ? ast->context : ast->macrocontext) : context_tmp;
               if (ast_exists_extension(ast, context, "fax", 1, AST_CID_P(ast))) {
                  if (option_verbose > 2)
                     ast_verbose(VERBOSE_PREFIX_3 "Redirecting %s to fax extension (context:%s)\n", ast->name, context);
                  /* Save the DID/DNIS when we transfer the fax call to a "fax" extension */
                  pbx_builtin_setvar_helper(ast,"FAXEXTEN",ast->exten);
                  if (ast_async_goto(ast, context, "fax", 1))
                     ast_log(LOG_WARNING, "Failed to async goto '%s' into fax of '%s'\n", ast->name, context);
               } else
                  ast_log(LOG_NOTICE, "Fax detected, but no fax extension ctx:%s exten:%s\n", context, ast->exten);
            } else {
               if (option_debug)
                  ast_log(LOG_DEBUG, "Already in a fax extension, not redirecting\n");
            }
            break;
         case 2:
            ast_verbose(VERBOSE_PREFIX_3 "Not redirecting %s to fax extension, nojump is set.\n", ast->name);
            break;
         }
      } else {
         if (option_debug)
            ast_log(LOG_DEBUG, "Fax already handled\n");
      }
   }
   
   if (tmp->ast_dsp && (f->subclass != 'f')) {
      chan_misdn_log(2, tmp->bc->port, " --> * SEND: DTMF (AST_DSP) :%c\n", f->subclass);
   }

   return frame;
}


static struct ast_frame  *misdn_read(struct ast_channel *ast)
{
   struct chan_list *tmp;
   int len;
   
   if (!ast) {
      chan_misdn_log(1,0,"misdn_read called without ast\n");
      return NULL;
   }
   if (!(tmp=MISDN_ASTERISK_TECH_PVT(ast))) {
      chan_misdn_log(1,0,"misdn_read called without ast->pvt\n");
      return NULL;
   }
   if (!tmp->bc) {
      chan_misdn_log(1,0,"misdn_read called without bc\n");
      return NULL;
   }

   len=read(tmp->pipe[0],tmp->ast_rd_buf,sizeof(tmp->ast_rd_buf));

   if (len<=0) {
      /* we hangup here, since our pipe is closed */
      chan_misdn_log(2,tmp->bc->port,"misdn_read: Pipe closed, hanging up\n");
      return NULL;
   }

   tmp->frame.frametype  = AST_FRAME_VOICE;
   tmp->frame.subclass = AST_FORMAT_ALAW;
   tmp->frame.datalen = len;
   tmp->frame.samples = len;
   tmp->frame.mallocd = 0;
   tmp->frame.offset = 0;
   tmp->frame.delivery= ast_tv(0,0) ;
   tmp->frame.src = NULL;
   tmp->frame.data = tmp->ast_rd_buf;

   if (tmp->faxdetect && !tmp->faxhandled) {
      if (tmp->faxdetect_timeout) {
         if (ast_tvzero(tmp->faxdetect_tv)) {
            tmp->faxdetect_tv = ast_tvnow();
            chan_misdn_log(2,tmp->bc->port,"faxdetect: starting detection with timeout: %ds ...\n", tmp->faxdetect_timeout);
            return process_ast_dsp(tmp, &tmp->frame);
         } else {
            struct timeval tv_now = ast_tvnow();
            int diff = ast_tvdiff_ms(tv_now, tmp->faxdetect_tv);
            if (diff <= (tmp->faxdetect_timeout * 1000)) {
               chan_misdn_log(5,tmp->bc->port,"faxdetect: detecting ...\n");
               return process_ast_dsp(tmp, &tmp->frame);
            } else {
               chan_misdn_log(2,tmp->bc->port,"faxdetect: stopping detection (time ran out) ...\n");
               tmp->faxdetect = 0;
               return &tmp->frame;
            }
         }
      } else {
         chan_misdn_log(5,tmp->bc->port,"faxdetect: detecting ... (no timeout)\n");
         return process_ast_dsp(tmp, &tmp->frame);
      }
   } else {
      if (tmp->ast_dsp)
         return process_ast_dsp(tmp, &tmp->frame);
      else
         return &tmp->frame;
   }
}


static int misdn_write(struct ast_channel *ast, struct ast_frame *frame)
{
   struct chan_list *ch;
   int i  = 0;
   
   if (!ast || ! (ch=MISDN_ASTERISK_TECH_PVT(ast)) ) return -1;

   if (ch->state == MISDN_HOLDED) {
      chan_misdn_log(7, 0, "misdn_write: Returning because holded\n");
      return 0;
   }
   
   if (!ch->bc ) {
      ast_log(LOG_WARNING, "private but no bc\n");
      return -1;
   }
   
   if (ch->notxtone) {
      chan_misdn_log(7, ch->bc->port, "misdn_write: Returning because notxone\n");
      return 0;
   }


   if ( !frame->subclass) {
      chan_misdn_log(4, ch->bc->port, "misdn_write: * prods us\n");
      return 0;
   }
   
   if ( !(frame->subclass & prefformat)) {
      
      chan_misdn_log(-1, ch->bc->port, "Got Unsupported Frame with Format:%d\n", frame->subclass);
      return 0;
   }
   

   if ( !frame->samples ) {
      chan_misdn_log(4, ch->bc->port, "misdn_write: zero write\n");
      return 0;
   }

   if ( ! ch->bc->addr ) {
      chan_misdn_log(8, ch->bc->port, "misdn_write: no addr for bc dropping:%d\n", frame->samples);
      return 0;
   }
   
#if MISDN_DEBUG
   {
      int i, max=5>frame->samples?frame->samples:5;
      
      printf("write2mISDN %p %d bytes: ", p, frame->samples);
      
      for (i=0; i<  max ; i++) printf("%2.2x ",((char*) frame->data)[i]);
      printf ("\n");
   }
#endif


   switch (ch->bc->bc_state) {
      case BCHAN_ACTIVATED:
      case BCHAN_BRIDGED:
         break;
      default:
      if (!ch->dropped_frame_cnt)
         chan_misdn_log(5, ch->bc->port, "BC not active (nor bridged) droping: %d frames addr:%x exten:%s cid:%s ch->state:%s bc_state:%d l3id:%x\n",frame->samples,ch->bc->addr, ast->exten, ast->cid.cid_num,misdn_get_ch_state( ch), ch->bc->bc_state, ch->bc->l3_id);
      
      ch->dropped_frame_cnt++;
      if (ch->dropped_frame_cnt > 100) {
         ch->dropped_frame_cnt=0;
         chan_misdn_log(5, ch->bc->port, "BC not active (nor bridged) droping: %d frames addr:%x  dropped > 100 frames!\n",frame->samples,ch->bc->addr);

      }

      return 0;
   }

   chan_misdn_log(9, ch->bc->port, "Sending :%d bytes 2 MISDN\n",frame->samples);
   if ( !ch->bc->nojitter && misdn_cap_is_speech(ch->bc->capability) ) {
      /* Buffered Transmit (triggert by read from isdn side)*/
      if (misdn_jb_fill(ch->jb,frame->data,frame->samples) < 0) {
         if (ch->bc->active)
            cb_log(0,ch->bc->port,"Misdn Jitterbuffer Overflow.\n");
      }
      
   } else {
      /*transmit without jitterbuffer*/
      i=misdn_lib_tx2misdn_frm(ch->bc, frame->data, frame->samples);
   }

   
   
   return 0;
}




static enum ast_bridge_result  misdn_bridge (struct ast_channel *c0,
                  struct ast_channel *c1, int flags,
                  struct ast_frame **fo,
                  struct ast_channel **rc,
                  int timeoutms)

{
   struct chan_list *ch1,*ch2;
   struct ast_channel *carr[2], *who;
   int to=-1;
   struct ast_frame *f;
  
   ch1=get_chan_by_ast(c0);
   ch2=get_chan_by_ast(c1);

   carr[0]=c0;
   carr[1]=c1;
  
   if (ch1 && ch2 ) ;
   else
      return -1;

   int bridging;
   misdn_cfg_get( 0, MISDN_GEN_BRIDGING, &bridging, sizeof(int));
   if (bridging) {
      /* trying to make a mISDN_dsp conference */
      chan_misdn_log(1, ch1->bc->port, "I SEND: Making conference with Number:%d\n", ch1->bc->pid +1);
      misdn_lib_bridge(ch1->bc,ch2->bc);
   }
   
   if (option_verbose > 2) 
      ast_verbose(VERBOSE_PREFIX_3 "Native bridging %s and %s\n", c0->name, c1->name);

   chan_misdn_log(1, ch1->bc->port, "* Making Native Bridge between %s and %s\n", ch1->bc->oad, ch2->bc->oad);
 
   if (! (flags&AST_BRIDGE_DTMF_CHANNEL_0) )
      ch1->ignore_dtmf=1;

   if (! (flags&AST_BRIDGE_DTMF_CHANNEL_1) )
      ch2->ignore_dtmf=1;

   while(1) {
      to=-1;
      who = ast_waitfor_n(carr, 2, &to);

      if (!who) {
         ast_log(LOG_NOTICE,"misdn_bridge: empty read, breaking out\n");
         break;
      }
      f = ast_read(who);
    
      if (!f || f->frametype == AST_FRAME_CONTROL) {
         /* got hangup .. */

         if (!f) 
            chan_misdn_log(4,ch1->bc->port,"Read Null Frame\n");
         else
            chan_misdn_log(4,ch1->bc->port,"Read Frame Controll class:%d\n",f->subclass);
         
         *fo=f;
         *rc=who;
      
         break;
      }
      
      if ( f->frametype == AST_FRAME_DTMF ) {
         chan_misdn_log(1,0,"Read DTMF %d from %s\n",f->subclass, who->exten);

         *fo=f;
         *rc=who;
         break;
      }
   
#if 0
      if (f->frametype == AST_FRAME_VOICE) {
         chan_misdn_log(1, ch1->bc->port, "I SEND: Splitting conference with Number:%d\n", ch1->bc->pid +1);
   
         continue;
      }
#endif

      if (who == c0) {
         ast_write(c1,f);
      }
      else {
         ast_write(c0,f);
      }
    
   }
   
   chan_misdn_log(1, ch1->bc->port, "I SEND: Splitting conference with Number:%d\n", ch1->bc->pid +1);
   
   misdn_lib_split_bridge(ch1->bc,ch2->bc);
   
   
   return AST_BRIDGE_COMPLETE;
}

/** AST INDICATIONS END **/

static int dialtone_indicate(struct chan_list *cl)
{
   const struct ind_tone_zone_sound *ts= NULL;
   struct ast_channel *ast=cl->ast;

   if (!ast) {
      chan_misdn_log(0,cl->bc->port,"No Ast in dialtone_indicate\n");
      return -1;
   }

   int nd=0;
   misdn_cfg_get( cl->bc->port, MISDN_CFG_NODIALTONE, &nd, sizeof(nd));

   if (nd) {
      chan_misdn_log(1,cl->bc->port,"Not sending Dialtone, because config wants it\n");
      return 0;
   }
   
   chan_misdn_log(3,cl->bc->port," --> Dial\n");
   ts=ast_get_indication_tone(ast->zone,"dial");
   cl->ts=ts;  
   
   if (ts) {
      cl->notxtone=0;
      cl->norxtone=0;
      ast_playtones_start(ast,0, ts->data, 0);
      chan_misdn_log(4,cl->bc->port,"Starting Playtones\n");
      misdn_lib_tone_generator_start(cl->bc);
   }

   return 0;
}

static int hanguptone_indicate(struct chan_list *cl)
{
   misdn_lib_send_tone(cl->bc,TONE_HANGUP);
   return 0;
}

static int stop_indicate(struct chan_list *cl)
{
   struct ast_channel *ast=cl->ast;

   if (!ast) {
      chan_misdn_log(0,cl->bc->port,"No Ast in stop_indicate\n");
      return -1;
   }

   chan_misdn_log(3,cl->bc->port," --> None\n");
   misdn_lib_tone_generator_stop(cl->bc);
   ast_playtones_stop(ast);
   /*ast_deactivate_generator(ast);*/
   
   return 0;
}


static int start_bc_tones(struct chan_list* cl)
{
   misdn_lib_tone_generator_stop(cl->bc);
   cl->notxtone=0;
   cl->norxtone=0;
   return 0;
}

static int stop_bc_tones(struct chan_list *cl)
{
   if (!cl) return -1;

   cl->notxtone=1;
   cl->norxtone=1;
   
   return 0;
}


static struct chan_list *init_chan_list(int orig)
{
   struct chan_list *cl=malloc(sizeof(struct chan_list));
   
   if (!cl) {
      chan_misdn_log(-1, 0, "misdn_request: malloc failed!");
      return NULL;
   }
   
   memset(cl,0,sizeof(struct chan_list));

   cl->orginator=orig;
   cl->need_queue_hangup=1;
   cl->need_hangup=1;
   cl->need_busy=1;
   cl->overlap_dial_task=-1;
   
   return cl;
   
}

static struct ast_channel *misdn_request(const char *type, int format, void *data, int *cause)

{
   struct ast_channel *tmp = NULL;
   char group[BUFFERSIZE+1]="";
   char buf[128];
   char buf2[128], *ext=NULL, *port_str;
   char *tokb=NULL, *p=NULL;
   int channel=0, port=0;
   struct misdn_bchannel *newbc = NULL;
   
   struct chan_list *cl=init_chan_list(ORG_AST);
   
   sprintf(buf,"%s/%s",misdn_type,(char*)data);
   ast_copy_string(buf2,data, 128);
   
   port_str=strtok_r(buf2,"/", &tokb);

   ext=strtok_r(NULL,"/", &tokb);

   if (port_str) {
      if (port_str[0]=='g' && port_str[1]==':' ) {
         /* We make a group call lets checkout which ports are in my group */
         port_str += 2;
         strncpy(group, port_str, BUFFERSIZE);
         group[127] = 0;
         chan_misdn_log(2, 0, " --> Group Call group: %s\n",group);
      } 
      else if ((p = strchr(port_str, ':'))) {
         /* we have a preselected channel */
         *p = 0;
         channel = atoi(++p);
         port = atoi(port_str);
         chan_misdn_log(2, port, " --> Call on preselected Channel (%d).\n", channel);
      }
      else {
         port = atoi(port_str);
      }
      
      
   } else {
      ast_log(LOG_WARNING, " --> ! IND : CALL dad:%s WITHOUT PORT/Group, check extension.conf\n",ext);
      return NULL;
   }

   if (!ast_strlen_zero(group)) {
   
      char cfg_group[BUFFERSIZE+1];
      struct robin_list *rr = NULL;

      if (misdn_cfg_is_group_method(group, METHOD_ROUND_ROBIN)) {
         chan_misdn_log(4, port, " --> STARTING ROUND ROBIN...");
         rr = get_robin_position(group);
      }
      
      if (rr) {
         int robin_channel = rr->channel;
         int port_start;
         int next_chan = 1;

         do {
            port_start = 0;
            for (port = misdn_cfg_get_next_port_spin(rr->port); port > 0 && port != port_start;
                port = misdn_cfg_get_next_port_spin(port)) {

               if (!port_start)
                  port_start = port;

               if (port >= port_start)
                  next_chan = 1;
               
               if (port <= port_start && next_chan) {
                  int maxbchans=misdn_lib_get_maxchans(port);
                  if (++robin_channel >= maxbchans) {
                     robin_channel = 1;
                  }
                  next_chan = 0;
               }

               misdn_cfg_get(port, MISDN_CFG_GROUPNAME, cfg_group, BUFFERSIZE);
               
               if (!strcasecmp(cfg_group, group)) {
                  int port_up;
                  int check;
                  misdn_cfg_get(port, MISDN_CFG_PMP_L1_CHECK, &check, sizeof(int));
                  port_up = misdn_lib_port_up(port, check);

                  if (check && !port_up) 
                     chan_misdn_log(1,port,"L1 is not Up on this Port\n");
                  
                  if (check && port_up<0) {
                     ast_log(LOG_WARNING,"This port (%d) is blocked\n", port);
                  }
                  
                  
                  if ( port_up>0 )  {
                     newbc = misdn_lib_get_free_bc(port, robin_channel,0);
                     if (newbc) {
                        chan_misdn_log(4, port, " Success! Found port:%d channel:%d\n", newbc->port, newbc->channel);
                        if (port_up)
                           chan_misdn_log(4, port, "portup:%d\n",  port_up);
                        rr->port = newbc->port;
                        rr->channel = newbc->channel;
                        break;
                     }
                  }
               }
            }
         } while (!newbc && robin_channel != rr->channel);
         
         if (!newbc)
            chan_misdn_log(-1, port, " Failed! No free channel in group %d!", group);
      }
      
      else {      
         for (port=misdn_cfg_get_next_port(0); port > 0;
             port=misdn_cfg_get_next_port(port)) {
            
            misdn_cfg_get( port, MISDN_CFG_GROUPNAME, cfg_group, BUFFERSIZE);

            chan_misdn_log(3,port, "Group [%s] Port [%d]\n", group, port);
            if (!strcasecmp(cfg_group, group)) {
               int port_up;
               int check;
               misdn_cfg_get(port, MISDN_CFG_PMP_L1_CHECK, &check, sizeof(int));
               port_up = misdn_lib_port_up(port, check);
               
               chan_misdn_log(4, port, "portup:%d\n", port_up);
               
               if ( port_up>0 ) {
                  newbc = misdn_lib_get_free_bc(port, 0, 0);
                  if (newbc)
                     break;
               }
            }
         }
      }
      
   } else {
      if (channel)
         chan_misdn_log(1, port," --> preselected_channel: %d\n",channel);
      newbc = misdn_lib_get_free_bc(port, channel, 0);
   }
   
   if (!newbc) {
      chan_misdn_log(-1, 0, "Could not create channel on port:%d with extensions:%s\n",port,ext);
      return NULL;
   }

   /* create ast_channel and link all the objects together */
   cl->bc=newbc;
   
   tmp = misdn_new(cl, AST_STATE_RESERVED, ext, NULL, format, port, channel);
   cl->ast=tmp;
   
   /* register chan in local list */
   cl_queue_chan(&cl_te, cl) ;
   
   /* fill in the config into the objects */
   read_config(cl, ORG_AST);

   /* important */
   cl->need_hangup=0;
   
   return tmp;
}


static int misdn_send_text (struct ast_channel *chan, const char *text)
{
   struct chan_list *tmp=chan->tech_pvt;
   
   if (tmp && tmp->bc) {
      ast_copy_string(tmp->bc->display,text,sizeof(tmp->bc->display));
      misdn_lib_send_event(tmp->bc, EVENT_INFORMATION);
   } else {
      ast_log(LOG_WARNING, "No chan_list but send_text request?\n");
      return -1;
   }
   
   return 0;
}

static struct ast_channel_tech misdn_tech = {
   .type="mISDN",
   .description="Channel driver for mISDN Support (Bri/Pri)",
   .capabilities= AST_FORMAT_ALAW ,
   .requester=misdn_request,
   .send_digit_begin=misdn_digit_begin,
   .send_digit_end=misdn_digit_end,
   .call=misdn_call,
   .bridge=misdn_bridge, 
   .hangup=misdn_hangup,
   .answer=misdn_answer,
   .read=misdn_read,
   .write=misdn_write,
   .indicate=misdn_indication,
   .fixup=misdn_fixup,
   .send_text=misdn_send_text,
   .properties=0
};

static struct ast_channel_tech misdn_tech_wo_bridge = {
   .type="mISDN",
   .description="Channel driver for mISDN Support (Bri/Pri)",
   .capabilities=AST_FORMAT_ALAW ,
   .requester=misdn_request,
   .send_digit_begin=misdn_digit_begin,
   .send_digit_end=misdn_digit_end,
   .call=misdn_call,
   .hangup=misdn_hangup,
   .answer=misdn_answer,
   .read=misdn_read,
   .write=misdn_write,
   .indicate=misdn_indication,
   .fixup=misdn_fixup,
   .send_text=misdn_send_text,
   .properties=0
};


static int glob_channel=0;

static void update_name(struct ast_channel *tmp, int port, int c) 
{
   int chan_offset=0;
   int tmp_port = misdn_cfg_get_next_port(0);
   for (; tmp_port > 0; tmp_port=misdn_cfg_get_next_port(tmp_port)) {
   if (tmp_port == port) break;
      chan_offset+=misdn_lib_port_is_pri(tmp_port)?30:2; 
   }
   if (c<0) c=0;

   ast_string_field_build(tmp, name, "%s/%d-u%d",
             misdn_type, chan_offset+c, glob_channel++);

   chan_misdn_log(3,port," --> updating channel name to [%s]\n",tmp->name);
   
}

static struct ast_channel *misdn_new(struct chan_list *chlist, int state,  char *exten, char *callerid, int format, int port, int c)
{
   struct ast_channel *tmp;
   char *cid_name = 0, *cid_num = 0;
   int chan_offset=0;
   int tmp_port = misdn_cfg_get_next_port(0);

   for (; tmp_port > 0; tmp_port=misdn_cfg_get_next_port(tmp_port)) {
   if (tmp_port == port) break;
      chan_offset+=misdn_lib_port_is_pri(tmp_port)?30:2; 
   }
   if (c<0) c=0;

   
   if (callerid) 
      ast_callerid_parse(callerid, &cid_name, &cid_num);

   tmp = ast_channel_alloc(1, state, cid_num, cid_name, "%s/%d-u%d", misdn_type, chan_offset + c, glob_channel++);
   
   if (tmp) {
      chan_misdn_log(2, 0, " --> * NEW CHANNEL dad:%s oad:%s\n",exten,callerid);
      
      tmp->nativeformats = prefformat;

      tmp->readformat = format;
      tmp->rawreadformat = format;
      tmp->writeformat = format;
      tmp->rawwriteformat = format;
    
      tmp->tech_pvt = chlist;
      
      int bridging;
      misdn_cfg_get( 0, MISDN_GEN_BRIDGING, &bridging, sizeof(int));
      if (bridging)
         tmp->tech = &misdn_tech;
      else
         tmp->tech = &misdn_tech_wo_bridge;
      
      tmp->writeformat = format;
      tmp->readformat = format;
      tmp->priority=1;
      
      if (exten) 
         ast_copy_string(tmp->exten, exten,  sizeof(tmp->exten));
      else
         chan_misdn_log(1,0,"misdn_new: no exten given.\n");
      
      if (callerid) {
         char *cid_name, *cid_num;
      
         ast_callerid_parse(callerid, &cid_name, &cid_num);
         /* Don't use ast_set_callerid() here because it will
          * generate a needless NewCallerID event */
         tmp->cid.cid_num = ast_strdup(cid_num);
         tmp->cid.cid_ani = ast_strdup(cid_num);
         tmp->cid.cid_name = ast_strdup(cid_name);
      }

      {
         if (pipe(chlist->pipe)<0)
            perror("Pipe failed\n");
         
         tmp->fds[0]=chlist->pipe[0];
         
      }
      
      if (state == AST_STATE_RING)
         tmp->rings = 1;
      else
         tmp->rings = 0;
      
      
   } else {
      chan_misdn_log(-1,0,"Unable to allocate channel structure\n");
   }
   
   return tmp;
}

static struct chan_list *find_chan_by_bc(struct chan_list *list, struct misdn_bchannel *bc)
{
   struct chan_list *help=list;
   for (;help; help=help->next) {
      if (help->bc == bc) return help;
   }
  
   chan_misdn_log(6, bc->port, "$$$ find_chan: No channel found for oad:%s dad:%s\n",bc->oad,bc->dad);
  
   return NULL;
}

static struct chan_list *find_chan_by_pid(struct chan_list *list, int pid)
{
   struct chan_list *help=list;
   for (;help; help=help->next) {
      if ( help->bc && (help->bc->pid == pid) ) return help;
   }
  
   chan_misdn_log(6, 0, "$$$ find_chan: No channel found for pid:%d\n",pid);
  
   return NULL;
}

static struct chan_list *find_holded(struct chan_list *list, struct misdn_bchannel *bc)
{
   struct chan_list *help=list;
   
   chan_misdn_log(6, bc->port, "$$$ find_holded: channel:%d oad:%s dad:%s\n",bc->channel, bc->oad,bc->dad);
   for (;help; help=help->next) {
      chan_misdn_log(4, bc->port, "$$$ find_holded: --> holded:%d channel:%d\n",help->state==MISDN_HOLDED, help->hold_info.channel);
      if (  (help->state == MISDN_HOLDED) && 
         (help->hold_info.port == bc->port) ) 
         return help;
   }  
   chan_misdn_log(6, bc->port, "$$$ find_chan: No channel found for oad:%s dad:%s\n",bc->oad,bc->dad);
  
   return NULL;
}


static struct chan_list *find_holded_l3(struct chan_list *list, unsigned long l3_id, int w) 

{
   struct chan_list *help=list;

   for (;help; help=help->next) {
      if ( (help->state == MISDN_HOLDED) &&
          (help->l3id == l3_id)   
         ) 
         return help;
   }

   return NULL;
}

static void cl_queue_chan(struct chan_list **list, struct chan_list *chan)
{
   chan_misdn_log(4, chan->bc? chan->bc->port : 0, "* Queuing chan %p\n",chan);
  
   ast_mutex_lock(&cl_te_lock);
   if (!*list) {
      *list = chan;
   } else {
      struct chan_list *help=*list;
      for (;help->next; help=help->next); 
      help->next=chan;
   }
   chan->next=NULL;
   ast_mutex_unlock(&cl_te_lock);
}

static void cl_dequeue_chan(struct chan_list **list, struct chan_list *chan) 
{
   if (chan->dsp) 
      ast_dsp_free(chan->dsp);
   if (chan->trans)
      ast_translator_free_path(chan->trans);

   

   ast_mutex_lock(&cl_te_lock);
   if (!*list) {
      ast_mutex_unlock(&cl_te_lock);
      return;
   }
  
   if (*list == chan) {
      *list=(*list)->next;
      ast_mutex_unlock(&cl_te_lock);
      return ;
   }
  
   {
      struct chan_list *help=*list;
      for (;help->next; help=help->next) {
         if (help->next == chan) {
            help->next=help->next->next;
            ast_mutex_unlock(&cl_te_lock);
            return;
         }
      }
   }
   
   ast_mutex_unlock(&cl_te_lock);
}

/** Channel Queue End **/


int pbx_start_chan(struct chan_list *ch)
{
   int ret=ast_pbx_start(ch->ast);  

   if (ret>=0) 
      ch->need_hangup=0;
   else
      ch->need_hangup=1;

   return ret;
}

static void hangup_chan(struct chan_list *ch)
{
   int port=ch?ch->bc?ch->bc->port:0:0;
   if (!ch) {
      cb_log(1,0,"Cannot hangup chan, no ch\n");
      return;
   }

   cb_log(5,port,"hangup_chan called\n");

   if (ch->need_hangup) 
   {
      cb_log(2,port," --> hangup\n");
      send_cause2ast(ch->ast,ch->bc,ch);
      ch->need_hangup=0;
      ch->need_queue_hangup=0;
      if (ch->ast)
         ast_hangup(ch->ast);
      return;
   }

   if (!ch->need_queue_hangup) {
      cb_log(2,port," --> No need to queue hangup\n");
   }

   ch->need_queue_hangup=0;
   if (ch->ast) {
      send_cause2ast(ch->ast,ch->bc,ch);

      if (ch->ast)
         ast_queue_hangup(ch->ast);
      cb_log(2,port," --> queue_hangup\n");
   } else {
      cb_log(1,port,"Cannot hangup chan, no ast\n");
   }
}

/** Isdn asks us to release channel, pendant to misdn_hangup **/
static void release_chan(struct misdn_bchannel *bc) {
   struct ast_channel *ast=NULL;
   {
      struct chan_list *ch=find_chan_by_bc(cl_te, bc);
      if (!ch)  {
         chan_misdn_log(1, bc->port, "release_chan: Ch not found!\n");
         return;
      }
      
      if (ch->ast) {
         ast=ch->ast;
      } 
      
      chan_misdn_log(5, bc->port, "release_chan: bc with l3id: %x\n",bc->l3_id);
      
      /*releaseing jitterbuffer*/
      if (ch->jb ) {
         misdn_jb_destroy(ch->jb);
         ch->jb=NULL;
      } else {
         if (!bc->nojitter)
            chan_misdn_log(5,bc->port,"Jitterbuffer already destroyed.\n");
      }

      if (ch->overlap_dial) {
         if (ch->overlap_dial_task != -1) {
            misdn_tasks_remove(ch->overlap_dial_task);
            ch->overlap_dial_task = -1;
         }
         ast_mutex_destroy(&ch->overlap_tv_lock);
      }

      if (ch->orginator == ORG_AST) {
         misdn_out_calls[bc->port]--;
      } else {
         misdn_in_calls[bc->port]--;
      }
      
      if (ch) {
         
         close(ch->pipe[0]);
         close(ch->pipe[1]);

         
         if (ast && MISDN_ASTERISK_TECH_PVT(ast)) {
            chan_misdn_log(1, bc->port, "* RELEASING CHANNEL pid:%d ctx:%s dad:%s oad:%s state: %s\n",bc?bc->pid:-1, ast->context, ast->exten,AST_CID_P(ast),misdn_get_ch_state(ch));
            chan_misdn_log(3, bc->port, " --> * State Down\n");
            MISDN_ASTERISK_TECH_PVT(ast)=NULL;
            
      
            if (ast->_state != AST_STATE_RESERVED) {
               chan_misdn_log(3, bc->port, " --> Setting AST State to down\n");
               ast_setstate(ast, AST_STATE_DOWN);
            }
         }
            
         ch->state=MISDN_CLEANING;
         cl_dequeue_chan(&cl_te, ch);
         
         free(ch);
      } else {
         /* chan is already cleaned, so exiting  */
      }
   }
}
/*** release end **/

static void misdn_transfer_bc(struct chan_list *tmp_ch, struct chan_list *holded_chan)
{
   chan_misdn_log(4,0,"TRANSFERING %s to %s\n",holded_chan->ast->name, tmp_ch->ast->name);
   
   tmp_ch->state=MISDN_HOLD_DISCONNECT;
  
   ast_moh_stop(AST_BRIDGED_P(holded_chan->ast));

   holded_chan->state=MISDN_CONNECTED;
   //misdn_lib_transfer(holded_chan->bc);
   ast_channel_masquerade(holded_chan->ast, AST_BRIDGED_P(tmp_ch->ast));
}


static void do_immediate_setup(struct misdn_bchannel *bc,struct chan_list *ch , struct ast_channel *ast)
{
   char predial[256]="";
   char *p = predial;
  
   struct ast_frame fr;
  
   strncpy(predial, ast->exten, sizeof(predial) -1 );
  
   ch->state=MISDN_DIALING;

   if (bc->nt) {
      int ret; 
      ret = misdn_lib_send_event(bc, EVENT_SETUP_ACKNOWLEDGE );
   } else {
      int ret;
      if ( misdn_lib_is_ptp(bc->port)) {
         ret = misdn_lib_send_event(bc, EVENT_SETUP_ACKNOWLEDGE );
      } else {
         ret = misdn_lib_send_event(bc, EVENT_PROCEEDING );
      }
   }

   if ( !bc->nt && (ch->orginator==ORG_MISDN) && !ch->incoming_early_audio ) 
      chan_misdn_log(1,bc->port, " --> incoming_early_audio off\n");
    else  
      dialtone_indicate(ch);
  
   chan_misdn_log(1, bc->port, "* Starting Ast ctx:%s dad:%s oad:%s with 's' extension\n", ast->context, ast->exten, AST_CID_P(ast));
  
   strncpy(ast->exten,"s", 2);
  
   if (pbx_start_chan(ch)<0) {
      ast=NULL;
      hangup_chan(ch);
      hanguptone_indicate(ch);

      if (bc->nt)
         misdn_lib_send_event(bc, EVENT_RELEASE_COMPLETE );
      else
         misdn_lib_send_event(bc, EVENT_DISCONNECT );
   }
  
  
   while (!ast_strlen_zero(p) ) {
      fr.frametype = AST_FRAME_DTMF;
      fr.subclass = *p ;
      fr.src=NULL;
      fr.data = NULL ;
      fr.datalen = 0;
      fr.samples = 0 ;
      fr.mallocd =0 ;
      fr.offset= 0 ;
      fr.delivery= ast_tv(0,0) ;

      if (ch->ast && MISDN_ASTERISK_PVT(ch->ast) && MISDN_ASTERISK_TECH_PVT(ch->ast)) {
         ast_queue_frame(ch->ast, &fr);
      }
      p++;
   }
}



static void send_cause2ast(struct ast_channel *ast, struct misdn_bchannel*bc, struct chan_list *ch) {
   if (!ast) {
      chan_misdn_log(1,0,"send_cause2ast: No Ast\n");
      return;
   }
   if (!bc) {
      chan_misdn_log(1,0,"send_cause2ast: No BC\n");
      return;
   }
   if (!ch) {
      chan_misdn_log(1,0,"send_cause2ast: No Ch\n");
      return;
   }
   
   ast->hangupcause=bc->cause;
   
   switch ( bc->cause) {
      
   case 1: /** Congestion Cases **/
   case 2:
   case 3:
   case 4:
   case 22:
   case 27:
      /*
       * Not Queueing the Congestion anymore, since we want to hear
       * the inband message
       *
      chan_misdn_log(1, bc?bc->port:0, " --> * SEND: Queue Congestion pid:%d\n", bc?bc->pid:-1);
      ch->state=MISDN_BUSY;
      
      ast_queue_control(ast, AST_CONTROL_CONGESTION);
      */
      break;
      
   case 21:
   case 17: /* user busy */
   
      ch->state=MISDN_BUSY;
         
      if (!ch->need_busy) {
         chan_misdn_log(1,bc?bc->port:0, "Queued busy already\n");
         break;
      }
      
      chan_misdn_log(1,  bc?bc->port:0, " --> * SEND: Queue Busy pid:%d\n", bc?bc->pid:-1);
      
      ast_queue_control(ast, AST_CONTROL_BUSY);
      
      ch->need_busy=0;
      
      break;
   }
}




void import_ch(struct ast_channel *chan, struct misdn_bchannel *bc, struct chan_list *ch)
{
   const char *tmp;
   tmp=pbx_builtin_getvar_helper(chan,"MISDN_PID");
   if (tmp) {
      ch->other_pid=atoi(tmp);
      chan_misdn_log(3,bc->port," --> IMPORT_PID: importing pid:%s\n",tmp);
      if (ch->other_pid >0) {
         ch->other_ch=find_chan_by_pid(cl_te,ch->other_pid);
         if (ch->other_ch) ch->other_ch->other_ch=ch;
      }
   }

   tmp=pbx_builtin_getvar_helper(chan,"MISDN_ADDRESS_COMPLETE");
   if (tmp && (atoi(tmp) == 1)) {
      bc->sending_complete=1;
   }
}

void export_ch(struct ast_channel *chan, struct misdn_bchannel *bc, struct chan_list *ch)
{
   char tmp[32];
   chan_misdn_log(3,bc->port," --> EXPORT_PID: pid:%d\n",bc->pid);
   sprintf(tmp,"%d",bc->pid);
   pbx_builtin_setvar_helper(chan,"_MISDN_PID",tmp);

   if (bc->sending_complete) {
      sprintf(tmp,"%d",bc->sending_complete);
      pbx_builtin_setvar_helper(chan,"MISDN_ADDRESS_COMPLETE",tmp);
   }

   if (bc->urate) {
      sprintf(tmp,"%d",bc->urate);
      pbx_builtin_setvar_helper(chan,"MISDN_URATE",tmp);
   }
}

int add_in_calls(int port)
{
   int max_in_calls;
   
   misdn_cfg_get( port, MISDN_CFG_MAX_IN, &max_in_calls, sizeof(max_in_calls));

   misdn_in_calls[port]++;

   if (max_in_calls >=0 && max_in_calls<misdn_in_calls[port]) {
      ast_log(LOG_NOTICE,"Marking Incoming Call on port[%d]\n",port);
      return misdn_in_calls[port]-max_in_calls;
   }
   
   return 0;
}

int add_out_calls(int port)
{
   int max_out_calls;
   
   misdn_cfg_get( port, MISDN_CFG_MAX_OUT, &max_out_calls, sizeof(max_out_calls));
   

   if (max_out_calls >=0 && max_out_calls<=misdn_out_calls[port]) {
      ast_log(LOG_NOTICE,"Rejecting Outgoing Call on port[%d]\n",port);
      return (misdn_out_calls[port]+1)-max_out_calls;
   }

   misdn_out_calls[port]++;
   
   return 0;
}



/************************************************************/
/*  Receive Events from isdn_lib  here                     */
/************************************************************/
static enum event_response_e
cb_events(enum event_e event, struct misdn_bchannel *bc, void *user_data)
{
   struct chan_list *ch=find_chan_by_bc(cl_te, bc);
   
   if (event != EVENT_BCHAN_DATA && event != EVENT_TONE_GENERATE) { /*  Debug Only Non-Bchan */
      int debuglevel=1;
      if ( event==EVENT_CLEANUP && !user_data)
         debuglevel=5;

      chan_misdn_log(debuglevel, bc->port, "I IND :%s oad:%s dad:%s pid:%d state:%s\n", manager_isdn_get_info(event), bc->oad, bc->dad, bc->pid, ch?misdn_get_ch_state(ch):"none");
      if (debuglevel==1) {
         misdn_lib_log_ies(bc);
         chan_misdn_log(4,bc->port," --> bc_state:%s\n",bc_state2str(bc->bc_state));
      }
   }
   
   if (!ch) {
      switch(event) {
         case EVENT_SETUP:
         case EVENT_DISCONNECT:
         case EVENT_PORT_ALARM:
         case EVENT_RETRIEVE:
         case EVENT_NEW_BC:
         case EVENT_FACILITY:
            break;
         case EVENT_RELEASE_COMPLETE:
            chan_misdn_log(1, bc->port, " --> no Ch, so we've already released.\n");
            break;
         case EVENT_CLEANUP:
         case EVENT_TONE_GENERATE:
         case EVENT_BCHAN_DATA:
            return -1;

         default:
            chan_misdn_log(1,bc->port, "Chan not existing at the moment bc->l3id:%x bc:%p event:%s port:%d channel:%d\n",bc->l3_id, bc, manager_isdn_get_info( event), bc->port,bc->channel);
            return -1;
      }
   }
   
   if (ch ) {
      switch (event) {
      case EVENT_TONE_GENERATE:
      break;
      case EVENT_DISCONNECT:
      case EVENT_RELEASE:
      case EVENT_RELEASE_COMPLETE:
      case EVENT_CLEANUP:
      case EVENT_TIMEOUT:
         if (!ch->ast)
            chan_misdn_log(3,bc->port,"ast_hangup already called, so we have no ast ptr anymore in event(%s)\n",manager_isdn_get_info(event));
         break;
      default:
         if ( !ch->ast  || !MISDN_ASTERISK_PVT(ch->ast) || !MISDN_ASTERISK_TECH_PVT(ch->ast)) {
            if (event!=EVENT_BCHAN_DATA)
               ast_log(LOG_NOTICE, "No Ast or No private Pointer in Event (%d:%s)\n", event, manager_isdn_get_info(event));
            return -1;
         }
      }
   }
   
   
   switch (event) {
   case EVENT_PORT_ALARM:
      {
         int boa=0;
         misdn_cfg_get( bc->port, MISDN_CFG_ALARM_BLOCK, &boa, sizeof(int));
         if (boa) {
            cb_log(1,bc->port," --> blocking\n");
            misdn_lib_port_block(bc->port); 
         }
      }
   break;
   case EVENT_BCHAN_ACTIVATED:
      break;
      
   case EVENT_NEW_CHANNEL:
      update_name(ch->ast,bc->port,bc->channel);
      break;
      
   case EVENT_NEW_L3ID:
      ch->l3id=bc->l3_id;
      ch->addr=bc->addr;
      break;

   case EVENT_NEW_BC:
      if (!ch) {
         ch=find_holded(cl_te,bc);
      }
      
      if (!ch) {
         ast_log(LOG_WARNING,"NEW_BC without chan_list?\n");
         break;
      }

      if (bc)
         ch->bc=(struct misdn_bchannel*)user_data;
      break;
      
   case EVENT_DTMF_TONE:
   {
      /*  sending INFOS as DTMF-Frames :) */
      struct ast_frame fr;
      memset(&fr, 0 , sizeof(fr));
      fr.frametype = AST_FRAME_DTMF;
      fr.subclass = bc->dtmf ;
      fr.src=NULL;
      fr.data = NULL ;
      fr.datalen = 0;
      fr.samples = 0 ;
      fr.mallocd =0 ;
      fr.offset= 0 ;
      fr.delivery= ast_tv(0,0) ;
      
      if (!ch->ignore_dtmf) {
         chan_misdn_log(2, bc->port, " --> DTMF:%c\n", bc->dtmf);
         ast_queue_frame(ch->ast, &fr);
      } else {
         chan_misdn_log(2, bc->port, " --> Ingoring DTMF:%c due to bridge flags\n", bc->dtmf);
      }
   }
   break;
   case EVENT_STATUS:
      break;
    
   case EVENT_INFORMATION:
   {
      int stop_tone;
      misdn_cfg_get( 0, MISDN_GEN_STOP_TONE, &stop_tone, sizeof(int));
      if ( stop_tone ) {
         stop_indicate(ch);
      }
      
      if (ch->state == MISDN_WAITING4DIGS ) {
         /*  Ok, incomplete Setup, waiting till extension exists */

         if (ast_strlen_zero(bc->info_dad) && ! ast_strlen_zero(bc->keypad)) {
            chan_misdn_log(1, bc->port, " --> using keypad as info\n");
            strcpy(bc->info_dad,bc->keypad);
         }

         {
            int l = sizeof(bc->dad);
            strncat(bc->dad,bc->info_dad, l);
            bc->dad[l-1] = 0;
         }
         
         
         {
            int l = sizeof(ch->ast->exten);
            strncpy(ch->ast->exten, bc->dad, l);
            ch->ast->exten[l-1] = 0;
         }
/*       chan_misdn_log(5, bc->port, "Can Match Extension: dad:%s oad:%s\n",bc->dad,bc->oad);*/
         
         /* Check for Pickup Request first */
         if (!strcmp(ch->ast->exten, ast_pickup_ext())) {
            int ret;/** Sending SETUP_ACK**/
            ret = misdn_lib_send_event(bc, EVENT_SETUP_ACKNOWLEDGE );
            if (ast_pickup_call(ch->ast)) {
               hangup_chan(ch);
            } else {
               struct ast_channel *chan=ch->ast;
               ch->state = MISDN_CALLING_ACKNOWLEDGE;
               ast_setstate(chan, AST_STATE_DOWN);
               hangup_chan(ch);
               ch->ast=NULL;
               break;
            }
         }
         
         if(!ast_canmatch_extension(ch->ast, ch->context, bc->dad, 1, bc->oad)) {

            chan_misdn_log(-1, bc->port, "Extension can never match, so disconnecting\n");
            if (bc->nt)
               hanguptone_indicate(ch);
            ch->state=MISDN_EXTCANTMATCH;
            bc->out_cause=1;

            misdn_lib_send_event(bc, EVENT_DISCONNECT );

            break;
         }

         if (ch->overlap_dial) {
            ast_mutex_lock(&ch->overlap_tv_lock);
            ch->overlap_tv = ast_tvnow();
            ast_mutex_unlock(&ch->overlap_tv_lock);
            if (ch->overlap_dial_task == -1) {
               ch->overlap_dial_task = 
                  misdn_tasks_add_variable(ch->overlap_dial, misdn_overlap_dial_task, ch);
            }
            break;
         }

         if (ast_exists_extension(ch->ast, ch->context, bc->dad, 1, bc->oad)) {
            ch->state=MISDN_DIALING;
     
            stop_indicate(ch);
/*          chan_misdn_log(1, bc->port, " --> * Starting Ast ctx:%s\n", ch->context);*/
            if (pbx_start_chan(ch)<0) {
               hangup_chan(ch);

               chan_misdn_log(-1, bc->port, "ast_pbx_start returned < 0 in INFO\n");
               if (bc->nt) hanguptone_indicate(ch);

               misdn_lib_send_event(bc, EVENT_DISCONNECT );
            }
         }
   
      } else {
         /*  sending INFOS as DTMF-Frames :) */
         struct ast_frame fr;
         fr.frametype = AST_FRAME_DTMF;
         fr.subclass = bc->info_dad[0] ;
         fr.src=NULL;
         fr.data = NULL ;
         fr.datalen = 0;
         fr.samples = 0 ;
         fr.mallocd =0 ;
         fr.offset= 0 ;
         fr.delivery= ast_tv(0,0) ;

         
         int digits;
         misdn_cfg_get( 0, MISDN_GEN_APPEND_DIGITS2EXTEN, &digits, sizeof(int));
         if (ch->state != MISDN_CONNECTED ) {
            if (digits) {
               int l = sizeof(bc->dad);
               strncat(bc->dad,bc->info_dad, l);
               bc->dad[l-1] = 0;
               l = sizeof(ch->ast->exten);
               strncpy(ch->ast->exten, bc->dad, l);
               ch->ast->exten[l-1] = 0;

               ast_cdr_update(ch->ast);
            }
            
            ast_queue_frame(ch->ast, &fr);
         }
      }
   }
   break;
   case EVENT_SETUP:
   {
      struct chan_list *ch=find_chan_by_bc(cl_te, bc);
      if (ch) {
         switch (ch->state) {
            case MISDN_NOTHING:
            ch=NULL;
            break;
            default:
            chan_misdn_log(1, bc->port, " --> Ignoring Call we have already one\n");
            return RESPONSE_IGNORE_SETUP_WITHOUT_CLOSE; /*  Ignore MSNs which are not in our List */
         }
      }
   }
   

   int msn_valid = misdn_cfg_is_msn_valid(bc->port, bc->dad);
   if (!bc->nt && ! msn_valid) {
      chan_misdn_log(1, bc->port, " --> Ignoring Call, its not in our MSN List\n");
      return RESPONSE_IGNORE_SETUP; /*  Ignore MSNs which are not in our List */
   }

   
   if (bc->cw) {
      chan_misdn_log(0, bc->port, " --> Call Waiting on PMP sending RELEASE_COMPLETE\n");
      int cause;
      misdn_cfg_get( bc->port, MISDN_CFG_REJECT_CAUSE, &cause, sizeof(cause));
      bc->out_cause=cause?cause:16;
      return RESPONSE_RELEASE_SETUP;
   }

   print_bearer(bc);
    
   {
      struct chan_list *ch=init_chan_list(ORG_MISDN);
      struct ast_channel *chan;
      int exceed;

      if (!ch) { chan_misdn_log(-1, bc->port, "cb_events: malloc for chan_list failed!\n"); return 0;}
      
      ch->bc = bc;
      ch->l3id=bc->l3_id;
      ch->addr=bc->addr;
      ch->orginator = ORG_MISDN;

      chan=misdn_new(ch, AST_STATE_RESERVED,bc->dad, bc->oad, AST_FORMAT_ALAW, bc->port, bc->channel);
      ch->ast = chan;

      if ((exceed=add_in_calls(bc->port))) {
         char tmp[16];
         sprintf(tmp,"%d",exceed);
         pbx_builtin_setvar_helper(chan,"MAX_OVERFLOW",tmp);
      }

      read_config(ch, ORG_MISDN);
      
      export_ch(chan, bc, ch);

      ch->ast->rings=1;
      ast_setstate(ch->ast, AST_STATE_RINGING);

      int pres,screen;

      switch (bc->pres) {
         case 1:
         pres=AST_PRES_RESTRICTED; chan_misdn_log(2,bc->port," --> PRES: Restricted (1)\n");
         break;
         case 2:
         pres=AST_PRES_UNAVAILABLE; chan_misdn_log(2,bc->port," --> PRES: Restricted (2)\n");
         break;
         default:
         pres=AST_PRES_ALLOWED; chan_misdn_log(2,bc->port," --> PRES: Restricted (%d)\n", bc->pres);
      }

      switch (bc->screen) {
         case 0:
         screen=AST_PRES_USER_NUMBER_UNSCREENED;  chan_misdn_log(2,bc->port," --> SCREEN: Unscreened (0)\n");
         break;
         case 1:
         screen=AST_PRES_USER_NUMBER_PASSED_SCREEN; chan_misdn_log(2,bc->port," --> SCREEN: Passed screen (1)\n");
         break;
         case 2:
         screen=AST_PRES_USER_NUMBER_FAILED_SCREEN; chan_misdn_log(2,bc->port," --> SCREEN: failed screen (2)\n");
         break;
         case 3:
         screen=AST_PRES_NETWORK_NUMBER; chan_misdn_log(2,bc->port," --> SCREEN: Network Number (3)\n");
         break;
         default:
         screen=AST_PRES_USER_NUMBER_UNSCREENED; chan_misdn_log(2,bc->port," --> SCREEN: Unscreened (%d)\n",bc->screen);
      }

      chan->cid.cid_pres=pres+screen;

      pbx_builtin_setvar_helper(chan, "TRANSFERCAPABILITY", ast_transfercapability2str(bc->capability));
      chan->transfercapability=bc->capability;
      
      switch (bc->capability) {
      case INFO_CAPABILITY_DIGITAL_UNRESTRICTED:
         pbx_builtin_setvar_helper(chan,"CALLTYPE","DIGITAL");
         break;
      default:
         pbx_builtin_setvar_helper(chan,"CALLTYPE","SPEECH");
      }

      /** queue new chan **/
      cl_queue_chan(&cl_te, ch) ;


      if (!strstr(ch->allowed_bearers,"all")) {
         int i;
         for (i=0; i< sizeof(allowed_bearers_array)/sizeof(struct allowed_bearers); i++) {
            if (allowed_bearers_array[i].cap == bc->capability) {
               if (  !strstr( ch->allowed_bearers, allowed_bearers_array[i].name)) {
                  chan_misdn_log(0,bc->port,"Bearer Not allowed\b");
                  bc->out_cause=88;
                  
                  ch->state=MISDN_EXTCANTMATCH;
                  misdn_lib_send_event(bc, EVENT_RELEASE_COMPLETE );
                  return RESPONSE_OK;
               }
            }
            
         }
      }
      
      /* Check for Pickup Request first */
      if (!strcmp(chan->exten, ast_pickup_ext())) {
         int ret;/** Sending SETUP_ACK**/
         ret = misdn_lib_send_event(bc, EVENT_SETUP_ACKNOWLEDGE );
         if (ast_pickup_call(chan)) {
            hangup_chan(ch);
         } else {
            ch->state = MISDN_CALLING_ACKNOWLEDGE;
            ast_setstate(chan, AST_STATE_DOWN);
            hangup_chan(ch);
            ch->ast=NULL;
            break;
         }
      }
      
      /*
        added support for s extension hope it will help those poor cretains
        which haven't overlap dial.
      */
      {
         int ai;
         misdn_cfg_get( bc->port, MISDN_CFG_ALWAYS_IMMEDIATE, &ai, sizeof(ai));
         if ( ai ) {
            do_immediate_setup(bc, ch , chan);
            break;
         }
         
         
         
      }

      /* check if we should jump into s when we have no dad */
      {
         int im;
         misdn_cfg_get( bc->port, MISDN_CFG_IMMEDIATE, &im, sizeof(im));
         if ( im && ast_strlen_zero(bc->dad) ) {
            do_immediate_setup(bc, ch , chan);
            break;
         }
      }

      
         chan_misdn_log(5,bc->port,"CONTEXT:%s\n",ch->context);
         if(!ast_canmatch_extension(ch->ast, ch->context, bc->dad, 1, bc->oad)) {
         
         chan_misdn_log(-1, bc->port, "Extension can never match, so disconnecting\n");

         if (bc->nt)
            hanguptone_indicate(ch);
         ch->state=MISDN_EXTCANTMATCH;
         bc->out_cause=1;

         if (bc->nt)
            misdn_lib_send_event(bc, EVENT_RELEASE_COMPLETE );
         else
            misdn_lib_send_event(bc, EVENT_RELEASE );
            
         break;
      }
      
      if (!ch->overlap_dial && ast_exists_extension(ch->ast, ch->context, bc->dad, 1, bc->oad)) {
         ch->state=MISDN_DIALING;
         
         if (bc->nt || (bc->need_more_infos && misdn_lib_is_ptp(bc->port)) ) {
            int ret; 
            ret = misdn_lib_send_event(bc, EVENT_SETUP_ACKNOWLEDGE );
         } else {
            int ret;
            ret= misdn_lib_send_event(bc, EVENT_PROCEEDING );
         }
   
         if (pbx_start_chan(ch)<0) {
            hangup_chan(ch);

            chan_misdn_log(-1, bc->port, "ast_pbx_start returned <0 in SETUP\n");
            chan=NULL;

            if (bc->nt) {
               hanguptone_indicate(ch);
               misdn_lib_send_event(bc, EVENT_RELEASE_COMPLETE );
            } else
               misdn_lib_send_event(bc, EVENT_RELEASE);
         }
      } else {

         if (bc->sending_complete) {
            ch->state=MISDN_EXTCANTMATCH;
            bc->out_cause=1;

            if (bc->nt)  {
               chan_misdn_log(0,bc->port," --> sending_complete so we never match ..\n");
               misdn_lib_send_event(bc, EVENT_RELEASE_COMPLETE);
            } else {
               chan_misdn_log(0,bc->port," --> sending_complete so we never match ..\n");
               misdn_lib_send_event(bc, EVENT_RELEASE);
            }

         } else {

            int ret= misdn_lib_send_event(bc, EVENT_SETUP_ACKNOWLEDGE );
            if (ret == -ENOCHAN) {
               ast_log(LOG_WARNING,"Channel was catched, before we could Acknowledge\n");
               misdn_lib_send_event(bc,EVENT_RELEASE_COMPLETE);
            }
            /*  send tone to phone :) */
            
            /** ADD IGNOREPAT **/
            
            int stop_tone, dad_len;
            misdn_cfg_get( 0, MISDN_GEN_STOP_TONE,