match ESL to last commit and check in ESL::IVR perl mod

git-svn-id: http://svn.freeswitch.org/svn/freeswitch/trunk@12760 d0543943-73ff-0310-b7d9-9358b9ac24b2

libs/esl/perl/ESL/IVR.pm

@@ -0,0 +1,88 @@
+package ESL::IVR;
+use ESL;
+use Data::Dumper;
+
+sub new($$) {
+  my $proto = shift;
+  my $class = ref($proto) || $proto;
+  my $self = {};
+  
+  $self->{_esl} = new ESL::ESLconnection(fileno(STDIN));
+  $self->{_info} = $self->{_esl}->getInfo();
+  $self->{_uuid} = $self->{_info}->getHeader("unique-id");
+
+  return bless($self, $class);
+
+}
+
+sub getHeader($;) {
+  my $self = shift;
+
+  return $self->{_info} ? $self->{_info}->getHeader(shift) : undef;
+}
+
+sub execute($;) {
+  my $self = shift;
+  return $self->{_esl}->execute(@_);
+}
+
+sub api($;) {
+  my $self = shift;
+  return $self->{_esl}->api(@_);
+}
+
+sub disconnect($;) {
+  my $self = shift;
+  return $self->{_esl}->disconnect(@_);
+}
+
+sub getVar($;) {
+  my $self = shift;
+  my ($var) = @_;
+  my $e = $self->api("uuid_getvar", "$self->{_uuid} $var");
+  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) = @_;
+  
+  $self->execute("play_and_get_digits", "$min $max $tries $to $term $file $invalid_file $var");
+
+  return $self->getVar($var);
+
+}
+
+sub read($;) {
+  my $self = shift;
+  my ($min, $max, $file, $var, $to, $term) = @_;
+  
+  $self->execute("read", "$min $max $file $var $to $term");
+
+  return $self->getVar($var);
+
+}
+
+sub playback($;) {
+  my $self = shift;
+  my ($file) = @_;
+
+  $self->execute("playback", $file);
+  return $self->getVar("playback_terminators_used");
+  
+}
+
+
+1;