我被要求开发一个脚本,可以通过H.323拨打需要更好监控的语音邮件系统。 (该设备以神秘的方式死亡,并提供非常少的snmp)。这个想法是拨打一个号码,看看该线路是否得到了解答。如果出现问题,语音邮件系统将响铃或无法应答。
我的问题在于我对H.323或可用库一无所知。 (Perl是我公司的首选语言,但对于这个特定的东西,我可能会使用python或使用一些二进制程序。)
在寻找H.323时,我发现了一个黑暗的兔子洞。我不知道C或想要作为客户端运行pbx,我找到了开源库,但没有“call()”函数这样的东西。我没有循环来学习每一个进出。
(如果这不是为了工作,我会连接几行python并使用Twilio完成所有繁重的工作。)
我想我需要一些如何解决问题的指导。
由于
答案 0 :(得分:3)
要进行测试H.323通话,你无法击败哦:
(sleep 30; echo q) | ohphone -s Default -n -u from_user to_user@gateway > /tmp/output.$$
你通常可以在linux发行版中找到ohphone作为一个包:
apt-get install ohphone
可在voxgratia找到来源 虽然年龄较大,但它仍然可以很好地运作。
使用ohphone处理输出有点棘手,但你可以使用perl脚本之类的东西将它处理成errno值。
这是一个快速而肮脏的例子:
#!/usr/bin/env perl
$delay=$ARGV[0];
if(! $delay) { $delay = 10; }
$from=$ARGV[1];
if(! $from) { $from = "default_from_user"; }
$to=$ARGV[2];
if(! $to) { $to = "default_to_user"; }
$gateway=$ARGV[3];
if(! $gateway) { $gateway = "127.0.0.1"; }
print "Running: (sleep $delay; echo q ) | (ohphone -s Default -n -u $from $to\@$gateway)|\n";
open(IN,"(sleep $delay; echo q ) | (ohphone -s Default -n -u $from $to\@$gateway)|");
my $call_started=false;
my $call_completed=false;
my @results;
my $skip=1;
while($line=<IN>) {
if($line=~/Listening interfaces/) {
$skip=0;
next;
}
if($skip) {
next;
}
if($line=~/^Could not open sound device/) {
next;
}
chomp($line);
push(@results,$line);
if($line=~/was busy$/) {
print "$to: Called party busy\n";
exit 1;
}
if($line=~/^Call with .* completed, duration (.*)$/) {
print "$to: Completed duration $1 call.\n";
exit 0;
}
if($line=~/has cleared the call, duration (.*)$/) {
print "$to: Completed duration $1 call.\n";
exit 0;
}
if($line=~/^Call with .* completed$/) {
print "$to: No call duration.\n";
exit 2;
}
}
close(IN);
$result=join("\n",@results);
print "$ARGV[0]: Unknown results:\n$result\n";
exit 255;
这个剧本已有几年历史了,但在此期间它对我们来说效果很好。
答案 1 :(得分:1)