kenmirrors
/
freeswitch
mirror of https://github.com/signalwire/freeswitch.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

update 

git-svn-id: http://svn.freeswitch.org/svn/freeswitch/trunk@12761 d0543943-73ff-0310-b7d9-9358b9ac24b2
This commit is contained in:
Anthony Minessale 2009-03-24 18:06:25 +00:00
parent ebc4acf666
commit c0a00c2f76
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
libs/esl/perl/ESL/IVR.pm
View File

@ -59,6 +59,10 @@ sub playAndGetDigits($;) {
my $self = shift;
my ($min, $max, $tries, $to, $term, $file, $invalid_file, $var) = @_;
if (!$self->{_esl}->connected()) {
return undef;
}
$self->execute("play_and_get_digits", "$min $max $tries $to $term $file $invalid_file $var");
return $self->getVar($var);
@ -69,6 +73,10 @@ sub read($;) {
my $self = shift;
my ($min, $max, $file, $var, $to, $term) = @_;
if (!$self->{_esl}->connected()) {
return undef;
}
$self->execute("read", "$min $max $file $var $to $term");
return $self->getVar($var);
@ -79,6 +87,10 @@ sub playback($;) {
my $self = shift;
my ($file) = @_;
if (!$self->{_esl}->connected()) {
return undef;
}
$self->execute("playback", $file);
return $self->getVar("playback_terminators_used");