admin_server.c

   1 /*****************************************************************************\
   2 **                                                                           **
   3 ** Linux Call Router                                                         **
   4 **                                                                           **
   5 **---------------------------------------------------------------------------**
   6 ** Copyright: Andreas Eversberg                                              **
   7 **                                                                           **
   8 ** Socket link server                                                        **
   9 **                                                                           **
  10 \*****************************************************************************/
  11
  12 #include <stdio.h>
  13 //#include <stdlib.h>
  14 //#include <string.h>
  15 #include <sys/types.h>
  16 //#include <sys/stat.h>
  17 //#include <unistd.h>
  18 //#include <signal.h>
  19 //#include <stdarg.h>
  20 //#include <fcntl.h>
  21 #include <sys/ioctl.h>
  22 //#include <sys/file.h>
  23 //#include <errno.h>
  24 //#include <sys/mman.h>
  25 //#include <sys/resource.h>
  26 #include <sys/socket.h>
  27 #include <sys/un.h>
  28 #include <curses.h>
  29 #include "main.h"
  30
  31
  32 char *socket_name = SOCKET_NAME;
  33 int sock = -1;
  34 struct sockaddr_un sock_address;
  35
  36 struct admin_list *admin_first = NULL;
  37
  38 /*
  39  * initialize admin socket
  40  */
  41 int admin_init(void)
  42 {
  43         unsigned long on = 1;
  44
  45         /* open and bind socket */
  46         if ((sock = socket(PF_UNIX, SOCK_STREAM, 0)) < 0)
  47         {
  48                 PERROR("Failed to create admin socket. (errno=%d)\n", errno);
  49                 return(-1);
  50         }
  51         fhuse++;
  52         memset(&sock_address, 0, sizeof(sock_address));
  53         sock_address.sun_family = AF_UNIX;
  54         UCPY(sock_address.sun_path, socket_name);
  55         unlink(socket_name);
  56         if (bind(sock, (struct sockaddr *)(&sock_address), SUN_LEN(&sock_address)) < 0)
  57         {
  58                 close(sock);
  59                 unlink(socket_name);
  60                 fhuse--;
  61                 sock = -1;
  62                 PERROR("Failed to bind admin socket to \"%s\". (errno=%d)\n", sock_address.sun_path, errno);
  63                 return(-1);
  64         }
  65         if (listen(sock, 5) < 0)
  66         {
  67                 close(sock);
  68                 unlink(socket_name);
  69                 fhuse--;
  70                 sock = -1;
  71                 PERROR("Failed to listen to socket \"%s\". (errno=%d)\n", sock_address.sun_path, errno);
  72                 return(-1);
  73         }
  74         if (ioctl(sock, FIONBIO, (unsigned char *)(&on)) < 0)
  75         {
  76                 close(sock);
  77                 unlink(socket_name);
  78                 fhuse--;
  79                 sock = -1;
  80                 PERROR("Failed to set socket \"%s\" into non-blocking mode. (errno=%d)\n", sock_address.sun_path, errno);
  81                 return(-1);
  82         }
  83         return(0);
  84 }
  85
  86
  87 /*
  88  * free connection
  89  * also releases all remote joins
  90  */
  91 void free_connection(struct admin_list *admin)
  92 {
  93         struct admin_queue *response;
  94         void *temp;
  95         union parameter param;
  96         class Join *join, *joinnext;
  97
  98         /* free remote joins */
  99         if (admin->remote_name[0])
 100         {
 101                 join = join_first;
 102                 while(join)
 103                 {
 104                         joinnext = join->next;
 105                         if (join->j_type==JOIN_TYPE_REMOTE) if (((class JoinRemote *)join)->j_remote_id == admin->sock)
 106                         {
 107                                 memset(&param, 0, sizeof(param));
 108                                 param.disconnectinfo.cause = CAUSE_OUTOFORDER;
 109                                 param.disconnectinfo.location = LOCATION_PRIVATE_LOCAL;
 110                                 ((class JoinRemote *)join)->message_remote(MESSAGE_RELEASE, &param);
 111                                 /* join is now destroyed, so we go to next join */
 112                         }
 113                         join = joinnext;
 114                 }
 115         }
 116
 117         if (admin->sock >= 0)
 118         {
 119                 close(admin->sock);
 120                 fhuse--;
 121         }
 122 //      printf("new\n", response);
 123         response = admin->response;
 124         while (response)
 125         {
 126 //#warning
 127 //      printf("%x\n", response);
 128                 temp = response->next;
 129                 FREE(response, 0);
 130                 memuse--;
 131                 response = (struct admin_queue *)temp;
 132         }
 133 //      printf("new2\n", response);
 134         FREE(admin, 0);
 135 //      printf("new3\n", response);
 136         memuse--;
 137 }
 138
 139
 140 /*
 141  * cleanup admin socket
 142  */
 143 void admin_cleanup(void)
 144 {
 145         struct admin_list *admin, *next;;
 146
 147         admin = admin_first;
 148         while(admin)
 149         {
 150 //printf("clean\n");
 151                 next = admin->next;
 152                 free_connection(admin);
 153                 admin = next;
 154         }
 155
 156         if (sock >= 0)
 157         {
 158                 close(sock);
 159                 fhuse--;
 160         }
 161 }
 162
 163
 164 /*
 165  * do interface reload
 166  */
 167 int admin_interface(struct admin_queue **responsep)
 168 {
 169         struct admin_queue      *response;      /* response pointer */
 170         char                    *err_txt = "";
 171         int                     err = 0;
 172
 173         if (read_interfaces())
 174         {
 175                 relink_interfaces();
 176                 free_interfaces(interface_first);
 177                 interface_first = interface_newlist;
 178                 interface_newlist = NULL;
 179         } else
 180         {
 181                 err_txt = interface_error;
 182                 err = -1;
 183         }
 184         /* create state response */
 185         response = (struct admin_queue *)MALLOC(sizeof(struct admin_queue)+sizeof(admin_message));
 186         memuse++;
 187         response->num = 1;
 188         /* message */
 189         response->am[0].message = ADMIN_RESPONSE_CMD_INTERFACE;
 190         /* error */
 191         response->am[0].u.x.error = err;
 192         /* message */
 193         SCPY(response->am[0].u.x.message, err_txt);
 194         /* attach to response chain */
 195         *responsep = response;
 196         responsep = &response->next;
 197
 198         return(0);
 199 }
 200
 201
 202 /*
 203  * do route reload
 204  */
 205 int admin_route(struct admin_queue **responsep)
 206 {
 207         struct route_ruleset    *ruleset_new;
 208         struct admin_queue      *response;      /* response pointer */
 209         char                    err_txt[256] = "";
 210         int                     err = 0;
 211 #if 0
 212         int                     n;
 213 #endif
 214         class EndpointAppPBX    *apppbx;
 215
 216 #if 0
 217         n = 0;
 218         apppbx = apppbx_first;
 219         while(apppbx)
 220         {
 221                 n++;
 222                 apppbx = apppbx->next;
 223         }
 224         if (apppbx_first)
 225         {
 226                 SPRINT(err_txt, "Cannot reload routing, because %d endpoints active\n", n);
 227                 err = -1;
 228                 goto response;
 229         }
 230 #endif
 231         if (!(ruleset_new = ruleset_parse()))
 232         {
 233                 SPRINT(err_txt, ruleset_error);
 234                 err = -1;
 235                 goto response;
 236         }
 237         ruleset_free(ruleset_first);
 238         ruleset_first = ruleset_new;
 239         ruleset_main = getrulesetbyname("main");
 240         if (!ruleset_main)
 241         {
 242                 SPRINT(err_txt, "Ruleset reloaded, but rule 'main' not found.\n");
 243                 err = -1;
 244         }
 245         apppbx = apppbx_first;
 246         while(apppbx)
 247         {
 248                 if (apppbx->e_action)
 249                 {
 250                         switch(apppbx->e_action->index)
 251                         {
 252                                 case ACTION_INTERNAL:
 253                                 apppbx->e_action = &action_internal;
 254                                 break;
 255                                 case ACTION_EXTERNAL:
 256                                 apppbx->e_action = &action_external;
 257                                 break;
 258                                 case ACTION_REMOTE:
 259                                 apppbx->e_action = &action_remote;
 260                                 break;
 261                                 case ACTION_VBOX_RECORD:
 262                                 apppbx->e_action = &action_vbox;
 263                                 break;
 264                                 case ACTION_PARTYLINE:
 265                                 apppbx->e_action = &action_partyline;
 266                                 break;
 267                                 default:
 268                                 goto release;
 269                         }
 270                 } else if (apppbx->e_state != EPOINT_STATE_CONNECT)
 271                 {
 272                         release:
 273                         apppbx->e_callback = 0;
 274                         apppbx->e_action = NULL;
 275                         apppbx->release(RELEASE_ALL, LOCATION_PRIVATE_LOCAL, CAUSE_NORMAL, LOCATION_PRIVATE_LOCAL, CAUSE_NORMAL);
 276                         start_trace(0,
 277                                 NULL,
 278                                 numberrize_callerinfo(apppbx->e_callerinfo.id, apppbx->e_callerinfo.ntype),
 279                                 apppbx->e_dialinginfo.id,
 280                                 DIRECTION_NONE,
 281                                 CATEGORY_EP,
 282                                 apppbx->ea_endpoint->ep_serial,
 283                                 "KICK (reload routing)");
 284                         end_trace();
 285                 }
 286
 287                 apppbx->e_action_timeout = NULL;
 288                 apppbx->e_rule = NULL;
 289                 apppbx->e_ruleset = NULL;
 290
 291                 apppbx = apppbx->next;
 292         }
 293
 294         response:
 295         /* create state response */
 296         response = (struct admin_queue *)MALLOC(sizeof(struct admin_queue)+sizeof(admin_message));
 297         memuse++;
 298         response->num = 1;
 299         /* message */
 300         response->am[0].message = ADMIN_RESPONSE_CMD_ROUTE;
 301         /* error */
 302         response->am[0].u.x.error = err;
 303         /* message */
 304         SCPY(response->am[0].u.x.message, err_txt);
 305         /* attach to response chain */
 306         *responsep = response;
 307         responsep = &response->next;
 308
 309         return(0);
 310 }
 311
 312
 313 /*
 314  * do dialing
 315  */
 316 int admin_dial(struct admin_queue **responsep, char *message)
 317 {
 318         struct extension        ext;            /* temporary extension's settings */
 319         struct admin_queue      *response;      /* response pointer */
 320         char                    *p;             /* pointer to dialing digits */
 321
 322         /* create state response */
 323         response = (struct admin_queue *)MALLOC(sizeof(struct admin_queue)+sizeof(admin_message));
 324         memuse++;
 325         response->num = 1;
 326         /* message */
 327         response->am[0].message = ADMIN_RESPONSE_CMD_DIAL;
 328
 329         /* process request */
 330         if (!(p = strchr(message,':')))
 331         {
 332                 response->am[0].u.x.error = -EINVAL;
 333                 SPRINT(response->am[0].u.x.message, "no seperator ':' in message to seperate number from extension");
 334                 goto out;
 335         }
 336         *p++ = 0;
 337
 338         /* modify extension */
 339         if (!read_extension(&ext, message))
 340         {
 341                 response->am[0].u.x.error = -EINVAL;
 342                 SPRINT(response->am[0].u.x.message, "extension doesn't exist");
 343                 goto out;
 344         }
 345         SCPY(ext.next, p);
 346         write_extension(&ext, message);
 347
 348         out:
 349         /* attach to response chain */
 350         *responsep = response;
 351         responsep = &response->next;
 352         return(0);
 353 }
 354
 355
 356 /*
 357  * do tracing
 358  */
 359 int admin_trace(struct admin_list *admin, struct admin_trace_req *trace)
 360 {
 361         memcpy(&admin->trace, trace, sizeof(struct admin_trace_req));
 362         return(0);
 363 }
 364
 365
 366 /*
 367  * do blocking
 368  *
 369  * 0 = make port available
 370  * 1 = make port administratively blocked
 371  * 2 = unload port
 372  * the result is returned:
 373  * 0 = port is now available
 374  * 1 = port is now blocked
 375  * 2 = port cannot be loaded or has been unloaded
 376  * -1 = port doesn't exist
 377  */
 378 int admin_block(struct admin_queue **responsep, int portnum, int block)
 379 {
 380         struct admin_queue      *response;      /* response pointer */
 381         struct interface        *interface;
 382         struct interface_port   *ifport;
 383
 384         /* create block response */
 385         response = (struct admin_queue *)MALLOC(sizeof(struct admin_queue)+sizeof(admin_message));
 386         memuse++;
 387         response->num = 1;
 388         /* message */
 389         response->am[0].message = ADMIN_RESPONSE_CMD_BLOCK;
 390         response->am[0].u.x.portnum = portnum;
 391
 392         /* search for port */
 393         interface = interface_first;
 394         while(interface)
 395         {
 396                 ifport = interface->ifport;
 397                 while(ifport)
 398                 {
 399                         if (ifport->portnum == portnum)
 400                                 break;
 401                         ifport = ifport->next;
 402                 }
 403                 if (ifport)
 404                         break;
 405                 interface = interface->next;
 406         }
 407         /* not found, we return -1 */
 408         if (!ifport)
 409         {
 410                 response->am[0].u.x.block = -1;
 411                 response->am[0].u.x.error = 1;
 412                 SPRINT(response->am[0].u.x.message, "Port %d does not exist.", portnum);
 413                 goto out;
 414         }
 415
 416         /* no interface */
 417         if (!ifport->mISDNport)
 418         {
 419                 /* not loaded anyway */
 420                 if (block >= 2)
 421                 {
 422                         response->am[0].u.x.block = 2;
 423                         goto out;
 424                 }
 425
 426                 /* try loading interface */
 427                 ifport->block = block;
 428                 load_port(ifport);
 429
 430                 /* port cannot load */
 431                 if (ifport->block >= 2)
 432                 {
 433                         response->am[0].u.x.block = 2;
 434                         response->am[0].u.x.error = 1;
 435                         SPRINT(response->am[0].u.x.message, "Port %d will not load.", portnum);
 436                         goto out;
 437                 }
 438
 439                 /* port loaded */
 440                 response->am[0].u.x.block = ifport->block;
 441                 goto out;
 442         }
 443
 444         /* if we shall unload interface */
 445         if (block >= 2)
 446         {
 447                 mISDNport_close(ifport->mISDNport);
 448                 ifport->mISDNport = 0;
 449                 ifport->block = 2;
 450                 goto out;
 451         }
 452
 453         /* port new blocking state */
 454         ifport->block = response->am[0].u.x.block = block;
 455
 456         out:
 457         /* attach to response chain */
 458         *responsep = response;
 459         responsep = &response->next;
 460         return(0);
 461 }
 462
 463
 464 /*
 465  * do release
 466  */
 467 int admin_release(struct admin_queue **responsep, char *message)
 468 {
 469         unsigned long           id;
 470         struct admin_queue      *response;      /* response pointer */
 471         class EndpointAppPBX    *apppbx;
 472
 473         /* create state response */
 474         response = (struct admin_queue *)MALLOC(sizeof(struct admin_queue)+sizeof(admin_message));
 475         memuse++;
 476         response->num = 1;
 477         /* message */
 478         response->am[0].message = ADMIN_RESPONSE_CMD_RELEASE;
 479
 480         id = atoi(message);
 481         apppbx = apppbx_first;
 482         while(apppbx)
 483         {
 484                 if (apppbx->ea_endpoint->ep_serial == id)
 485                         break;
 486                 apppbx = apppbx->next;
 487         }
 488         if (!apppbx)
 489         {
 490                 response->am[0].u.x.error = -EINVAL;
 491                 SPRINT(response->am[0].u.x.message, "Given endpoint %d doesn't exist.", id);
 492                 goto out;
 493         }
 494
 495         apppbx->e_callback = 0;
 496         apppbx->release(RELEASE_ALL, LOCATION_PRIVATE_LOCAL, CAUSE_NORMAL, LOCATION_PRIVATE_LOCAL, CAUSE_NORMAL);
 497
 498         out:
 499         /* attach to response chain */
 500         *responsep = response;
 501         responsep = &response->next;
 502         return(0);
 503 }
 504
 505
 506 /*
 507  * do call
 508  */
 509 int admin_call(struct admin_list *admin, struct admin_message *msg)
 510 {
 511         class Endpoint          *epoint;
 512         class EndpointAppPBX    *apppbx;
 513
 514         if (!(epoint = new Endpoint(0, 0)))
 515                 FATAL("No memory for Endpoint instance\n");
 516         if (!(epoint->ep_app = apppbx = new DEFAULT_ENDPOINT_APP(epoint)))
 517                 FATAL("No memory for Endpoint Application instance\n");
 518         apppbx->e_adminid = admin->sockserial;
 519         admin->epointid = epoint->ep_serial;
 520         SCPY(apppbx->e_callerinfo.id, nationalize_callerinfo(msg->u.call.callerid, &apppbx->e_callerinfo.ntype));
 521         if (msg->u.call.present)
 522                 apppbx->e_callerinfo.present = INFO_PRESENT_ALLOWED;
 523         else
 524                 apppbx->e_callerinfo.present = INFO_PRESENT_RESTRICTED;
 525         apppbx->e_callerinfo.screen = INFO_SCREEN_NETWORK;
 526
 527 //printf("hh=%d\n", apppbx->e_capainfo.hlc);
 528
 529         apppbx->e_capainfo.bearer_capa = msg->u.call.bc_capa;
 530         apppbx->e_capainfo.bearer_mode = msg->u.call.bc_mode;
 531         apppbx->e_capainfo.bearer_info1 = msg->u.call.bc_info1;
 532         apppbx->e_capainfo.hlc = msg->u.call.hlc;
 533         apppbx->e_capainfo.exthlc = msg->u.call.exthlc;
 534         SCPY(apppbx->e_dialinginfo.id, msg->u.call.dialing);
 535         SCPY(apppbx->e_dialinginfo.interfaces, msg->u.call.interface);
 536         apppbx->e_dialinginfo.sending_complete = 1;
 537
 538         apppbx->new_state(PORT_STATE_OUT_SETUP);
 539         apppbx->out_setup();
 540         return(0);
 541 }
 542
 543
 544 /*
 545  * this function is called for response whenever a call state changes.
 546  */
 547 void admin_call_response(int adminid, int message, char *connected, int cause, int location, int notify)
 548 {
 549         struct admin_list       *admin;
 550         struct admin_queue      *response, **responsep; /* response pointer */
 551
 552         /* searching for admin id
 553          * maybe there is no admin instance, because the calling port was not
 554          * initiated by admin_call */
 555         admin = admin_first;
 556         while(admin)
 557         {
 558                 if (adminid == admin->sockserial)
 559                         break;
 560                 admin = admin->next;
 561         }
 562         if (!admin)
 563                 return;
 564
 565         /* seek to end of response list */
 566         response = admin->response;
 567         responsep = &admin->response;
 568         while(response)
 569         {
 570                 responsep = &response->next;
 571                 response = response->next;
 572         }
 573
 574         /* create state response */
 575         response = (struct admin_queue *)MALLOC(sizeof(struct admin_queue)+sizeof(admin_message));
 576         memuse++;
 577         response->num = 1;
 578         /* message */
 579         response->am[0].message = message;
 580 //      printf("MESSAGE: %d\n", message);
 581
 582         SCPY(response->am[0].u.call.callerid, connected);
 583         response->am[0].u.call.cause = cause;
 584         response->am[0].u.call.location = location;
 585         response->am[0].u.call.notify = notify;
 586
 587         /* attach to response chain */
 588         *responsep = response;
 589         responsep = &response->next;
 590 }
 591
 592
 593 /*
 594  * send data to the remote socket join instance
 595  */
 596 int admin_message_to_join(struct admin_msg *msg, char *remote_name, int sock_id)
 597 {
 598         class Join                      *join;
 599         struct admin_list               *admin;
 600
 601         /* hello message */
 602         if (msg->type == MESSAGE_HELLO)
 603         {
 604                 if (remote_name[0])
 605                 {
 606                         PERROR("Remote application repeats hello message.\n");
 607                         return(-1);
 608                 }
 609                 /* look for second application */
 610                 admin = admin_first;
 611                 while(admin)
 612                 {
 613                         if (!strcmp(admin->remote_name, msg->param.hello.application))
 614                                 break;
 615                         admin = admin->next;
 616                 }
 617                 if (admin)
 618                 {
 619                         PERROR("Remote application connects twice??? (ignoring)\n");
 620                         return(-1);
 621                 }
 622                 /* set remote socket instance */
 623                 SCPY(remote_name, msg->param.hello.application);
 624                 return(0);
 625         }
 626
 627         /* check we have no application name */
 628         if (remote_name[0])
 629         {
 630                 PERROR("Remote application did not send us a hello message.\n");
 631                 return(-1);
 632         }
 633
 634         /* new join */
 635         if (msg->type == MESSAGE_NEWREF)
 636         {
 637                 /* create new join instance */
 638                 join = new JoinRemote(0, remote_name, sock_id); // must have no serial, because no endpoint is connected
 639                 if (!join)
 640                         FATAL("No memory for remote join instance\n");
 641                 return(0);
 642         }
 643
 644         /* bchannel message
 645          * no ref given for *_ack */
 646         if (msg->type == MESSAGE_BCHANNEL)
 647         if (msg->param.bchannel.type == BCHANNEL_ASSIGN_ACK
 648          || msg->param.bchannel.type == BCHANNEL_REMOVE_ACK)
 649         {
 650                 /* no ref, but address */
 651                 message_bchannel_from_join(NULL, msg->param.bchannel.type, msg->param.bchannel.handle);
 652                 return(0);
 653         }
 654
 655         /* check for ref */
 656         if (!msg->ref)
 657         {
 658                 PERROR("Remote application did not send us a valid ref with a message.\n");
 659                 return(-1);
 660         }
 661
 662         /* find join instance */
 663         join = join_first;
 664         while(join)
 665         {
 666                 if (join->j_serial == msg->ref)
 667                         break;
 668                 join = join->next;
 669         }
 670         if (!join)
 671         {
 672                 PERROR("No join found with serial %d.\n", msg->ref);
 673                 return(-1);
 674         }
 675
 676         /* check application */
 677         if (join->j_type != JOIN_TYPE_REMOTE)
 678         {
 679                 PERROR("Ref %d does not belong to a remote join instance.\n", msg->ref);
 680                 return(-1);
 681         }
 682         if (sock_id != ((class JoinRemote *)join)->j_remote_id)
 683         {
 684                 PERROR("Ref %d belongs to remote application %s, but not to sending application %s.\n", msg->ref, ((class JoinRemote *)join)->j_remote_name, remote_name);
 685                 return(-1);
 686         }
 687
 688         /* send message */
 689         ((class JoinRemote *)join)->message_remote(msg->type, &msg->param);
 690
 691         return(0);
 692 }
 693
 694
 695 /*
 696  * this function is called for every message to remote socket
 697  */
 698 int admin_message_from_join(int remote_id, unsigned long ref, int message_type, union parameter *param)
 699 {
 700         struct admin_list       *admin;
 701         struct admin_queue      *response, **responsep; /* response pointer */
 702
 703         /* searching for admin id
 704          * maybe there is no given remote application
 705          */
 706         admin = admin_first;
 707         while(admin)
 708         {
 709                 if (admin->remote_name[0] && admin->sock==remote_id)
 710                         break;
 711                 admin = admin->next;
 712         }
 713         /* no given remote application connected */
 714         if (!admin)
 715                 return(-1);
 716
 717         /* seek to end of response list */
 718         response = admin->response;
 719         responsep = &admin->response;
 720         while(response)
 721         {
 722                 responsep = &response->next;
 723                 response = response->next;
 724         }
 725
 726         /* create state response */
 727         response = (struct admin_queue *)MALLOC(sizeof(struct admin_queue)+sizeof(admin_message));
 728         memuse++;
 729         response->num = 1;
 730
 731         /* message */
 732         response->am[0].u.msg.type = message_type;
 733         response->am[0].u.msg.ref = ref;
 734         memcpy(&response->am[0].u.msg.param, param, sizeof(union parameter));
 735
 736         /* attach to response chain */
 737         *responsep = response;
 738         responsep = &response->next;
 739
 740         return(0);
 741 }
 742
 743
 744 /*
 745  * do state debugging
 746  */
 747 int admin_state(struct admin_queue **responsep)
 748 {
 749
 750         class Port              *port;
 751         class EndpointAppPBX    *apppbx;
 752         class Join              *join;
 753         class Pdss1             *pdss1;
 754         struct interface        *interface;
 755         struct interface_port   *ifport;
 756         struct mISDNport        *mISDNport;
 757         int                     i;
 758         int                     num;
 759         int                     anybusy;
 760         struct admin_queue      *response;
 761         struct admin_list       *admin;
 762
 763         /* create state response */
 764         response = (struct admin_queue *)MALLOC(sizeof(struct admin_queue)+sizeof(admin_message));
 765         memuse++;
 766         response->num = 1;
 767         /* message */
 768         response->am[0].message = ADMIN_RESPONSE_STATE;
 769         /* version */
 770         SCPY(response->am[0].u.s.version_string, VERSION_STRING);
 771         /* time */
 772         memcpy(&response->am[0].u.s.tm, now_tm, sizeof(struct tm));
 773         /* log file */
 774         SCPY(response->am[0].u.s.logfile, options.log);
 775         /* interface count */
 776         i = 0;
 777         interface = interface_first;
 778         while(interface)
 779         {
 780                 ifport = interface->ifport;
 781                 while(ifport)
 782                 {
 783                         i++;
 784                         ifport = ifport->next;
 785                 }
 786                 interface = interface->next;
 787         }
 788         response->am[0].u.s.interfaces = i;
 789         /* remote connection count */
 790         i = 0;
 791         admin = admin_first;
 792         while(admin)
 793         {
 794                 if (admin->remote_name[0])
 795                         i++;
 796                 admin = admin->next;
 797         }
 798         response->am[0].u.s.remotes = i;
 799         /* join count */
 800         join = join_first;
 801         i = 0;
 802         while(join)
 803         {
 804                 i++;
 805                 join = join->next;
 806         }
 807         response->am[0].u.s.joins = i;
 808         /* apppbx count */
 809         apppbx = apppbx_first;
 810         i = 0;
 811         while(apppbx)
 812         {
 813                 i++;
 814                 apppbx = apppbx->next;
 815         }
 816         response->am[0].u.s.epoints = i;
 817         /* port count */
 818         i = 0;
 819         port = port_first;
 820         while(port)
 821         {
 822                 i++;
 823                 port = port->next;
 824         }
 825         response->am[0].u.s.ports = i;
 826         /* attach to response chain */
 827         *responsep = response;
 828         responsep = &response->next;
 829
 830         /* create response for all interfaces */
 831         num = (response->am[0].u.s.interfaces)+(response->am[0].u.s.joins)+(response->am[0].u.s.epoints)+(response->am[0].u.s.ports);
 832         if (num == 0)
 833                 return(0);
 834         response = (struct admin_queue *)MALLOC(sizeof(admin_queue)+(num*sizeof(admin_message)));
 835         memuse++;
 836         response->num = num;
 837         *responsep = response;
 838         responsep = &response->next;
 839         interface = interface_first;
 840         num = 0;
 841         while(interface)
 842         {
 843                 ifport = interface->ifport;
 844                 while(ifport)
 845                 {
 846                         /* message */
 847                         response->am[num].message = ADMIN_RESPONSE_S_INTERFACE;
 848                         /* interface */
 849                         SCPY(response->am[num].u.i.interface_name, interface->name);
 850                         /* portnum */
 851                         response->am[num].u.i.portnum = ifport->portnum;
 852                         /* iftype */
 853                         response->am[num].u.i.extension = interface->extension;
 854                         /* block */
 855                         response->am[num].u.i.block = ifport->block;
 856                         if (ifport->mISDNport)
 857                         {
 858                                 mISDNport = ifport->mISDNport;
 859
 860                                 /* ptp */
 861                                 response->am[num].u.i.ptp = mISDNport->ptp;
 862                                 /* ntmode */
 863                                 response->am[num].u.i.ntmode = mISDNport->ntmode;
 864                                 /* pri */
 865                                 response->am[num].u.i.pri = mISDNport->pri;
 866                                 /* use */
 867                                 response->am[num].u.i.use = mISDNport->use;
 868                                 /* l1link */
 869                                 response->am[num].u.i.l1link = mISDNport->l1link;
 870                                 /* l2link */
 871                                 response->am[num].u.i.l2link = mISDNport->l2link;
 872                                 /* channels */
 873                                 response->am[num].u.i.channels = mISDNport->b_num;
 874                                 /* channel info */
 875                                 i = 0;
 876                                 anybusy = 0;
 877                                 while(i < mISDNport->b_num)
 878                                 {
 879                                         response->am[num].u.i.busy[i] = mISDNport->b_state[i];
 880                                         if (mISDNport->b_port[i])
 881                                                 response->am[num].u.i.port[i] = mISDNport->b_port[i]->p_serial;
 882                                         i++;
 883                                 }
 884                         }
 885                         num++;
 886
 887                         ifport = ifport->next;
 888                 }
 889                 interface = interface->next;
 890         }
 891
 892         /* create response for all remotes */
 893         admin = admin_first;
 894         while(admin)
 895         {
 896                 if (admin->remote_name[0])
 897                 {
 898                         /* message */
 899                         response->am[num].message = ADMIN_RESPONSE_S_REMOTE;
 900                         /* name */
 901                         SCPY(response->am[num].u.r.name, admin->remote_name);
 902                         /* */
 903                         num++;
 904                 }
 905                 admin = admin->next;
 906         }
 907
 908         /* create response for all joins */
 909         join = join_first;
 910         while(join)
 911         {
 912                 /* message */
 913                 response->am[num].message = ADMIN_RESPONSE_S_JOIN;
 914                 /* serial */
 915                 response->am[num].u.j.serial = join->j_serial;
 916                 /* partyline */
 917                 if (join->j_type == JOIN_TYPE_PBX)
 918                         response->am[num].u.j.partyline = ((class JoinPBX *)join)->j_partyline;
 919                 /* remote application */
 920                 if (join->j_type == JOIN_TYPE_REMOTE)
 921                         SCPY(response->am[num].u.j.remote, ((class JoinRemote *)join)->j_remote_name);
 922                 /* */
 923                 join = join->next;
 924                 num++;
 925         }
 926
 927         /* create response for all endpoint */
 928         apppbx = apppbx_first;
 929         while(apppbx)
 930         {
 931                 /* message */
 932                 response->am[num].message = ADMIN_RESPONSE_S_EPOINT;
 933                 /* serial */
 934                 response->am[num].u.e.serial = apppbx->ea_endpoint->ep_serial;
 935                 /* join */
 936                 response->am[num].u.e.join = apppbx->ea_endpoint->ep_join_id;
 937                 /* rx notification */
 938                 response->am[num].u.e.rx_state = apppbx->e_rx_state;
 939                 /* tx notification */
 940                 response->am[num].u.e.tx_state = apppbx->e_tx_state;
 941                 /* state */
 942                 switch(apppbx->e_state)
 943                 {
 944                         case EPOINT_STATE_IN_SETUP:
 945                         response->am[num].u.e.state = ADMIN_STATE_IN_SETUP;
 946                         break;
 947                         case EPOINT_STATE_OUT_SETUP:
 948                         response->am[num].u.e.state = ADMIN_STATE_OUT_SETUP;
 949                         break;
 950                         case EPOINT_STATE_IN_OVERLAP:
 951                         response->am[num].u.e.state = ADMIN_STATE_IN_OVERLAP;
 952                         break;
 953                         case EPOINT_STATE_OUT_OVERLAP:
 954                         response->am[num].u.e.state = ADMIN_STATE_OUT_OVERLAP;
 955                         break;
 956                         case EPOINT_STATE_IN_PROCEEDING:
 957                         response->am[num].u.e.state = ADMIN_STATE_IN_PROCEEDING;
 958                         break;
 959                         case EPOINT_STATE_OUT_PROCEEDING:
 960                         response->am[num].u.e.state = ADMIN_STATE_OUT_PROCEEDING;
 961                         break;
 962                         case EPOINT_STATE_IN_ALERTING:
 963                         response->am[num].u.e.state = ADMIN_STATE_IN_ALERTING;
 964                         break;
 965                         case EPOINT_STATE_OUT_ALERTING:
 966                         response->am[num].u.e.state = ADMIN_STATE_OUT_ALERTING;
 967                         break;
 968                         case EPOINT_STATE_CONNECT:
 969                         response->am[num].u.e.state = ADMIN_STATE_CONNECT;
 970                         break;
 971                         case EPOINT_STATE_IN_DISCONNECT:
 972                         response->am[num].u.e.state = ADMIN_STATE_IN_DISCONNECT;
 973                         break;
 974                         case EPOINT_STATE_OUT_DISCONNECT:
 975                         response->am[num].u.e.state = ADMIN_STATE_OUT_DISCONNECT;
 976                         break;
 977                         default:
 978                         response->am[num].u.e.state = ADMIN_STATE_IDLE;
 979                 }
 980                 /* terminal */
 981                 SCPY(response->am[num].u.e.terminal, apppbx->e_ext.number);
 982                 /* callerid */
 983                 SCPY(response->am[num].u.e.callerid, apppbx->e_callerinfo.id);
 984                 /* dialing */
 985                 SCPY(response->am[num].u.e.dialing, apppbx->e_dialinginfo.id);
 986                 /* action string */
 987                 if (apppbx->e_action)
 988                         SCPY(response->am[num].u.e.action, action_defs[apppbx->e_action->index].name);
 989 //              if (apppbx->e_action)
 990 //              printf("action=%s\n",action_defs[apppbx->e_action->index].name);
 991                 /* park */
 992                 response->am[num].u.e.park = apppbx->ea_endpoint->ep_park;
 993                 if (apppbx->ea_endpoint->ep_park && apppbx->ea_endpoint->ep_park_len && apppbx->ea_endpoint->ep_park_len<=(int)sizeof(response->am[num].u.e.park_callid))
 994                         memcpy(response->am[num].u.e.park_callid, apppbx->ea_endpoint->ep_park_callid, apppbx->ea_endpoint->ep_park_len);
 995                 response->am[num].u.e.park_len = apppbx->ea_endpoint->ep_park_len;
 996                 /* crypt */
 997                 if (apppbx->e_crypt == CRYPT_ON)
 998                         response->am[num].u.e.crypt = 1;
 999                 /* */
1000                 apppbx = apppbx->next;
1001                 num++;
1002         }
1003
1004         /* create response for all ports */
1005         port = port_first;
1006         while(port)
1007         {
1008                 /* message */
1009                 response->am[num].message = ADMIN_RESPONSE_S_PORT;
1010                 /* serial */
1011                 response->am[num].u.p.serial = port->p_serial;
1012                 /* name */
1013                 SCPY(response->am[num].u.p.name, port->p_name);
1014                 /* epoint */
1015                 response->am[num].u.p.epoint = ACTIVE_EPOINT(port->p_epointlist);
1016                 /* state */
1017                 switch(port->p_state)
1018                 {
1019                         case PORT_STATE_IN_SETUP:
1020                         response->am[num].u.p.state = ADMIN_STATE_IN_SETUP;
1021                         break;
1022                         case PORT_STATE_OUT_SETUP:
1023                         response->am[num].u.p.state = ADMIN_STATE_OUT_SETUP;
1024                         break;
1025                         case PORT_STATE_IN_OVERLAP:
1026                         response->am[num].u.p.state = ADMIN_STATE_IN_OVERLAP;
1027                         break;
1028                         case PORT_STATE_OUT_OVERLAP:
1029                         response->am[num].u.p.state = ADMIN_STATE_OUT_OVERLAP;
1030                         break;
1031                         case PORT_STATE_IN_PROCEEDING:
1032                         response->am[num].u.p.state = ADMIN_STATE_IN_PROCEEDING;
1033                         break;
1034                         case PORT_STATE_OUT_PROCEEDING:
1035                         response->am[num].u.p.state = ADMIN_STATE_OUT_PROCEEDING;
1036                         break;
1037                         case PORT_STATE_IN_ALERTING:
1038                         response->am[num].u.p.state = ADMIN_STATE_IN_ALERTING;
1039                         break;
1040                         case PORT_STATE_OUT_ALERTING:
1041                         response->am[num].u.p.state = ADMIN_STATE_OUT_ALERTING;
1042                         break;
1043                         case PORT_STATE_CONNECT:
1044                         response->am[num].u.p.state = ADMIN_STATE_CONNECT;
1045                         break;
1046                         case PORT_STATE_IN_DISCONNECT:
1047                         response->am[num].u.p.state = ADMIN_STATE_IN_DISCONNECT;
1048                         break;
1049                         case PORT_STATE_OUT_DISCONNECT:
1050                         response->am[num].u.p.state = ADMIN_STATE_OUT_DISCONNECT;
1051                         break;
1052                         default:
1053                         response->am[num].u.p.state = ADMIN_STATE_IDLE;
1054                 }
1055                 /* isdn */
1056                 if ((port->p_type&PORT_CLASS_mISDN_MASK) == PORT_CLASS_mISDN_DSS1)
1057                 {
1058                         response->am[num].u.p.isdn = 1;
1059                         pdss1 = (class Pdss1 *)port;
1060                         response->am[num].u.p.isdn_chan = pdss1->p_m_b_channel;
1061                         response->am[num].u.p.isdn_hold = pdss1->p_m_hold;
1062                         response->am[num].u.p.isdn_ces = pdss1->p_m_d_ces;
1063                 }
1064                 /* */
1065                 port = port->next;
1066                 num++;
1067         }
1068         return(0);
1069 }
1070
1071 int sockserial = 1; // must start with 1, because 0 is used if no serial is set
1072 /*
1073  * handle admin socket (non blocking)
1074  */
1075 int admin_handle(void)
1076 {
1077         struct admin_list       *admin, **adminp;
1078         void                    *temp;
1079         struct admin_message    msg;
1080         int                     len;
1081         int                     new_sock;
1082         socklen_t               sock_len = sizeof(sock_address);
1083         unsigned long           on = 1;
1084         int                     work = 0; /* if work was done */
1085         struct Endpoint         *epoint;
1086
1087         if (sock < 0)
1088                 return(0);
1089
1090         /* check for new incomming connections */
1091         if ((new_sock = accept(sock, (struct sockaddr *)&sock_address, &sock_len)) >= 0)
1092         {
1093                 work = 1;
1094                 /* insert new socket */
1095                 admin = (struct admin_list *)MALLOC(sizeof(struct admin_list));
1096                 if (ioctl(new_sock, FIONBIO, (unsigned char *)(&on)) >= 0)
1097                 {
1098 //#warning
1099 //      PERROR("DEBUG incomming socket %d, serial=%d\n", new_sock, sockserial);
1100                         memuse++;
1101                         fhuse++;
1102                         admin->sockserial = sockserial++;
1103                         admin->next = admin_first;
1104                         admin_first = admin;
1105                         admin->sock = new_sock;
1106                 } else {
1107                         close(new_sock);
1108                         FREE(admin, sizeof(struct admin_list));
1109                 }
1110         } else
1111         {
1112                 if (errno != EWOULDBLOCK)
1113                 {
1114                         PERROR("Failed to accept connection from socket \"%s\". (errno=%d) Closing socket.\n", sock_address.sun_path, errno);
1115                         admin_cleanup();
1116                         return(1);
1117                 }
1118         }
1119
1120         /* loop all current socket connections */
1121         admin = admin_first;
1122         adminp = &admin_first;
1123         while(admin)
1124         {
1125                 /* read command */
1126                 len = read(admin->sock, &msg, sizeof(msg));
1127                 if (len < 0)
1128                 {
1129                         if (errno != EWOULDBLOCK)
1130                         {
1131                                 work = 1;
1132                                 brokenpipe:
1133                                 printf("Broken pipe on socket %d. (errno=%d).\n", admin->sock, errno);
1134                                 PDEBUG(DEBUG_LOG, "Broken pipe on socket %d. (errno=%d).\n", admin->sock, errno);
1135                                 *adminp = admin->next;
1136                                 free_connection(admin);
1137                                 admin = *adminp;
1138                                 continue;
1139                         }
1140                         goto send_data;
1141                 }
1142                 work = 1;
1143 //#warning
1144 //PERROR("DEBUG socket %d got data. serial=%d\n", admin->sock, admin->sockserial);
1145                 if (len == 0)
1146                 {
1147                         end:
1148
1149                         /*release endpoint if exists */
1150                         if (admin->epointid)
1151                         {
1152                                 epoint = find_epoint_id(admin->epointid);
1153                                 if (epoint)
1154                                 {
1155                                         ((class DEFAULT_ENDPOINT_APP *)epoint->ep_app)->
1156                                                 release(RELEASE_ALL, CAUSE_NORMAL, LOCATION_PRIVATE_LOCAL, 0, 0);
1157                                 }
1158                         }
1159
1160 //#warning
1161 //PERROR("DEBUG socket %d closed by remote.\n", admin->sock);
1162                         *adminp = admin->next;
1163                         free_connection(admin);
1164                         admin = *adminp;
1165 //PERROR("DEBUG (admin_first=%x)\n", admin_first);
1166                         continue;
1167                 }
1168                 if (len != sizeof(msg))
1169                 {
1170                         PERROR("Short/long read on socket %d. (len=%d != size=%d).\n", admin->sock, len, sizeof(msg));
1171                         *adminp = admin->next;
1172                         free_connection(admin);
1173                         admin = *adminp;
1174                         continue;
1175                 }
1176                 /* process socket command */
1177                 if (admin->response)
1178                 {
1179                         PERROR("Data from socket %d while sending response.\n", admin->sock);
1180                         *adminp = admin->next;
1181                         free_connection(admin);
1182                         admin = *adminp;
1183                         continue;
1184                 }
1185                 switch (msg.message)
1186                 {
1187                         case ADMIN_REQUEST_CMD_INTERFACE:
1188                         if (admin_interface(&admin->response) < 0)
1189                         {
1190                                 PERROR("Failed to create dial response for socket %d.\n", admin->sock);
1191                                 goto response_error;
1192                         }
1193                         break;
1194
1195                         case ADMIN_REQUEST_CMD_ROUTE:
1196                         if (admin_route(&admin->response) < 0)
1197                         {
1198                                 PERROR("Failed to create dial response for socket %d.\n", admin->sock);
1199                                 goto response_error;
1200                         }
1201                         break;
1202
1203                         case ADMIN_REQUEST_CMD_DIAL:
1204                         if (admin_dial(&admin->response, msg.u.x.message) < 0)
1205                         {
1206                                 PERROR("Failed to create dial response for socket %d.\n", admin->sock);
1207                                 goto response_error;
1208                         }
1209                         break;
1210
1211                         case ADMIN_REQUEST_CMD_RELEASE:
1212                         if (admin_release(&admin->response, msg.u.x.message) < 0)
1213                         {
1214                                 PERROR("Failed to create release response for socket %d.\n", admin->sock);
1215                                 goto response_error;
1216                         }
1217                         break;
1218
1219                         case ADMIN_REQUEST_STATE:
1220                         if (admin_state(&admin->response) < 0)
1221                         {
1222                                 PERROR("Failed to create state response for socket %d.\n", admin->sock);
1223                                 goto response_error;
1224                         }
1225                         break;
1226
1227                         case ADMIN_TRACE_REQUEST:
1228                         if (admin_trace(admin, &msg.u.trace_req) < 0)
1229                         {
1230                                 PERROR("Failed to create trace response for socket %d.\n", admin->sock);
1231                                 goto response_error;
1232                         }
1233                         break;
1234
1235                         case ADMIN_REQUEST_CMD_BLOCK:
1236                         if (admin_block(&admin->response, msg.u.x.portnum, msg.u.x.block) < 0)
1237                         {
1238                                 PERROR("Failed to create block response for socket %d.\n", admin->sock);
1239                                 goto response_error;
1240                         }
1241                         break;
1242
1243                         case ADMIN_MESSAGE:
1244                         if (admin_message_to_join(&msg.u.msg, admin->remote_name, admin->sock) < 0)
1245                         {
1246                                 PERROR("Failed to deliver message for socket %d.\n", admin->sock);
1247                                 goto response_error;
1248                         }
1249 #if 0
1250 #warning DEBUGGING
1251 {
1252         struct admin_queue      *response;
1253         printf("Chain: ");
1254         response = admin->response;
1255         while(response)
1256         {
1257                 printf("%c", '0'+response->am[0].message);
1258                 response=response->next;
1259         }
1260         printf("\n");
1261 }
1262 #endif
1263                         break;
1264
1265                         case ADMIN_CALL_SETUP:
1266                         if (admin_call(admin, &msg) < 0)
1267                         {
1268                                 PERROR("Failed to create call for socket %d.\n", admin->sock);
1269                                 response_error:
1270                                 *adminp = admin->next;
1271                                 free_connection(admin);
1272                                 admin = *adminp;
1273                                 continue;
1274                         }
1275                         break;
1276
1277                         default:
1278                         PERROR("Invalid message %d from socket %d.\n", msg.message, admin->sock);
1279                         *adminp = admin->next;
1280                         free_connection(admin);
1281                         admin = *adminp;
1282                         continue;
1283                 }
1284                 /* write queue */
1285                 send_data:
1286                 if (admin->response)
1287                 {
1288 //#warning
1289 //PERROR("DEBUG socket %d sending data.\n", admin->sock);
1290                         len = write(admin->sock, ((unsigned char *)(admin->response->am))+admin->response->offset, sizeof(struct admin_message)*(admin->response->num)-admin->response->offset);
1291                         if (len < 0)
1292                         {
1293                                 if (errno != EWOULDBLOCK)
1294                                 {
1295                                         work = 1;
1296                                         goto brokenpipe;
1297                                 }
1298                                 goto next;
1299                         }
1300                         work = 1;
1301                         if (len == 0)
1302                                 goto end;
1303                         if (len < (int)(sizeof(struct admin_message)*(admin->response->num)-admin->response->offset))
1304                         {
1305                                 admin->response->offset+=len;
1306                                 goto next;
1307                         } else
1308                         {
1309                                 temp = admin->response;
1310                                 admin->response = admin->response->next;
1311                                 FREE(temp, 0);
1312                                 memuse--;
1313                         }
1314                 }
1315                 /* done with socket instance */
1316                 next:
1317                 adminp = &admin->next;
1318                 admin = admin->next;
1319         }
1320
1321         return(work);
1322 }
1323