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