374 lines
10 KiB
C
374 lines
10 KiB
C
/*
|
|
* Written by Mark Spencer <markster@digium.com>
|
|
* Based on previous works, designs, and architectures conceived and
|
|
* written by Jim Dixon <jim@lambdatel.com>.
|
|
*
|
|
* Copyright (C) 2001 Jim Dixon / Zapata Telephony.
|
|
* Copyright (C) 2001-2008 Digium, Inc.
|
|
*
|
|
* All rights reserved.
|
|
*
|
|
* Primary Author: Mark Spencer <markster@digium.com>
|
|
* Radio Support by Jim Dixon <jim@lambdatel.com>
|
|
*/
|
|
|
|
/*
|
|
* See http://www.asterisk.org for more information about
|
|
* the Asterisk project. Please do not directly contact
|
|
* any of the maintainers of this project for assistance;
|
|
* the project provides a web site, mailing lists and IRC
|
|
* channels for your use.
|
|
*
|
|
* This program is free software, distributed under the terms of
|
|
* the GNU General Public License Version 2 as published by the
|
|
* Free Software Foundation. See the LICENSE file included with
|
|
* this program for more details.
|
|
*/
|
|
|
|
#include <stdio.h>
|
|
#include <string.h>
|
|
#include <ctype.h>
|
|
#include <errno.h>
|
|
#include <fcntl.h>
|
|
#include <stdlib.h>
|
|
#include <unistd.h>
|
|
#include <sys/ioctl.h>
|
|
#include <sys/stat.h>
|
|
#include <dahdi/user.h>
|
|
#include <dahdi/wctdm_user.h>
|
|
|
|
#include "tonezone.h"
|
|
#include "dahdi_tools_version.h"
|
|
|
|
static int tones[] = {
|
|
DAHDI_TONE_DIALTONE,
|
|
DAHDI_TONE_BUSY,
|
|
DAHDI_TONE_RINGTONE,
|
|
DAHDI_TONE_CONGESTION,
|
|
DAHDI_TONE_DIALRECALL,
|
|
};
|
|
|
|
struct dahdi_vmwi_info mwisend_setting; /*!< Which VMWI methods to use */
|
|
|
|
/* Use to translate a DTMF character to the value required by the dahdi call */
|
|
static int digit_to_dtmfindex(char digit)
|
|
{
|
|
if (isdigit(digit))
|
|
return DAHDI_TONE_DTMF_BASE + (digit - '0');
|
|
else if (digit >= 'A' && digit <= 'D')
|
|
return DAHDI_TONE_DTMF_A + (digit - 'A');
|
|
else if (digit >= 'a' && digit <= 'd')
|
|
return DAHDI_TONE_DTMF_A + (digit - 'a');
|
|
else if (digit == '*')
|
|
return DAHDI_TONE_DTMF_s;
|
|
else if (digit == '#')
|
|
return DAHDI_TONE_DTMF_p;
|
|
else
|
|
return -1;
|
|
}
|
|
|
|
/* Place a channel into ringing mode */
|
|
static int dahdi_ring_phone(int fd)
|
|
{
|
|
int x;
|
|
int res;
|
|
/* Make sure our transmit state is on hook */
|
|
x = 0;
|
|
x = DAHDI_ONHOOK;
|
|
res = ioctl(fd, DAHDI_HOOK, &x);
|
|
do {
|
|
x = DAHDI_RING;
|
|
res = ioctl(fd, DAHDI_HOOK, &x);
|
|
if (res) {
|
|
switch (errno) {
|
|
case EBUSY:
|
|
case EINTR:
|
|
/* Wait just in case */
|
|
fprintf(stderr, "Ring phone is busy:%s\n", strerror(errno));
|
|
usleep(10000);
|
|
continue;
|
|
case EINPROGRESS:
|
|
fprintf(stderr, "Ring In Progress:%s\n", strerror(errno));
|
|
res = 0;
|
|
break;
|
|
default:
|
|
fprintf(stderr, "Couldn't ring the phone: %s\n", strerror(errno));
|
|
res = 0;
|
|
}
|
|
} else {
|
|
fprintf(stderr, "Phone is ringing\n");
|
|
}
|
|
} while (res);
|
|
return res;
|
|
}
|
|
|
|
int channel_open(const char *name)
|
|
{
|
|
int channo, fd;
|
|
struct stat filestat;
|
|
const char *DEVICE = "/dev/dahdi/channel";
|
|
|
|
/* stat file, if character device, open it */
|
|
channo = strtoul(name, NULL, 10);
|
|
fd = stat(name, &filestat);
|
|
if (!fd && S_ISCHR(filestat.st_mode)) {
|
|
fd = open(name, O_RDWR, 0600);
|
|
if (fd < 0) {
|
|
perror(name);
|
|
return -1;
|
|
}
|
|
/* try out the dahdi_specify interface */
|
|
} else if (channo > 0) {
|
|
fd = open(DEVICE, O_RDWR, 0600);
|
|
if (fd < 0) {
|
|
perror(DEVICE);
|
|
return -1;
|
|
}
|
|
if (ioctl(fd, DAHDI_SPECIFY, &channo) < 0) {
|
|
perror("DAHDI_SPECIFY ioctl failed");
|
|
return -1;
|
|
}
|
|
/* die */
|
|
} else {
|
|
fprintf(stderr, "Specified channel is not a valid character "
|
|
"device or channel number");
|
|
return -1;
|
|
}
|
|
return fd;
|
|
}
|
|
|
|
int main(int argc, char *argv[])
|
|
{
|
|
int fd;
|
|
int res;
|
|
int x;
|
|
if (argc < 3) {
|
|
fprintf(stderr, "Usage: fxstest <dahdi device> <cmd>\n"
|
|
" where cmd is one of:\n"
|
|
" stats - reports voltages\n"
|
|
" regdump - dumps ProSLIC registers\n"
|
|
" tones - plays a series of tones\n"
|
|
" polarity - tests polarity reversal\n"
|
|
" ring - rings phone\n"
|
|
" vmwi - toggles VMWI LED lamp\n"
|
|
" hvdc - toggles VMWI HV lamp\n"
|
|
" neon - toggles VMWI NEON lamp\n"
|
|
" dtmf <sequence> [<duration>]- Send a sequence of dtmf tones (\"-\" denotes no tone)\n"
|
|
" dtmfcid - create a dtmf cid spill without polarity reversal\n");
|
|
exit(1);
|
|
}
|
|
fd = channel_open(argv[1]);
|
|
if (fd < 0) {
|
|
fprintf(stderr, "Unable to open %s: %s\n", argv[1], strerror(errno));
|
|
exit(1);
|
|
}
|
|
|
|
if ( !strcasecmp(argv[2], "neon") || !strcasecmp(argv[2], "vmwi") || !strcasecmp(argv[2], "hvdc")) {
|
|
fprintf(stderr, "Twiddling %s ...\n", argv[2]);
|
|
|
|
if ( !strcasecmp(argv[2], "vmwi") ) {
|
|
mwisend_setting.vmwi_type = DAHDI_VMWI_LREV;
|
|
} else if ( !strcasecmp(argv[2], "neon") ) {
|
|
mwisend_setting.vmwi_type = DAHDI_VMWI_HVAC;
|
|
} else if ( !strcasecmp(argv[2], "hvdc") ) {
|
|
mwisend_setting.vmwi_type = DAHDI_VMWI_HVDC;
|
|
}
|
|
res = ioctl(fd, DAHDI_VMWI_CONFIG, &mwisend_setting);
|
|
|
|
x = 1;
|
|
res = ioctl(fd, DAHDI_VMWI, &x);
|
|
if (res) {
|
|
fprintf(stderr, "Unable to set %s ...\n", argv[2]);
|
|
} else {
|
|
fprintf(stderr, "Set 1 Voice Message...\n");
|
|
|
|
sleep(5);
|
|
x = 2;
|
|
ioctl(fd, DAHDI_VMWI, &x);
|
|
fprintf(stderr, "Set 2 Voice Messages...\n");
|
|
|
|
sleep(5);
|
|
x = 0;
|
|
ioctl(fd, DAHDI_VMWI, &x);
|
|
fprintf(stderr, "Set No Voice messages...\n");
|
|
sleep(2);
|
|
mwisend_setting.vmwi_type = 0;
|
|
}
|
|
} else if (!strcasecmp(argv[2], "ring")) {
|
|
fprintf(stderr, "Ringing phone...\n");
|
|
x = DAHDI_RING;
|
|
res = ioctl(fd, DAHDI_HOOK, &x);
|
|
if (res) {
|
|
fprintf(stderr, "Unable to ring phone...\n");
|
|
} else {
|
|
fprintf(stderr, "Phone is ringing...\n");
|
|
sleep(2);
|
|
}
|
|
} else if (!strcasecmp(argv[2], "polarity")) {
|
|
fprintf(stderr, "Twiddling polarity...\n");
|
|
/* Insure that the channel is in active mode */
|
|
x = DAHDI_RING;
|
|
res = ioctl(fd, DAHDI_HOOK, &x);
|
|
usleep(100000);
|
|
x = 0;
|
|
res = ioctl(fd, DAHDI_HOOK, &x);
|
|
|
|
x = 0;
|
|
res = ioctl(fd, DAHDI_SETPOLARITY, &x);
|
|
if (res) {
|
|
fprintf(stderr, "Unable to polarity...\n");
|
|
} else {
|
|
fprintf(stderr, "Polarity is forward...\n");
|
|
sleep(2);
|
|
x = 1;
|
|
ioctl(fd, DAHDI_SETPOLARITY, &x);
|
|
fprintf(stderr, "Polarity is reversed...\n");
|
|
sleep(5);
|
|
x = 0;
|
|
ioctl(fd, DAHDI_SETPOLARITY, &x);
|
|
fprintf(stderr, "Polarity is forward...\n");
|
|
sleep(2);
|
|
}
|
|
} else if (!strcasecmp(argv[2], "tones")) {
|
|
int x = 0;
|
|
for (;;) {
|
|
res = tone_zone_play_tone(fd, tones[x]);
|
|
if (res)
|
|
fprintf(stderr, "Unable to play tone %d\n", tones[x]);
|
|
sleep(3);
|
|
x=(x+1) % (sizeof(tones) / sizeof(tones[0]));
|
|
}
|
|
} else if (!strcasecmp(argv[2], "stats")) {
|
|
struct wctdm_stats stats;
|
|
res = ioctl(fd, WCTDM_GET_STATS, &stats);
|
|
if (res) {
|
|
fprintf(stderr, "Unable to get stats on channel %s\n", argv[1]);
|
|
} else {
|
|
printf("TIP: %7.4f Volts\n", (float)stats.tipvolt / 1000.0);
|
|
printf("RING: %7.4f Volts\n", (float)stats.ringvolt / 1000.0);
|
|
printf("VBAT: %7.4f Volts\n", (float)stats.batvolt / 1000.0);
|
|
}
|
|
} else if (!strcasecmp(argv[2], "regdump")) {
|
|
struct wctdm_regs regs;
|
|
int numregs = NUM_REGS;
|
|
memset(®s, 0, sizeof(regs));
|
|
res = ioctl(fd, WCTDM_GET_REGS, ®s);
|
|
if (res) {
|
|
fprintf(stderr, "Unable to get registers on channel %s\n", argv[1]);
|
|
} else {
|
|
for (x=60;x<NUM_REGS;x++) {
|
|
if (regs.direct[x])
|
|
break;
|
|
}
|
|
if (x == NUM_REGS)
|
|
numregs = 60;
|
|
printf("Direct registers: \n");
|
|
for (x=0;x<numregs;x++) {
|
|
printf("%3d. %02x ", x, regs.direct[x]);
|
|
if ((x % 8) == 7)
|
|
printf("\n");
|
|
}
|
|
if (numregs == NUM_REGS) {
|
|
printf("\n\nIndirect registers: \n");
|
|
for (x=0;x<NUM_INDIRECT_REGS;x++) {
|
|
printf("%3d. %04x ", x, regs.indirect[x]);
|
|
if ((x % 6) == 5)
|
|
printf("\n");
|
|
}
|
|
}
|
|
printf("\n\n");
|
|
}
|
|
} else if (!strcasecmp(argv[2], "setdirect") ||
|
|
!strcasecmp(argv[2], "setindirect")) {
|
|
struct wctdm_regop regop;
|
|
int val;
|
|
int reg;
|
|
if ((argc < 5) || (sscanf(argv[3], "%i", ®) != 1) ||
|
|
(sscanf(argv[4], "%i", &val) != 1)) {
|
|
fprintf(stderr, "Need a register and value...\n");
|
|
} else {
|
|
regop.reg = reg;
|
|
regop.val = val;
|
|
if (!strcasecmp(argv[2], "setindirect")) {
|
|
regop.indirect = 1;
|
|
} else {
|
|
regop.indirect = 0;
|
|
}
|
|
res = ioctl(fd, WCTDM_SET_REG, ®op);
|
|
if (res)
|
|
fprintf(stderr, "Unable to get registers on channel %s\n", argv[1]);
|
|
else
|
|
printf("Success.\n");
|
|
}
|
|
} else if (!strcasecmp(argv[2], "dtmf")) {
|
|
int duration = 50; /* default to 50 mS duration */
|
|
char * outstring = "";
|
|
int dtmftone;
|
|
|
|
if(argc < 4) { /* user supplied string */
|
|
fprintf(stderr, "You must specify a string of dtmf characters to send\n");
|
|
} else {
|
|
outstring = argv[3];
|
|
if(argc >= 5) {
|
|
sscanf(argv[4], "%30i", &duration);
|
|
}
|
|
printf("Going to send a set of DTMF tones >%s<\n", outstring);
|
|
printf("Using a duration of %d mS per tone\n", duration);
|
|
/* Flush any left remaining characs in the buffer and place the channel into on-hook transfer mode */
|
|
x = DAHDI_FLUSH_BOTH;
|
|
res = ioctl(fd, DAHDI_FLUSH, &x);
|
|
x = 500 + strlen(outstring) * duration;
|
|
ioctl(fd, DAHDI_ONHOOKTRANSFER, &x);
|
|
|
|
for (x = 0; '\0' != outstring[x]; x++) {
|
|
dtmftone = digit_to_dtmfindex(outstring[x]);
|
|
if (0 > dtmftone) {
|
|
dtmftone = -1;
|
|
}
|
|
res = tone_zone_play_tone(fd, dtmftone);
|
|
if (res) {
|
|
fprintf(stderr, "Unable to play DTMF tone %d (0x%x)\n", dtmftone, dtmftone);
|
|
}
|
|
usleep(duration * 1000);
|
|
}
|
|
}
|
|
} else if (!strcasecmp(argv[2], "dtmfcid")) {
|
|
char * outstring = "A5551212C"; /* Default string using A and C tones to bracket the number */
|
|
int dtmftone;
|
|
|
|
if(argc >= 4) { /* Use user supplied string */
|
|
outstring = argv[3];
|
|
}
|
|
printf("Going to send a set of DTMF tones >%s<\n", outstring);
|
|
/* Flush any left remaining characs in the buffer and place the channel into on-hook transfer mode */
|
|
x = DAHDI_FLUSH_BOTH;
|
|
res = ioctl(fd, DAHDI_FLUSH, &x);
|
|
x = 500 + strlen(outstring) * 100;
|
|
ioctl(fd, DAHDI_ONHOOKTRANSFER, &x);
|
|
|
|
/* Play the DTMF tones at a 50 mS on and 50 mS off rate which is standard for DTMF CID spills */
|
|
for (x = 0; '\0' != outstring[x]; x++) {
|
|
|
|
dtmftone = digit_to_dtmfindex(outstring[x]);
|
|
if (0 > dtmftone) {
|
|
dtmftone = -1;
|
|
}
|
|
res = tone_zone_play_tone(fd, dtmftone);
|
|
if (res) {
|
|
fprintf(stderr, "Unable to play DTMF tone %d (0x%x)\n", dtmftone, dtmftone);
|
|
}
|
|
usleep(50000);
|
|
tone_zone_play_tone(fd, -1);
|
|
usleep(50000);
|
|
}
|
|
/* Wait for 150 mS from end of last tone to initiating the ring */
|
|
usleep(100000);
|
|
dahdi_ring_phone(fd);
|
|
sleep(10);
|
|
printf("Ringing Done\n");
|
|
} else
|
|
fprintf(stderr, "Invalid command\n");
|
|
close(fd);
|
|
return 0;
|
|
}
|