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

add ESL::IVR::setVar from intralanman 

git-svn-id: http://svn.freeswitch.org/svn/freeswitch/trunk@12917 d0543943-73ff-0310-b7d9-9358b9ac24b2
This commit is contained in:
Michael Jerris 2009-04-06 17:39:07 +00:00
parent c6382ace70
commit 806983240a
1 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -55,6 +55,24 @@ sub getVar($;) {
}
sub setVar($;) {
my $self = shift;
my ($var, $val) = @_;
my $e = $self->api("uuid_setvar", "$self->{_uuid} $var $val");
my $input;
if ($e) {
$input = $e->getBody() . "\n";
if ($input eq "_undef_") {
$input = undef;
}
}
chomp $input;
return $input;
}
sub playAndGetDigits($;) {
my $self = shift;
my ($min, $max, $tries, $to, $term, $file, $invalid_file, $var) = @_;