revert unintentional commit

git-svn-id: http://svn.freeswitch.org/svn/freeswitch/trunk@8086 d0543943-73ff-0310-b7d9-9358b9ac24b2

diff --git a/scripts/socket/FreeSWITCH/Client.pm b/scripts/socket/FreeSWITCH/Client.pm
index e92660304cc98beb20a0d25f6b04cd2f2aea664c..1b7b9221cfc2d2491e997421c6249c0039690e5f 100644 (file)
--- 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 a85eba4a38f6b44fae3e442df6ac7532a67fcee6..4c3fe9d19ace62bdcafd9416f32590d93b602562 100755 (executable)
--- 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");