kenmirrors/freeswitch
1
0
Fork 0
mirror of https://github.com/signalwire/freeswitch.git synced 2025-04-13 15:50:59 +00:00
Code Issues Projects Releases Wiki Activity

revert unintentional commit

Browse Source 
git-svn-id: http://svn.freeswitch.org/svn/freeswitch/trunk@8086 d0543943-73ff-0310-b7d9-9358b9ac24b2
This commit is contained in:
Michael Jerris 2008-04-10 20:42:15 +00:00
parent 4465b252e1
commit 93771dc79f
2 changed files with 0 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
scripts/socket/FreeSWITCH/Client.pm
View File

@ -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;

9
scripts/socket/sock.pl
View File

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