work
[lcr.git] / chan_lcr.c
index 9216699..2cf2ae6 100644 (file)
 
 /*
 
-How does it work:
+Registering to LCR:
 
-To connect, open a socket and send a MESSAGE_HELLO to admin socket with
+To connect, open an LCR socket and send a MESSAGE_HELLO to socket with
 the application name. This name is unique an can be used for routing calls.
+Now the channel driver is linked to LCR and can receive and make calls.
 
-To make a call, send a MESSAGE_NEWREF and a new reference is received.
-When receiving a call, a new reference is received.
-The reference is received with MESSAGE_NEWREF.
 
-Make a MESSAGE_SETUP or receive a MESSAGE_SETUP with the reference.
+Call is initiated by LCR:
 
-To release call and reference, send or receive MESSAGE_RELEASE.
-From that point on, the ref is not valid, so no other message may be sent
-with that reference.
+If a call is received from LCR, a MESSAGE_NEWREF is received first.
+A new chan_call instance is created. The call reference (ref) is given by
+MESSAGE_NEWREF. The state is CHAN_LCR_STATE_IN_PREPARE.
+After receiving MESSAGE_SETUP from LCR, the ast_channel instance is created
+using ast_channel_alloc(1).  The setup information is given to asterisk.
+The new Asterisk instance pointer (ast) is stored to chan_call structure.
+The state changes to CHAN_LCR_STATE_IN_SETUP.
+
+
+Call is initiated by Asterisk:
+
+If a call is reveiced from Asterisk, a new chan_call instance is created.
+The new Asterisk instance pointer (ast) is stored to chan_call structure.
+A MESSASGE_NEWREF is sent to LCR requesting a new call reference (ref).
+The current call ref is set to 0, the state is CHAN_LCR_STATE_OUT_PREPARE.
+Further dialing information is queued.
+After the new callref is received by special MESSAGE_NEWREF reply, new ref
+is stored in the chan_call structure. 
+The setup information is sent to LCR using MESSAGE_SETUP.
+The state changes to CHAN_LCR_STATE_OUT_SETUP.
+
+
+Call is in process:
+
+During call process, messages are received and sent.
+The state changes accordingly.
+Any message is allowed to be sent to LCR at any time except MESSAGE_RELEASE.
+If a MESSAGE_OVERLAP is received, further dialing is required.
+Queued dialing information, if any, is sent to LCR using MESSAGE_DIALING.
+In this case, the state changes to CHAN_LCR_STATE_OUT_DIALING.
+
+
+Call is released by LCR:
+
+A MESSAGE_RELEASE is received with the call reference (ref) to be released.
+The current ref is set to 0, to indicate released reference.
+The state changes to CHAN_LCR_STATE_RELEASE.
+ast_queue_hangup() is called, if asterisk instance (ast) exists, if not,
+the chan_call instance is destroyed.
+After lcr_hangup() is called-back by Asterisk, the chan_call instance
+is destroyed, because the current ref is set to 0 and the state equals
+CHAN_LCR_STATE_RELEASE.
+If the ref is 0 and the state is not CHAN_LCR_STATE_RELEASE, see the proceedure
+"Call is released by Asterisk".
+
+
+Call is released by Asterisk:
+
+lcr_hangup() is called-back by Asterisk. If the call reference (ref) is set,
+a MESSAGE_RELEASE is sent to LCR and the chan_call instance is destroyed.
+If the ref is 0 and the state is not CHAN_LCR_STATE_RELEASE, the new state is
+set to CHAN_LCR_STATE_RELEASE.
+Later, if the MESSAGE_NEWREF reply is received, a MESSAGE_RELEASE is sent to
+LCR and the chan_call instance is destroyed.
+If the ref is 0 and the state is CHAN_LCR_STATE_RELEASE, see the proceedure
+"Call is released by LCR".
 
 */
 
+locking asterisk process and handler
+reconnect after socket closed, release all calls.
+debug of call handling
+denke an alle info-elements in jeder message (from asterisk & from lcr)
+ausloesen beim socket-verlust
+
+bei "ast_channel_alloc" kannste die Callerid und den type usw. setzten. 
+da kannste auch die calledPartyNum setzen. Um asterisk ein Setup zu schicken rufst du einfach "ast_pbx_start( channel ) " auf. Die ganzen queue baren indications und Controls findest du in "include/asterisk/frame.h"
+
+Also zusammenfassend:
+
+Messages die zum Asterisk gehen:
+
+SETUP - >                               ast_pbx_start(ast)
+       CONNECT ->                        ast_queue_control(ast, 
+                       AST_CONTROL_ANSWER);
+PROCEEDING ->                 ast_queue_control(ast, 
+               AST_CONTROL_PROCEEDING);
+ALERTING  ->                       ast_queue_control(ast, 
+               AST_CONTROL_RINGING);
+DISCONNECT ->                  ast_queue_hangup(ast);
+
+Messages die vom Asterisk kommen:
+
+lcr_request -> NEWREF
+lcr_call -> SETUP
+lcr_answer -> CONNECT
+lcr_hangup -> RELEASE_(complete)
+       lcr_indicate(AST_CONTROL_RINGING) -> ALERTING
+       lcr_indicate(AST_CONTROL_PROCEEDING) -> PROCEEDING
+       lcr_indicate(AST_CONTROL_PROGRESS) -> PROGRESS
+       lcr_indicate(AST_CONTROL_BUSY) -> DISCONNECT ( cause=17 )
+       
+
+
+
+
+
+
+
+
 #include <stdio.h>
 #include <stdlib.h>
 #include <string.h>
@@ -40,13 +132,50 @@ with that reference.
 #include <sys/ioctl.h>
 #include <sys/socket.h>
 #include <sys/un.h>
+
+#include <pthread.h>
+#include <semaphore.h>
+
 #include "extension.h"
 #include "message.h"
-#include "admin.h"
+#include "lcrsocket.h"
 #include "cause.h"
 #include "bchannel.h"
 #include "chan_lcr.h"
 
+
+
+#include <asterisk/module.h>
+#include <asterisk/channel.h>
+#include <asterisk/config.h>
+#include <asterisk/logger.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/file.h>
+#include <asterisk/callerid.h>
+#include <asterisk/indications.h>
+#include <asterisk/app.h>
+#include <asterisk/features.h>
+#include <asterisk/sched.h>
+
+CHAN_LCR_STATE // state description structure
+
+int lcr_debug=1;
+int mISDN_created=1;
+
+char lcr_type[]="LCR";
+
+pthread_t chan_tid;
+pthread_mutex_t chan_lock;
+int quit;
+
 int lcr_sock = -1;
 
 struct admin_list {
@@ -93,6 +222,8 @@ struct chan_call *alloc_call(void)
                callp = &((*callp)->next);
 
        *callp = (struct chan_call *)malloc(sizeof(struct chan_call));
+       if (*callp)
+               memset(*callp, 0, sizeof(struct chan_call));
        return(*callp);
 }
 
@@ -112,6 +243,28 @@ void free_call(struct chan_call *call)
        }
 }
 
+unsigned short new_brige_id(void)
+{
+       struct chan_call *call;
+       unsigned short id = 1;
+
+       /* search for lowest bridge id that is not in use and not 0 */
+       while(id)
+       {
+               call = call_first;
+               while(call)
+               {
+                       if (call->bridge_id == id)
+                               break;
+                       call = call->next;
+               }
+               if (!call)
+                       break;
+               id++;
+       }
+       return(id);
+}
+
 
 /*
  * receive bchannel data
@@ -145,6 +298,145 @@ int send_message(int message_type, unsigned long ref, union parameter *param)
 }
 
 /*
+ * incoming setup from LCR
+ */
+static void lcr_in_setup(struct chan_call *call, int message_type, union parameter *param)
+{
+       struct ast_channel *ast;
+       union parameter newparam;
+
+       /* create asterisk channel instrance */
+       ast = ast_channel_alloc(1);
+       if (!ast)
+       {
+               /* release */
+               memset(&newparam, 0, sizeof(union parameter));
+               newparam.disconnectinfo.cause = CAUSE_RESSOURCEUNAVAIL;
+               newparam.disconnectinfo.location = LOCATION_PRIVATE_LOCAL;
+               send_message(MESSAGE_RELEASE, call->ref, &newparam);
+               /* remove call */
+               free_call(call);
+               return;
+       }
+       /* set ast pointer */
+       call->ast = ast;
+       
+       /* fill setup information */
+#warning todo: setup-info reinschreiben
+
+       /* send setup to asterisk */
+#warning todo: setup bei der asterisk triggern
+
+       /* change state */
+       call->state = CHAN_LCR_STATE_IN_SETUP;
+}
+
+/*
+ * incoming setup acknowledge from LCR
+ */
+static void lcr_in_overlap(struct chan_call *call, int message_type, union parameter *param)
+{
+       /* send pending digits in dialque */
+       if (call->dialque)
+               send_dialing_to_lcr(call);
+       /* change to overlap state */
+       call->state = CHAN_LCR_STATE_OUT_DIALING;
+}
+
+/*
+ * incoming proceeding from LCR
+ */
+static void lcr_in_proceeding(struct chan_call *call, int message_type, union parameter *param)
+{
+       /* change state */
+       call->state = CHAN_LCR_STATE_OUT_PROCEEDING;
+       /* send event to asterisk */
+       ast_queue_... todo
+}
+
+/*
+ * incoming alerting from LCR
+ */
+static void lcr_in_alerting(struct chan_call *call, int message_type, union parameter *param)
+{
+       /* change state */
+       call->state = CHAN_LCR_STATE_OUT_ALERTING;
+       /* send event to asterisk */
+       ast_queue_... todo
+}
+
+/*
+ * incoming connect from LCR
+ */
+static void lcr_in_connect(struct chan_call *call, int message_type, union parameter *param)
+{
+       /* change state */
+       call->state = CHAN_LCR_STATE_CONNECT;
+       /* copy connectinfo */
+       todo
+       /* send event to asterisk */
+       ast_queue_... todo
+}
+
+/*
+ * incoming disconnect from LCR
+ */
+static void lcr_in_disconnect(struct chan_call *call, int message_type, union parameter *param)
+{
+       /* change state */
+       call->state = CHAN_LCR_STATE_IN_DISCONNECT;
+       /* copy disconnect info */
+       todo
+       /* send event to asterisk */
+       ast_queue_... todo
+}
+
+/*
+ * incoming setup acknowledge from LCR
+ */
+static void lcr_in_release(struct chan_call *call, int message_type, union parameter *param)
+{
+       /* release ref */
+       call->ref = NULL;
+       /* change to release state */
+       call->state = CHAN_LCR_STATE_RELEASE;
+       /* copy release info */
+       todo
+       /* if we have an asterisk instance, send hangup, else we are done */
+       if (call->ast)
+       {
+               ast_queue_hangup(call->ast);
+       } else
+       {
+               free_call(call);
+       }
+       
+}
+
+/*
+ * incoming information from LCR
+ */
+static void lcr_in_information(struct chan_call *call, int message_type, union parameter *param)
+{
+       /* copy digits */
+       todo and write them, maybe queue them for asterisk
+       /* send event to asterisk */
+       ast_queue_... todo
+}
+
+/*
+ * incoming information from LCR
+ */
+static void lcr_in_facility(struct chan_call *call, int message_type, union parameter *param)
+{
+       /* copy progress info */
+       todo and write them, maybe queue them for asterisk
+       /* send event to asterisk */
+       ast_queue_... todo
+       or maybe use bride info to forward facility.
+}
+
+/*
  * message received from LCR
  */
 int receive_message(int message_type, unsigned long ref, union parameter *param)
@@ -163,14 +455,14 @@ int receive_message(int message_type, unsigned long ref, union parameter *param)
                        case BCHANNEL_ASSIGN:
                        if ((bchannel = find_bchannel_handle(param->bchannel.handle)))
                        {
-                               fprintf(stderr, "error: bchannel handle %x already assigned.\n", param->bchannel.handle);
+                               fprintf(stderr, "error: bchannel handle %x already assigned.\n", (int)param->bchannel.handle);
                                return(-1);
                        }
                        /* create bchannel */
                        bchannel = alloc_bchannel(param->bchannel.handle);
                        if (!bchannel)
                        {
-                               fprintf(stderr, "error: alloc bchannel handle %x failed.\n", param->bchannel.handle);
+                               fprintf(stderr, "error: alloc bchannel handle %x failed.\n", (int)param->bchannel.handle);
                                return(-1);
                        }
 
@@ -195,6 +487,8 @@ int receive_message(int message_type, unsigned long ref, union parameter *param)
                        {
                                bchannel->ref = ref;
                                call->bchannel_handle = param->bchannel.handle;
+#warning hier muesen alle stati gesetzt werden falls sie vor dem b-kanal verfügbar waren
+                               bchannel_join(bchannel, call->bridge_id);
                        }
                        if (bchannel_create(bchannel))
                                bchannel_activate(bchannel, 1);
@@ -208,8 +502,8 @@ int receive_message(int message_type, unsigned long ref, union parameter *param)
                        case BCHANNEL_REMOVE:
                        if (!(bchannel = find_bchannel_handle(param->bchannel.handle)))
                        {
-                               alle fprintf nach ast_log
-                               fprintf(stderr, "error: bchannel handle %x not assigned.\n", param->bchannel.handle);
+                               #warning alle fprintf nach ast_log
+                               fprintf(stderr, "error: bchannel handle %x not assigned.\n", (int)param->bchannel.handle);
                                return(-1);
                        }
                        /* unlink from call */
@@ -244,8 +538,13 @@ int receive_message(int message_type, unsigned long ref, union parameter *param)
                                fprintf(stderr, "illegal new ref %d received\n", ref);
                                return(-1);
                        }
+                       /* allocate new call instance */
                        call = alloc_call();
+                       /* new state */
+                       call->state = CHAN_LCR_STATE_IN_PREPARE;
+                       /* set ref */
                        call->ref = ref;
+                       /* wait for setup (or release from asterisk) */
                } else
                {
                        /* new ref, as requested from this remote application */
@@ -258,8 +557,22 @@ int receive_message(int message_type, unsigned long ref, union parameter *param)
                                send_message(MESSAGE_RELEASE, ref, &newparam);
                                return(0);
                        }
+                       /* store new ref */
                        call->ref = ref;
-#warning process call (send setup, if pending)
+                       /* send pending setup info */
+                       if (call->state == CHAN_LCR_STATE_OUT_PREPARE)
+                               send_setup_to_lcr(call);
+                       /* release if asterisk has signed off */
+                       else if (call->state == CHAN_LCR_STATE_RELEASE)
+                       {
+                               /* send release */
+                               newparam.disconnectinfo.cause = todo
+                               newparam.disconnectinfo.location = todo
+                               send_message(MESSAGE_RELEASE, ref, &newparam);
+                               /* free call */
+                               free_call(call);
+                               return(0);
+                       }
                }
                return(0);
        }
@@ -281,56 +594,55 @@ int receive_message(int message_type, unsigned long ref, union parameter *param)
        switch(message_type)
        {
                case MESSAGE_SETUP:
-todo
+               lcr_in_setup(call, message_type, param);
                break;
 
                case MESSAGE_OVERLAP:
-todo
+               lcr_in_overlap(call, message_type, param);
                break;
 
                case MESSAGE_PROCEEDING:
-todo
+               lcr_in_proceeding(call, message_type, param);
                break;
 
                case MESSAGE_ALERTING:
-todo
+               lcr_in_alerting(call, message_type, param);
                break;
 
                case MESSAGE_CONNECT:
-todo
+               lcr_in_connect(call, message_type, param);
                break;
 
                case MESSAGE_DISCONNECT:
-todo
+               lcr_in_disconnect(call, message_type, param);
                break;
 
                case MESSAGE_RELEASE:
-todo
-               free_call(call);
-               return(0);
+               lcr_in_release(call, message_type, param);
+               break;
 
                case MESSAGE_INFORMATION:
-todo
+               lcr_in_disconnect(call, message_type, param);
                break;
 
                case MESSAGE_FACILITY:
-todo
+               lcr_in_disconnect(call, message_type, param);
                break;
 
                case MESSAGE_PATTERN:
-todo
+#warning todo
                break;
 
                case MESSAGE_NOPATTERN:
-todo
+#warning todo
                break;
 
                case MESSAGE_AUDIOPATH:
-todo
+#warning todo
                break;
 
                default:
-unhandled
+#warning unhandled
        }
        return(0);
 }
@@ -347,6 +659,9 @@ int handle_socket(void)
        struct admin_message msg;
        struct admin_list *admin;
 
+       int sock;
+
+       #warning SOCKET FEHLT!
        /* read from socket */
        len = read(sock, &msg, sizeof(msg));
        if (len == 0)
@@ -422,7 +737,6 @@ int open_socket(void)
        char *socket_name = SOCKET_NAME;
        int conn;
        struct sockaddr_un sock_address;
-       int ret;
        unsigned long on = 1;
        union parameter param;
 
@@ -470,16 +784,19 @@ void close_socket(int sock)
 }
 
 
-void lcr_thread(void)
+socket muss per timer fuer das öffnen checken
+static void *chan_thread(void *arg)
 {
        int work;
 
-       while(42)
+       pthread_mutex_lock(&chan_lock);
+
+       while(!quit)
        {
                work = 0;
 
                /* handle socket */
-               ret = handle_socket();
+               int ret = handle_socket();
                if (ret < 0)
                        break;
                if (ret)
@@ -491,28 +808,422 @@ void lcr_thread(void)
                        work = 1;
                
                if (!work)
+               {
+                       pthread_mutex_unlock(&chan_lock);
                        usleep(30000);
+                       pthread_mutex_lock(&chan_lock);
+               }
        }
+       
+       pthread_mutex_unlock(&chan_lock);
+
+       return NULL;
+}
+
+/*
+ * send setup info to LCR
+ * this function is called, when asterisk call is received and ref is received
+ */
+static void send_setup_to_lcr(struct chan_call *call)
+{
+       if (!ast || !call->ref)
+               return;
+
+       /* send setup message to LCR */
+       memset(&newparam, 0, sizeof(union parameter));
+       newparam.setup.xxxxxx = 
+       send_message(MESSAGE_SETUP, call->ref, &newparam);
+       /* change to outgoing setup state */
+       call->state = CHAN_LCR_STATE_OUT_SETUP;
+}
+
+#if 0
+CHRISTIAN: das war ein konflikt beim pullen
+siehe anderes lcr_request();
+bedenke: das ast_log muss noch üeberall eingepflegt werden
+
+static struct ast_channel *lcr_request(const char *type, int format, void *data, int *cause)
+{
+       struct chan_call *call=alloc_call();
+
+       if (call) {
+#warning hier muss jetzt wohl eine Ref angefordert werden!
+               ast=lcr_ast_new(call, ext, NULL, 0 );
+
+               if (ast) {
+                       call->ast=ast;
+               } else {
+                       ast_log(LOG_WARNING, "Could not create new Asterisk Channel\n");
+                       free_call(call);
+               }
+       } else {
+               ast_log(LOG_WARNING, "Could not create new Lcr Call Handle\n");
+       }
+
+       return ast;
+}
+
+       struct ast_channel *ast=NULL;
+
+       char buf[128];
+        char *port_str, *ext, *p;
+        int port;
+
+        ast_copy_string(buf, data, sizeof(buf)-1);
+        p=buf;
+        port_str=strsep(&p, "/");
+        ext=strsep(&p, "/");
+        ast_verbose("portstr:%s ext:%s\n",port_str, ext);
+
+       sprintf(buf,"%s/%s",lcr_type,(char*)data);
+#endif
+
+/*
+ * send dialing info to LCR
+ * this function is called, when setup acknowledge is received and dialing
+ * info is available.
+ */
+static void send_dialing_to_lcr(struct chan_call *call)
+{
+       if (!ast || !call->ref || !call->dialque)
+               return;
+       
+       /* send setup message to LCR */
+       memset(&newparam, 0, sizeof(union parameter));
+       strncpy(newparam.dialinginfo.id, call->dialque, sizeof(newparam.dialinginfo.id)-1);
+       call->dialque[0] = '\0';
+       send_message(MESSAGE_INFORMATION, call->ref, &newparam);
 }
 
-static struct ast_channel_tech misdn_tech = {
-       .type="lcr",
+/*
+ * new asterisk instance
+ */
+static struct ast_channel *lcr_request(const char *type, int format, void *data, int *cause)
+{
+       pthread_mutex_lock(&chan_lock);
+
+       /* create call instance */
+       call = alloc_call();
+       if (!call)
+       {
+               /* failed to create instance */
+               return NULL;
+       }
+       /* create asterisk channel instrance */
+       ast = ast_channel_alloc(1);
+       if (!ast)
+       {
+               free_call(call);
+               /* failed to create instance */
+               return NULL;
+       }
+       /* link together */
+       ast->tech_pvt = call;
+       call->ast = ast;
+       /* send MESSAGE_NEWREF */
+       memset(&newparam, 0, sizeof(union parameter));
+       newparam.direction = 0; /* request from app */
+       send_message(MESSAGE_NEWREF, 0, &newparam);
+       /* set state */
+       call->state = CHAN_LCR_STATE_OUT_PREPARE;
+
+       pthread_mutex_unlock(&chan_lock);
+}
+
+/*
+ * call from asterisk
+ */
+static int lcr_call(struct ast_channel *ast, char *dest, int timeout)
+{
+        struct chan_call *call=ast->tech_pvt;
+        char buf[128];
+        char *port_str, *dad, *p;
+
+        if (!call) return -1;
+
+       pthread_mutex_lock(&chan_lock);
+
+       hier muss noch
+        ast_copy_string(buf, dest, sizeof(buf)-1);
+        p=buf;
+        port_str=strsep(&p, "/");
+        dad=strsep(&p, "/");
+
+       /* send setup message, if we already have a callref */
+       if (call->ref)
+               send_setup_to_lcr(call);
+
+        if (lcr_debug)
+                ast_verbose("Call: ext:%s dest:(%s) -> dad(%s) \n", ast->exten,dest, dad);
+
+#warning hier müssen wi eine der geholten REFs nehmen und ein SETUP schicken, die INFOS zum SETUP stehen im Ast pointer drin, bzw. werden hier übergeben.
+       
+       pthread_mutex_unlock(&chan_lock);
+       return 0; 
+}
+
+static int lcr_digit(struct ast_channel *ast, char digit)
+{
+       char buf[]="x";
+
+       if (!call) return -1;
+
+       /* only pass IA5 number space */
+       if (digit > 126 || digit < 32)
+               return 0;
+
+       pthread_mutex_lock(&chan_lock);
+
+       /* send information or queue them */
+       if (call->ref && call->state == CHAN_LCR_STATE_OUT_DIALING)
+       {
+               send_dialing_to_lcr(call);
+       } else
+       if (!call->ref
+        && (call->state == CHAN_LCR_STATE_OUT_PREPARE || call->state == CHAN_LCR_STATE_OUT_SETUP));
+       {
+               *buf = digit;
+               strncat(call->dialque, buf, strlen(char->dialque)-1);
+       } else
+       {
+digits kommen, koennen aber nicht verwendet werden.
+       sollen wir sie als info senden (im connect zb.)
+       }
+
+       pthread_mutex_unlock(&chan_lock);
+       
+       return(0);
+}
+
+static int lcr_answer(struct ast_channel *c)
+{
+        struct chan_call *call=c->tech_pvt;
+       if (!call) return -1;
+       pthread_mutex_lock(&chan_lock);
+       pthread_mutex_unlock(&chan_lock);
+        return 0;
+}
+
+static int lcr_hangup(struct ast_channel *ast)
+{
+        struct chan_call *call = ast->tech_pvt;
+
+       if (!call)
+               return 0;
+
+       pthread_mutex_lock(&chan_lock);
+       /* disconnect asterisk, maybe not required */
+       ast->tech_pvt = NULL;
+       if (call->ref)
+       {
+               /* release */
+               memset(&newparam, 0, sizeof(union parameter));
+               newparam.disconnectinfo.cause = CAUSE_RESSOURCEUNAVAIL;
+               newparam.disconnectinfo.location = LOCATION_PRIVATE_LOCAL;
+               send_message(MESSAGE_RELEASE, call->ref, &newparam);
+               /* remove call */
+               free_call(call);
+               pthread_mutex_unlock(&chan_lock);
+               return 0;
+       } else
+       {
+               /* ref is not set, due to prepare setup or release */
+               if (call->state == CHAN_LCR_STATE_RELEASE)
+               {
+                       /* we get the response to our release */
+                       free_call(call);
+               } else
+               {
+                       /* during prepare, we change to release state */
+                       call->state = CHAN_LCR_STATE_RELEASE;
+               }
+       } 
+       pthread_mutex_unlock(&chan_lock);
+       return 0;
+}
+
+static int lcr_write(struct ast_channel *c, struct ast_frame *f)
+{
+        struct chan_call *call= c->tech_pvt;
+       if (!call) return 0;
+       pthread_mutex_lock(&chan_lock);
+       pthread_mutex_unlock(&chan_lock);
+}
+
+
+static struct ast_frame *lcr_read(struct ast_channel *c)
+{
+        struct chan_call *call = c->tech_pvt;
+       if (!call) return 0;
+       pthread_mutex_lock(&chan_lock);
+       pthread_mutex_unlock(&chan_lock);
+}
+
+static int lcr_indicate(struct ast_channel *c, int cond, const void *data, size_t datalen)
+{
+        int res = -1;
+       if (!call) return -1;
+
+       pthread_mutex_lock(&chan_lock);
+
+        switch (cond) {
+                case AST_CONTROL_BUSY:
+                case AST_CONTROL_CONGESTION:
+                case AST_CONTROL_RINGING:
+                       pthread_mutex_unlock(&chan_lock);
+                        return -1;
+                case -1:
+                       pthread_mutex_unlock(&chan_lock);
+                        return 0;
+
+                case AST_CONTROL_VIDUPDATE:
+                        res = -1;
+                        break;
+                case AST_CONTROL_HOLD:
+                        ast_verbose(" << Console Has Been Placed on Hold >> \n");
+                        //ast_moh_start(c, data, g->mohinterpret);
+                        break;
+                case AST_CONTROL_UNHOLD:
+                        ast_verbose(" << Console Has Been Retrieved from Hold >> \n");
+                        //ast_moh_stop(c);
+                        break;
+
+                default:
+                        ast_log(LOG_WARNING, "Don't know how to display condition %d on %s\n", cond, c->name);
+                       pthread_mutex_unlock(&chan_lock);
+                        return -1;
+        }
+
+       pthread_mutex_unlock(&chan_lock);
+        return 0;
+}
+
+static struct ast_channel_tech lcr_tech = {
+       .type=lcr_type,
        .description="Channel driver for connecting to Linux-Call-Router",
-       .capabilities= je nach option?AST_FORMAT_ALAW:AST_FORMAT_ULAW ,
+       .capabilities=AST_FORMAT_ALAW,
        .requester=lcr_request,
        .send_digit=lcr_digit,
        .call=lcr_call,
-       .bridge=lcr_bridge, 
+//     .bridge=lcr_bridge, 
        .hangup=lcr_hangup,
        .answer=lcr_answer,
        .read=lcr_read,
        .write=lcr_write,
-       .indicate=lcr_indication,
-       .fixup=lcr_fixup,
-       .send_text=lcr_send_text,
+       .indicate=lcr_indicate,
+//     .fixup=lcr_fixup,
+//     .send_text=lcr_send_text,
        .properties=0
 };
 
+#warning das muss mal aus der config datei gelesen werden:
+char lcr_context[]="from-lcr";
+
+static struct ast_channel *lcr_ast_new(struct chan_call *call, char *exten, char *callerid, int ref)
+{
+       struct ast_channel *tmp;
+       char *cid_name = 0, *cid_num = 0;
+
+
+       if (callerid)
+                ast_callerid_parse(callerid, &cid_name, &cid_num);
+
+       tmp = ast_channel_alloc(1, AST_STATE_RESERVED, cid_num, cid_name, "", exten, "", 0, "%s/%d", lcr_type,  ref);
+
+       if (tmp) {
+               tmp->tech = &lcr_tech;
+               tmp->writeformat = AST_FORMAT_ALAW;
+               tmp->readformat = AST_FORMAT_ALAW;
+
+               ast_copy_string(tmp->context, lcr_context, AST_MAX_CONTEXT);
+
+       }
+
+       return tmp;
+}
+
+
+
+/*
+ * cli
+ */
+static int lcr_show_lcr (int fd, int argc, char *argv[])
+{
+}
+
+static int lcr_show_calls (int fd, int argc, char *argv[])
+{
+}
+
+static int lcr_reload_routing (int fd, int argc, char *argv[])
+{
+}
+
+static int lcr_reload_interfaces (int fd, int argc, char *argv[])
+{
+}
+
+static int lcr_port_block (int fd, int argc, char *argv[])
+{
+}
+
+static int lcr_port_unblock (int fd, int argc, char *argv[])
+{
+}
+
+static int lcr_port_unload (int fd, int argc, char *argv[])
+{
+}
+
+static struct ast_cli_entry cli_show_lcr =
+{ {"lcr", "show", "lcr", NULL},
+ lcr_show_lcr,
+ "Shows current states of LCR core",
+ "Usage: lcr show lcr\n",
+};
+
+static struct ast_cli_entry cli_show_calls =
+{ {"lcr", "show", "calls", NULL},
+ lcr_show_calls,
+ "Shows current calls made by LCR and Asterisk",
+ "Usage: lcr show calls\n",
+};
+
+static struct ast_cli_entry cli_reload_routing =
+{ {"lcr", "reload", "routing", NULL},
+ lcr_reload_routing,
+ "Reloads routing conf of LCR, current uncomplete calls will be disconnected",
+ "Usage: lcr reload routing\n",
+};
+
+static struct ast_cli_entry cli_reload_interfaces =
+{ {"lcr", "reload", "interfaces", NULL},
+ lcr_reload_interfaces,
+ "Reloads interfaces conf of LCR",
+ "Usage: lcr reload interfaces\n",
+};
+
+static struct ast_cli_entry cli_port_block =
+{ {"lcr", "port", "block", NULL},
+ lcr_port_block,
+ "Blocks LCR port for further calls",
+ "Usage: lcr port block \"<port>\"\n",
+};
+
+static struct ast_cli_entry cli_port_unblock =
+{ {"lcr", "port", "unblock", NULL},
+ lcr_port_unblock,
+ "Unblocks or loads LCR port, port is opened my mISDN",
+ "Usage: lcr port unblock \"<port>\"\n",
+};
+
+static struct ast_cli_entry cli_port_unload =
+{ {"lcr", "port", "unload", NULL},
+ lcr_port_unload,
+ "Unloads LCR port, port is closes by mISDN",
+ "Usage: lcr port unload \"<port>\"\n",
+};
+
 
 /*
  * module loading and destruction
@@ -523,31 +1234,37 @@ int load_module(void)
 
 //     lcr_cfg_update_ptp();
 
+       pthread_mutex_init(&chan_lock, NULL);
+       
        if (!(lcr_sock = open_socket())) {
-               ast_log(LOG_ERROR, "Unable to connect %s\n", misdn_type);
+               ast_log(LOG_ERROR, "Unable to connect\n");
                lcr_sock = -1;
                /* continue with closed socket */
        }
 
        if (!bchannel_initialize()) {
                ast_log(LOG_ERROR, "Unable to open mISDN device\n");
-               unload_module();
+               close_socket(lcr_sock);
                return -1;
        }
        mISDN_created = 1;
 
        if (ast_channel_register(&lcr_tech)) {
-               ast_log(LOG_ERROR, "Unable to register channel class %s\n", misdn_type);
-               unload_module();
+               ast_log(LOG_ERROR, "Unable to register channel class\n");
+               bchannel_deinitialize();
+               close_socket(lcr_sock);
                return -1;
        }
-  
-       ast_cli_register(&cli_show_cls);
-       ast_cli_register(&cli_show_cl);
-       ast_cli_register(&cli_show_config);
-
-       ast_cli_register(&cli_reload);
-
+#if 0  
+       ast_cli_register(&cli_show_lcr);
+       ast_cli_register(&cli_show_calls);
+
+       ast_cli_register(&cli_reload_routing);
+       ast_cli_register(&cli_reload_interfaces);
+       ast_cli_register(&cli_port_block);
+       ast_cli_register(&cli_port_unblock);
+       ast_cli_register(&cli_port_unload);
   
        ast_register_application("misdn_set_opt", misdn_set_opt_exec, "misdn_set_opt",
                                 "misdn_set_opt(:<opt><optarg>:<opt><optarg>..):\n"
@@ -569,7 +1286,19 @@ int load_module(void)
        lcr_cfg_get( 0, LCR_GEN_TRACEFILE, global_tracefile, BUFFERSIZE);
 
        chan_lcr_log(0, 0, "-- mISDN Channel Driver Registred -- (BE AWARE THIS DRIVER IS EXPERIMENTAL!)\n");
+=======
+       //lcr_cfg_get( 0, LCR_GEN_TRACEFILE, global_tracefile, BUFFERSIZE);
+#endif
 
+       quit = 1;       
+       if ((pthread_create(&chan_tid, NULL, chan_thread, arg)<0))
+       {
+               failed to create thread
+               bchannel_deinitialize();
+               close_socket(lcr_sock);
+               ast_channel_unregister(&lcr_tech);
+               return -1;
+       }
        return 0;
 }
 
@@ -577,17 +1306,10 @@ int unload_module(void)
 {
        /* First, take us out of the channel loop */
        ast_log(LOG_VERBOSE, "-- Unregistering mISDN Channel Driver --\n");
+
+       quit = 1;
+       pthread_join(chan_tid, NULL);   
        
-       misdn_tasks_destroy();
-       
-       if (!g_config_initialized) return 0;
-       
-       ast_cli_unregister(&cli_show_cls);
-       ast_cli_unregister(&cli_show_cl);
-       ast_cli_unregister(&cli_show_config);
-       ast_cli_unregister(&cli_reload);
-       ast_unregister_application("misdn_set_opt");
-  
        ast_channel_unregister(&lcr_tech);
 
        if (mISDN_created) {
@@ -600,18 +1322,19 @@ int unload_module(void)
                lcr_sock = -1;
        }
 
-       was ist mit dem mutex
-       
        return 0;
 }
 
-int reload(void)
+static int reload_module(void)
 {
-       reload_config();
-
+//     reload_config();
        return 0;
 }
 
+
+ast_mutex_t usecnt_lock;
+int usecnt;
+
 int usecount(void)
 {
        int res;
@@ -621,6 +1344,9 @@ int usecount(void)
        return res;
 }
 
+
+char *desc="Channel driver for lcr";
+
 char *description(void)
 {
        return desc;
@@ -631,4 +1357,12 @@ char *key(void)
        return ASTERISK_GPL_KEY;
 }
 
+#define AST_MODULE "chan_lcr"
+AST_MODULE_INFO(ASTERISK_GPL_KEY,
+                                AST_MODFLAG_DEFAULT,
+                                "Channel driver for LCR",
+                                .load = load_module,
+                                .unload = unload_module,
+                                .reload = reload_module,
+                           );