[Freeswitch-svn] [commit] r8086 - in freeswitch/trunk/scripts/socket: . FreeSWITCH

[Freeswitch SVN]

Author: mikej
Date: Thu Apr 10 16:42:15 2008
New Revision: 8086

Modified:
   freeswitch/trunk/scripts/socket/FreeSWITCH/Client.pm
   freeswitch/trunk/scripts/socket/sock.pl

Log:
revert unintentional commit

Modified: freeswitch/trunk/scripts/socket/FreeSWITCH/Client.pm
==============================================================================
--- freeswitch/trunk/scripts/socket/FreeSWITCH/Client.pm	(original)
+++ freeswitch/trunk/scripts/socket/FreeSWITCH/Client.pm	Thu Apr 10 16:42:15 2008
@@ -10,7 +10,6 @@
   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 @@
 
   $self->{events} = [];
   my $me = bless $self,$class;
-
-
-
   if (!$self->{_password}) {
     return $me;
   }
   if ($me->connect()) {
-  print Dumper $me;
     return $me;
   } else {
     return undef;

Modified: freeswitch/trunk/scripts/socket/sock.pl
==============================================================================
--- freeswitch/trunk/scripts/socket/sock.pl	(original)
+++ freeswitch/trunk/scripts/socket/sock.pl	Thu Apr 10 16:42:15 2008
@@ -36,15 +36,6 @@
   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");