160 lines
3.4 KiB
Perl
160 lines
3.4 KiB
Perl
#!/usr/bin/perl
|
|
#
|
|
# agi-dtmf.agi - script for playing DTMF tones or signals received as the callerid field or in the command CLI
|
|
#
|
|
# DTMF sound files must be in /var/lib/asterisk/sounds for this to work
|
|
#
|
|
# Accepted values are: 1 2 3 4 5 6 7 8 9 0 # * ,
|
|
# comma means pause for 1 second (use 'S' for pause in CLI mode)
|
|
#
|
|
# exten => 8500998,1,Answer
|
|
# exten => 8500998,2,Playback(silence)
|
|
# exten => 8500998,3,AGI(agi-dtmf.agi)
|
|
#; exten => 8500998,3,AGI(agi-dtmf.agi,signalonly) ; optional signal only DTMF
|
|
# exten => 8500998,4,Hangup
|
|
#
|
|
# Can also be used in a Call Menu: agi-dtmf.agi,signalonly---12345 # optional signal only DTMF with CLI-defined DTMF values
|
|
#
|
|
# Copyright (C) 2014 Matt Florell <vicidial@gmail.com> LICENSE: AGPLv2
|
|
#
|
|
# CHANGES
|
|
# 90312-1534 - Added signalonly option
|
|
# 140611-1330 - Added CLI dtmf variable option
|
|
#
|
|
|
|
$signalonly=0;
|
|
$cli_vars_set=0;
|
|
### begin parsing run-time options ###
|
|
if (length($ARGV[0])>1)
|
|
{
|
|
$i=0;
|
|
while ($#ARGV >= $i)
|
|
{
|
|
$args = "$args $ARGV[$i]";
|
|
$i++;
|
|
}
|
|
### list of command-line array arguments:
|
|
@ARGV_vars = split(/---/, $ARGV[0]);
|
|
|
|
$signalonly = $ARGV_vars[0];
|
|
$cli_vars = $ARGV_vars[1];
|
|
}
|
|
if ($signalonly =~ /signalonly/)
|
|
{$signalonly=1;}
|
|
if (length($cli_vars) > 0)
|
|
{$cli_vars_set=1;}
|
|
|
|
|
|
$|=1;
|
|
while(<STDIN>)
|
|
{
|
|
chomp;
|
|
last unless length($_);
|
|
if (/^agi_(\w+)\:\s+(.*)$/)
|
|
{$AGI{$1} = $2;}
|
|
if (/^agi_callerid\:\s+(.*)$/) {$caller_id = $1;}
|
|
if (/^agi_calleridname\:\s+(.*)$/) {$caller_idname = $1;}
|
|
}
|
|
|
|
print STDERR "AGI Environment Dump:\n";
|
|
foreach $i (sort keys %AGI) {
|
|
print STDERR " -- $i = $AGI{$i}\n";
|
|
}
|
|
|
|
use Time::HiRes ('gettimeofday','usleep','sleep'); # necessary to have perl sleep command of less than one second
|
|
|
|
use Asterisk::AGI;
|
|
my $agi = new Asterisk::AGI;
|
|
|
|
my $clid = $agi->get_variable('CALLERID');
|
|
my $clidname = $agi->get_variable('CALLERIDNAME');
|
|
|
|
print STDERR "X. |$clid|$caller_id|$clidname| |$signalonly|$cli_vars_set|$cli_vars|\n";
|
|
|
|
|
|
### sleep for 5 tenths of a second
|
|
usleep(1*500*1000);
|
|
|
|
print "STREAM FILE silence \"\"\n";
|
|
|
|
$caller_id = "$caller_id$caller_idname";
|
|
|
|
if ($cli_vars_set > 0)
|
|
{$caller_id = $cli_vars;}
|
|
|
|
@CALLERID_DIGITS = split(//, $caller_id);
|
|
|
|
foreach (@CALLERID_DIGITS)
|
|
{
|
|
if ($CALLERID_DIGITS[$g] =~ /\d/)
|
|
{
|
|
if ($signalonly > 0)
|
|
{print "EXEC SendDTMF $CALLERID_DIGITS[$g] \"\"\n";}
|
|
else
|
|
{print "STREAM FILE $CALLERID_DIGITS[$g] \"\"\n";}
|
|
print STDERR "DIGIT: $CALLERID_DIGITS[$g]\n";
|
|
}
|
|
else
|
|
{
|
|
if ($CALLERID_DIGITS[$g] =~ /\#/)
|
|
{
|
|
if ($signalonly > 0)
|
|
{print "EXEC SendDTMF \# \"\"\n";}
|
|
else
|
|
{print "STREAM FILE hash \"\"\n";}
|
|
}
|
|
if ($CALLERID_DIGITS[$g] =~ /\*/)
|
|
{
|
|
if ($signalonly > 0)
|
|
{print "EXEC SendDTMF \* \"\"\n";}
|
|
else
|
|
{print "STREAM FILE star \"\"\n";}
|
|
}
|
|
if ($CALLERID_DIGITS[$g] =~ /\,|S/)
|
|
{sleep(1);}
|
|
print STDERR "NON-DIGIT: $CALLERID_DIGITS[$g]\n";
|
|
}
|
|
$g++;
|
|
|
|
### sleep for 20 hundredths of a second
|
|
usleep(1*150*1000);
|
|
|
|
print "STREAM FILE silence \"\"\n";
|
|
|
|
### sleep for 10 hundredths of a second
|
|
usleep(1*100*1000);
|
|
}
|
|
|
|
print "STREAM FILE silence \"\"\n";
|
|
$result = <STDIN>;
|
|
checkresult($result);
|
|
|
|
exit;
|
|
|
|
sub checkresult
|
|
{
|
|
my ($res) = @_;
|
|
my $retval;
|
|
$tests++;
|
|
chomp $res;
|
|
if ($res =~ /^200/)
|
|
{
|
|
$res =~ /result=(-?\d+)/;
|
|
if (!length($1))
|
|
{
|
|
print STDERR "FAIL ($res)\n";
|
|
$fail++;
|
|
}
|
|
else
|
|
{
|
|
print STDERR "PASS ($1)\n";
|
|
$pass++;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
print STDERR "FAIL (unexpected result '$res')\n";
|
|
$fail++;
|
|
}
|
|
}
|