diff --git a/scripts/socket/FreeSWITCH/Client.pm b/scripts/socket/FreeSWITCH/Client.pm index e92660304c..1b7b9221cf 100644 --- a/scripts/socket/FreeSWITCH/Client.pm +++ b/scripts/socket/FreeSWITCH/Client.pm @@ -10,7 +10,6 @@ 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; @@ -18,14 +17,10 @@ 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; diff --git a/scripts/socket/sock.pl b/scripts/socket/sock.pl index a85eba4a38..4c3fe9d19a 100755 --- a/scripts/socket/sock.pl +++ b/scripts/socket/sock.pl @@ -36,15 +36,6 @@ 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");