Version 0.1.11 from FTP

git-svn-id: https://origsvn.digium.com/svn/asterisk/trunk@422 65c4cc65-6c06-0410-ace0-fbb531ad65f3
This commit is contained in:
Mark Spencer
2002-03-08 23:48:42 +00:00
parent 3214cf6ba9
commit edcd34976e
2 changed files with 569 additions and 227 deletions

237
apps/app_zapras.c Executable file
View File

@@ -0,0 +1,237 @@
/*
* Asterisk -- A telephony toolkit for Linux.
*
* Execute an ISDN RAS
*
* Copyright (C) 1999, Mark Spencer
*
* Mark Spencer <markster@linux-support.net>
*
* This program is free software, distributed under the terms of
* the GNU General Public License
*/
#include <asterisk/file.h>
#include <asterisk/logger.h>
#include <asterisk/channel.h>
#include <asterisk/pbx.h>
#include <asterisk/module.h>
#include <asterisk/options.h>
#include <sys/ioctl.h>
#include <sys/wait.h>
#include <sys/signal.h>
#include <stdlib.h>
#include <unistd.h>
#include <string.h>
#include <stdlib.h>
#include <pthread.h>
/* Need some zaptel help here */
#include <linux/zaptel.h>
static char *tdesc = "Zap RAS Application";
static char *app = "ZapRAS";
static char *synopsis = "Executes Zaptel ISDN RAS application";
static char *descrip =
" ZapRAS(args): Executes a RAS server using pppd on the given channel.\n"
"The channel must be a clear channel (i.e. PRI source) and a Zaptel\n"
"channel to be able to use this function (No modem emulcation is included).\n"
"Your pppd must be patched to be zaptel aware. Arguments should be\n"
"separated by | characters. Always returns -1.\n";
STANDARD_LOCAL_USER;
LOCAL_USER_DECL;
#define PPP_MAX_ARGS 32
#define PPP_EXEC "/usr/sbin/pppd"
static pid_t spawn_ras(struct ast_channel *chan, char *args)
{
pid_t pid;
int x;
char *c;
char *argv[PPP_MAX_ARGS];
int argc = 0;
/* Start by forking */
pid = fork();
if (pid)
return pid;
/* Execute RAS on File handles */
dup2(chan->fds[0], STDIN_FILENO);
/* Close other file descriptors */
for (x=STDERR_FILENO + 1;x<1024;x++)
close(x);
/* Restore original signal handlers */
for (x=0;x<NSIG;x++)
signal(x, SIG_DFL);
/* Reset all arguments */
memset(argv, 0, sizeof(argv));
/* First argument is executable, followed by standard
arguments for zaptel PPP */
argv[argc++] = PPP_EXEC;
argv[argc++] = "nodetach";
/* And all the other arguments */
c = strtok(args, "|");
while(c && strlen(c) && (argc < (PPP_MAX_ARGS - 4))) {
argv[argc++] = c;
c = strtok(NULL, "|");
}
argv[argc++] = "plugin";
argv[argc++] = "zaptel.so";
argv[argc++] = "stdin";
#if 0
for (x=0;x<argc;x++) {
fprintf(stderr, "Arg %d: %s\n", x, argv[x]);
}
#endif
/* Finally launch PPP */
execv(PPP_EXEC, argv);
fprintf(stderr, "Failed to exec PPPD!\n");
exit(1);
}
static void run_ras(struct ast_channel *chan, char *args)
{
pid_t pid;
int status;
int res;
int signalled = 0;
struct zt_bufferinfo bi;
int x;
pid = spawn_ras(chan, args);
if (pid < 0) {
ast_log(LOG_WARNING, "Failed to spawn RAS\n");
} else {
for (;;) {
res = wait4(pid, &status, WNOHANG, NULL);
if (!res) {
/* Check for hangup */
if (chan->softhangup && !signalled) {
ast_log(LOG_DEBUG, "Channel hungup. Signalling RAS at %d to die...\n", pid);
kill(pid, SIGTERM);
signalled=1;
}
/* Try again */
sleep(1);
continue;
}
if (res < 0) {
ast_log(LOG_WARNING, "wait4 returned %d: %s\n", res, strerror(errno));
}
if (option_verbose > 2) {
if (WIFEXITED(status)) {
ast_verbose(VERBOSE_PREFIX_3 "RAS on %s terminated with status %d\n", chan->name, WEXITSTATUS(status));
} else if (WIFSIGNALED(status)) {
ast_verbose(VERBOSE_PREFIX_3 "RAS on %s terminated with signal %d\n",
chan->name, WTERMSIG(status));
} else {
ast_verbose(VERBOSE_PREFIX_3 "RAS on %s terminated weirdly.\n", chan->name);
}
}
/* Throw back into audio mode */
x = 0;
ioctl(chan->fds[0], ZT_AUDIOMODE, &x);
/* Double check buffering too */
res = ioctl(chan->fds[0], ZT_GET_BUFINFO, &bi);
if (!res) {
/* XXX This is ZAP_BLOCKSIZE XXX */
bi.bufsize = 204;
bi.txbufpolicy = ZT_POLICY_IMMEDIATE;
bi.rxbufpolicy = ZT_POLICY_IMMEDIATE;
bi.numbufs = 4;
res = ioctl(chan->fds[0], ZT_SET_BUFINFO, &bi);
if (res < 0) {
ast_log(LOG_WARNING, "Unable to set buffer policy on channel %s\n", chan->name);
}
} else
ast_log(LOG_WARNING, "Unable to check buffer policy on channel %s\n", chan->name);
break;
}
}
}
static int zapras_exec(struct ast_channel *chan, void *data)
{
int res=-1;
char args[256];
struct localuser *u;
ZT_PARAMS ztp;
if (!data)
data = "";
LOCAL_USER_ADD(u);
strncpy(args, data, sizeof(args) - 1);
/* Answer the channel if it's not up */
if (chan->state != AST_STATE_UP)
ast_answer(chan);
if (strcasecmp(chan->type, "Zap")) {
/* If it's not a zap channel, we're done. Wait a couple of
seconds and then hangup... */
if (option_verbose > 1)
ast_verbose(VERBOSE_PREFIX_2 "Channel %s is not a Zap channel\n", chan->name);
sleep(2);
} else {
memset(&ztp, 0, sizeof(ztp));
if (ioctl(chan->fds[0], ZT_GET_PARAMS, &ztp)) {
ast_log(LOG_WARNING, "Unable to get zaptel parameters\n");
} else if (ztp.sigtype != ZT_SIG_CLEAR) {
if (option_verbose > 1)
ast_verbose(VERBOSE_PREFIX_2 "Channel %s is not a clear channel\n", chan->name);
} else {
/* Everything should be okay. Run PPP. */
if (option_verbose > 2)
ast_verbose(VERBOSE_PREFIX_3 "Starting RAS on %s\n", chan->name);
/* Execute RAS */
run_ras(chan, args);
}
}
LOCAL_USER_REMOVE(u);
return res;
}
int unload_module(void)
{
STANDARD_HANGUP_LOCALUSERS;
return ast_unregister_application(app);
}
int load_module(void)
{
return ast_register_application(app, zapras_exec, synopsis, descrip);
}
char *description(void)
{
return tdesc;
}
int usecount(void)
{
int res;
STANDARD_USECOUNT(res);
return res;
}
char *key()
{
return ASTERISK_GPL_KEY;
}

View File

@@ -39,10 +39,13 @@
#include <zap.h>
#include <math.h>
#include <tonezone.h>
#include <dirent.h>
#ifdef ZAPATA_PRI
#include <libpri.h>
#endif
#include "../asterisk.h"
/*
XXX
XXX We definitely need to lock the private structure in zt_read and such
@@ -102,6 +105,8 @@ static int threewaycalling = 0;
static int transfer = 0;
static int cancallforward = 0;
static float rxgain = 0.0;
static float txgain = 0.0;
@@ -110,6 +115,8 @@ static int echocancel;
static char accountcode[20] = "";
static char mailbox[AST_MAX_EXTENSION];
static int amaflags = 0;
static int adsi = 0;
@@ -289,6 +296,9 @@ static struct zt_pvt {
struct tdd_state *tdd; /* TDD flag */
int linear;
int adsi;
int cancallforward;
char call_forward[AST_MAX_EXTENSION];
char mailbox[AST_MAX_EXTENSION];
#ifdef ZAPATA_PRI
struct zt_pri *pri;
q931_call *call;
@@ -543,13 +553,14 @@ static void zt_enable_ec(struct zt_pvt *p)
int x;
int res;
if (p && p->echocancel) {
x = 1;
x = p->echocancel;
res = ioctl(zap_fd(p->z), ZT_ECHOCANCEL, &x);
if (res)
ast_log(LOG_WARNING, "Unable to enable echo cancellation on channel %d\n", p->channel);
else
ast_log(LOG_DEBUG, "Enabled echo cancellation on channel %d\n", p->channel);
}
} else
ast_log(LOG_DEBUG, "No echocancellation requested\n");
}
static void zt_disable_ec(struct zt_pvt *p)
@@ -583,7 +594,7 @@ static int zt_get_index(struct ast_channel *ast, struct zt_pvt *p, int nullok)
return res;
}
static int set_actual_gain(int fd, int chan, float rxgain, float txgain)
int set_actual_gain(int fd, int chan, float rxgain, float txgain)
{
struct zt_gains g;
float ltxgain;
@@ -721,6 +732,29 @@ int send_cwcidspill(struct zt_pvt *p)
return 0;
}
static int has_voicemail(struct zt_pvt *p)
{
DIR *dir;
struct dirent *de;
char fn[256];
/* If no mailbox, return immediately */
if (!strlen(p->mailbox))
return 0;
snprintf(fn, sizeof(fn), "%s/vm/%s/INBOX", AST_SPOOL_DIR, p->mailbox);
dir = opendir(fn);
if (!dir)
return 0;
while ((de = readdir(dir))) {
if (strncasecmp(de->d_name, "msg", 3))
break;
}
closedir(dir);
if (de)
return 1;
return 0;
}
static int send_callerid(struct zt_pvt *p)
{
/* Assumes spill in p->cidspill, p->cidlen in length and we're p->cidpos into it */
@@ -1001,7 +1035,6 @@ static int zt_hangup(struct ast_channel *ast)
struct zt_pvt *prev = NULL;
ZT_PARAMS par;
if (option_debug)
ast_log(LOG_DEBUG, "zt_hangup(%s)\n", ast->name);
if (!ast->pvt->pvt) {
@@ -1079,6 +1112,7 @@ static int zt_hangup(struct ast_channel *ast)
}
} else
res = 0;
} else
#endif
res = zt_set_hook(zap_fd(p->z), ZT_ONHOOK);
@@ -1800,6 +1834,8 @@ struct ast_frame *zt_handle_event(struct ast_channel *ast)
(ast->state == AST_STATE_RING)) {
if (!alloc_pseudo(p)) {
/* Start three way call */
/* Disable echo canceller for better dialing */
zt_disable_ec(p);
res = tone_zone_play_tone(zap_fd(p->z), ZT_TONE_DIALRECALL);
if (res)
ast_log(LOG_WARNING, "Unable to start dial recall tone on channel %d\n", p->channel);
@@ -1808,6 +1844,7 @@ struct ast_frame *zt_handle_event(struct ast_channel *ast)
if (pthread_create(&threadid, &attr, ss_thread, chan)) {
ast_log(LOG_WARNING, "Unable to start simple switch on channel %d\n", p->channel);
res = tone_zone_play_tone(zap_fd(p->z), ZT_TONE_CONGESTION);
zt_enable_ec(p);
ast_hangup(chan);
} else {
if (option_verbose > 2)
@@ -1842,6 +1879,7 @@ struct ast_frame *zt_handle_event(struct ast_channel *ast)
tone_zone_play_tone(zap_fd(p->z), -1);
p->owner = p->owners[p->normalindex];
ast_log(LOG_DEBUG, "Dumping incomplete three way call in state %d\n", ast->state);
zt_enable_ec(p);
return NULL;
}
p->owner = p->owners[p->normalindex];
@@ -1854,6 +1892,8 @@ struct ast_frame *zt_handle_event(struct ast_channel *ast)
tone_zone_play_tone(zap_fd(p->pseudo), ZT_TONE_RINGTONE);
}
three_way(p);
/* Restart the echo canceller */
zt_enable_ec(p);
if (option_verbose > 2)
ast_verbose(VERBOSE_PREFIX_3 "Established 3-way conference between %s and %s\n",
p->owners[p->normalindex]->name, p->owners[p->thirdcallindex]->name);
@@ -2404,6 +2444,8 @@ static struct ast_channel *zt_new(struct zt_pvt *i, int state, int startpbx, int
ast_pthread_mutex_unlock(&usecnt_lock);
ast_update_use_count();
strncpy(tmp->context, i->context, sizeof(tmp->context)-1);
/* Copy call forward info */
strncpy(tmp->call_forward, i->call_forward, sizeof(tmp->call_forward));
/* If we've been told "no ADSI" then enforce it */
if (!i->adsi)
tmp->adsicpe = AST_ADSI_UNAVAILABLE;
@@ -2412,7 +2454,7 @@ static struct ast_channel *zt_new(struct zt_pvt *i, int state, int startpbx, int
if (startpbx) {
if (strlen(i->callerid)) {
tmp->callerid = strdup(i->callerid);
tmp->hidden_callerid = strdup(i->callerid);
tmp->ani = strdup(i->callerid);
}
if (i->adsi) {
/* Initialize ADSI here */
@@ -2467,6 +2509,7 @@ static void *ss_thread(void *data)
int flags;
int i;
int timeout;
int getforward=0;
char *s1, *s2;
int len = 0;
int res;
@@ -2512,7 +2555,7 @@ static void *ss_thread(void *data)
else
chan->callerid = strdup(s1);
if (chan->callerid)
chan->hidden_callerid = strdup(chan->callerid);
chan->ani = strdup(chan->callerid);
strncpy(exten, s2, sizeof(exten)-1);
} else
strncpy(exten, s1, sizeof(exten)-1);
@@ -2571,12 +2614,28 @@ static void *ss_thread(void *data)
if (!ast_ignore_pattern(chan->context, exten))
tone_zone_play_tone(zap_fd(p->z), -1);
if (ast_exists_extension(chan, chan->context, exten, 1, p->callerid)) {
if (getforward) {
/* Record this as the forwarding extension */
strncpy(p->call_forward, exten, sizeof(p->call_forward));
if (option_verbose > 2)
ast_verbose(VERBOSE_PREFIX_3 "Setting call forward to '%s' on channel %d\n", p->call_forward, p->channel);
res = tone_zone_play_tone(zap_fd(p->z), ZT_TONE_DIALRECALL);
if (res)
break;
usleep(500000);
res = tone_zone_play_tone(zap_fd(p->z), -1);
sleep(1);
memset(exten, 0, sizeof(exten));
res = tone_zone_play_tone(zap_fd(p->z), ZT_TONE_DIALTONE);
len = 0;
getforward = 0;
} else {
res = tone_zone_play_tone(zap_fd(p->z), -1);
strncpy(chan->exten, exten, sizeof(chan->exten)-1);
if (strlen(p->callerid)) {
if (!p->hidecallerid)
chan->callerid = strdup(p->callerid);
chan->hidden_callerid = strdup(p->callerid);
chan->ani = strdup(p->callerid);
}
chan->state = AST_STATE_RING;
zt_enable_ec(p);
@@ -2586,6 +2645,7 @@ static void *ss_thread(void *data)
res = tone_zone_play_tone(zap_fd(p->z), ZT_TONE_CONGESTION);
}
return NULL;
}
} else if (p->callwaiting && !strcmp(exten, "*70")) {
if (option_verbose > 2)
ast_verbose(VERBOSE_PREFIX_3 "Disabling call waiting on %s\n", chan->name);
@@ -2646,6 +2706,19 @@ static void *ss_thread(void *data)
len = 0;
memset(exten, 0, sizeof(exten));
timeout = firstdigittimeout;
} else if (p->cancallforward && !strcmp(exten, "*72")) {
res = tone_zone_play_tone(zap_fd(p->z), ZT_TONE_DIALRECALL);
getforward = 1;
memset(exten, 0, sizeof(exten));
len = 0;
} else if (p->cancallforward && !strcmp(exten, "*73")) {
if (option_verbose > 2)
ast_verbose(VERBOSE_PREFIX_3 "Cancelling call forwarding on channel %d\n", p->channel);
res = tone_zone_play_tone(zap_fd(p->z), ZT_TONE_DIALRECALL);
memset(p->call_forward, 0, sizeof(p->call_forward));
getforward = 0;
memset(exten, 0, sizeof(exten));
len = 0;
} else if (p->transfer && !strcmp(exten, ast_parking_ext()) &&
(zt_get_index(chan, p, 1) == p->thirdcallindex) &&
p->owners[p->normalindex]->bridge) {
@@ -2785,7 +2858,7 @@ static void *ss_thread(void *data)
}
if (strlen(cid)) {
chan->callerid = strdup(cid);
chan->hidden_callerid = strdup(cid);
chan->ani = strdup(cid);
}
chan->state = AST_STATE_RING;
chan->rings = 1;
@@ -2849,6 +2922,9 @@ static int handle_init_event(struct zt_pvt *i, int event)
while(read(zap_fd(i->z), &res, sizeof(res)) > 0);
adsi_channel_init(chan);
}
if (has_voicemail(i))
res = tone_zone_play_tone(zap_fd(i->z), ZT_TONE_DIALRECALL);
else
res = tone_zone_play_tone(zap_fd(i->z), ZT_TONE_DIALTONE);
if (res < 0)
ast_log(LOG_WARNING, "Unable to play dialtone on channel %d\n", i->channel);
@@ -3024,16 +3100,22 @@ static int restart_monitor(void)
return -1;
}
if (monitor_thread) {
/* Just signal it to be sure it wakes up */
#if 0
pthread_cancel(monitor_thread);
#endif
pthread_kill(monitor_thread, SIGURG);
#if 0
pthread_join(monitor_thread, NULL);
}
#endif
} else {
/* Start a new monitor */
if (pthread_create(&monitor_thread, &attr, do_monitor, NULL) < 0) {
ast_pthread_mutex_unlock(&monlock);
ast_log(LOG_ERROR, "Unable to start monitor thread.\n");
return -1;
}
}
#if 0
printf("Created thread %ld detached in restart monitor\n", monitor_thread);
#endif
@@ -3254,6 +3336,7 @@ static struct zt_pvt *mkintf(int channel, int signalling)
tmp->adsi = adsi;
tmp->permhidecallerid = hidecallerid;
tmp->echocancel = echocancel;
tmp->cancallforward = cancallforward;
tmp->callwaiting = tmp->permcallwaiting;
tmp->hidecallerid = tmp->permhidecallerid;
tmp->channel = channel;
@@ -3275,6 +3358,7 @@ static struct zt_pvt *mkintf(int channel, int signalling)
strncpy(tmp->language, language, sizeof(tmp->language)-1);
strncpy(tmp->context, context, sizeof(tmp->context)-1);
strncpy(tmp->callerid, callerid, sizeof(tmp->callerid)-1);
strncpy(tmp->mailbox, mailbox, sizeof(tmp->mailbox)-1);
tmp->group = cur_group;
tmp->callgroup=cur_callergroup;
tmp->pickupgroup=cur_pickupgroup;
@@ -3547,13 +3631,17 @@ static void *pri_dchannel(void *vpri)
tv.tv_usec = 0;
}
}
e = NULL;
res = select(pri->fd + 1, &rfds, NULL, &efds, next ? &tv : NULL);
pthread_mutex_lock(&pri->lock);
if (!res) {
/* Just a timeout, run the scheduler */
pri_schedule_run(pri->pri);
e = pri_schedule_run(pri->pri);
} else if (res > -1) {
e = pri_check_event(pri->pri);
} else if (errno != EINTR)
ast_log(LOG_WARNING, "pri_event returned error %d (%s)\n", errno, strerror(errno));
if (e) {
if (pri->debug)
pri_dump_event(pri->pri, e);
@@ -3721,7 +3809,7 @@ static void *pri_dchannel(void *vpri)
ast_log(LOG_WARNING, "Hangup ACK requested on odd channel number %d span %d\n", chan, pri->span);
chan = 0;
} else if (!pri->pvt[chan]) {
ast_log(LOG_WARNING, "Hanngup ACK requested on unconfigured channel %d span %d\n", chan, pri->span);
ast_log(LOG_WARNING, "Hangup ACK requested on unconfigured channel %d span %d\n", chan, pri->span);
chan = 0;
}
if (chan) {
@@ -3750,10 +3838,6 @@ static void *pri_dchannel(void *vpri)
if (option_debug)
ast_log(LOG_DEBUG, "Got event %s (%d) on D-channel for span %d\n", event2str(x), x, pri->span);
}
} else {
if (errno != EINTR)
ast_log(LOG_WARNING, "pri_event returned error %d (%s)\n", errno, strerror(errno));
}
pthread_mutex_unlock(&pri->lock);
}
/* Never reached */
@@ -3763,15 +3847,17 @@ static void *pri_dchannel(void *vpri)
static int start_pri(struct zt_pri *pri)
{
char filename[80];
int res;
int res, x;
ZT_PARAMS p;
ZT_BUFFERINFO bi;
snprintf(filename, sizeof(filename), "/dev/zap/%d", pri->offset + pri->dchannel);
pri->fd = open(filename, O_RDWR, 0600);
if (pri->fd < 0) {
ast_log(LOG_ERROR, "Unable to open D-channel %s (%s)\n", filename, strerror(errno));
pri->fd = open("/dev/zap/channel", O_RDWR, 0600);
x = pri->offset + pri->dchannel;
if ((pri->fd < 0) || (ioctl(pri->fd,ZT_SPECIFY,&x) == -1)) {
ast_log(LOG_ERROR, "Unable to open D-channel %d (%s)\n", x, strerror(errno));
return -1;
}
res = ioctl(pri->fd, ZT_GET_PARAMS, &p);
if (res) {
close(pri->fd);
@@ -3831,6 +3917,9 @@ static char *complete_span(char *line, char *word, int pos, int state)
static int handle_pri_debug(int fd, int argc, char *argv[])
{
int span;
if (argc < 4) {
return RESULT_SHOWUSAGE;
}
span = atoi(argv[3]);
if ((span < 1) || (span > NUM_SPANS)) {
ast_cli(fd, "Invalid span %s. Should be a number %d to %d\n", argv[3], 1, NUM_SPANS);
@@ -3848,6 +3937,8 @@ static int handle_pri_debug(int fd, int argc, char *argv[])
static int handle_pri_no_debug(int fd, int argc, char *argv[])
{
int span;
if (argc < 5)
return RESULT_SHOWUSAGE;
span = atoi(argv[4]);
if ((span < 1) || (span > NUM_SPANS)) {
ast_cli(fd, "Invalid span %s. Should be a number %d to %d\n", argv[4], 1, NUM_SPANS);
@@ -4092,11 +4183,22 @@ int load_module()
use_callerid = ast_true(v->value);
} else if (!strcasecmp(v->name, "threewaycalling")) {
threewaycalling = ast_true(v->value);
} else if (!strcasecmp(v->name, "cancallforward")) {
cancallforward = ast_true(v->value);
} else if (!strcasecmp(v->name, "mailbox")) {
strncpy(mailbox, v->value, sizeof(mailbox) -1);
} else if (!strcasecmp(v->name, "adsi")) {
adsi = ast_true(v->value);
} else if (!strcasecmp(v->name, "transfer")) {
transfer = ast_true(v->value);
} else if (!strcasecmp(v->name, "echocancel")) {
if (v->value && strlen(v->value))
y = atoi(v->value);
else
y = 0;
if ((y == 32) || (y == 64) || (y == 128) || (y == 256))
echocancel = y;
else
echocancel = ast_true(v->value);
} else if (!strcasecmp(v->name, "hidecallerid")) {
hidecallerid = ast_true(v->value);
@@ -4443,6 +4545,9 @@ static int reload_zt(void)
cur_pickupgroup = get_group(v->value);
} else if (!strcasecmp(v->name, "immediate")) {
immediate = ast_true(v->value);
} else if (!strcasecmp(v->name, "mailbox")) {
printf("Mailbox is '%s'\n", mailbox);
strncpy(mailbox, v->value, sizeof(mailbox) -1);
} else if (!strcasecmp(v->name, "rxgain")) {
if (sscanf(v->value, "%f", &rxgain) != 1) {
ast_log(LOG_WARNING, "Invalid rxgain: %s\n", v->value);