drivers/isdn/divert/isdn_divert.c

   1 /* $Id: isdn_divert.c,v 1.6.6.3 2001/09/23 22:24:36 kai Exp $
   2  *
   3  * DSS1 main diversion supplementary handling for i4l.
   4  *
   5  * Copyright 1999       by Werner Cornelius (werner@isdn4linux.de)
   6  *
   7  * This software may be used and distributed according to the terms
   8  * of the GNU General Public License, incorporated herein by reference.
   9  *
  10  */
  11
  12 #include <linux/proc_fs.h>
  13 #include <linux/slab.h>
  14 #include <linux/timer.h>
  15 #include <linux/jiffies.h>
  16
  17 #include "isdn_divert.h"
  18
  19 /**********************************/
  20 /* structure keeping calling info */
  21 /**********************************/
  22 struct call_struc {
  23         isdn_ctrl ics; /* delivered setup + driver parameters */
  24         ulong divert_id; /* Id delivered to user */
  25         unsigned char akt_state; /* actual state */
  26         char deflect_dest[35]; /* deflection destination */
  27         struct timer_list timer; /* timer control structure */
  28         char info[90]; /* device info output */
  29         struct call_struc *next; /* pointer to next entry */
  30         struct call_struc *prev;
  31 };
  32
  33
  34 /********************************************/
  35 /* structure keeping deflection table entry */
  36 /********************************************/
  37 struct deflect_struc {
  38         struct deflect_struc *next, *prev;
  39         divert_rule rule; /* used rule */
  40 };
  41
  42
  43 /*****************************************/
  44 /* variables for main diversion services */
  45 /*****************************************/
  46 /* diversion/deflection processes */
  47 static struct call_struc *divert_head = NULL; /* head of remembered entrys */
  48 static ulong next_id = 1; /* next info id */
  49 static struct deflect_struc *table_head = NULL;
  50 static struct deflect_struc *table_tail = NULL;
  51 static unsigned char extern_wait_max = 4; /* maximum wait in s for external process */
  52
  53 DEFINE_SPINLOCK(divert_lock);
  54
  55 /***************************/
  56 /* timer callback function */
  57 /***************************/
  58 static void deflect_timer_expire(ulong arg)
  59 {
  60         unsigned long flags;
  61         struct call_struc *cs = (struct call_struc *) arg;
  62
  63         spin_lock_irqsave(&divert_lock, flags);
  64         del_timer(&cs->timer); /* delete active timer */
  65         spin_unlock_irqrestore(&divert_lock, flags);
  66
  67         switch (cs->akt_state) {
  68         case DEFLECT_PROCEED:
  69                 cs->ics.command = ISDN_CMD_HANGUP; /* cancel action */
  70                 divert_if.ll_cmd(&cs->ics);
  71                 spin_lock_irqsave(&divert_lock, flags);
  72                 cs->akt_state = DEFLECT_AUTODEL; /* delete after timeout */
  73                 cs->timer.expires = jiffies + (HZ * AUTODEL_TIME);
  74                 add_timer(&cs->timer);
  75                 spin_unlock_irqrestore(&divert_lock, flags);
  76                 break;
  77
  78         case DEFLECT_ALERT:
  79                 cs->ics.command = ISDN_CMD_REDIR; /* protocol */
  80                 strlcpy(cs->ics.parm.setup.phone, cs->deflect_dest, sizeof(cs->ics.parm.setup.phone));
  81                 strcpy(cs->ics.parm.setup.eazmsn, "Testtext delayed");
  82                 divert_if.ll_cmd(&cs->ics);
  83                 spin_lock_irqsave(&divert_lock, flags);
  84                 cs->akt_state = DEFLECT_AUTODEL; /* delete after timeout */
  85                 cs->timer.expires = jiffies + (HZ * AUTODEL_TIME);
  86                 add_timer(&cs->timer);
  87                 spin_unlock_irqrestore(&divert_lock, flags);
  88                 break;
  89
  90         case DEFLECT_AUTODEL:
  91         default:
  92                 spin_lock_irqsave(&divert_lock, flags);
  93                 if (cs->prev)
  94                         cs->prev->next = cs->next; /* forward link */
  95                 else
  96                         divert_head = cs->next;
  97                 if (cs->next)
  98                         cs->next->prev = cs->prev; /* back link */
  99                 spin_unlock_irqrestore(&divert_lock, flags);
 100                 kfree(cs);
 101                 return;
 102
 103         } /* switch */
 104 } /* deflect_timer_func */
 105
 106
 107 /*****************************************/
 108 /* handle call forwarding de/activations */
 109 /* 0 = deact, 1 = act, 2 = interrogate   */
 110 /*****************************************/
 111 int cf_command(int drvid, int mode,
 112                u_char proc, char *msn,
 113                u_char service, char *fwd_nr, ulong *procid)
 114 {
 115         unsigned long flags;
 116         int retval, msnlen;
 117         int fwd_len;
 118         char *p, *ielenp, tmp[60];
 119         struct call_struc *cs;
 120
 121         if (strchr(msn, '.')) return (-EINVAL); /* subaddress not allowed in msn */
 122         if ((proc & 0x7F) > 2) return (-EINVAL);
 123         proc &= 3;
 124         p = tmp;
 125         *p++ = 0x30; /* enumeration */
 126         ielenp = p++; /* remember total length position */
 127         *p++ = 0xa; /* proc tag */
 128         *p++ = 1;   /* length */
 129         *p++ = proc & 0x7F; /* procedure to de/activate/interrogate */
 130         *p++ = 0xa; /* service tag */
 131         *p++ = 1;   /* length */
 132         *p++ = service; /* service to handle */
 133
 134         if (mode == 1) {
 135                 if (!*fwd_nr) return (-EINVAL); /* destination missing */
 136                 if (strchr(fwd_nr, '.')) return (-EINVAL); /* subaddress not allowed */
 137                 fwd_len = strlen(fwd_nr);
 138                 *p++ = 0x30; /* number enumeration */
 139                 *p++ = fwd_len + 2; /* complete forward to len */
 140                 *p++ = 0x80; /* fwd to nr */
 141                 *p++ = fwd_len; /* length of number */
 142                 strcpy(p, fwd_nr); /* copy number */
 143                 p += fwd_len; /* pointer beyond fwd */
 144         } /* activate */
 145
 146         msnlen = strlen(msn);
 147         *p++ = 0x80; /* msn number */
 148         if (msnlen > 1) {
 149                 *p++ = msnlen; /* length */
 150                 strcpy(p, msn);
 151                 p += msnlen;
 152         } else
 153                 *p++ = 0;
 154
 155         *ielenp = p - ielenp - 1; /* set total IE length */
 156
 157         /* allocate mem for information struct */
 158         if (!(cs = kmalloc(sizeof(struct call_struc), GFP_ATOMIC)))
 159                 return (-ENOMEM); /* no memory */
 160         setup_timer(&cs->timer, deflect_timer_expire, (ulong)cs);
 161         cs->info[0] = '\0';
 162         cs->ics.driver = drvid;
 163         cs->ics.command = ISDN_CMD_PROT_IO; /* protocol specific io */
 164         cs->ics.arg = DSS1_CMD_INVOKE; /* invoke supplementary service */
 165         cs->ics.parm.dss1_io.proc = (mode == 1) ? 7 : (mode == 2) ? 11 : 8; /* operation */
 166         cs->ics.parm.dss1_io.timeout = 4000; /* from ETS 300 207-1 */
 167         cs->ics.parm.dss1_io.datalen = p - tmp; /* total len */
 168         cs->ics.parm.dss1_io.data = tmp; /* start of buffer */
 169
 170         spin_lock_irqsave(&divert_lock, flags);
 171         cs->ics.parm.dss1_io.ll_id = next_id++; /* id for callback */
 172         spin_unlock_irqrestore(&divert_lock, flags);
 173         *procid = cs->ics.parm.dss1_io.ll_id;
 174
 175         sprintf(cs->info, "%d 0x%lx %s%s 0 %s %02x %d%s%s\n",
 176                 (!mode) ? DIVERT_DEACTIVATE : (mode == 1) ? DIVERT_ACTIVATE : DIVERT_REPORT,
 177                 cs->ics.parm.dss1_io.ll_id,
 178                 (mode != 2) ? "" : "0 ",
 179                 divert_if.drv_to_name(cs->ics.driver),
 180                 msn,
 181                 service & 0xFF,
 182                 proc,
 183                 (mode != 1) ? "" : " 0 ",
 184                 (mode != 1) ? "" : fwd_nr);
 185
 186         retval = divert_if.ll_cmd(&cs->ics); /* execute command */
 187
 188         if (!retval) {
 189                 cs->prev = NULL;
 190                 spin_lock_irqsave(&divert_lock, flags);
 191                 cs->next = divert_head;
 192                 divert_head = cs;
 193                 spin_unlock_irqrestore(&divert_lock, flags);
 194         } else
 195                 kfree(cs);
 196         return (retval);
 197 } /* cf_command */
 198
 199
 200 /****************************************/
 201 /* handle a external deflection command */
 202 /****************************************/
 203 int deflect_extern_action(u_char cmd, ulong callid, char *to_nr)
 204 {
 205         struct call_struc *cs;
 206         isdn_ctrl ic;
 207         unsigned long flags;
 208         int i;
 209
 210         if ((cmd & 0x7F) > 2) return (-EINVAL); /* invalid command */
 211         cs = divert_head; /* start of parameter list */
 212         while (cs) {
 213                 if (cs->divert_id == callid) break; /* found */
 214                 cs = cs->next;
 215         } /* search entry */
 216         if (!cs) return (-EINVAL); /* invalid callid */
 217
 218         ic.driver = cs->ics.driver;
 219         ic.arg = cs->ics.arg;
 220         i = -EINVAL;
 221         if (cs->akt_state == DEFLECT_AUTODEL) return (i); /* no valid call */
 222         switch (cmd & 0x7F) {
 223         case 0: /* hangup */
 224                 del_timer(&cs->timer);
 225                 ic.command = ISDN_CMD_HANGUP;
 226                 i = divert_if.ll_cmd(&ic);
 227                 spin_lock_irqsave(&divert_lock, flags);
 228                 cs->akt_state = DEFLECT_AUTODEL; /* delete after timeout */
 229                 cs->timer.expires = jiffies + (HZ * AUTODEL_TIME);
 230                 add_timer(&cs->timer);
 231                 spin_unlock_irqrestore(&divert_lock, flags);
 232                 break;
 233
 234         case 1: /* alert */
 235                 if (cs->akt_state == DEFLECT_ALERT) return (0);
 236                 cmd &= 0x7F; /* never wait */
 237                 del_timer(&cs->timer);
 238                 ic.command = ISDN_CMD_ALERT;
 239                 if ((i = divert_if.ll_cmd(&ic))) {
 240                         spin_lock_irqsave(&divert_lock, flags);
 241                         cs->akt_state = DEFLECT_AUTODEL; /* delete after timeout */
 242                         cs->timer.expires = jiffies + (HZ * AUTODEL_TIME);
 243                         add_timer(&cs->timer);
 244                         spin_unlock_irqrestore(&divert_lock, flags);
 245                 } else
 246                         cs->akt_state = DEFLECT_ALERT;
 247                 break;
 248
 249         case 2: /* redir */
 250                 del_timer(&cs->timer);
 251                 strlcpy(cs->ics.parm.setup.phone, to_nr, sizeof(cs->ics.parm.setup.phone));
 252                 strcpy(cs->ics.parm.setup.eazmsn, "Testtext manual");
 253                 ic.command = ISDN_CMD_REDIR;
 254                 if ((i = divert_if.ll_cmd(&ic))) {
 255                         spin_lock_irqsave(&divert_lock, flags);
 256                         cs->akt_state = DEFLECT_AUTODEL; /* delete after timeout */
 257                         cs->timer.expires = jiffies + (HZ * AUTODEL_TIME);
 258                         add_timer(&cs->timer);
 259                         spin_unlock_irqrestore(&divert_lock, flags);
 260                 } else
 261                         cs->akt_state = DEFLECT_ALERT;
 262                 break;
 263
 264         } /* switch */
 265         return (i);
 266 } /* deflect_extern_action */
 267
 268 /********************************/
 269 /* insert a new rule before idx */
 270 /********************************/
 271 int insertrule(int idx, divert_rule *newrule)
 272 {
 273         struct deflect_struc *ds, *ds1 = NULL;
 274         unsigned long flags;
 275
 276         if (!(ds = kmalloc(sizeof(struct deflect_struc), GFP_KERNEL)))
 277                 return (-ENOMEM); /* no memory */
 278
 279         ds->rule = *newrule; /* set rule */
 280
 281         spin_lock_irqsave(&divert_lock, flags);
 282
 283         if (idx >= 0) {
 284                 ds1 = table_head;
 285                 while ((ds1) && (idx > 0))
 286                 { idx--;
 287                         ds1 = ds1->next;
 288                 }
 289                 if (!ds1) idx = -1;
 290         }
 291
 292         if (idx < 0) {
 293                 ds->prev = table_tail; /* previous entry */
 294                 ds->next = NULL; /* end of chain */
 295                 if (ds->prev)
 296                         ds->prev->next = ds; /* last forward */
 297                 else
 298                         table_head = ds; /* is first entry */
 299                 table_tail = ds; /* end of queue */
 300         } else {
 301                 ds->next = ds1; /* next entry */
 302                 ds->prev = ds1->prev; /* prev entry */
 303                 ds1->prev = ds; /* backward chain old element */
 304                 if (!ds->prev)
 305                         table_head = ds; /* first element */
 306         }
 307
 308         spin_unlock_irqrestore(&divert_lock, flags);
 309         return (0);
 310 } /* insertrule */
 311
 312 /***********************************/
 313 /* delete the rule at position idx */
 314 /***********************************/
 315 int deleterule(int idx)
 316 {
 317         struct deflect_struc *ds, *ds1;
 318         unsigned long flags;
 319
 320         if (idx < 0) {
 321                 spin_lock_irqsave(&divert_lock, flags);
 322                 ds = table_head;
 323                 table_head = NULL;
 324                 table_tail = NULL;
 325                 spin_unlock_irqrestore(&divert_lock, flags);
 326                 while (ds) {
 327                         ds1 = ds;
 328                         ds = ds->next;
 329                         kfree(ds1);
 330                 }
 331                 return (0);
 332         }
 333
 334         spin_lock_irqsave(&divert_lock, flags);
 335         ds = table_head;
 336
 337         while ((ds) && (idx > 0)) {
 338                 idx--;
 339                 ds = ds->next;
 340         }
 341
 342         if (!ds) {
 343                 spin_unlock_irqrestore(&divert_lock, flags);
 344                 return (-EINVAL);
 345         }
 346
 347         if (ds->next)
 348                 ds->next->prev = ds->prev; /* backward chain */
 349         else
 350                 table_tail = ds->prev; /* end of chain */
 351
 352         if (ds->prev)
 353                 ds->prev->next = ds->next; /* forward chain */
 354         else
 355                 table_head = ds->next; /* start of chain */
 356
 357         spin_unlock_irqrestore(&divert_lock, flags);
 358         kfree(ds);
 359         return (0);
 360 } /* deleterule */
 361
 362 /*******************************************/
 363 /* get a pointer to a specific rule number */
 364 /*******************************************/
 365 divert_rule *getruleptr(int idx)
 366 {
 367         struct deflect_struc *ds = table_head;
 368
 369         if (idx < 0) return (NULL);
 370         while ((ds) && (idx >= 0)) {
 371                 if (!(idx--)) {
 372                         return (&ds->rule);
 373                         break;
 374                 }
 375                 ds = ds->next;
 376         }
 377         return (NULL);
 378 } /* getruleptr */
 379
 380 /*************************************************/
 381 /* called from common module on an incoming call */
 382 /*************************************************/
 383 static int isdn_divert_icall(isdn_ctrl *ic)
 384 {
 385         int retval = 0;
 386         unsigned long flags;
 387         struct call_struc *cs = NULL;
 388         struct deflect_struc *dv;
 389         char *p, *p1;
 390         u_char accept;
 391
 392         /* first check the internal deflection table */
 393         for (dv = table_head; dv; dv = dv->next) {
 394                 /* scan table */
 395                 if (((dv->rule.callopt == 1) && (ic->command == ISDN_STAT_ICALLW)) ||
 396                     ((dv->rule.callopt == 2) && (ic->command == ISDN_STAT_ICALL)))
 397                         continue; /* call option check */
 398                 if (!(dv->rule.drvid & (1L << ic->driver)))
 399                         continue; /* driver not matching */
 400                 if ((dv->rule.si1) && (dv->rule.si1 != ic->parm.setup.si1))
 401                         continue; /* si1 not matching */
 402                 if ((dv->rule.si2) && (dv->rule.si2 != ic->parm.setup.si2))
 403                         continue; /* si2 not matching */
 404
 405                 p = dv->rule.my_msn;
 406                 p1 = ic->parm.setup.eazmsn;
 407                 accept = 0;
 408                 while (*p) {
 409                         /* complete compare */
 410                         if (*p == '-') {
 411                                 accept = 1; /* call accepted */
 412                                 break;
 413                         }
 414                         if (*p++ != *p1++)
 415                                 break; /* not accepted */
 416                         if ((!*p) && (!*p1))
 417                                 accept = 1;
 418                 } /* complete compare */
 419                 if (!accept) continue; /* not accepted */
 420
 421                 if ((strcmp(dv->rule.caller, "0")) ||
 422                     (ic->parm.setup.phone[0])) {
 423                         p = dv->rule.caller;
 424                         p1 = ic->parm.setup.phone;
 425                         accept = 0;
 426                         while (*p) {
 427                                 /* complete compare */
 428                                 if (*p == '-') {
 429                                         accept = 1; /* call accepted */
 430                                         break;
 431                                 }
 432                                 if (*p++ != *p1++)
 433                                         break; /* not accepted */
 434                                 if ((!*p) && (!*p1))
 435                                         accept = 1;
 436                         } /* complete compare */
 437                         if (!accept) continue; /* not accepted */
 438                 }
 439
 440                 switch (dv->rule.action) {
 441                 case DEFLECT_IGNORE:
 442                         return 0;
 443
 444                 case DEFLECT_ALERT:
 445                 case DEFLECT_PROCEED:
 446                 case DEFLECT_REPORT:
 447                 case DEFLECT_REJECT:
 448                         if (dv->rule.action == DEFLECT_PROCEED)
 449                                 if ((!if_used) || ((!extern_wait_max) && (!dv->rule.waittime)))
 450                                         return (0); /* no external deflection needed */
 451                         if (!(cs = kmalloc(sizeof(struct call_struc), GFP_ATOMIC)))
 452                                 return (0); /* no memory */
 453                         setup_timer(&cs->timer, deflect_timer_expire,
 454                                     (ulong)cs);
 455                         cs->info[0] = '\0';
 456
 457                         cs->ics = *ic; /* copy incoming data */
 458                         if (!cs->ics.parm.setup.phone[0]) strcpy(cs->ics.parm.setup.phone, "0");
 459                         if (!cs->ics.parm.setup.eazmsn[0]) strcpy(cs->ics.parm.setup.eazmsn, "0");
 460                         cs->ics.parm.setup.screen = dv->rule.screen;
 461                         if (dv->rule.waittime)
 462                                 cs->timer.expires = jiffies + (HZ * dv->rule.waittime);
 463                         else if (dv->rule.action == DEFLECT_PROCEED)
 464                                 cs->timer.expires = jiffies + (HZ * extern_wait_max);
 465                         else
 466                                 cs->timer.expires = 0;
 467                         cs->akt_state = dv->rule.action;
 468                         spin_lock_irqsave(&divert_lock, flags);
 469                         cs->divert_id = next_id++; /* new sequence number */
 470                         spin_unlock_irqrestore(&divert_lock, flags);
 471                         cs->prev = NULL;
 472                         if (cs->akt_state == DEFLECT_ALERT) {
 473                                 strcpy(cs->deflect_dest, dv->rule.to_nr);
 474                                 if (!cs->timer.expires) {
 475                                         strcpy(ic->parm.setup.eazmsn,
 476                                                "Testtext direct");
 477                                         ic->parm.setup.screen = dv->rule.screen;
 478                                         strlcpy(ic->parm.setup.phone, dv->rule.to_nr, sizeof(ic->parm.setup.phone));
 479                                         cs->akt_state = DEFLECT_AUTODEL; /* delete after timeout */
 480                                         cs->timer.expires = jiffies + (HZ * AUTODEL_TIME);
 481                                         retval = 5;
 482                                 } else
 483                                         retval = 1; /* alerting */
 484                         } else {
 485                                 cs->deflect_dest[0] = '\0';
 486                                 retval = 4; /* only proceed */
 487                         }
 488                         snprintf(cs->info, sizeof(cs->info),
 489                                  "%d 0x%lx %s %s %s %s 0x%x 0x%x %d %d %s\n",
 490                                  cs->akt_state,
 491                                  cs->divert_id,
 492                                  divert_if.drv_to_name(cs->ics.driver),
 493                                  (ic->command == ISDN_STAT_ICALLW) ? "1" : "0",
 494                                  cs->ics.parm.setup.phone,
 495                                  cs->ics.parm.setup.eazmsn,
 496                                  cs->ics.parm.setup.si1,
 497                                  cs->ics.parm.setup.si2,
 498                                  cs->ics.parm.setup.screen,
 499                                  dv->rule.waittime,
 500                                  cs->deflect_dest);
 501                         if ((dv->rule.action == DEFLECT_REPORT) ||
 502                             (dv->rule.action == DEFLECT_REJECT)) {
 503                                 put_info_buffer(cs->info);
 504                                 kfree(cs); /* remove */
 505                                 return ((dv->rule.action == DEFLECT_REPORT) ? 0 : 2); /* nothing to do */
 506                         }
 507                         break;
 508
 509                 default:
 510                         return 0; /* ignore call */
 511                 } /* switch action */
 512                 break; /* will break the 'for' looping */
 513         } /* scan_table */
 514
 515         if (cs) {
 516                 cs->prev = NULL;
 517                 spin_lock_irqsave(&divert_lock, flags);
 518                 cs->next = divert_head;
 519                 divert_head = cs;
 520                 if (cs->timer.expires) add_timer(&cs->timer);
 521                 spin_unlock_irqrestore(&divert_lock, flags);
 522
 523                 put_info_buffer(cs->info);
 524                 return (retval);
 525         } else
 526                 return (0);
 527 } /* isdn_divert_icall */
 528
 529
 530 void deleteprocs(void)
 531 {
 532         struct call_struc *cs, *cs1;
 533         unsigned long flags;
 534
 535         spin_lock_irqsave(&divert_lock, flags);
 536         cs = divert_head;
 537         divert_head = NULL;
 538         while (cs) {
 539                 del_timer(&cs->timer);
 540                 cs1 = cs;
 541                 cs = cs->next;
 542                 kfree(cs1);
 543         }
 544         spin_unlock_irqrestore(&divert_lock, flags);
 545 } /* deleteprocs */
 546
 547 /****************************************************/
 548 /* put a address including address type into buffer */
 549 /****************************************************/
 550 static int put_address(char *st, u_char *p, int len)
 551 {
 552         u_char retval = 0;
 553         u_char adr_typ = 0; /* network standard */
 554
 555         if (len < 2) return (retval);
 556         if (*p == 0xA1) {
 557                 retval = *(++p) + 2; /* total length */
 558                 if (retval > len) return (0); /* too short */
 559                 len = retval - 2; /* remaining length */
 560                 if (len < 3) return (0);
 561                 if ((*(++p) != 0x0A) || (*(++p) != 1)) return (0);
 562                 adr_typ = *(++p);
 563                 len -= 3;
 564                 p++;
 565                 if (len < 2) return (0);
 566                 if (*p++ != 0x12) return (0);
 567                 if (*p > len) return (0); /* check number length */
 568                 len = *p++;
 569         } else if (*p == 0x80) {
 570                 retval = *(++p) + 2; /* total length */
 571                 if (retval > len) return (0);
 572                 len = retval - 2;
 573                 p++;
 574         } else
 575                 return (0); /* invalid address information */
 576
 577         sprintf(st, "%d ", adr_typ);
 578         st += strlen(st);
 579         if (!len)
 580                 *st++ = '-';
 581         else
 582                 while (len--)
 583                         *st++ = *p++;
 584         *st = '\0';
 585         return (retval);
 586 } /* put_address */
 587
 588 /*************************************/
 589 /* report a successful interrogation */
 590 /*************************************/
 591 static int interrogate_success(isdn_ctrl *ic, struct call_struc *cs)
 592 {
 593         char *src = ic->parm.dss1_io.data;
 594         int restlen = ic->parm.dss1_io.datalen;
 595         int cnt = 1;
 596         u_char n, n1;
 597         char st[90], *p, *stp;
 598
 599         if (restlen < 2) return (-100); /* frame too short */
 600         if (*src++ != 0x30) return (-101);
 601         if ((n = *src++) > 0x81) return (-102); /* invalid length field */
 602         restlen -= 2; /* remaining bytes */
 603         if (n == 0x80) {
 604                 if (restlen < 2) return (-103);
 605                 if ((*(src + restlen - 1)) || (*(src + restlen - 2))) return (-104);
 606                 restlen -= 2;
 607         } else if (n == 0x81) {
 608                 n = *src++;
 609                 restlen--;
 610                 if (n > restlen) return (-105);
 611                 restlen = n;
 612         } else if (n > restlen)
 613                 return (-106);
 614         else
 615                 restlen = n; /* standard format */
 616         if (restlen < 3) return (-107); /* no procedure */
 617         if ((*src++ != 2) || (*src++ != 1) || (*src++ != 0x0B)) return (-108);
 618         restlen -= 3;
 619         if (restlen < 2) return (-109); /* list missing */
 620         if (*src == 0x31) {
 621                 src++;
 622                 if ((n = *src++) > 0x81) return (-110); /* invalid length field */
 623                 restlen -= 2; /* remaining bytes */
 624                 if (n == 0x80) {
 625                         if (restlen < 2) return (-111);
 626                         if ((*(src + restlen - 1)) || (*(src + restlen - 2))) return (-112);
 627                         restlen -= 2;
 628                 } else if (n == 0x81) {
 629                         n = *src++;
 630                         restlen--;
 631                         if (n > restlen) return (-113);
 632                         restlen = n;
 633                 } else if (n > restlen)
 634                         return (-114);
 635                 else
 636                         restlen = n; /* standard format */
 637         } /* result list header */
 638
 639         while (restlen >= 2) {
 640                 stp = st;
 641                 sprintf(stp, "%d 0x%lx %d %s ", DIVERT_REPORT, ic->parm.dss1_io.ll_id,
 642                         cnt++, divert_if.drv_to_name(ic->driver));
 643                 stp += strlen(stp);
 644                 if (*src++ != 0x30) return (-115); /* invalid enum */
 645                 n = *src++;
 646                 restlen -= 2;
 647                 if (n > restlen) return (-116); /* enum length wrong */
 648                 restlen -= n;
 649                 p = src; /* one entry */
 650                 src += n;
 651                 if (!(n1 = put_address(stp, p, n & 0xFF))) continue;
 652                 stp += strlen(stp);
 653                 p += n1;
 654                 n -= n1;
 655                 if (n < 6) continue; /* no service and proc */
 656                 if ((*p++ != 0x0A) || (*p++ != 1)) continue;
 657                 sprintf(stp, " 0x%02x ", (*p++) & 0xFF);
 658                 stp += strlen(stp);
 659                 if ((*p++ != 0x0A) || (*p++ != 1)) continue;
 660                 sprintf(stp, "%d ", (*p++) & 0xFF);
 661                 stp += strlen(stp);
 662                 n -= 6;
 663                 if (n > 2) {
 664                         if (*p++ != 0x30) continue;
 665                         if (*p > (n - 2)) continue;
 666                         n = *p++;
 667                         if (!(n1 = put_address(stp, p, n & 0xFF))) continue;
 668                         stp += strlen(stp);
 669                 }
 670                 sprintf(stp, "\n");
 671                 put_info_buffer(st);
 672         } /* while restlen */
 673         if (restlen) return (-117);
 674         return (0);
 675 } /* interrogate_success */
 676
 677 /*********************************************/
 678 /* callback for protocol specific extensions */
 679 /*********************************************/
 680 static int prot_stat_callback(isdn_ctrl *ic)
 681 {
 682         struct call_struc *cs, *cs1;
 683         int i;
 684         unsigned long flags;
 685
 686         cs = divert_head; /* start of list */
 687         cs1 = NULL;
 688         while (cs) {
 689                 if (ic->driver == cs->ics.driver) {
 690                         switch (cs->ics.arg) {
 691                         case DSS1_CMD_INVOKE:
 692                                 if ((cs->ics.parm.dss1_io.ll_id == ic->parm.dss1_io.ll_id) &&
 693                                     (cs->ics.parm.dss1_io.hl_id == ic->parm.dss1_io.hl_id)) {
 694                                         switch (ic->arg) {
 695                                         case DSS1_STAT_INVOKE_ERR:
 696                                                 sprintf(cs->info, "128 0x%lx 0x%x\n",
 697                                                         ic->parm.dss1_io.ll_id,
 698                                                         ic->parm.dss1_io.timeout);
 699                                                 put_info_buffer(cs->info);
 700                                                 break;
 701
 702                                         case DSS1_STAT_INVOKE_RES:
 703                                                 switch (cs->ics.parm.dss1_io.proc) {
 704                                                 case  7:
 705                                                 case  8:
 706                                                         put_info_buffer(cs->info);
 707                                                         break;
 708
 709                                                 case  11:
 710                                                         i = interrogate_success(ic, cs);
 711                                                         if (i)
 712                                                                 sprintf(cs->info, "%d 0x%lx %d\n", DIVERT_REPORT,
 713                                                                         ic->parm.dss1_io.ll_id, i);
 714                                                         put_info_buffer(cs->info);
 715                                                         break;
 716
 717                                                 default:
 718                                                         printk(KERN_WARNING "dss1_divert: unknown proc %d\n", cs->ics.parm.dss1_io.proc);
 719                                                         break;
 720                                                 }
 721
 722                                                 break;
 723
 724                                         default:
 725                                                 printk(KERN_WARNING "dss1_divert unknown invoke answer %lx\n", ic->arg);
 726                                                 break;
 727                                         }
 728                                         cs1 = cs; /* remember structure */
 729                                         cs = NULL;
 730                                         continue; /* abort search */
 731                                 } /* id found */
 732                                 break;
 733
 734                         case DSS1_CMD_INVOKE_ABORT:
 735                                 printk(KERN_WARNING "dss1_divert unhandled invoke abort\n");
 736                                 break;
 737
 738                         default:
 739                                 printk(KERN_WARNING "dss1_divert unknown cmd 0x%lx\n", cs->ics.arg);
 740                                 break;
 741                         } /* switch ics.arg */
 742                         cs = cs->next;
 743                 } /* driver ok */
 744         }
 745
 746         if (!cs1) {
 747                 printk(KERN_WARNING "dss1_divert unhandled process\n");
 748                 return (0);
 749         }
 750
 751         if (cs1->ics.driver == -1) {
 752                 spin_lock_irqsave(&divert_lock, flags);
 753                 del_timer(&cs1->timer);
 754                 if (cs1->prev)
 755                         cs1->prev->next = cs1->next; /* forward link */
 756                 else
 757                         divert_head = cs1->next;
 758                 if (cs1->next)
 759                         cs1->next->prev = cs1->prev; /* back link */
 760                 spin_unlock_irqrestore(&divert_lock, flags);
 761                 kfree(cs1);
 762         }
 763
 764         return (0);
 765 } /* prot_stat_callback */
 766
 767
 768 /***************************/
 769 /* status callback from HL */
 770 /***************************/
 771 static int isdn_divert_stat_callback(isdn_ctrl *ic)
 772 {
 773         struct call_struc *cs, *cs1;
 774         unsigned long flags;
 775         int retval;
 776
 777         retval = -1;
 778         cs = divert_head; /* start of list */
 779         while (cs) {
 780                 if ((ic->driver == cs->ics.driver) &&
 781                     (ic->arg == cs->ics.arg)) {
 782                         switch (ic->command) {
 783                         case ISDN_STAT_DHUP:
 784                                 sprintf(cs->info, "129 0x%lx\n", cs->divert_id);
 785                                 del_timer(&cs->timer);
 786                                 cs->ics.driver = -1;
 787                                 break;
 788
 789                         case ISDN_STAT_CAUSE:
 790                                 sprintf(cs->info, "130 0x%lx %s\n", cs->divert_id, ic->parm.num);
 791                                 break;
 792
 793                         case ISDN_STAT_REDIR:
 794                                 sprintf(cs->info, "131 0x%lx\n", cs->divert_id);
 795                                 del_timer(&cs->timer);
 796                                 cs->ics.driver = -1;
 797                                 break;
 798
 799                         default:
 800                                 sprintf(cs->info, "999 0x%lx 0x%x\n", cs->divert_id, (int)(ic->command));
 801                                 break;
 802                         }
 803                         put_info_buffer(cs->info);
 804                         retval = 0;
 805                 }
 806                 cs1 = cs;
 807                 cs = cs->next;
 808                 if (cs1->ics.driver == -1) {
 809                         spin_lock_irqsave(&divert_lock, flags);
 810                         if (cs1->prev)
 811                                 cs1->prev->next = cs1->next; /* forward link */
 812                         else
 813                                 divert_head = cs1->next;
 814                         if (cs1->next)
 815                                 cs1->next->prev = cs1->prev; /* back link */
 816                         spin_unlock_irqrestore(&divert_lock, flags);
 817                         kfree(cs1);
 818                 }
 819         }
 820         return (retval); /* not found */
 821 } /* isdn_divert_stat_callback */
 822
 823
 824 /********************/
 825 /* callback from ll */
 826 /********************/
 827 int ll_callback(isdn_ctrl *ic)
 828 {
 829         switch (ic->command) {
 830         case ISDN_STAT_ICALL:
 831         case ISDN_STAT_ICALLW:
 832                 return (isdn_divert_icall(ic));
 833                 break;
 834
 835         case ISDN_STAT_PROT:
 836                 if ((ic->arg & 0xFF) == ISDN_PTYPE_EURO) {
 837                         if (ic->arg != DSS1_STAT_INVOKE_BRD)
 838                                 return (prot_stat_callback(ic));
 839                         else
 840                                 return (0); /* DSS1 invoke broadcast */
 841                 } else
 842                         return (-1); /* protocol not euro */
 843
 844         default:
 845                 return (isdn_divert_stat_callback(ic));
 846         }
 847 } /* ll_callback */