Author: mikej Date: Mon Apr 6 12:39:07 2009 New Revision: 12917 Log: add ESL::IVR::setVar from intralanman Modified: freeswitch/trunk/libs/esl/perl/ESL/IVR.pm Modified: freeswitch/trunk/libs/esl/perl/ESL/IVR.pm ============================================================================== --- freeswitch/trunk/libs/esl/perl/ESL/IVR.pm (original) +++ freeswitch/trunk/libs/esl/perl/ESL/IVR.pm Mon Apr 6 12:39:07 2009 @@ -55,6 +55,24 @@ } +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) = @_;