FreeSWITCH Pastebin

onanswer

From Anton, 7 Years ago, written in Plain Text.
- go back
URL https://pastebin.freeswitch.org/view/157d0af4
Embed
Viewing differences between and onanswer
  1. #!/usr/bin/perl
  2. #
  3.  
  4. use strict;
  5. use warnings;
  6. our $session;
  7.  
  8.  
  9.  
  10. if($session->ready()){
  11.  
  12.         my $current_uuid = $session->getVariable("uuid");
  13.  
  14.  
  15.         if ( not $session->bridged() ) {
  16.                 my $bleg_uuid = $session->getVariable('b_leg');
  17.                 if ( defined $bleg_uuid and $bleg_uuid ne "" ) {
  18.                         $session->execute("intercept", $bleg_uuid);
  19.                 }
  20.  
  21.         }
  22.  
  23.  
  24. }
  25.  
  26.  
  27. 1;
  28.  

Reply to "onanswer"