56 lines
1.1 KiB
Perl
56 lines
1.1 KiB
Perl
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 = "FS>";
|
|
my $OUT = $term->OUT .. \*STDOUT;
|
|
|
|
my $log = shift;
|
|
|
|
if ($log) {
|
|
$pid = fork;
|
|
if (!$pid) {
|
|
my $fs2 = init FreeSWITCH::Client {-password => $password} or die "Error $@";
|
|
$fs2->cmd("log $log");
|
|
while (1) {
|
|
my $reply = $fs2->readhash(undef);
|
|
|
|
if ($reply->{body}) {
|
|
print $reply->{body} . "\n";
|
|
} elsif ($reply->{'reply-text'}) {
|
|
print $reply->{'reply-text'} . "\n";
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
|
|
|
|
while ( defined ($_ = $term->readline($prompt)) ) {
|
|
my $reply;
|
|
|
|
if ($_) {
|
|
if ($_ =~ /^alog|^anolog/) {
|
|
$reply = $fs2->cmd($_);
|
|
} else {
|
|
$reply = $fs->cmd("api $_");
|
|
}
|
|
|
|
if ($reply->{body}) {
|
|
print $reply->{body};
|
|
} elsif ($reply->{'reply-text'}) {
|
|
print $reply->{'reply-text'};
|
|
}
|
|
print "\n";
|
|
if ($_ =~ /exit/) {
|
|
last;
|
|
}
|
|
}
|
|
$term->addhistory($_) if /\S/;
|
|
}
|
|
|