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