From 93771dc79fa1c7ac97852c6b615c696aaaaff6b8 Mon Sep 17 00:00:00 2001
From: Michael Jerris <mike@jerris.com>
Date: Thu, 10 Apr 2008 20:42:15 +0000
Subject: [PATCH] revert unintentional commit

git-svn-id: http://svn.freeswitch.org/svn/freeswitch/trunk@8086 d0543943-73ff-0310-b7d9-9358b9ac24b2
---
 scripts/socket/FreeSWITCH/Client.pm | 5 -----
 scripts/socket/sock.pl              | 9 ---------
 2 files changed, 14 deletions(-)

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");