Fix EAGI fd leak (bug #698)
[asterisk/asterisk.git] / apps / app_agi.c
1 /*
2  * Asterisk -- A telephony toolkit for Linux.
3  *
4  * Asterisk Gateway Interface
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 <sys/types.h>
15 #include <asterisk/file.h>
16 #include <asterisk/logger.h>
17 #include <asterisk/channel.h>
18 #include <asterisk/pbx.h>
19 #include <asterisk/module.h>
20 #include <asterisk/astdb.h>
21 #include <math.h>
22 #include <stdlib.h>
23 #include <unistd.h>
24 #include <string.h>
25 #include <stdlib.h>
26 #include <signal.h>
27 #include <sys/time.h>
28 #include <stdio.h>
29 #include <fcntl.h>
30 #include <errno.h>
31 #include <asterisk/cli.h>
32 #include <asterisk/logger.h>
33 #include <asterisk/options.h>
34 #include <asterisk/image.h>
35 #include <asterisk/say.h>
36 #include <asterisk/app.h>
37 #include <asterisk/dsp.h>
38 #include <asterisk/musiconhold.h>
39 #include "../asterisk.h"
40 #include "../astconf.h"
41
42 #include <pthread.h>
43
44 #define MAX_ARGS 128
45
46 /* Recycle some stuff from the CLI interface */
47 #define fdprintf ast_cli
48
49 typedef struct agi_state {
50         int fd;         /* FD for general output */
51         int audio;      /* FD for audio output */
52         int ctrl;       /* FD for input control */
53 } AGI;
54
55 typedef struct agi_command {
56         /* Null terminated list of the words of the command */
57         char *cmda[AST_MAX_CMD_LEN];
58         /* Handler for the command (channel, AGI state, # of arguments, argument list). 
59             Returns RESULT_SHOWUSAGE for improper arguments */
60         int (*handler)(struct ast_channel *chan, AGI *agi, int argc, char *argv[]);
61         /* Summary of the command (< 60 characters) */
62         char *summary;
63         /* Detailed usage information */
64         char *usage;
65 } agi_command;
66
67 static char *tdesc = "Asterisk Gateway Interface (AGI)";
68
69 static char *app = "AGI";
70
71 static char *eapp = "EAGI";
72
73 static char *synopsis = "Executes an AGI compliant application";
74
75 static char *descrip =
76 "  [E]AGI(command|args): Executes an Asterisk Gateway Interface compliant\n"
77 "program on a channel.   AGI allows Asterisk to launch external programs\n"
78 "written in any language to control a telephony channel, play audio,\n"
79 "read DTMF digits, etc. by communicating with the AGI protocol on stdin\n"
80 "and stdout.  Returns -1 on hangup or if application requested hangup, or\n"
81 "0 on non-hangup exit.  Using 'EAGI' provides enhanced AGI, with audio\n"
82 "available out of band on file descriptor 3\n";
83
84 STANDARD_LOCAL_USER;
85
86 LOCAL_USER_DECL;
87
88
89 #define TONE_BLOCK_SIZE 200
90
91 static int launch_script(char *script, char *args, int *fds, int *efd, int *opid)
92 {
93         char tmp[256];
94         int pid;
95         int toast[2];
96         int fromast[2];
97         int audio[2];
98         int x;
99         int res;
100         if (script[0] != '/') {
101                 snprintf(tmp, sizeof(tmp), "%s/%s", (char *)ast_config_AST_AGI_DIR, script);
102                 script = tmp;
103         }
104         if (pipe(toast)) {
105                 ast_log(LOG_WARNING, "Unable to create toast pipe: %s\n",strerror(errno));
106                 return -1;
107         }
108         if (pipe(fromast)) {
109                 ast_log(LOG_WARNING, "unable to create fromast pipe: %s\n", strerror(errno));
110                 close(toast[0]);
111                 close(toast[1]);
112                 return -1;
113         }
114         if (efd) {
115                 if (pipe(audio)) {
116                         ast_log(LOG_WARNING, "unable to create audio pipe: %s\n", strerror(errno));
117                         close(fromast[0]);
118                         close(fromast[1]);
119                         close(toast[0]);
120                         close(toast[1]);
121                         return -1;
122                 }
123                 res = fcntl(audio[1], F_GETFL);
124                 if (res > -1) 
125                         res = fcntl(audio[1], F_SETFL, res | O_NONBLOCK);
126                 if (res < 0) {
127                         ast_log(LOG_WARNING, "unable to set audio pipe parameters: %s\n", strerror(errno));
128                         close(fromast[0]);
129                         close(fromast[1]);
130                         close(toast[0]);
131                         close(toast[1]);
132                         close(audio[0]);
133                         close(audio[1]);
134                         return -1;
135                 }
136         }
137         pid = fork();
138         if (pid < 0) {
139                 ast_log(LOG_WARNING, "Failed to fork(): %s\n", strerror(errno));
140                 return -1;
141         }
142         if (!pid) {
143                 /* Redirect stdin and out, provide enhanced audio channel if desired */
144                 dup2(fromast[0], STDIN_FILENO);
145                 dup2(toast[1], STDOUT_FILENO);
146                 if (efd) {
147                         dup2(audio[0], STDERR_FILENO + 1);
148                 } else {
149                         close(STDERR_FILENO + 1);
150                 }
151                 /* Close everything but stdin/out/error */
152                 for (x=STDERR_FILENO + 2;x<1024;x++) 
153                         close(x);
154                 /* Execute script */
155                 execl(script, script, args, (char *)NULL);
156                 /* Can't use ast_log since FD's are closed */
157                 fprintf(stderr, "Failed to execute '%s': %s\n", script, strerror(errno));
158                 exit(1);
159         }
160         if (option_verbose > 2) 
161                 ast_verbose(VERBOSE_PREFIX_3 "Launched AGI Script %s\n", script);
162         fds[0] = toast[0];
163         fds[1] = fromast[1];
164         if (efd) {
165                 *efd = audio[1];
166         }
167         /* close what we're not using in the parent */
168         close(toast[1]);
169         close(fromast[0]);
170
171         // [PHM 12/18/03]
172         close(audio[0])
173
174         *opid = pid;
175         return 0;
176                 
177 }
178
179 static void setup_env(struct ast_channel *chan, char *request, int fd, int enhanced)
180 {
181         /* Print initial environment, with agi_request always being the first
182            thing */
183         fdprintf(fd, "agi_request: %s\n", request);
184         fdprintf(fd, "agi_channel: %s\n", chan->name);
185         fdprintf(fd, "agi_language: %s\n", chan->language);
186         fdprintf(fd, "agi_type: %s\n", chan->type);
187         fdprintf(fd, "agi_uniqueid: %s\n", chan->uniqueid);
188
189         /* ANI/DNIS */
190         fdprintf(fd, "agi_callerid: %s\n", chan->callerid ? chan->callerid : "unknown");
191         fdprintf(fd, "agi_dnid: %s\n", chan->dnid ? chan->dnid : "unknown");
192         fdprintf(fd, "agi_rdnis: %s\n", chan->rdnis ? chan->rdnis : "unknown");
193
194         /* Context information */
195         fdprintf(fd, "agi_context: %s\n", chan->context);
196         fdprintf(fd, "agi_extension: %s\n", chan->exten);
197         fdprintf(fd, "agi_priority: %d\n", chan->priority);
198         fdprintf(fd, "agi_enhanced: %s\n", enhanced ? "1.0" : "0.0");
199
200     /* User information */
201     fdprintf(fd, "agi_accountcode: %s\n", chan->accountcode ? chan->accountcode : "");
202     
203         /* End with empty return */
204         fdprintf(fd, "\n");
205 }
206
207 static int handle_answer(struct ast_channel *chan, AGI *agi, int argc, char *argv[])
208 {
209         int res;
210         res = 0;
211         if (chan->_state != AST_STATE_UP) {
212                 /* Answer the chan */
213                 res = ast_answer(chan);
214         }
215         fdprintf(agi->fd, "200 result=%d\n", res);
216         if (res >= 0)
217                 return RESULT_SUCCESS;
218         else
219                 return RESULT_FAILURE;
220 }
221
222 static int handle_waitfordigit(struct ast_channel *chan, AGI *agi, int argc, char *argv[])
223 {
224         int res;
225         int to;
226         if (argc != 4)
227                 return RESULT_SHOWUSAGE;
228         if (sscanf(argv[3], "%i", &to) != 1)
229                 return RESULT_SHOWUSAGE;
230         res = ast_waitfordigit_full(chan, to, agi->audio, agi->ctrl);
231         fdprintf(agi->fd, "200 result=%d\n", res);
232         if (res >= 0)
233                 return RESULT_SUCCESS;
234         else
235                 return RESULT_FAILURE;
236 }
237
238 static int handle_sendtext(struct ast_channel *chan, AGI *agi, int argc, char *argv[])
239 {
240         int res;
241         if (argc != 3)
242                 return RESULT_SHOWUSAGE;
243         /* At the moment, the parser (perhaps broken) returns with
244            the last argument PLUS the newline at the end of the input
245            buffer. This probably needs to be fixed, but I wont do that
246            because other stuff may break as a result. The right way
247            would probably be to strip off the trailing newline before
248            parsing, then here, add a newline at the end of the string
249            before sending it to ast_sendtext --DUDE */
250         res = ast_sendtext(chan, argv[2]);
251         fdprintf(agi->fd, "200 result=%d\n", res);
252         if (res >= 0)
253                 return RESULT_SUCCESS;
254         else
255                 return RESULT_FAILURE;
256 }
257
258 static int handle_recvchar(struct ast_channel *chan, AGI *agi, int argc, char *argv[])
259 {
260         int res;
261         if (argc != 3)
262                 return RESULT_SHOWUSAGE;
263         res = ast_recvchar(chan,atoi(argv[2]));
264         if (res == 0) {
265                 fdprintf(agi->fd, "200 result=%d (timeout)\n", res);
266                 return RESULT_SUCCESS;
267         }
268         if (res > 0) {
269                 fdprintf(agi->fd, "200 result=%d\n", res);
270                 return RESULT_SUCCESS;
271         }
272         else {
273                 fdprintf(agi->fd, "200 result=%d (hangup)\n", res);
274                 return RESULT_FAILURE;
275         }
276 }
277
278 static int handle_tddmode(struct ast_channel *chan, AGI *agi, int argc, char *argv[])
279 {
280         int res,x;
281         if (argc != 3)
282                 return RESULT_SHOWUSAGE;
283         if (!strncasecmp(argv[2],"on",2)) x = 1; else x = 0;
284         if (!strncasecmp(argv[2],"mate",4)) x = 2;
285         if (!strncasecmp(argv[2],"tdd",3)) x = 1;
286         res = ast_channel_setoption(chan,AST_OPTION_TDD,&x,sizeof(char),0);
287         fdprintf(agi->fd, "200 result=%d\n", res);
288         if (res >= 0) 
289                 return RESULT_SUCCESS;
290         else
291                 return RESULT_FAILURE;
292 }
293
294 static int handle_sendimage(struct ast_channel *chan, AGI *agi, int argc, char *argv[])
295 {
296         int res;
297         if (argc != 3)
298                 return RESULT_SHOWUSAGE;
299         res = ast_send_image(chan, argv[2]);
300         if (!ast_check_hangup(chan))
301                 res = 0;
302         fdprintf(agi->fd, "200 result=%d\n", res);
303         if (res >= 0)
304                 return RESULT_SUCCESS;
305         else
306                 return RESULT_FAILURE;
307 }
308
309 static int handle_streamfile(struct ast_channel *chan, AGI *agi, int argc, char *argv[])
310 {
311         int res;
312         struct ast_filestream *fs;
313         long sample_offset = 0;
314         long max_length;
315
316         if (argc < 4)
317                 return RESULT_SHOWUSAGE;
318         if (argc > 5)
319                 return RESULT_SHOWUSAGE;
320         if ((argc > 4) && (sscanf(argv[4], "%ld", &sample_offset) != 1))
321                 return RESULT_SHOWUSAGE;
322         
323         fs = ast_openstream(chan, argv[2], chan->language);
324         if(!fs){
325                 fdprintf(agi->fd, "200 result=%d endpos=%ld\n", 0, sample_offset);
326                 ast_log(LOG_WARNING, "Unable to open %s\n", argv[2]);
327                 return RESULT_FAILURE;
328         }
329         ast_seekstream(fs, 0, SEEK_END);
330         max_length = ast_tellstream(fs);
331         ast_seekstream(fs, sample_offset, SEEK_SET);
332         res = ast_applystream(chan, fs);
333         res = ast_playstream(fs);
334         if (res) {
335                 fdprintf(agi->fd, "200 result=%d endpos=%ld\n", res, sample_offset);
336                 if (res >= 0)
337                         return RESULT_SHOWUSAGE;
338                 else
339                         return RESULT_FAILURE;
340         }
341         res = ast_waitstream_full(chan, argv[3], agi->audio, agi->ctrl);
342         /* this is to check for if ast_waitstream closed the stream, we probably are at
343          * the end of the stream, return that amount, else check for the amount */
344         sample_offset = (chan->stream)?ast_tellstream(fs):max_length;
345         ast_stopstream(chan);
346         if (res == 1) {
347                 /* Stop this command, don't print a result line, as there is a new command */
348                 return RESULT_SUCCESS;
349         }
350         fdprintf(agi->fd, "200 result=%d endpos=%ld\n", res, sample_offset);
351         if (res >= 0)
352                 return RESULT_SUCCESS;
353         else
354                 return RESULT_FAILURE;
355 }
356
357 static int handle_saynumber(struct ast_channel *chan, AGI *agi, int argc, char *argv[])
358 {
359         int res;
360         int num;
361         if (argc != 4)
362                 return RESULT_SHOWUSAGE;
363         if (sscanf(argv[2], "%i", &num) != 1)
364                 return RESULT_SHOWUSAGE;
365         res = ast_say_number_full(chan, num, argv[3], chan->language, agi->audio, agi->ctrl);
366         if (res == 1)
367                 return RESULT_SUCCESS;
368         fdprintf(agi->fd, "200 result=%d\n", res);
369         if (res >= 0)
370                 return RESULT_SUCCESS;
371         else
372                 return RESULT_FAILURE;
373 }
374
375 static int handle_saydigits(struct ast_channel *chan, AGI *agi, int argc, char *argv[])
376 {
377         int res;
378         int num;
379         if (argc != 4)
380                 return RESULT_SHOWUSAGE;
381         if (sscanf(argv[2], "%i", &num) != 1)
382                 return RESULT_SHOWUSAGE;
383         res = ast_say_digit_str_full(chan, argv[2], argv[3], chan->language, agi->audio, agi->ctrl);
384         if (res == 1) /* New command */
385                 return RESULT_SUCCESS;
386         fdprintf(agi->fd, "200 result=%d\n", res);
387         if (res >= 0)
388                 return RESULT_SUCCESS;
389         else
390                 return RESULT_FAILURE;
391 }
392
393 static int handle_getdata(struct ast_channel *chan, AGI *agi, int argc, char *argv[])
394 {
395         int res;
396         char data[1024];
397         int max;
398         int timeout;
399
400         if (argc < 3)
401                 return RESULT_SHOWUSAGE;
402         if (argc >= 4) timeout = atoi(argv[3]); else timeout = 0;
403         if (argc >= 5) max = atoi(argv[4]); else max = 1024;
404         res = ast_app_getdata_full(chan, argv[2], data, max, timeout, agi->audio, agi->ctrl);
405         if (res == 2)                   /* New command */
406                 return RESULT_SUCCESS;
407         else if (res == 1)
408                 fdprintf(agi->fd, "200 result=%s (timeout)\n", data);
409     else if (res < 0 )
410         fdprintf(agi->fd, "200 result=-1\n");
411         else
412                 fdprintf(agi->fd, "200 result=%s\n", data);
413         if (res >= 0)
414                 return RESULT_SUCCESS;
415         else
416                 return RESULT_FAILURE;
417 }
418
419 static int handle_setcontext(struct ast_channel *chan, AGI *agi, int argc, char *argv[])
420 {
421
422         if (argc != 3)
423                 return RESULT_SHOWUSAGE;
424         strncpy(chan->context, argv[2], sizeof(chan->context)-1);
425         fdprintf(agi->fd, "200 result=0\n");
426         return RESULT_SUCCESS;
427 }
428         
429 static int handle_setextension(struct ast_channel *chan, AGI *agi, int argc, char **argv)
430 {
431         if (argc != 3)
432                 return RESULT_SHOWUSAGE;
433         strncpy(chan->exten, argv[2], sizeof(chan->exten)-1);
434         fdprintf(agi->fd, "200 result=0\n");
435         return RESULT_SUCCESS;
436 }
437
438 static int handle_setpriority(struct ast_channel *chan, AGI *agi, int argc, char **argv)
439 {
440         int pri;
441         if (argc != 3)
442                 return RESULT_SHOWUSAGE;        
443         if (sscanf(argv[2], "%i", &pri) != 1)
444                 return RESULT_SHOWUSAGE;
445         chan->priority = pri - 1;
446         fdprintf(agi->fd, "200 result=0\n");
447         return RESULT_SUCCESS;
448 }
449                 
450 static int handle_recordfile(struct ast_channel *chan, AGI *agi, int argc, char *argv[])
451 {
452         struct ast_filestream *fs;
453         struct ast_frame *f;
454         struct timeval tv, start;
455         long sample_offset = 0;
456         int res = 0;
457         int ms;
458
459         struct ast_dsp *sildet=NULL;         /* silence detector dsp */
460         int totalsilence = 0;
461         int dspsilence = 0;
462         int silence = 0;                /* amount of silence to allow */
463         int gotsilence = 0;             /* did we timeout for silence? */
464         char *silencestr=NULL;
465         int rfmt=0;
466
467
468         /* XXX EAGI FIXME XXX */
469
470         if (argc < 6)
471                 return RESULT_SHOWUSAGE;
472         if (sscanf(argv[5], "%i", &ms) != 1)
473                 return RESULT_SHOWUSAGE;
474
475         if (argc > 6)
476                 silencestr = strchr(argv[6],'s');
477         if ((argc > 7) && (!silencestr))
478                 silencestr = strchr(argv[7],'s');
479         if ((argc > 8) && (!silencestr))
480                 silencestr = strchr(argv[8],'s');
481
482         if (silencestr) {
483                 if (strlen(silencestr) > 2) {
484                         if ((silencestr[0] == 's') && (silencestr[1] == '=')) {
485                                 silencestr++;
486                                 silencestr++;
487                                 if (silencestr)
488                                         silence = atoi(silencestr);
489                                 if (silence > 0)
490                                         silence *= 1000;
491                         }
492                 }
493         }
494
495         if (silence > 0) {
496                 rfmt = chan->readformat;
497                 res = ast_set_read_format(chan, AST_FORMAT_SLINEAR);
498                 if (res < 0) {
499                         ast_log(LOG_WARNING, "Unable to set to linear mode, giving up\n");
500                         return -1;
501                 }
502                 sildet = ast_dsp_new();
503                 if (!sildet) {
504                         ast_log(LOG_WARNING, "Unable to create silence detector :(\n");
505                         return -1;
506                 }
507                 ast_dsp_set_threshold(sildet, 256);
508         }
509
510         /* backward compatibility, if no offset given, arg[6] would have been
511          * caught below and taken to be a beep, else if it is a digit then it is a
512          * offset */
513         if ((argc >6) && (sscanf(argv[6], "%ld", &sample_offset) != 1) && (!strchr(argv[6], '=')))
514                 res = ast_streamfile(chan, "beep", chan->language);
515
516         if ((argc > 7) && (!strchr(argv[7], '=')))
517                 res = ast_streamfile(chan, "beep", chan->language);
518
519         if (!res)
520                 res = ast_waitstream(chan, argv[4]);
521         if (!res) {
522                 fs = ast_writefile(argv[2], argv[3], NULL, O_CREAT | O_WRONLY | (sample_offset ? O_APPEND : 0), 0, 0644);
523                 if (!fs) {
524                         res = -1;
525                         fdprintf(agi->fd, "200 result=%d (writefile)\n", res);
526                         return RESULT_FAILURE;
527                 }
528                 
529                 chan->stream = fs;
530                 ast_applystream(chan,fs);
531                 /* really should have checks */
532                 ast_seekstream(fs, sample_offset, SEEK_SET);
533                 ast_truncstream(fs);
534                 
535                 gettimeofday(&start, NULL);
536                 gettimeofday(&tv, NULL);
537                 while ((ms < 0) || (((tv.tv_sec - start.tv_sec) * 1000 + (tv.tv_usec - start.tv_usec)/1000) < ms)) {
538                         res = ast_waitfor(chan, -1);
539                         if (res < 0) {
540                                 ast_closestream(fs);
541                                 fdprintf(agi->fd, "200 result=%d (waitfor) endpos=%ld\n", res,sample_offset);
542                                 return RESULT_FAILURE;
543                         }
544                         f = ast_read(chan);
545                         if (!f) {
546                                 fdprintf(agi->fd, "200 result=%d (hangup) endpos=%ld\n", 0, sample_offset);
547                                 ast_closestream(fs);
548                                 return RESULT_FAILURE;
549                         }
550                         switch(f->frametype) {
551                         case AST_FRAME_DTMF:
552                                 if (strchr(argv[4], f->subclass)) {
553                                         /* This is an interrupting chracter */
554                                         sample_offset = ast_tellstream(fs);
555                                         fdprintf(agi->fd, "200 result=%d (dtmf) endpos=%ld\n", f->subclass, sample_offset);
556                                         ast_closestream(fs);
557                                         ast_frfree(f);
558                                         return RESULT_SUCCESS;
559                                 }
560                                 break;
561                         case AST_FRAME_VOICE:
562                                 ast_writestream(fs, f);
563                                 /* this is a safe place to check progress since we know that fs
564                                  * is valid after a write, and it will then have our current
565                                  * location */
566                                 sample_offset = ast_tellstream(fs);
567                                 if (silence > 0) {
568                                         dspsilence = 0;
569                                         ast_dsp_silence(sildet, f, &dspsilence);
570                                         if (dspsilence) {
571                                                 totalsilence = dspsilence;
572                                         } else {
573                                                 totalsilence = 0;
574                                         }
575                                         if (totalsilence > silence) {
576                                              /* Ended happily with silence */
577                                                 ast_frfree(f);
578                                                 gotsilence = 1;
579                                                 break;
580                                         }
581                                 }
582                                 break;
583                         }
584                         ast_frfree(f);
585                         gettimeofday(&tv, NULL);
586                         if (gotsilence)
587                                 break;
588         }
589
590                 if (gotsilence) {
591                         ast_stream_rewind(fs, silence-1000);
592                         ast_truncstream(fs);
593                 }               
594                 fdprintf(agi->fd, "200 result=%d (timeout) endpos=%ld\n", res, sample_offset);
595                 ast_closestream(fs);
596         } else
597                 fdprintf(agi->fd, "200 result=%d (randomerror) endpos=%ld\n", res, sample_offset);
598
599         if (silence > 0) {
600                 res = ast_set_read_format(chan, rfmt);
601                 if (res)
602                         ast_log(LOG_WARNING, "Unable to restore read format on '%s'\n", chan->name);
603                 ast_dsp_free(sildet);
604         }
605         return RESULT_SUCCESS;
606 }
607
608 static int handle_autohangup(struct ast_channel *chan, AGI *agi, int argc, char *argv[])
609 {
610         int timeout;
611
612         if (argc != 3)
613                 return RESULT_SHOWUSAGE;
614         if (sscanf(argv[2], "%d", &timeout) != 1)
615                 return RESULT_SHOWUSAGE;
616         if (timeout < 0)
617                 timeout = 0;
618         if (timeout)
619                 chan->whentohangup = time(NULL) + timeout;
620         else
621                 chan->whentohangup = 0;
622         fdprintf(agi->fd, "200 result=0\n");
623         return RESULT_SUCCESS;
624 }
625
626 static int handle_hangup(struct ast_channel *chan, AGI *agi, int argc, char **argv)
627 {
628         struct ast_channel *c;
629         if (argc==1) {
630             /* no argument: hangup the current channel */
631             ast_softhangup(chan,AST_SOFTHANGUP_EXPLICIT);
632             fdprintf(agi->fd, "200 result=1\n");
633             return RESULT_SUCCESS;
634         } else if (argc==2) {
635             /* one argument: look for info on the specified channel */
636             c = ast_channel_walk(NULL);
637             while (c) {
638                 if (strcasecmp(argv[1],c->name)==0) {
639                     /* we have a matching channel */
640                     ast_softhangup(c,AST_SOFTHANGUP_EXPLICIT);
641                     fdprintf(agi->fd, "200 result=1\n");
642                     return RESULT_SUCCESS;
643                 }
644                 c = ast_channel_walk(c);
645             }
646             /* if we get this far no channel name matched the argument given */
647             fdprintf(agi->fd, "200 result=-1\n");
648             return RESULT_SUCCESS;
649         } else {
650             return RESULT_SHOWUSAGE;
651         }
652 }
653
654 static int handle_exec(struct ast_channel *chan, AGI *agi, int argc, char **argv)
655 {
656         int res;
657         struct ast_app *app;
658
659         if (argc < 2)
660                 return RESULT_SHOWUSAGE;
661
662         if (option_verbose > 2)
663                 ast_verbose(VERBOSE_PREFIX_3 "AGI Script Executing Application: (%s) Options: (%s)\n", argv[1], argv[2]);
664
665         app = pbx_findapp(argv[1]);
666
667         if (app) {
668                 res = pbx_exec(chan, app, argv[2], 1);
669         } else {
670                 ast_log(LOG_WARNING, "Could not find application (%s)\n", argv[1]);
671                 res = -2;
672         }
673         fdprintf(agi->fd, "200 result=%d\n", res);
674
675         return res;
676 }
677
678 static int handle_setcallerid(struct ast_channel *chan, AGI *agi, int argc, char **argv)
679 {
680         if (argv[2])
681                 ast_set_callerid(chan, argv[2], 0);
682
683 /*      strncpy(chan->callerid, argv[2], sizeof(chan->callerid)-1);
684 */      fdprintf(agi->fd, "200 result=1\n");
685         return RESULT_SUCCESS;
686 }
687
688 static int handle_channelstatus(struct ast_channel *chan, AGI *agi, int argc, char **argv)
689 {
690         struct ast_channel *c;
691         if (argc==2) {
692             /* no argument: supply info on the current channel */
693             fdprintf(agi->fd, "200 result=%d\n", chan->_state);
694             return RESULT_SUCCESS;
695         } else if (argc==3) {
696             /* one argument: look for info on the specified channel */
697             c = ast_channel_walk(NULL);
698             while (c) {
699                 if (strcasecmp(argv[2],c->name)==0) {
700                     fdprintf(agi->fd, "200 result=%d\n", c->_state);
701                     return RESULT_SUCCESS;
702                 }
703                 c = ast_channel_walk(c);
704             }
705             /* if we get this far no channel name matched the argument given */
706             fdprintf(agi->fd, "200 result=-1\n");
707             return RESULT_SUCCESS;
708         } else {
709             return RESULT_SHOWUSAGE;
710         }
711 }
712
713 static int handle_setvariable(struct ast_channel *chan, AGI *agi, int argc, char **argv)
714 {
715         if (argv[3])
716                 pbx_builtin_setvar_helper(chan, argv[2], argv[3]);
717
718         fdprintf(agi->fd, "200 result=1\n");
719         return RESULT_SUCCESS;
720 }
721
722 static int handle_getvariable(struct ast_channel *chan, AGI *agi, int argc, char **argv)
723 {
724         char *tempstr;
725
726         if ((tempstr = pbx_builtin_getvar_helper(chan, argv[2])) ) 
727                         fdprintf(agi->fd, "200 result=1 (%s)\n", tempstr);
728         else
729                         fdprintf(agi->fd, "200 result=0\n");
730
731         return RESULT_SUCCESS;
732 }
733
734 static int handle_verbose(struct ast_channel *chan, AGI *agi, int argc, char **argv)
735 {
736         int level = 0;
737         char *prefix;
738
739         if (argc < 2)
740                 return RESULT_SHOWUSAGE;
741
742         if (argv[2])
743                 sscanf(argv[2], "%d", &level);
744
745         switch (level) {
746                 case 4:
747                         prefix = VERBOSE_PREFIX_4;
748                         break;
749                 case 3:
750                         prefix = VERBOSE_PREFIX_3;
751                         break;
752                 case 2:
753                         prefix = VERBOSE_PREFIX_2;
754                         break;
755                 case 1:
756                 default:
757                         prefix = VERBOSE_PREFIX_1;
758                         break;
759         }
760
761         if (level <= option_verbose)
762                 ast_verbose("%s %s: %s\n", prefix, chan->data, argv[1]);
763         
764         fdprintf(agi->fd, "200 result=1\n");
765         
766         return RESULT_SUCCESS;
767 }
768
769 static int handle_dbget(struct ast_channel *chan, AGI *agi, int argc, char **argv)
770 {
771         int res;
772         char tmp[256];
773         if (argc != 4)
774                 return RESULT_SHOWUSAGE;
775         res = ast_db_get(argv[2], argv[3], tmp, sizeof(tmp));
776         if (res) 
777                         fdprintf(agi->fd, "200 result=0\n");
778         else
779                         fdprintf(agi->fd, "200 result=1 (%s)\n", tmp);
780
781         return RESULT_SUCCESS;
782 }
783
784 static int handle_dbput(struct ast_channel *chan, AGI *agi, int argc, char **argv)
785 {
786         int res;
787         if (argc != 5)
788                 return RESULT_SHOWUSAGE;
789         res = ast_db_put(argv[2], argv[3], argv[4]);
790         if (res) 
791                         fdprintf(agi->fd, "200 result=0\n");
792         else
793                         fdprintf(agi->fd, "200 result=1\n");
794
795         return RESULT_SUCCESS;
796 }
797
798 static int handle_dbdel(struct ast_channel *chan, AGI *agi, int argc, char **argv)
799 {
800         int res;
801         if (argc != 4)
802                 return RESULT_SHOWUSAGE;
803         res = ast_db_del(argv[2], argv[3]);
804         if (res) 
805                 fdprintf(agi->fd, "200 result=0\n");
806         else
807                 fdprintf(agi->fd, "200 result=1\n");
808
809         return RESULT_SUCCESS;
810 }
811
812 static int handle_dbdeltree(struct ast_channel *chan, AGI *agi, int argc, char **argv)
813 {
814         int res;
815         if ((argc < 3) || (argc > 4))
816                 return RESULT_SHOWUSAGE;
817         if (argc == 4)
818                 res = ast_db_deltree(argv[2], argv[3]);
819         else
820                 res = ast_db_deltree(argv[2], NULL);
821
822         if (res) 
823                 fdprintf(agi->fd, "200 result=0\n");
824         else
825                 fdprintf(agi->fd, "200 result=1\n");
826         return RESULT_SUCCESS;
827 }
828
829 static int handle_noop(struct ast_channel *chan, AGI *agi, int arg, char *argv[])
830 {
831         fdprintf(agi->fd, "200 result=0\n");
832         return RESULT_SUCCESS;
833 }
834
835 static int handle_setmusic(struct ast_channel *chan, AGI *agi, int argc, char *argv[])
836 {
837         if (!strncasecmp(argv[2],"on",2)) {
838                 if (argc > 3)
839                         ast_moh_start(chan, argv[3]);
840                 else
841                         ast_moh_start(chan, NULL);
842         }
843         if (!strncasecmp(argv[2],"off",3)) {
844                 ast_moh_stop(chan);
845         }
846         fdprintf(agi->fd, "200 result=0\n");
847         return RESULT_SUCCESS;
848 }
849
850 static char usage_setmusic[] =
851 " Usage: SET MUSIC ON <on|off> <class>\n"
852 "       Enables/Disables the music on hold generator.  If <class> is\n"
853 " not specified then the default music on hold class will be used.\n"
854 " Always returns 0\n";
855
856 static char usage_dbput[] =
857 " Usage: DATABASE PUT <family> <key> <value>\n"
858 "       Adds or updates an entry in the Asterisk database for a\n"
859 " given family, key, and value.\n"
860 " Returns 1 if succesful, 0 otherwise\n";
861
862 static char usage_dbget[] =
863 " Usage: DATABASE GET <family> <key>\n"
864 "       Retrieves an entry in the Asterisk database for a\n"
865 " given family and key.\n"
866 "       Returns 0 if <key> is not set.  Returns 1 if <key>\n"
867 " is set and returns the variable in parenthesis\n"
868 " example return code: 200 result=1 (testvariable)\n";
869
870 static char usage_dbdel[] =
871 " Usage: DATABASE DEL <family> <key>\n"
872 "       Deletes an entry in the Asterisk database for a\n"
873 " given family and key.\n"
874 " Returns 1 if succesful, 0 otherwise\n";
875
876 static char usage_dbdeltree[] =
877 " Usage: DATABASE DELTREE <family> [keytree]\n"
878 "       Deletes a family or specific keytree withing a family\n"
879 " in the Asterisk database.\n"
880 " Returns 1 if succesful, 0 otherwise\n";
881
882 static char usage_verbose[] =
883 " Usage: VERBOSE <message> <level>\n"
884 "       Sends <message> to the console via verbose message system.\n"
885 "       <level> is the the verbose level (1-4)\n"
886 "       Always returns 1\n";
887
888 static char usage_getvariable[] =
889 " Usage: GET VARIABLE <variablename>\n"
890 "       Returns 0 if <variablename> is not set.  Returns 1 if <variablename>\n"
891 " is set and returns the variable in parenthesis\n"
892 " example return code: 200 result=1 (testvariable)\n";
893
894 static char usage_setvariable[] =
895 " Usage: SET VARIABLE <variablename> <value>\n";
896
897 static char usage_channelstatus[] =
898 " Usage: CHANNEL STATUS [<channelname>]\n"
899 "       Returns the status of the specified channel.\n" 
900 "       If no channel name is given the returns the status of the\n"
901 "       current channel.\n"
902 "       Return values:\n"
903 " 0 Channel is down and available\n"
904 " 1 Channel is down, but reserved\n"
905 " 2 Channel is off hook\n"
906 " 3 Digits (or equivalent) have been dialed\n"
907 " 4 Line is ringing\n"
908 " 5 Remote end is ringing\n"
909 " 6 Line is up\n"
910 " 7 Line is busy\n";
911
912 static char usage_setcallerid[] =
913 " Usage: SET CALLERID <number>\n"
914 "       Changes the callerid of the current channel.\n";
915
916 static char usage_exec[] =
917 " Usage: EXEC <application> <options>\n"
918 "       Executes <application> with given <options>.\n"
919 "       Returns whatever the application returns, or -2 on failure to find application\n";
920
921 static char usage_hangup[] =
922 " Usage: HANGUP [<channelname>]\n"
923 "       Hangs up the specified channel.\n"
924 "       If no channel name is given, hangs up the current channel\n";
925
926 static char usage_answer[] = 
927 " Usage: ANSWER\n"
928 "        Answers channel if not already in answer state. Returns -1 on\n"
929 " channel failure, or 0 if successful.\n";
930
931 static char usage_waitfordigit[] = 
932 " Usage: WAIT FOR DIGIT <timeout>\n"
933 "        Waits up to 'timeout' milliseconds for channel to receive a DTMF digit.\n"
934 " Returns -1 on channel failure, 0 if no digit is received in the timeout, or\n"
935 " the numerical value of the ascii of the digit if one is received.  Use -1\n"
936 " for the timeout value if you desire the call to block indefinitely.\n";
937
938 static char usage_sendtext[] =
939 " Usage: SEND TEXT \"<text to send>\"\n"
940 "        Sends the given text on a channel.  Most channels do not support the\n"
941 " transmission of text.  Returns 0 if text is sent, or if the channel does not\n"
942 " support text transmission.  Returns -1 only on error/hangup.  Text\n"
943 " consisting of greater than one word should be placed in quotes since the\n"
944 " command only accepts a single argument.\n";
945
946 static char usage_recvchar[] =
947 " Usage: RECEIVE CHAR <timeout>\n"
948 "        Receives a character of text on a channel.  Specify timeout to be the\n"
949 " maximum time to wait for input in milliseconds, or 0 for infinite. Most channels\n"
950 " do not support the reception of text.  Returns the decimal value of the character\n"
951 " if one is received, or 0 if the channel does not support text reception.  Returns\n"
952 " -1 only on error/hangup.\n";
953
954 static char usage_tddmode[] =
955 " Usage: TDD MODE <on|off>\n"
956 "        Enable/Disable TDD transmission/reception on a channel. Returns 1 if\n"
957 " successful, or 0 if channel is not TDD-capable.\n";
958
959 static char usage_sendimage[] =
960 " Usage: SEND IMAGE <image>\n"
961 "        Sends the given image on a channel.  Most channels do not support the\n"
962 " transmission of images.  Returns 0 if image is sent, or if the channel does not\n"
963 " support image transmission.  Returns -1 only on error/hangup.  Image names\n"
964 " should not include extensions.\n";
965
966 static char usage_streamfile[] =
967 " Usage: STREAM FILE <filename> <escape digits> [sample offset]\n"
968 "        Send the given file, allowing playback to be interrupted by the given\n"
969 " digits, if any.  Use double quotes for the digits if you wish none to be\n"
970 " permitted.  If sample offset is provided then the audio will seek to sample\n"
971 " offset before play starts.  Returns 0 if playback completes without a digit\n"
972 " being pressed, or the ASCII numerical value of the digit if one was pressed,\n"
973 " or -1 on error or if the channel was disconnected.  Remember, the file\n"
974 " extension must not be included in the filename.\n";
975
976 static char usage_saynumber[] =
977 " Usage: SAY NUMBER <number> <escape digits>\n"
978 "        Say a given number, returning early if any of the given DTMF digits\n"
979 " are received on the channel.  Returns 0 if playback completes without a digit\n"
980 " being pressed, or the ASCII numerical value of the digit if one was pressed or\n"
981 " -1 on error/hangup.\n";
982
983 static char usage_saydigits[] =
984 " Usage: SAY DIGITS <number> <escape digits>\n"
985 "        Say a given digit string, returning early if any of the given DTMF digits\n"
986 " are received on the channel.  Returns 0 if playback completes without a digit\n"
987 " being pressed, or the ASCII numerical value of the digit if one was pressed or\n"
988 " -1 on error/hangup.\n";
989
990 static char usage_getdata[] =
991 " Usage: GET DATA <file to be streamed> [timeout] [max digits]\n"
992 "        Stream the given file, and recieve DTMF data. Returns the digits recieved\n"
993 "from the channel at the other end.\n";
994
995 static char usage_setcontext[] =
996 " Usage: SET CONTEXT <desired context>\n"
997 "        Sets the context for continuation upon exiting the application.\n";
998
999 static char usage_setextension[] =
1000 " Usage: SET EXTENSION <new extension>\n"
1001 "        Changes the extension for continuation upon exiting the application.\n";
1002
1003 static char usage_setpriority[] =
1004 " Usage: SET PRIORITY <num>\n"
1005 "        Changes the priority for continuation upon exiting the application.\n";
1006
1007 static char usage_recordfile[] =
1008 " Usage: RECORD FILE <filename> <format> <escape digits> <timeout> [offset samples] [BEEP] [s=silence]\n"
1009 "        Record to a file until a given dtmf digit in the sequence is received\n"
1010 " Returns -1 on hangup or error.  The format will specify what kind of file\n"
1011 " will be recorded.  The timeout is the maximum record time in milliseconds, or\n"
1012 " -1 for no timeout. Offset samples is optional, and if provided will seek to\n"
1013 " the offset without exceeding the end of the file.  \"silence\" is the number\n"
1014 " of seconds of silence allowed before the function returns despite the\n"
1015 " lack of dtmf digits or reaching timeout.  Silence value must be\n"
1016 " preceeded by \"s=\" and is optional.\n";
1017
1018
1019 static char usage_autohangup[] =
1020 " Usage: SET AUTOHANGUP <time>\n"
1021 "    Cause the channel to automatically hangup at <time> seconds in the\n"
1022 "future.  Of course it can be hungup before then as well.   Setting to\n"
1023 "0 will cause the autohangup feature to be disabled on this channel.\n";
1024
1025 static char usage_noop[] =
1026 " Usage: NOOP\n"
1027 "    Does nothing.\n";
1028
1029 static agi_command commands[] = {
1030         { { "answer", NULL }, handle_answer, "Asserts answer", usage_answer },
1031         { { "wait", "for", "digit", NULL }, handle_waitfordigit, "Waits for a digit to be pressed", usage_waitfordigit },
1032         { { "send", "text", NULL }, handle_sendtext, "Sends text to channels supporting it", usage_sendtext },
1033         { { "receive", "char", NULL }, handle_recvchar, "Receives text from channels supporting it", usage_recvchar },
1034         { { "tdd", "mode", NULL }, handle_tddmode, "Sends text to channels supporting it", usage_tddmode },
1035         { { "stream", "file", NULL }, handle_streamfile, "Sends audio file on channel", usage_streamfile },
1036         { { "send", "image", NULL }, handle_sendimage, "Sends images to channels supporting it", usage_sendimage },
1037         { { "say", "digits", NULL }, handle_saydigits, "Says a given digit string", usage_saydigits },
1038         { { "say", "number", NULL }, handle_saynumber, "Says a given number", usage_saynumber },
1039         { { "get", "data", NULL }, handle_getdata, "Gets data on a channel", usage_getdata },
1040         { { "set", "context", NULL }, handle_setcontext, "Sets channel context", usage_setcontext },
1041         { { "set", "extension", NULL }, handle_setextension, "Changes channel extension", usage_setextension },
1042         { { "set", "priority", NULL }, handle_setpriority, "Prioritizes the channel", usage_setpriority },
1043         { { "record", "file", NULL }, handle_recordfile, "Records to a given file", usage_recordfile },
1044         { { "set", "autohangup", NULL }, handle_autohangup, "Autohangup channel in some time", usage_autohangup },
1045         { { "hangup", NULL }, handle_hangup, "Hangup the current channel", usage_hangup },
1046         { { "exec", NULL }, handle_exec, "Executes a given Application", usage_exec },
1047         { { "set", "callerid", NULL }, handle_setcallerid, "Sets callerid for the current channel", usage_setcallerid },
1048         { { "channel", "status", NULL }, handle_channelstatus, "Returns status of the connected channel", usage_channelstatus },
1049         { { "set", "variable", NULL }, handle_setvariable, "Sets a channel variable", usage_setvariable },
1050         { { "get", "variable", NULL }, handle_getvariable, "Gets a channel variable", usage_getvariable },
1051         { { "verbose", NULL }, handle_verbose, "Logs a message to the asterisk verbose log", usage_verbose },
1052         { { "database", "get", NULL }, handle_dbget, "Gets database value", usage_dbget },
1053         { { "database", "put", NULL }, handle_dbput, "Adds/updates database value", usage_dbput },
1054         { { "database", "del", NULL }, handle_dbdel, "Removes database key/value", usage_dbdel },
1055         { { "database", "deltree", NULL }, handle_dbdeltree, "Removes database keytree/value", usage_dbdeltree },
1056         { { "noop", NULL }, handle_noop, "Does nothing", usage_noop },
1057         { { "set", "music", NULL }, handle_setmusic, "Enable/Disable Music on hold generator", usage_setmusic }
1058 };
1059
1060 static void join(char *s, int len, char *w[])
1061 {
1062         int x;
1063         /* Join words into a string */
1064         strcpy(s, "");
1065         for (x=0;w[x];x++) {
1066                 if (x)
1067                         strncat(s, " ", len - strlen(s));
1068                 strncat(s, w[x], len - strlen(s));
1069         }
1070 }
1071
1072 static int help_workhorse(int fd, char *match[])
1073 {
1074         char fullcmd[80];
1075         char matchstr[80];
1076         int x;
1077         struct agi_command *e;
1078         if (match)
1079                 join(matchstr, sizeof(matchstr), match);
1080         for (x=0;x<sizeof(commands)/sizeof(commands[0]);x++) {
1081                 e = &commands[x]; 
1082                 if (e)
1083                         join(fullcmd, sizeof(fullcmd), e->cmda);
1084                 /* Hide commands that start with '_' */
1085                 if (fullcmd[0] == '_')
1086                         continue;
1087                 if (match) {
1088                         if (strncasecmp(matchstr, fullcmd, strlen(matchstr))) {
1089                                 continue;
1090                         }
1091                 }
1092                 ast_cli(fd, "%20.20s   %s\n", fullcmd, e->summary);
1093         }
1094         return 0;
1095 }
1096
1097 static agi_command *find_command(char *cmds[], int exact)
1098 {
1099         int x;
1100         int y;
1101         int match;
1102         for (x=0;x < sizeof(commands) / sizeof(commands[0]);x++) {
1103                 /* start optimistic */
1104                 match = 1;
1105                 for (y=0;match && cmds[y]; y++) {
1106                         /* If there are no more words in the command (and we're looking for
1107                            an exact match) or there is a difference between the two words,
1108                            then this is not a match */
1109                         if (!commands[x].cmda[y] && !exact)
1110                                 break;
1111                         /* don't segfault if the next part of a command doesn't exist */
1112                         if (!commands[x].cmda[y]) return NULL;
1113                         if (strcasecmp(commands[x].cmda[y], cmds[y]))
1114                                 match = 0;
1115                 }
1116                 /* If more words are needed to complete the command then this is not
1117                    a candidate (unless we're looking for a really inexact answer  */
1118                 if ((exact > -1) && commands[x].cmda[y])
1119                         match = 0;
1120                 if (match)
1121                         return &commands[x];
1122         }
1123         return NULL;
1124 }
1125
1126
1127 static int parse_args(char *s, int *max, char *argv[])
1128 {
1129         int x=0;
1130         int quoted=0;
1131         int escaped=0;
1132         int whitespace=1;
1133         char *cur;
1134
1135         cur = s;
1136         while(*s) {
1137                 switch(*s) {
1138                 case '"':
1139                         /* If it's escaped, put a literal quote */
1140                         if (escaped) 
1141                                 goto normal;
1142                         else 
1143                                 quoted = !quoted;
1144                         if (quoted && whitespace) {
1145                                 /* If we're starting a quote, coming off white space start a new word, too */
1146                                 argv[x++] = cur;
1147                                 whitespace=0;
1148                         }
1149                         escaped = 0;
1150                 break;
1151                 case ' ':
1152                 case '\t':
1153                         if (!quoted && !escaped) {
1154                                 /* If we're not quoted, mark this as whitespace, and
1155                                    end the previous argument */
1156                                 whitespace = 1;
1157                                 *(cur++) = '\0';
1158                         } else
1159                                 /* Otherwise, just treat it as anything else */ 
1160                                 goto normal;
1161                         break;
1162                 case '\\':
1163                         /* If we're escaped, print a literal, otherwise enable escaping */
1164                         if (escaped) {
1165                                 goto normal;
1166                         } else {
1167                                 escaped=1;
1168                         }
1169                         break;
1170                 default:
1171 normal:
1172                         if (whitespace) {
1173                                 if (x >= MAX_ARGS -1) {
1174                                         ast_log(LOG_WARNING, "Too many arguments, truncating\n");
1175                                         break;
1176                                 }
1177                                 /* Coming off of whitespace, start the next argument */
1178                                 argv[x++] = cur;
1179                                 whitespace=0;
1180                         }
1181                         *(cur++) = *s;
1182                         escaped=0;
1183                 }
1184                 s++;
1185         }
1186         /* Null terminate */
1187         *(cur++) = '\0';
1188         argv[x] = NULL;
1189         *max = x;
1190         return 0;
1191 }
1192
1193 static int agi_handle_command(struct ast_channel *chan, AGI *agi, char *buf)
1194 {
1195         char *argv[MAX_ARGS];
1196         int argc = 0;
1197         int res;
1198         agi_command *c;
1199         argc = MAX_ARGS;
1200         parse_args(buf, &argc, argv);
1201 #if     0
1202         { int x;
1203         for (x=0;x<argc;x++) 
1204                 fprintf(stderr, "Got Arg%d: %s\n", x, argv[x]); }
1205 #endif
1206         c = find_command(argv, 0);
1207         if (c) {
1208                 res = c->handler(chan, agi, argc, argv);
1209                 switch(res) {
1210                 case RESULT_SHOWUSAGE:
1211                         fdprintf(agi->fd, "520-Invalid command syntax.  Proper usage follows:\n");
1212                         fdprintf(agi->fd, c->usage);
1213                         fdprintf(agi->fd, "520 End of proper usage.\n");
1214                         break;
1215                 case RESULT_FAILURE:
1216                         /* They've already given the failure.  We've been hung up on so handle this
1217                            appropriately */
1218                         return -1;
1219                 }
1220         } else {
1221                 fdprintf(agi->fd, "510 Invalid or unknown command\n");
1222         }
1223         return 0;
1224 }
1225 #define RETRY   3
1226 static int run_agi(struct ast_channel *chan, char *request, AGI *agi, int pid)
1227 {
1228         struct ast_channel *c;
1229         int outfd;
1230         int ms;
1231         int returnstatus = 0;
1232         struct ast_frame *f;
1233         char buf[2048];
1234         FILE *readf;
1235         //how many times we'll retry if ast_waitfor_nandfs will return without either channel or file descriptor in case select is interrupted by a system call (EINTR)
1236         int retry = RETRY;
1237
1238         if (!(readf = fdopen(agi->ctrl, "r"))) {
1239                 ast_log(LOG_WARNING, "Unable to fdopen file descriptor\n");
1240                 kill(pid, SIGHUP);
1241                 return -1;
1242         }
1243         setlinebuf(readf);
1244         setup_env(chan, request, agi->fd, (agi->audio > -1));
1245         for (;;) {
1246                 ms = -1;
1247                 c = ast_waitfor_nandfds(&chan, 1, &agi->ctrl, 1, NULL, &outfd, &ms);
1248                 if (c) {
1249                         retry = RETRY;
1250                         /* Idle the channel until we get a command */
1251                         f = ast_read(c);
1252                         if (!f) {
1253                                 ast_log(LOG_DEBUG, "%s hungup\n", chan->name);
1254                                 returnstatus = -1;
1255                                 break;
1256                         } else {
1257                                 /* If it's voice, write it to the audio pipe */
1258                                 if ((agi->audio > -1) && (f->frametype == AST_FRAME_VOICE)) {
1259                                         /* Write, ignoring errors */
1260                                         write(agi->audio, f->data, f->datalen);
1261                                 }
1262                                 ast_frfree(f);
1263                         }
1264                 } else if (outfd > -1) {
1265                         retry = RETRY;
1266                         if (!fgets(buf, sizeof(buf), readf)) {
1267                                 /* Program terminated */
1268                                 if (returnstatus)
1269                                         returnstatus = -1;
1270                                 if (option_verbose > 2) 
1271                                         ast_verbose(VERBOSE_PREFIX_3 "AGI Script %s completed, returning %d\n", request, returnstatus);
1272                                 /* No need to kill the pid anymore, since they closed us */
1273                                 pid = -1;
1274                                 break;
1275                         }
1276                           /* get rid of trailing newline, if any */
1277                         if (*buf && buf[strlen(buf) - 1] == '\n')
1278                                 buf[strlen(buf) - 1] = 0;
1279
1280                         returnstatus |= agi_handle_command(chan, agi, buf);
1281                         /* If the handle_command returns -1, we need to stop */
1282                         if (returnstatus < 0) {
1283                                 break;
1284                         }
1285                 } else {
1286                         if (--retry <= 0) {
1287                                 ast_log(LOG_WARNING, "No channel, no fd?\n");
1288                                 returnstatus = -1;
1289                                 break;
1290                         }
1291                 }
1292         }
1293         /* Notify process */
1294         if (pid > -1)
1295                 kill(pid, SIGHUP);
1296         fclose(readf);
1297         return returnstatus;
1298 }
1299
1300 static int handle_showagi(int fd, int argc, char *argv[]) {
1301         struct agi_command *e;
1302         char fullcmd[80];
1303         if ((argc < 2))
1304                 return RESULT_SHOWUSAGE;
1305         if (argc > 2) {
1306                 e = find_command(argv + 2, 1);
1307                 if (e) 
1308                         ast_cli(fd, e->usage);
1309                 else {
1310                         if (find_command(argv + 2, -1)) {
1311                                 return help_workhorse(fd, argv + 1);
1312                         } else {
1313                                 join(fullcmd, sizeof(fullcmd), argv+1);
1314                                 ast_cli(fd, "No such command '%s'.\n", fullcmd);
1315                         }
1316                 }
1317         } else {
1318                 return help_workhorse(fd, NULL);
1319         }
1320         return RESULT_SUCCESS;
1321 }
1322
1323 static int handle_dumpagihtml(int fd, int argc, char *argv[]) {
1324         struct agi_command *e;
1325         char fullcmd[80];
1326         char *tempstr;
1327         int x;
1328         FILE *htmlfile;
1329
1330         if ((argc < 3))
1331                 return RESULT_SHOWUSAGE;
1332
1333         if (!(htmlfile = fopen(argv[2], "wt"))) {
1334                 ast_cli(fd, "Could not create file '%s'\n", argv[2]);
1335                 return RESULT_SHOWUSAGE;
1336         }
1337
1338         fprintf(htmlfile, "<HTML>\n<HEAD>\n<TITLE>AGI Commands</TITLE>\n</HEAD>\n");
1339         fprintf(htmlfile, "<BODY>\n<CENTER><B><H1>AGI Commands</H1></B></CENTER>\n\n");
1340
1341
1342         fprintf(htmlfile, "<TABLE BORDER=\"0\" CELLSPACING=\"10\">\n");
1343
1344         for (x=0;x<sizeof(commands)/sizeof(commands[0]);x++) {
1345                 char *stringp=NULL;
1346                 e = &commands[x]; 
1347                 if (e)
1348                         join(fullcmd, sizeof(fullcmd), e->cmda);
1349                 /* Hide commands that start with '_' */
1350                 if (fullcmd[0] == '_')
1351                         continue;
1352
1353                 fprintf(htmlfile, "<TR><TD><TABLE BORDER=\"1\" CELLPADDING=\"5\" WIDTH=\"100%%\">\n");
1354                 fprintf(htmlfile, "<TR><TH ALIGN=\"CENTER\"><B>%s - %s</B></TD></TR>\n", fullcmd,e->summary);
1355
1356
1357                 stringp=e->usage;
1358                 tempstr = strsep(&stringp, "\n");
1359
1360                 fprintf(htmlfile, "<TR><TD ALIGN=\"CENTER\">%s</TD></TR>\n", tempstr);
1361                 
1362                 fprintf(htmlfile, "<TR><TD ALIGN=\"CENTER\">\n");
1363                 while ((tempstr = strsep(&stringp, "\n")) != NULL) {
1364                 fprintf(htmlfile, "%s<BR>\n",tempstr);
1365
1366                 }
1367                 fprintf(htmlfile, "</TD></TR>\n");
1368                 fprintf(htmlfile, "</TABLE></TD></TR>\n\n");
1369
1370         }
1371
1372         fprintf(htmlfile, "</TABLE>\n</BODY>\n</HTML>\n");
1373         fclose(htmlfile);
1374         ast_cli(fd, "AGI HTML Commands Dumped to: %s\n", argv[2]);
1375         return RESULT_SUCCESS;
1376 }
1377
1378 static int agi_exec_full(struct ast_channel *chan, void *data, int enhanced)
1379 {
1380         int res=0;
1381         struct localuser *u;
1382         char *args,*ringy;
1383         char tmp[256];
1384         int fds[2];
1385         int efd = -1;
1386         int pid;
1387         char *stringp=tmp;
1388         AGI agi;
1389         if (!data || !strlen(data)) {
1390                 ast_log(LOG_WARNING, "AGI requires an argument (script)\n");
1391                 return -1;
1392         }
1393
1394
1395         memset(&agi, 0, sizeof(agi));
1396         strncpy(tmp, data, sizeof(tmp)-1);
1397         strsep(&stringp, "|");
1398         args = strsep(&stringp, "|");
1399         ringy = strsep(&stringp,"|");
1400         if (!args)
1401                 args = "";
1402         LOCAL_USER_ADD(u);
1403 #if 0
1404          /* Answer if need be */
1405         if (chan->_state != AST_STATE_UP) {
1406                 if (ringy) { /* if for ringing first */
1407                         /* a little ringy-dingy first */
1408                         ast_indicate(chan, AST_CONTROL_RINGING);  
1409                         sleep(3); 
1410                 }
1411                 if (ast_answer(chan)) {
1412                         LOCAL_USER_REMOVE(u);
1413                         return -1;
1414                 }
1415         }
1416 #endif
1417         res = launch_script(tmp, args, fds, enhanced ? &efd : NULL, &pid);
1418         if (!res) {
1419                 agi.fd = fds[1];
1420                 agi.ctrl = fds[0];
1421                 agi.audio = efd;
1422                 res = run_agi(chan, tmp, &agi, pid);
1423                 close(fds[0]);
1424                 close(fds[1]);
1425                 if (efd > -1)
1426                         close(efd);
1427         }
1428         LOCAL_USER_REMOVE(u);
1429         return res;
1430 }
1431
1432 static int agi_exec(struct ast_channel *chan, void *data)
1433 {
1434         return agi_exec_full(chan, data, 0);
1435 }
1436
1437 static int eagi_exec(struct ast_channel *chan, void *data)
1438 {
1439         int readformat;
1440         int res;
1441         readformat = chan->readformat;
1442         if (ast_set_read_format(chan, AST_FORMAT_SLINEAR)) {
1443                 ast_log(LOG_WARNING, "Unable to set channel '%s' to linear mode\n", chan->name);
1444                 return -1;
1445         }
1446         res = agi_exec_full(chan, data, 1);
1447         if (!res) {
1448                 if (ast_set_read_format(chan, readformat)) {
1449                         ast_log(LOG_WARNING, "Unable to restore channel '%s' to format %s\n", chan->name, ast_getformatname(readformat));
1450                 }
1451         }
1452         return res;
1453 }
1454
1455 static char showagi_help[] =
1456 "Usage: show agi [topic]\n"
1457 "       When called with a topic as an argument, displays usage\n"
1458 "       information on the given command.  If called without a\n"
1459 "       topic, it provides a list of AGI commands.\n";
1460
1461
1462 static char dumpagihtml_help[] =
1463 "Usage: dump agihtml <filename>\n"
1464 "       Dumps the agi command list in html format to given filename\n";
1465
1466 static struct ast_cli_entry showagi = 
1467 { { "show", "agi", NULL }, handle_showagi, "Show AGI commands or specific help", showagi_help };
1468
1469 static struct ast_cli_entry dumpagihtml = 
1470 { { "dump", "agihtml", NULL }, handle_dumpagihtml, "Dumps a list of agi command in html format", dumpagihtml_help };
1471
1472 int unload_module(void)
1473 {
1474         STANDARD_HANGUP_LOCALUSERS;
1475         ast_cli_unregister(&showagi);
1476         ast_cli_unregister(&dumpagihtml);
1477         ast_unregister_application(eapp);
1478         return ast_unregister_application(app);
1479 }
1480
1481 int load_module(void)
1482 {
1483         ast_cli_register(&showagi);
1484         ast_cli_register(&dumpagihtml);
1485         ast_register_application(eapp, eagi_exec, synopsis, descrip);
1486         return ast_register_application(app, agi_exec, synopsis, descrip);
1487 }
1488
1489 char *description(void)
1490 {
1491         return tdesc;
1492 }
1493
1494 int usecount(void)
1495 {
1496         int res;
1497         STANDARD_USECOUNT(res);
1498         return res;
1499 }
1500
1501 char *key()
1502 {
1503         return ASTERISK_GPL_KEY;
1504 }
1505