kenmirrors/freeswitch
1
0
Fork 0
mirror of https://github.com/signalwire/freeswitch.git synced 2025-08-13 01:26:58 +00:00
Code Issues Projects Releases Wiki Activity

fix MODAPP-85

Browse Source 
git-svn-id: http://svn.freeswitch.org/svn/freeswitch/trunk@8084 d0543943-73ff-0310-b7d9-9358b9ac24b2
This commit is contained in:
Anthony Minessale
2008-04-10 20:26:15 +00:00
parent f758a24f2e
commit 6a56113a93
3 changed files with 133 additions and 70 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
scripts/socket/FreeSWITCH/Client.pm
View File

@@ -10,6 +10,7 @@ sub init($;$) {
my $proto = shift;
my $args = shift;
my $class = ref($proto) || $proto;
$self->{_host} = $args->{-host} || "localhost";
$self->{_port} = $args->{-port} || 8021;
$self->{_password} = $args->{-password} || undef;
@@ -17,10 +18,14 @@ sub init($;$) {
$self->{events} = [];
my $me = bless $self,$class;
if (!$self->{_password}) {
return $me;
}
if ($me->connect()) {
print Dumper $me;
return $me;
} else {
return undef;

9
scripts/socket/sock.pl
View File

@@ -36,6 +36,15 @@ while(my $r = $fs->readhash(undef)) {
if ($r->{has_event}) {
print Dumper $r->{event};
}
if ($r->{event}->{'event-name'} !~ /dtmf/i) {
$o = $fs->call_command("park");
print "Got DTMF $r->{event}->{'dtmf-digit'}\n";
push @digits, $r->{event}->{'dtmf-digit'};
print "Dialed: " . join("", @digits) . "\n";
next;
}
if ($r->{event}->{'event-name'} !~ /execute/i) {
printf "uuid: $data->{'unique-id'}\n";
$o = $fs->call_command("break");