freeswitch/scripts/socket/fs.pl

58 lines
1.1 KiB
Perl
Raw Normal View History

use FreeSWITCH::Client;
use Data::Dumper;
use Term::ReadLine;
my $password = "ClueCon";
my $fs = init FreeSWITCH::Client {-password => $password} or die "Error $@";
my $term = new Term::ReadLine "FreeSWITCH CLI";
my $prompt = "FreeSWITCH>";
my $OUT = $term->OUT .. \*STDOUT;
my $pid;
my $log = shift;
$SIG{CHLD} = sub {$fs->disconnect(); die "done"};
if ($log) {
$pid = fork;
if (!$pid) {
my $fs2 = init FreeSWITCH::Client {-password => $password} or die "Error $@";
$fs2->sendmsg({ 'command' => "log $log" });
while (1) {
my $reply = $fs2->readhash(undef);
if ($reply->{socketerror}) {
die "socket error";
}
if ($reply->{body}) {
print $reply->{body};
}
}
exit;
}
}
while ( defined ($_ = $term->readline($prompt)) ) {
if ($_) {
if ($_ =~ /exit/) {
last;
}
my $reply = $fs->command($_);
if ($reply->{socketerror}) {
$fs2->disconnect();
die "socket error";
}
print "$reply\n";
}
$term->addhistory($_) if /\S/;
}
if ($pid) {
kill 9 => $pid;
}