Preston_PLB/freeswitch
1
0
Fork 0
forked from Mirrors/freeswitch
Code Pull Requests Activity

fix bug in FS Client.pm

Browse Source 
git-svn-id: http://svn.freeswitch.org/svn/freeswitch/trunk@10884 d0543943-73ff-0310-b7d9-9358b9ac24b2
This commit is contained in:
Anthony Minessale 2008-12-19 17:25:52 +00:00
parent 57950f2927
commit 86567838c6
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -73,7 +73,7 @@ sub readhash($;$) {
while(length($h->{body}) < $h->{'content-length'}) { while(length($h->{body}) < $h->{'content-length'}) {
my $buf; my $buf;
recv $s, $buf, $h->{'content-length'} - length($h->{body}), 0; recv $s, $buf, $h->{'content-length'} - length($h->{body}), 0;
if (!$buf) { if ($buf eq '') {
$h->{socketerror} = "yes"; $h->{socketerror} = "yes";
return $h; return $h;
} }
@ -152,9 +152,9 @@ sub command($$) {
my $r = $self->sendmsg({ 'command' => "api " . shift }); my $r = $self->sendmsg({ 'command' => "api " . shift });
if ($r->{body}) { if ($r->{body} ne '') {
$reply = $r->{body}; $reply = $r->{body};
} elsif ($r->{'reply-text'}) { } elsif ($r->{'reply-text'} ne '') {
$reply = $r->{'reply-text'}; $reply = $r->{'reply-text'};
} else { } else {
$reply = "socketerror"; $reply = "socketerror";