From: Michael S Collins <msc@freeswitch.org>
Date: Fri, 8 Apr 2011 23:33:17 +0000 (-0700)
Subject: Add digit_timeout to ESL::IVR's playAndGetDigits method
X-Git-Tag: v1.2-rc1~118^2~143
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=f564d3838596a0541719282e42ad0194693797e9;p=thirdparty%2Ffreeswitch.git

Add digit_timeout to ESL::IVR's playAndGetDigits method
---

diff --git a/libs/esl/perl/ESL/IVR.pm b/libs/esl/perl/ESL/IVR.pm
index f7919c1b94..5dc6088236 100644
--- a/libs/esl/perl/ESL/IVR.pm
+++ b/libs/esl/perl/ESL/IVR.pm
@@ -73,13 +73,13 @@ sub setVar($;) {
 
 sub playAndGetDigits($;) {
   my $self = shift;
-  my ($min, $max, $tries, $to, $term, $file, $invalid_file, $var, $regex) = @_;
+  my ($min, $max, $tries, $to, $term, $file, $invalid_file, $var, $regex, $digit_timeout) = @_;
 
   if (!$self->{_esl}->connected()) {
     return undef;
   }
   
-  $self->execute("play_and_get_digits", "$min $max $tries $to $term $file $invalid_file $var $regex");
+  $self->execute("play_and_get_digits", "$min $max $tries $to $term $file $invalid_file $var $regex $digit_timeout");
 
   return $self->getVar($var);