revert my pass through the tree to remove checks of the result of ast_strdupa
[asterisk/asterisk.git] / apps / app_zapras.c
1 /*
2  * Asterisk -- An open source telephony toolkit.
3  *
4  * Copyright (C) 1999 - 2005, Digium, Inc.
5  *
6  * Mark Spencer <markster@digium.com>
7  *
8  * See http://www.asterisk.org for more information about
9  * the Asterisk project. Please do not directly contact
10  * any of the maintainers of this project for assistance;
11  * the project provides a web site, mailing lists and IRC
12  * channels for your use.
13  *
14  * This program is free software, distributed under the terms of
15  * the GNU General Public License Version 2. See the LICENSE file
16  * at the top of the source tree.
17  */
18
19 /*! \file
20  *
21  * \brief Execute an ISDN RAS
22  *
23  * \author Mark Spencer <markster@digium.com>
24  * 
25  * \ingroup applications
26  */
27
28 #include <sys/ioctl.h>
29 #include <sys/wait.h>
30 #ifdef __linux__
31 #include <sys/signal.h>
32 #else
33 #include <signal.h>
34 #endif /* __linux__ */
35
36 #include <stdlib.h>
37 #include <unistd.h>
38 #include <string.h>
39 #include <stdlib.h>
40 #include <errno.h>
41 #include <stdio.h>
42 #include <fcntl.h>
43
44 /* Need some zaptel help here */
45 #ifdef __linux__
46 #include <linux/zaptel.h>
47 #else
48 #include <zaptel.h>
49 #endif /* __linux__ */
50
51 #include "asterisk.h"
52
53 ASTERISK_FILE_VERSION(__FILE__, "$Revision$")
54
55 #include "asterisk/lock.h"
56 #include "asterisk/file.h"
57 #include "asterisk/logger.h"
58 #include "asterisk/channel.h"
59 #include "asterisk/pbx.h"
60 #include "asterisk/module.h"
61 #include "asterisk/options.h"
62
63 static char *tdesc = "Zap RAS Application";
64
65 static char *app = "ZapRAS";
66
67 static char *synopsis = "Executes Zaptel ISDN RAS application";
68
69 static char *descrip =
70 "  ZapRAS(args): Executes a RAS server using pppd on the given channel.\n"
71 "The channel must be a clear channel (i.e. PRI source) and a Zaptel\n"
72 "channel to be able to use this function (No modem emulation is included).\n"
73 "Your pppd must be patched to be zaptel aware. Arguments should be\n"
74 "separated by | characters.\n";
75
76 STANDARD_LOCAL_USER;
77
78 LOCAL_USER_DECL;
79
80 #define PPP_MAX_ARGS    32
81 #define PPP_EXEC        "/usr/sbin/pppd"
82
83 static pid_t spawn_ras(struct ast_channel *chan, char *args)
84 {
85         pid_t pid;
86         int x;  
87         char *c;
88
89         char *argv[PPP_MAX_ARGS];
90         int argc = 0;
91         char *stringp=NULL;
92
93         /* Start by forking */
94         pid = fork();
95         if (pid)
96                 return pid;
97
98         /* Execute RAS on File handles */
99         dup2(chan->fds[0], STDIN_FILENO);
100
101         /* Close other file descriptors */
102         for (x=STDERR_FILENO + 1;x<1024;x++) 
103                 close(x);
104
105         /* Restore original signal handlers */
106         for (x=0;x<NSIG;x++)
107                 signal(x, SIG_DFL);
108
109         /* Reset all arguments */
110         memset(argv, 0, sizeof(argv));
111
112         /* First argument is executable, followed by standard
113            arguments for zaptel PPP */
114         argv[argc++] = PPP_EXEC;
115         argv[argc++] = "nodetach";
116
117         /* And all the other arguments */
118         stringp=args;
119         c = strsep(&stringp, "|");
120         while(c && strlen(c) && (argc < (PPP_MAX_ARGS - 4))) {
121                 argv[argc++] = c;
122                 c = strsep(&stringp, "|");
123         }
124
125         argv[argc++] = "plugin";
126         argv[argc++] = "zaptel.so";
127         argv[argc++] = "stdin";
128
129 #if 0
130         for (x=0;x<argc;x++) {
131                 fprintf(stderr, "Arg %d: %s\n", x, argv[x]);
132         }
133 #endif
134
135         /* Finally launch PPP */
136         execv(PPP_EXEC, argv);
137         fprintf(stderr, "Failed to exec PPPD!\n");
138         exit(1);
139 }
140
141 static void run_ras(struct ast_channel *chan, char *args)
142 {
143         pid_t pid;
144         int status;
145         int res;
146         int signalled = 0;
147         struct zt_bufferinfo savebi;
148         int x;
149         
150         res = ioctl(chan->fds[0], ZT_GET_BUFINFO, &savebi);
151         if(res) {
152                 ast_log(LOG_WARNING, "Unable to check buffer policy on channel %s\n", chan->name);
153                 return;
154         }
155
156         pid = spawn_ras(chan, args);
157         if (pid < 0) {
158                 ast_log(LOG_WARNING, "Failed to spawn RAS\n");
159         } else {
160                 for (;;) {
161                         res = wait4(pid, &status, WNOHANG, NULL);
162                         if (!res) {
163                                 /* Check for hangup */
164                                 if (chan->_softhangup && !signalled) {
165                                         ast_log(LOG_DEBUG, "Channel '%s' hungup.  Signalling RAS at %d to die...\n", chan->name, pid);
166                                         kill(pid, SIGTERM);
167                                         signalled=1;
168                                 }
169                                 /* Try again */
170                                 sleep(1);
171                                 continue;
172                         }
173                         if (res < 0) {
174                                 ast_log(LOG_WARNING, "wait4 returned %d: %s\n", res, strerror(errno));
175                         }
176                         if (option_verbose > 2) {
177                                 if (WIFEXITED(status)) {
178                                         ast_verbose(VERBOSE_PREFIX_3 "RAS on %s terminated with status %d\n", chan->name, WEXITSTATUS(status));
179                                 } else if (WIFSIGNALED(status)) {
180                                         ast_verbose(VERBOSE_PREFIX_3 "RAS on %s terminated with signal %d\n", 
181                                                  chan->name, WTERMSIG(status));
182                                 } else {
183                                         ast_verbose(VERBOSE_PREFIX_3 "RAS on %s terminated weirdly.\n", chan->name);
184                                 }
185                         }
186                         /* Throw back into audio mode */
187                         x = 1;
188                         ioctl(chan->fds[0], ZT_AUDIOMODE, &x);
189
190                         /* Restore saved values */
191                         res = ioctl(chan->fds[0], ZT_SET_BUFINFO, &savebi);
192                         if (res < 0) {
193                                 ast_log(LOG_WARNING, "Unable to set buffer policy on channel %s\n", chan->name);
194                         }
195                         break;
196                 }
197         }
198 }
199
200 static int zapras_exec(struct ast_channel *chan, void *data)
201 {
202         int res=-1;
203         char *args;
204         struct localuser *u;
205         ZT_PARAMS ztp;
206
207         if (!data) 
208                 data = "";
209
210         LOCAL_USER_ADD(u);
211
212         args = ast_strdupa(data);
213         if (!args) {
214                 ast_log(LOG_ERROR, "Out of memory\n");
215                 LOCAL_USER_REMOVE(u);
216                 return -1;
217         }
218         
219         /* Answer the channel if it's not up */
220         if (chan->_state != AST_STATE_UP)
221                 ast_answer(chan);
222         if (strcasecmp(chan->type, "Zap")) {
223                 /* If it's not a zap channel, we're done.  Wait a couple of
224                    seconds and then hangup... */
225                 if (option_verbose > 1)
226                         ast_verbose(VERBOSE_PREFIX_2 "Channel %s is not a Zap channel\n", chan->name);
227                 sleep(2);
228         } else {
229                 memset(&ztp, 0, sizeof(ztp));
230                 if (ioctl(chan->fds[0], ZT_GET_PARAMS, &ztp)) {
231                         ast_log(LOG_WARNING, "Unable to get zaptel parameters\n");
232                 } else if (ztp.sigtype != ZT_SIG_CLEAR) {
233                         if (option_verbose > 1)
234                                 ast_verbose(VERBOSE_PREFIX_2 "Channel %s is not a clear channel\n", chan->name);
235                 } else {
236                         /* Everything should be okay.  Run PPP. */
237                         if (option_verbose > 2)
238                                 ast_verbose(VERBOSE_PREFIX_3 "Starting RAS on %s\n", chan->name);
239                         /* Execute RAS */
240                         run_ras(chan, args);
241                 }
242         }
243         LOCAL_USER_REMOVE(u);
244         return res;
245 }
246
247 int unload_module(void)
248 {
249         int res;
250
251         res = ast_unregister_application(app);
252         
253         STANDARD_HANGUP_LOCALUSERS;
254
255         return res;
256 }
257
258 int load_module(void)
259 {
260         return ast_register_application(app, zapras_exec, synopsis, descrip);
261 }
262
263 char *description(void)
264 {
265         return tdesc;
266 }
267
268 int usecount(void)
269 {
270         int res;
271         STANDARD_USECOUNT(res);
272         return res;
273 }
274
275 char *key()
276 {
277         return ASTERISK_GPL_KEY;
278 }