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