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