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