demo.pl

来自「VoiFax is a program that manage voice/da」· PL 代码 · 共 25 行

#!/usr/bin/perl -w
use Modem::Vgetty;
$Modem::Vgetty::testing=1;
my $voicemaster = 'root@localhost';
my $tmout = 30;
my $finish = 0;
my $v = new Modem::Vgetty;
$v->add_handler('BUSY_TONE', 'finish',
		sub { $v->stop; $finish=1; });
$v->add_handler('SILENCE_DETECTED', 'finish',
		sub { $v->stop; $finish=1; });
local $SIG{ALRM} = sub { $v->stop; };
$v->enable_events;
$v->play_and_wait('welcome.rmd');
$v->beep(100,10);
$v->waitfor('READY');
if ($finish == 0) {
	my $num = 0;
	$num++ while(-r "$num.rmd");
	$v->record("$num.rmd");
	alarm $tmout;
	$v->waitfor('READY');
}