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