Revert earlier changes
[asterisk/asterisk.git] / channels / chan_agent.c
1 /*
2  * Asterisk -- A telephony toolkit for Linux.
3  *
4  * Implementation of Session Initiation Protocol
5  * 
6  * Copyright (C) 1999, Mark Spencer
7  *
8  * Mark Spencer <markster@linux-support.net>
9  *
10  * This program is free software, distributed under the terms of
11  * the GNU General Public License
12  */
13
14 #include <stdio.h>
15 #include <pthread.h>
16 #include <string.h>
17 #include <asterisk/lock.h>
18 #include <asterisk/channel.h>
19 #include <asterisk/channel_pvt.h>
20 #include <asterisk/config.h>
21 #include <asterisk/logger.h>
22 #include <asterisk/module.h>
23 #include <asterisk/pbx.h>
24 #include <asterisk/options.h>
25 #include <asterisk/lock.h>
26 #include <asterisk/sched.h>
27 #include <asterisk/io.h>
28 #include <asterisk/rtp.h>
29 #include <asterisk/acl.h>
30 #include <asterisk/callerid.h>
31 #include <asterisk/file.h>
32 #include <asterisk/cli.h>
33 #include <asterisk/app.h>
34 #include <asterisk/musiconhold.h>
35 #include <asterisk/manager.h>
36 #include <asterisk/parking.h>
37 #include <sys/socket.h>
38 #include <errno.h>
39 #include <unistd.h>
40 #include <stdlib.h>
41 #include <fcntl.h>
42 #include <netdb.h>
43 #include <arpa/inet.h>
44 #include <sys/signal.h>
45
46 static char *desc = "Agent Proxy Channel";
47 static char *type = "Agent";
48 static char *tdesc = "Call Agent Proxy Channel";
49 static char *config = "agents.conf";
50
51 static char *app = "AgentLogin";
52 static char *app2 = "AgentCallbackLogin";
53
54 static char *synopsis = "Call agent login";
55 static char *synopsis2 = "Call agent callback login";
56
57 static char *descrip =
58 "  AgentLogin([AgentNo][|options]):\n"
59 "Asks the agent to login to the system.  Always returns -1.  While\n"
60 "logged in, the agent can receive calls and will hear a 'beep'\n"
61 "when a new call comes in.  The agent can dump the call by pressing\n"
62 "the star key.\n"
63 "The option string may contain zero or more of the following characters:\n"
64 "      's' -- silent login - do not announce the login ok segment\n";
65
66 static char *descrip2 =
67 "  AgentCallbackLogin([AgentNo][|[options][exten]@context]):\n"
68 "Asks the agent to login to the system with callback.  Always returns -1.\n"
69 "The agent's callback extension is called (optionally with the specified\n"
70 "context. \n";
71
72 static char moh[80] = "default";
73
74 #define AST_MAX_AGENT   80              /* Agent ID or Password max length */
75
76 static int capability = -1;
77
78 static unsigned int group;
79 static int autologoff;
80 static int wrapuptime;
81 static int ackcall;
82
83 static int usecnt =0;
84 static ast_mutex_t usecnt_lock = AST_MUTEX_INITIALIZER;
85
86 /* Protect the interface list (of sip_pvt's) */
87 static ast_mutex_t agentlock = AST_MUTEX_INITIALIZER;
88
89 static struct agent_pvt {
90         ast_mutex_t lock;                               /* Channel private lock */
91         int dead;                                                       /* Poised for destruction? */
92         int pending;                                            /* Not a real agent -- just pending a match */
93         int abouttograb;                                        /* About to grab */
94         int autologoff;                                 /* Auto timeout time */
95         int ackcall;                                    /* ackcall */
96         time_t start;                                           /* When call started */
97         struct timeval lastdisc;                        /* When last disconnected */
98         int wrapuptime;                                         /* Wrapup time in ms */
99         unsigned int group;                                     /* Group memberships */
100         int acknowledged;                                       /* Acknowledged */
101         char moh[80];                                           /* Which music on hold */
102         char agent[AST_MAX_AGENT];                      /* Agent ID */
103         char password[AST_MAX_AGENT];           /* Password for Agent login */
104         char name[AST_MAX_AGENT];
105         ast_mutex_t app_lock;                   /* Synchronization between owning applications */
106         volatile pthread_t owning_app;          /* Owning application thread id */
107         volatile int app_sleep_cond;            /* Sleep condition for the login app */
108         struct ast_channel *owner;                      /* Agent */
109         char loginchan[80];
110         struct ast_channel *chan;                       /* Channel we use */
111         struct agent_pvt *next;                         /* Agent */
112 } *agents = NULL;
113
114 #define CHECK_FORMATS(ast, p) do { \
115         if (p->chan) {\
116                 if (ast->nativeformats != p->chan->nativeformats) { \
117                         ast_log(LOG_DEBUG, "Native formats changing from %d to %d\n", ast->nativeformats, p->chan->nativeformats); \
118                         /* Native formats changed, reset things */ \
119                         ast->nativeformats = p->chan->nativeformats; \
120                         ast_log(LOG_DEBUG, "Resetting read to %d and write to %d\n", ast->readformat, ast->writeformat);\
121                         ast_set_read_format(ast, ast->readformat); \
122                         ast_set_write_format(ast, ast->writeformat); \
123                 } \
124                 if (p->chan->readformat != ast->pvt->rawreadformat)  \
125                         ast_set_read_format(p->chan, ast->pvt->rawreadformat); \
126                 if (p->chan->writeformat != ast->pvt->rawwriteformat) \
127                         ast_set_write_format(p->chan, ast->pvt->rawwriteformat); \
128         } \
129 } while(0)
130
131 #define CLEANUP(ast, p) do { \
132         int x; \
133         if (p->chan) { \
134                 for (x=0;x<AST_MAX_FDS;x++) \
135                         ast->fds[x] = p->chan->fds[x]; \
136         } \
137 } while(0)
138
139
140 static void agent_unlink(struct agent_pvt *agent)
141 {
142         struct agent_pvt *p, *prev;
143         prev = NULL;
144         p = agents;
145         while(p) {
146                 if (p == agent) {
147                         if (prev)
148                                 prev->next = agent->next;
149                         else
150                                 agents = agent->next;
151                         break;
152                 }
153                 prev = p;
154                 p = p->next;
155         }
156 }
157
158 static struct agent_pvt *add_agent(char *agent, int pending)
159 {
160         char tmp[256];
161         char *password=NULL, *name=NULL;
162         struct agent_pvt *p, *prev;
163         
164         strncpy(tmp, agent, sizeof(tmp));
165         if ((password = strchr(tmp, ','))) {
166                 *password = '\0';
167                 password++;
168                 while (*password < 33) password++;
169         }
170         if (password && (name = strchr(password, ','))) {
171                 *name = '\0';
172                 name++;
173                 while (*name < 33) name++; 
174         }
175         prev=NULL;
176         p = agents;
177         while(p) {
178                 if (!pending && !strcmp(p->agent, tmp))
179                         break;
180                 prev = p;
181                 p = p->next;
182         }
183         if (!p) {
184                 p = malloc(sizeof(struct agent_pvt));
185                 if (p) {
186                         memset(p, 0, sizeof(struct agent_pvt));
187                         strncpy(p->agent, tmp, sizeof(p->agent) -1);
188                         ast_mutex_init( &p->lock );
189                         ast_mutex_init( &p->app_lock );
190                         p->owning_app = -1;
191                         p->app_sleep_cond = 1;
192                         p->group = group;
193                         p->pending = pending;
194                         p->next = NULL;
195                         if (prev)
196                                 prev->next = p;
197                         else
198                                 agents = p;
199                         
200                 }
201         }
202         if (!p)
203                 return NULL;
204         strncpy(p->password, password ? password : "", sizeof(p->password) - 1);
205         strncpy(p->name, name ? name : "", sizeof(p->name) - 1);
206         strncpy(p->moh, moh, sizeof(p->moh) - 1);
207         p->ackcall = ackcall;
208         p->autologoff = autologoff;
209         p->wrapuptime = wrapuptime;
210         if (pending)
211                 p->dead = 1;
212         else
213                 p->dead = 0;
214         return p;
215 }
216
217 static int agent_cleanup(struct agent_pvt *p)
218 {
219         struct ast_channel *chan = p->owner;
220         p->owner = NULL;
221         chan->pvt->pvt = NULL;
222         p->app_sleep_cond = 1;
223         /* Release ownership of the agent to other threads (presumably running the login app). */
224         ast_mutex_unlock(&p->app_lock);
225         if (chan)
226                 ast_channel_free(chan);
227         if (p->dead)
228                 free(p);
229         return 0;
230 }
231
232 static int check_availability(struct agent_pvt *newlyavailable, int needlock);
233
234 static int agent_answer(struct ast_channel *ast)
235 {
236         ast_log(LOG_WARNING, "Huh?  Agent is being asked to answer?\n");
237         return -1;
238 }
239
240 static struct ast_frame  *agent_read(struct ast_channel *ast)
241 {
242         struct agent_pvt *p = ast->pvt->pvt;
243         struct ast_frame *f = NULL;
244         static struct ast_frame null_frame = { AST_FRAME_NULL, };
245         static struct ast_frame answer_frame = { AST_FRAME_CONTROL, AST_CONTROL_ANSWER };
246         ast_mutex_lock(&p->lock); 
247         CHECK_FORMATS(ast, p);
248         if (p->chan) {
249                 p->chan->exception = ast->exception;
250                 p->chan->fdno = ast->fdno;
251                 f = ast_read(p->chan);
252         } else
253                 f = &null_frame;
254         if (!f) {
255                 /* If there's a channel, hang it up  (if it's on a callback) make it NULL */
256                 if (p->chan) {
257                         if (strlen(p->loginchan))
258                                 ast_hangup(p->chan);
259                         p->chan = NULL;
260                         p->acknowledged = 0;
261                 }
262         }
263         if (f && (f->frametype == AST_FRAME_CONTROL) && (f->subclass == AST_CONTROL_ANSWER)) {
264 /* TC */
265                 if (p->ackcall) {
266                         if (option_verbose > 2)
267                                 ast_verbose(VERBOSE_PREFIX_3 "%s answered, waiting for '#' to acknowledge\n", p->chan->name);
268                         /* Don't pass answer along */
269                         ast_frfree(f);
270                         f = &null_frame;
271                 }
272         else {
273                         p->acknowledged = 1;
274                         f = &answer_frame;
275         }
276         }
277         if (f && (f->frametype == AST_FRAME_DTMF) && (f->subclass == '#')) {
278                 if (!p->acknowledged) {
279                         if (option_verbose > 2)
280                                 ast_verbose(VERBOSE_PREFIX_3 "%s acknowledged\n", p->chan->name);
281                         p->acknowledged = 1;
282                         ast_frfree(f);
283                         f = &answer_frame;
284                 }
285         }
286         if (f && (f->frametype == AST_FRAME_DTMF) && (f->subclass == '*')) {
287                 /* * terminates call */
288                 ast_frfree(f);
289                 f = NULL;
290         }
291         CLEANUP(ast,p);
292         ast_mutex_unlock(&p->lock);
293         return f;
294 }
295
296 static int agent_write(struct ast_channel *ast, struct ast_frame *f)
297 {
298         struct agent_pvt *p = ast->pvt->pvt;
299         int res = -1;
300         CHECK_FORMATS(ast, p);
301         ast_mutex_lock(&p->lock);
302         if (p->chan) {
303                 if ((f->frametype != AST_FRAME_VOICE) ||
304                         (f->subclass == p->chan->writeformat)) {
305                         res = ast_write(p->chan, f);
306                 } else {
307                         ast_log(LOG_DEBUG, "Dropping one incompatible voice frame on '%s' to '%s'\n", ast->name, p->chan->name);
308                         res = 0;
309                 }
310         } else
311                 res = 0;
312         CLEANUP(ast, p);
313         ast_mutex_unlock(&p->lock);
314         return res;
315 }
316
317 static int agent_fixup(struct ast_channel *oldchan, struct ast_channel *newchan)
318 {
319         struct agent_pvt *p = newchan->pvt->pvt;
320         ast_mutex_lock(&p->lock);
321         if (p->owner != oldchan) {
322                 ast_log(LOG_WARNING, "old channel wasn't %p but was %p\n", oldchan, p->owner);
323                 ast_mutex_unlock(&p->lock);
324                 return -1;
325         }
326         p->owner = newchan;
327         ast_mutex_unlock(&p->lock);
328         return 0;
329 }
330
331 static int agent_indicate(struct ast_channel *ast, int condition)
332 {
333         struct agent_pvt *p = ast->pvt->pvt;
334         int res = -1;
335         ast_mutex_lock(&p->lock);
336         if (p->chan)
337                 res = ast_indicate(p->chan, condition);
338         else
339                 res = 0;
340         ast_mutex_unlock(&p->lock);
341         return res;
342 }
343
344 static int agent_digit(struct ast_channel *ast, char digit)
345 {
346         struct agent_pvt *p = ast->pvt->pvt;
347         int res = -1;
348         ast_mutex_lock(&p->lock);
349         if (p->chan)
350                 res = p->chan->pvt->send_digit(p->chan, digit);
351         else
352                 res = 0;
353         ast_mutex_unlock(&p->lock);
354         return res;
355 }
356
357 static int agent_call(struct ast_channel *ast, char *dest, int timeout)
358 {
359         struct agent_pvt *p = ast->pvt->pvt;
360         int res = -1;
361         ast_mutex_lock(&p->lock);
362         if (!p->chan) {
363                 if (p->pending) {
364                         ast_log(LOG_DEBUG, "Pretending to dial on pending agent\n");
365                         ast_setstate(ast, AST_STATE_DIALING);
366                         res = 0;
367                 } else {
368                         ast_log(LOG_NOTICE, "Whoa, they hung up between alloc and call...  what are the odds of that?\n");
369                         res = -1;
370                 }
371                 ast_mutex_unlock(&p->lock);
372                 return res;
373         } else if (strlen(p->loginchan)) {
374                 time(&p->start);
375                 /* Call on this agent */
376                 if (option_verbose > 2)
377                         ast_verbose(VERBOSE_PREFIX_3 "outgoing agentcall, to agent '%s', on '%s'\n", p->agent, p->chan->name);
378                 if (p->chan->callerid)
379                         free(p->chan->callerid);
380                 if (ast->callerid)
381                         p->chan->callerid = strdup(ast->callerid);
382                 else
383                         p->chan->callerid = NULL;
384                 res = ast_call(p->chan, p->loginchan, 0);
385                 CLEANUP(ast,p);
386                 ast_mutex_unlock(&p->lock);
387                 return res;
388         }
389         ast_verbose( VERBOSE_PREFIX_3 "agent_call, call to agent '%s' call on '%s'\n", p->agent, p->chan->name);
390         ast_log( LOG_DEBUG, "Playing beep, lang '%s'\n", p->chan->language);
391         res = ast_streamfile(p->chan, "beep", p->chan->language);
392         ast_log( LOG_DEBUG, "Played beep, result '%d'\n", res);
393         if (!res) {
394                 res = ast_waitstream(p->chan, "");
395                 ast_log( LOG_DEBUG, "Waited for stream, result '%d'\n", res);
396         }
397         if (!res) {
398                 res = ast_set_read_format(p->chan, ast_best_codec(p->chan->nativeformats));
399                 ast_log( LOG_DEBUG, "Set read format, result '%d'\n", res);
400                 if (res)
401                         ast_log(LOG_WARNING, "Unable to set read format to %s\n", ast_getformatname(ast_best_codec(p->chan->nativeformats)));
402         } else {
403                 // Agent hung-up
404                 p->chan = NULL;
405         }
406
407         if (!res) {
408                 ast_set_write_format(p->chan, ast_best_codec(p->chan->nativeformats));
409                 ast_log( LOG_DEBUG, "Set write format, result '%d'\n", res);
410                 if (res)
411                         ast_log(LOG_WARNING, "Unable to set write format to %s\n", ast_getformatname(ast_best_codec(p->chan->nativeformats)));
412         }
413         if( !res )
414         {
415                 /* Call is immediately up */
416                 ast_setstate(ast, AST_STATE_UP);
417         }
418         CLEANUP(ast,p);
419         ast_mutex_unlock(&p->lock);
420         return res;
421 }
422
423 static int agent_hangup(struct ast_channel *ast)
424 {
425         struct agent_pvt *p = ast->pvt->pvt;
426         int howlong = 0;
427         ast_mutex_lock(&p->lock);
428         p->owner = NULL;
429         ast->pvt->pvt = NULL;
430         p->app_sleep_cond = 1;
431         if (p->start && (ast->_state != AST_STATE_UP))
432                 howlong = time(NULL) - p->start;
433         time(&p->start);
434         if (p->chan) {
435                 /* If they're dead, go ahead and hang up on the agent now */
436                 if (strlen(p->loginchan)) {
437                         p->acknowledged = 0;
438                         if (p->chan) {
439                                 /* Recognize the hangup and pass it along immediately */
440                                 ast_hangup(p->chan);
441                                 p->chan = NULL;
442                         }
443                         ast_log(LOG_DEBUG, "Hungup, howlong is %d, autologoff is %d\n", howlong, p->autologoff);
444                         if (howlong  && p->autologoff && (howlong > p->autologoff)) {
445                                 ast_log(LOG_NOTICE, "Agent '%s' didn't answer/confirm within %d seconds (waited %d)\n", p->name, p->autologoff, howlong);
446                                 strcpy(p->loginchan, "");
447                         }
448                 } else if (p->dead) {
449                         ast_mutex_lock(&p->chan->lock);
450                         ast_softhangup(p->chan, AST_SOFTHANGUP_EXPLICIT);
451                         ast_mutex_unlock(&p->chan->lock);
452                 } else {
453                         ast_mutex_lock(&p->chan->lock);
454                         ast_moh_start(p->chan, p->moh);
455                         ast_mutex_unlock(&p->chan->lock);
456                 }
457         }
458 #if 0
459                 ast_mutex_unlock(&p->lock);
460                 /* Release ownership of the agent to other threads (presumably running the login app). */
461                 ast_mutex_unlock(&p->app_lock);
462         } else if (p->dead) {
463                 /* Go ahead and lose it */
464                 ast_mutex_unlock(&p->lock);
465                 /* Release ownership of the agent to other threads (presumably running the login app). */
466                 ast_mutex_unlock(&p->app_lock);
467         } else {
468                 ast_mutex_unlock(&p->lock);
469                 /* Release ownership of the agent to other threads (presumably running the login app). */
470                 ast_mutex_unlock(&p->app_lock);
471         }
472 #endif  
473         ast_mutex_unlock(&p->lock);
474         /* Release ownership of the agent to other threads (presumably running the login app). */
475         ast_mutex_unlock(&p->app_lock);
476
477         if (p->pending) {
478                 ast_mutex_lock(&agentlock);
479                 agent_unlink(p);
480                 ast_mutex_unlock(&agentlock);
481         }
482         if (p->abouttograb) {
483                 /* Let the "about to grab" thread know this isn't valid anymore, and let it
484                    kill it later */
485                 p->abouttograb = 0;
486         } else if (p->dead) {
487                 free(p);
488         } else if (p->chan) {
489                 /* Not dead -- check availability now */
490                 ast_mutex_lock(&p->lock);
491                 /* Store last disconnect time */
492                 gettimeofday(&p->lastdisc, NULL);
493                 ast_mutex_unlock(&p->lock);
494         }
495         return 0;
496 }
497
498 static int agent_cont_sleep( void *data )
499 {
500         struct agent_pvt *p;
501         struct timeval tv;
502         int res;
503
504         p = (struct agent_pvt *)data;
505
506         ast_mutex_lock(&p->lock);
507         res = p->app_sleep_cond;
508         if (p->lastdisc.tv_sec) {
509                 gettimeofday(&tv, NULL);
510                 if ((tv.tv_sec - p->lastdisc.tv_sec) * 1000 + 
511                         (tv.tv_usec - p->lastdisc.tv_usec) / 1000 > p->wrapuptime) 
512                         res = 1;
513         }
514         ast_mutex_unlock(&p->lock);
515 #if 0
516         if( !res )
517                 ast_log( LOG_DEBUG, "agent_cont_sleep() returning %d\n", res );
518 #endif          
519         return res;
520 }
521
522 static struct ast_channel *agent_new(struct agent_pvt *p, int state)
523 {
524         struct ast_channel *tmp;
525         struct ast_frame null_frame = { AST_FRAME_NULL };
526 #if 0
527         if (!p->chan) {
528                 ast_log(LOG_WARNING, "No channel? :(\n");
529                 return NULL;
530         }
531 #endif  
532         tmp = ast_channel_alloc(0);
533         if (tmp) {
534                 if (p->chan) {
535                         tmp->nativeformats = p->chan->nativeformats;
536                         tmp->writeformat = p->chan->writeformat;
537                         tmp->pvt->rawwriteformat = p->chan->writeformat;
538                         tmp->readformat = p->chan->readformat;
539                         tmp->pvt->rawreadformat = p->chan->readformat;
540                         strncpy(tmp->language, p->chan->language, sizeof(tmp->language)-1);
541                         strncpy(tmp->context, p->chan->context, sizeof(tmp->context)-1);
542                         strncpy(tmp->exten, p->chan->exten, sizeof(tmp->exten)-1);
543                 } else {
544                         tmp->nativeformats = AST_FORMAT_SLINEAR;
545                         tmp->writeformat = AST_FORMAT_SLINEAR;
546                         tmp->pvt->rawwriteformat = AST_FORMAT_SLINEAR;
547                         tmp->readformat = AST_FORMAT_SLINEAR;
548                         tmp->pvt->rawreadformat = AST_FORMAT_SLINEAR;
549                 }
550                 if (p->pending)
551                         snprintf(tmp->name, sizeof(tmp->name), "Agent/P%s-%d", p->agent, rand() & 0xffff);
552                 else
553                         snprintf(tmp->name, sizeof(tmp->name), "Agent/%s", p->agent);
554                 tmp->type = type;
555                 ast_setstate(tmp, state);
556                 tmp->pvt->pvt = p;
557                 tmp->pvt->send_digit = agent_digit;
558                 tmp->pvt->call = agent_call;
559                 tmp->pvt->hangup = agent_hangup;
560                 tmp->pvt->answer = agent_answer;
561                 tmp->pvt->read = agent_read;
562                 tmp->pvt->write = agent_write;
563                 tmp->pvt->exception = agent_read;
564                 tmp->pvt->indicate = agent_indicate;
565                 tmp->pvt->fixup = agent_fixup;
566                 p->owner = tmp;
567                 ast_mutex_lock(&usecnt_lock);
568                 usecnt++;
569                 ast_mutex_unlock(&usecnt_lock);
570                 ast_update_use_count();
571                 tmp->priority = 1;
572                 /* Wake up and wait for other applications (by definition the login app)
573                  * to release this channel). Takes ownership of the agent channel
574                  * to this thread only.
575                  * For signalling the other thread, ast_queue_frame is used until we
576                  * can safely use signals for this purpose. The pselect() needs to be
577                  * implemented in the kernel for this.
578                  */
579                 p->app_sleep_cond = 0;
580                 if( ast_mutex_trylock(&p->app_lock) )
581                 {
582                         if (p->chan) {
583                                 ast_queue_frame(p->chan, &null_frame, 1);
584                                 ast_mutex_unlock(&p->lock);     /* For other thread to read the condition. */
585                                 ast_mutex_lock(&p->app_lock);
586                                 ast_mutex_lock(&p->lock);
587                         }
588                         if( !p->chan )
589                         {
590                                 ast_log(LOG_WARNING, "Agent disconnected while we were connecting the call\n");
591                                 p->owner = NULL;
592                                 tmp->pvt->pvt = NULL;
593                                 p->app_sleep_cond = 1;
594                                 ast_channel_free( tmp );
595                                 ast_mutex_unlock(&p->lock);     /* For other thread to read the condition. */
596                                 ast_mutex_unlock(&p->app_lock);
597                                 return NULL;
598                         }
599                 }
600                 p->owning_app = pthread_self();
601                 /* After the above step, there should not be any blockers. */
602                 if (p->chan) {
603                         if (p->chan->blocking) {
604                                 ast_log( LOG_ERROR, "A blocker exists after agent channel ownership acquired\n" );
605                                 CRASH;
606                         }
607                         ast_moh_stop(p->chan);
608                 }
609         } else
610                 ast_log(LOG_WARNING, "Unable to allocate channel structure\n");
611         return tmp;
612 }
613
614
615 static int read_agent_config(void)
616 {
617         struct ast_config *cfg;
618         struct ast_variable *v;
619         struct agent_pvt *p, *pl, *pn;
620         group = 0;
621         autologoff = 0;
622         wrapuptime = 0;
623         ackcall = 1;
624         cfg = ast_load(config);
625         if (!cfg) {
626                 ast_log(LOG_NOTICE, "No agent configuration found -- agent support disabled\n");
627                 return 0;
628         }
629         ast_mutex_lock(&agentlock);
630         p = agents;
631         while(p) {
632                 p->dead = 1;
633                 p = p->next;
634         }
635         strcpy(moh, "default");
636         v = ast_variable_browse(cfg, "agents");
637         while(v) {
638                 /* Create the interface list */
639                 if (!strcasecmp(v->name, "agent")) {
640                         add_agent(v->value, 0);
641                 } else if (!strcasecmp(v->name, "group")) {
642                         group = ast_get_group(v->value);
643                 } else if (!strcasecmp(v->name, "autologoff")) {
644                         autologoff = atoi(v->value);
645                         if (autologoff < 0)
646                                 autologoff = 0;
647                 } else if (!strcasecmp(v->name, "ackcall")) {
648                         ackcall = ast_true(v->value);
649                 } else if (!strcasecmp(v->name, "wrapuptime")) {
650                         wrapuptime = atoi(v->value);
651                         if (wrapuptime < 0)
652                                 wrapuptime = 0;
653                 } else if (!strcasecmp(v->name, "musiconhold")) {
654                         strncpy(moh, v->value, sizeof(moh) - 1);
655                 }
656                 v = v->next;
657         }
658         p = agents;
659         pl = NULL;
660         while(p) {
661                 pn = p->next;
662                 if (p->dead) {
663                         /* Unlink */
664                         if (pl)
665                                 pl->next = p->next;
666                         else
667                                 agents = p->next;
668                         /* Destroy if  appropriate */
669                         if (!p->owner) {
670                                 if (!p->chan) {
671                                         free(p);
672                                 } else {
673                                         /* Cause them to hang up */
674                                         ast_softhangup(p->chan, AST_SOFTHANGUP_EXPLICIT);
675                                 }
676                         }
677                 } else
678                         pl = p;
679                 p = pn;
680         }
681         ast_mutex_unlock(&agentlock);
682         ast_destroy(cfg);
683         return 0;
684 }
685
686 static int check_availability(struct agent_pvt *newlyavailable, int needlock)
687 {
688         struct ast_channel *chan=NULL, *parent=NULL;
689         struct agent_pvt *p;
690         int res;
691         ast_log(LOG_DEBUG, "Checking availability of '%s'\n", newlyavailable->agent);
692         if (needlock)
693                 ast_mutex_lock(&agentlock);
694         p = agents;
695         while(p) {
696                 if (p == newlyavailable) {
697                         p = p->next;
698                         continue;
699                 }
700                 ast_mutex_lock(&p->lock);
701                 if (!p->abouttograb && p->pending && ((p->group && (newlyavailable->group & p->group)) || !strcmp(p->agent, newlyavailable->agent))) {
702                         ast_log(LOG_DEBUG, "Call '%s' looks like a winner for agent '%s'\n", p->owner->name, newlyavailable->agent);
703                         /* We found a pending call, time to merge */
704                         chan = agent_new(newlyavailable, AST_STATE_DOWN);
705                         parent = p->owner;
706                         p->abouttograb = 1;
707                         ast_mutex_unlock(&p->lock);
708                         break;
709                 }
710                 ast_mutex_unlock(&p->lock);
711                 p = p->next;
712         }
713         if (needlock)
714                 ast_mutex_unlock(&agentlock);
715         if (parent && chan)  {
716                 ast_log( LOG_DEBUG, "Playing beep, lang '%s'\n", newlyavailable->chan->language);
717                 res = ast_streamfile(newlyavailable->chan, "beep", newlyavailable->chan->language);
718                 ast_log( LOG_DEBUG, "Played beep, result '%d'\n", res);
719                 if (!res) {
720                         res = ast_waitstream(newlyavailable->chan, "");
721                         ast_log( LOG_DEBUG, "Waited for stream, result '%d'\n", res);
722                 }
723                 if (!res) {
724                         /* Note -- parent may have disappeared */
725                         if (p->abouttograb) {
726                                 ast_setstate(parent, AST_STATE_UP);
727                                 ast_setstate(chan, AST_STATE_UP);
728                                 /* Go ahead and mark the channel as a zombie so that masquerade will
729                                    destroy it for us, and we need not call ast_hangup */
730                                 ast_mutex_lock(&parent->lock);
731                                 chan->zombie = 1;
732                                 ast_channel_masquerade(parent, chan);
733                                 ast_mutex_unlock(&parent->lock);
734                                 p->abouttograb = 0;
735                         } else {
736                                 ast_log(LOG_DEBUG, "Sneaky, parent disappeared in the mean time...\n");
737                                 agent_cleanup(newlyavailable);
738                         }
739                 } else {
740                         ast_log(LOG_DEBUG, "Ugh...  Agent hung up at exactly the wrong time\n");
741                         agent_cleanup(newlyavailable);
742                 }
743         }
744         return 0;
745 }
746
747 static struct ast_channel *agent_request(char *type, int format, void *data)
748 {
749         struct agent_pvt *p;
750         struct ast_channel *chan = NULL;
751         char *s;
752         unsigned int groupmatch;
753         int waitforagent=0;
754         int hasagent = 0;
755         s = data;
756         if ((s[0] == '@') && (sscanf(s + 1, "%d", &groupmatch) == 1)) {
757                 groupmatch = (1 << groupmatch);
758         } else if ((s[0] == ':') && (sscanf(s + 1, "%d", &groupmatch) == 1)) {
759                 groupmatch = (1 << groupmatch);
760                 waitforagent = 1;
761         } else {
762                 groupmatch = 0;
763         }
764
765         /* Check actual logged in agents first */
766         ast_mutex_lock(&agentlock);
767         p = agents;
768         while(p) {
769                 ast_mutex_lock(&p->lock);
770                 if (!p->pending && ((groupmatch && (p->group & groupmatch)) || !strcmp(data, p->agent)) &&
771                                 !strlen(p->loginchan)) {
772                         if (p->chan)
773                                 hasagent++;
774                         if (!p->lastdisc.tv_sec) {
775                                 /* Agent must be registered, but not have any active call, and not be in a waiting state */
776                                 if (!p->owner && p->chan) {
777                                         /* Fixed agent */
778                                         chan = agent_new(p, AST_STATE_DOWN);
779                                 }
780                                 if (chan) {
781                                         ast_mutex_unlock(&p->lock);
782                                         break;
783                                 }
784                         }
785                 }
786                 ast_mutex_unlock(&p->lock);
787                 p = p->next;
788         }
789         if (!p) {
790                 p = agents;
791                 while(p) {
792                         ast_mutex_lock(&p->lock);
793                         if (!p->pending && ((groupmatch && (p->group & groupmatch)) || !strcmp(data, p->agent))) {
794                                 if (p->chan || strlen(p->loginchan))
795                                         hasagent++;
796                                 if (!p->lastdisc.tv_sec) {
797                                         /* Agent must be registered, but not have any active call, and not be in a waiting state */
798                                         if (!p->owner && p->chan) {
799                                                 /* Could still get a fixed agent */
800                                                 chan = agent_new(p, AST_STATE_DOWN);
801                                         } else if (!p->owner && strlen(p->loginchan)) {
802                                                 /* Adjustable agent */
803                                                 p->chan = ast_request("Local", format, p->loginchan);
804                                                 if (p->chan)
805                                                         chan = agent_new(p, AST_STATE_DOWN);
806                                         }
807                                         if (chan) {
808                                                 ast_mutex_unlock(&p->lock);
809                                                 break;
810                                         }
811                                 }
812                         }
813                         ast_mutex_unlock(&p->lock);
814                         p = p->next;
815                 }
816         }
817
818         if (!chan && waitforagent) {
819                 /* No agent available -- but we're requesting to wait for one.
820                    Allocate a place holder */
821                 if (hasagent) {
822                         ast_log(LOG_DEBUG, "Creating place holder for '%s'\n", s);
823                         p = add_agent(data, 1);
824                         p->group = groupmatch;
825                         chan = agent_new(p, AST_STATE_DOWN);
826                         if (!chan) {
827                                 ast_log(LOG_WARNING, "Weird...  Fix this to drop the unused pending agent\n");
828                         }
829                 } else
830                         ast_log(LOG_DEBUG, "Not creating place holder for '%s' since nobody logged in\n", s);
831         }
832         ast_mutex_unlock(&agentlock);
833         return chan;
834 }
835
836 static int powerof(unsigned int v)
837 {
838         int x;
839         for (x=0;x<32;x++) {
840                 if (v & (1 << x)) return x;
841         }
842         return 0;
843 }
844
845 static int agents_show(int fd, int argc, char **argv)
846 {
847         struct agent_pvt *p;
848         char username[256];
849         char location[256];
850         char talkingto[256];
851         char moh[256];
852
853         if (argc != 2)
854                 return RESULT_SHOWUSAGE;
855         ast_mutex_lock(&agentlock);
856         p = agents;
857         while(p) {
858                 ast_mutex_lock(&p->lock);
859                 if (p->pending) {
860                         if (p->group)
861                                 ast_cli(fd, "-- Pending call to group %d\n", powerof(p->group));
862                         else
863                                 ast_cli(fd, "-- Pending call to agent %s\n", p->agent);
864                 } else {
865                         if (strlen(p->name))
866                                 snprintf(username, sizeof(username), "(%s) ", p->name);
867                         else
868                                 strcpy(username, "");
869                         if (p->chan) {
870                                 snprintf(location, sizeof(location), "logged in on %s", p->chan->name);
871                                 if (p->owner && p->owner->bridge) {
872                                         snprintf(talkingto, sizeof(talkingto), " talking to %s", p->owner->bridge->name);
873                                 } else {
874                                         strcpy(talkingto, " is idle");
875                                 }
876                         } else if (strlen(p->loginchan)) {
877                                 snprintf(location, sizeof(location) - 20, "available at '%s'", p->loginchan);
878                                 strcpy(talkingto, "");
879                                 if (p->acknowledged)
880                                         strcat(location, " (Confirmed)");
881                         } else {
882                                 strcpy(location, "not logged in");
883                                 strcpy(talkingto, "");
884                         }
885                         if (strlen(p->moh))
886                                 snprintf(moh, sizeof(moh), " (musiconhold is '%s')", p->moh);
887                         ast_cli(fd, "%-12.12s %s%s%s%s\n", p->agent, 
888                                         username, location, talkingto, moh);
889                 }
890                 ast_mutex_unlock(&p->lock);
891                 p = p->next;
892         }
893         ast_mutex_unlock(&agentlock);
894         return RESULT_SUCCESS;
895 }
896
897 static char show_agents_usage[] = 
898 "Usage: show agents\n"
899 "       Provides summary information on agents.\n";
900
901 static struct ast_cli_entry cli_show_agents = {
902         { "show", "agents", NULL }, agents_show, 
903         "Show status of agents", show_agents_usage, NULL };
904
905 STANDARD_LOCAL_USER;
906 LOCAL_USER_DECL;
907
908 static int __login_exec(struct ast_channel *chan, void *data, int callbackmode)
909 {
910         int res=0;
911         int tries = 0;
912         struct agent_pvt *p;
913         struct localuser *u;
914         struct timeval tv;
915         char user[AST_MAX_AGENT];
916         char pass[AST_MAX_AGENT];
917         char xpass[AST_MAX_AGENT] = "";
918         char *errmsg;
919         char info[512];
920         char *opt_user = NULL;
921         char *options = NULL;
922         char *context = NULL;
923         char *exten = NULL;
924         int play_announcement;
925         char *filename = "agent-loginok";
926         
927         LOCAL_USER_ADD(u);
928
929         /* Parse the arguments XXX Check for failure XXX */
930         strncpy(info, (char *)data, strlen((char *)data) + AST_MAX_EXTENSION-1);
931         opt_user = info;
932         if( opt_user ) {
933                 options = strchr(opt_user, '|');
934                 if (options) {
935                         *options = '\0';
936                         options++;
937                         if (callbackmode) {
938                                 context = strchr(options, '@');
939                                 if (context) {
940                                         *context = '\0';
941                                         context++;
942                                 }
943                                 exten = options;
944                                 while(*exten && ((*exten < '0') || (*exten > '9'))) exten++;
945                                 if (!*exten)
946                                         exten = NULL;
947                         }
948                 }
949         }
950
951         if (chan->_state != AST_STATE_UP)
952                 res = ast_answer(chan);
953         if (!res) {
954                 if( opt_user && strlen(opt_user))
955                         strncpy( user, opt_user, AST_MAX_AGENT );
956                 else
957                         res = ast_app_getdata(chan, "agent-user", user, sizeof(user) - 1, 0);
958         }
959         while (!res && (tries < 3)) {
960                 /* Check for password */
961                 ast_mutex_lock(&agentlock);
962                 p = agents;
963                 while(p) {
964                         if (!strcmp(p->agent, user) && !p->pending)
965                                 strncpy(xpass, p->password, sizeof(xpass) - 1);
966                         p = p->next;
967                 }
968                 ast_mutex_unlock(&agentlock);
969                 if (!res) {
970                         if (strlen(xpass))
971                                 res = ast_app_getdata(chan, "agent-pass", pass, sizeof(pass) - 1, 0);
972                         else
973                                 strcpy(pass, "");
974                 }
975                 errmsg = "agent-incorrect";
976
977 #if 0
978                 ast_log(LOG_NOTICE, "user: %s, pass: %s\n", user, pass);
979 #endif          
980
981                 /* Check again for accuracy */
982                 ast_mutex_lock(&agentlock);
983                 p = agents;
984                 while(p) {
985                         ast_mutex_lock(&p->lock);
986                         if (!strcmp(p->agent, user) &&
987                                 !strcmp(p->password, pass) && !p->pending) {
988                                         if (!p->chan) {
989                                                 if (callbackmode) {
990                                                         char tmpchan[256] = "";
991                                                         int pos = 0;
992                                                         /* Retrieve login chan */
993                                                         for (;;) {
994                                                                 if (exten) {
995                                                                         strncpy(tmpchan, exten, sizeof(tmpchan) - 1);
996                                                                         res = 0;
997                                                                 } else
998                                                                         res = ast_app_getdata(chan, "agent-newlocation", tmpchan+pos, sizeof(tmpchan) - 2, 0);
999                                                                 if (!strlen(tmpchan) || ast_exists_extension(chan, context && strlen(context) ? context : "default", tmpchan,
1000                                                                                         1, NULL))
1001                                                                         break;
1002                                                                 if (exten) {
1003                                                                         ast_log(LOG_WARNING, "Extension '%s' is not valid for automatic login of agent '%s'\n", exten, p->agent);
1004                                                                         exten = NULL;
1005                                                                         pos = 0;
1006                                                                 } else {
1007                                                                         res = ast_streamfile(chan, "invalid", chan->language);
1008                                                                         if (!res)
1009                                                                                 res = ast_waitstream(chan, AST_DIGIT_ANY);
1010                                                                         if (res > 0) {
1011                                                                                 tmpchan[0] = res;
1012                                                                                 tmpchan[1] = '\0';
1013                                                                                 pos = 1;
1014                                                                         } else {
1015                                                                                 tmpchan[0] = '\0';
1016                                                                                 pos = 0;
1017                                                                         }
1018                                                                 }
1019                                                         }
1020                                                         if (!res) {
1021                                                                 if (context && strlen(context) && strlen(tmpchan))
1022                                                                         snprintf(p->loginchan, sizeof(p->loginchan), "%s@%s", tmpchan, context);
1023                                                                 else
1024                                                                         strncpy(p->loginchan, tmpchan, sizeof(p->loginchan) - 1);
1025                                                                 if (!strlen(p->loginchan))
1026                                                                         filename = "agent-loggedoff";
1027                                                                 p->acknowledged = 0;
1028                                                         }
1029                                                 } else {
1030                                                         strcpy(p->loginchan, "");
1031                                                         p->acknowledged = 0;
1032                                                 }
1033                                                 play_announcement = 1;
1034                                                 if( options )
1035                                                         if( strchr( options, 's' ) )
1036                                                                 play_announcement = 0;
1037                                                 if( !res && play_announcement )
1038                                                         res = ast_streamfile(chan, filename, chan->language);
1039                                                 if (!res)
1040                                                         ast_waitstream(chan, "");
1041                                                 if (!res) {
1042                                                         res = ast_set_read_format(chan, ast_best_codec(chan->nativeformats));
1043                                                         if (res)
1044                                                                 ast_log(LOG_WARNING, "Unable to set read format to %d\n", ast_best_codec(chan->nativeformats));
1045                                                 }
1046                                                 if (!res) {
1047                                                         ast_set_write_format(chan, ast_best_codec(chan->nativeformats));
1048                                                         if (res)
1049                                                                 ast_log(LOG_WARNING, "Unable to set write format to %d\n", ast_best_codec(chan->nativeformats));
1050                                                 }
1051                                                 /* Check once more just in case */
1052                                                 if (p->chan)
1053                                                         res = -1;
1054                                                 if (callbackmode && !res) {
1055                                                         /* Just say goodbye and be done with it */
1056                                                         if (!res)
1057                                                                 res = ast_safe_sleep(chan, 500);
1058                                                         res = ast_streamfile(chan, "vm-goodbye", chan->language);
1059                                                         if (!res)
1060                                                                 res = ast_waitstream(chan, "");
1061                                                         if (!res)
1062                                                                 res = ast_safe_sleep(chan, 1000);
1063                                                         ast_mutex_unlock(&p->lock);
1064                                                         ast_mutex_unlock(&agentlock);
1065                                                 } else if (!res) {
1066 #ifdef HONOR_MUSIC_CLASS
1067                                                         /* check if the moh class was changed with setmusiconhold */
1068                                                         if (*(chan->musicclass))
1069                                                                 strncpy(p->moh, chan->musicclass, sizeof(p->moh) - 1);
1070 #endif                                                          
1071                                                         ast_moh_start(chan, p->moh);
1072                                                         manager_event(EVENT_FLAG_AGENT, "Agentlogin",
1073                                                                 "Agent: %s\r\n"
1074                                                                 "Channel: %s\r\n",
1075                                                                 p->agent, chan->name);
1076                                                         if (option_verbose > 2)
1077                                                                 ast_verbose(VERBOSE_PREFIX_3 "Agent '%s' logged in (format %s/%s)\n", p->agent,
1078                                                                                                 ast_getformatname(chan->readformat), ast_getformatname(chan->writeformat));
1079                                                         /* Login this channel and wait for it to
1080                                                            go away */
1081                                                         p->chan = chan;
1082                                                         p->acknowledged = 1;
1083                                                         check_availability(p, 0);
1084                                                         ast_mutex_unlock(&p->lock);
1085                                                         ast_mutex_unlock(&agentlock);
1086                                                         while (res >= 0) {
1087                                                                 ast_mutex_lock(&p->lock);
1088                                                                 if (p->chan != chan)
1089                                                                         res = -1;
1090                                                                 ast_mutex_unlock(&p->lock);
1091                                                                 /* Yield here so other interested threads can kick in. */
1092                                                                 sched_yield();
1093                                                                 if (res)
1094                                                                         break;
1095
1096                                                                 ast_mutex_lock(&p->lock);
1097                                                                 if (p->lastdisc.tv_sec) {
1098                                                                         gettimeofday(&tv, NULL);
1099                                                                         if ((tv.tv_sec - p->lastdisc.tv_sec) * 1000 + 
1100                                                                                 (tv.tv_usec - p->lastdisc.tv_usec) / 1000 > p->wrapuptime) {
1101                                                                                         ast_log(LOG_DEBUG, "Wrapup time expired!\n");
1102                                                                                 memset(&p->lastdisc, 0, sizeof(p->lastdisc));
1103                                                                                 check_availability(p, 1);
1104                                                                         }
1105                                                                 }
1106                                                                 ast_mutex_unlock(&p->lock);
1107                                                                 /*      Synchronize channel ownership between call to agent and itself. */
1108                                                                 ast_mutex_lock( &p->app_lock );
1109                                                                 ast_mutex_lock(&p->lock);
1110                                                                 p->owning_app = pthread_self();
1111                                                                 ast_mutex_unlock(&p->lock);
1112                                                                 res = ast_safe_sleep_conditional( chan, 1000,
1113                                                                                                                 agent_cont_sleep, p );
1114                                                                 ast_mutex_unlock( &p->app_lock );
1115                                                                 sched_yield();
1116                                                         }
1117                                                         ast_mutex_lock(&p->lock);
1118                                                         if (res && p->owner) 
1119                                                                 ast_log(LOG_WARNING, "Huh?  We broke out when there was still an owner?\n");
1120                                                         /* Log us off if appropriate */
1121                                                         if (p->chan == chan)
1122                                                                 p->chan = NULL;
1123                                                         p->acknowledged = 0;
1124                                                         ast_mutex_unlock(&p->lock);
1125                                                         if (option_verbose > 2)
1126                                                                 ast_verbose(VERBOSE_PREFIX_3 "Agent '%s' logged out\n", p->agent);
1127                                                         manager_event(EVENT_FLAG_AGENT, "Agentlogoff",
1128                                                                 "Agent: %s\r\n",
1129                                                                 p->agent);
1130                                                         /* If there is no owner, go ahead and kill it now */
1131                                                         if (p->dead && !p->owner)
1132                                                                 free(p);
1133                                                 }
1134                                                 else {
1135                                                         ast_mutex_unlock(&p->lock);
1136                                                         p = NULL;
1137                                                 }
1138                                                 res = -1;
1139                                         } else {
1140                                                 ast_mutex_unlock(&p->lock);
1141                                                 errmsg = "agent-alreadyon";
1142                                                 p = NULL;
1143                                         }
1144                                         break;
1145                         }
1146                         ast_mutex_unlock(&p->lock);
1147                         p = p->next;
1148                 }
1149                 if (!p)
1150                         ast_mutex_unlock(&agentlock);
1151
1152                 if (!res)
1153                         res = ast_app_getdata(chan, errmsg, user, sizeof(user) - 1, 0);
1154         }
1155                 
1156         LOCAL_USER_REMOVE(u);
1157         /* Always hangup */
1158         return -1;
1159 }
1160
1161 static int login_exec(struct ast_channel *chan, void *data)
1162 {
1163         return __login_exec(chan, data, 0);
1164 }
1165
1166 static int callback_exec(struct ast_channel *chan, void *data)
1167 {
1168         return __login_exec(chan, data, 1);
1169 }
1170
1171 int load_module()
1172 {
1173         /* Make sure we can register our sip channel type */
1174         if (ast_channel_register(type, tdesc, capability, agent_request)) {
1175                 ast_log(LOG_ERROR, "Unable to register channel class %s\n", type);
1176                 return -1;
1177         }
1178         ast_register_application(app, login_exec, synopsis, descrip);
1179         ast_register_application(app2, callback_exec, synopsis2, descrip2);
1180         ast_cli_register(&cli_show_agents);
1181         /* Read in the config */
1182         read_agent_config();
1183         return 0;
1184 }
1185
1186 int reload()
1187 {
1188         read_agent_config();
1189         return 0;
1190 }
1191
1192 int unload_module()
1193 {
1194         struct agent_pvt *p;
1195         /* First, take us out of the channel loop */
1196         ast_cli_unregister(&cli_show_agents);
1197         ast_unregister_application(app);
1198         ast_unregister_application(app2);
1199         ast_channel_unregister(type);
1200         if (!ast_mutex_lock(&agentlock)) {
1201                 /* Hangup all interfaces if they have an owner */
1202                 p = agents;
1203                 while(p) {
1204                         if (p->owner)
1205                                 ast_softhangup(p->owner, AST_SOFTHANGUP_APPUNLOAD);
1206                         p = p->next;
1207                 }
1208                 agents = NULL;
1209                 ast_mutex_unlock(&agentlock);
1210         } else {
1211                 ast_log(LOG_WARNING, "Unable to lock the monitor\n");
1212                 return -1;
1213         }               
1214         return 0;
1215 }
1216
1217 int usecount()
1218 {
1219         int res;
1220         ast_mutex_lock(&usecnt_lock);
1221         res = usecnt;
1222         ast_mutex_unlock(&usecnt_lock);
1223         return res;
1224 }
1225
1226 char *key()
1227 {
1228         return ASTERISK_GPL_KEY;
1229 }
1230
1231 char *description()
1232 {
1233         return desc;
1234 }
1235