#!/usr/bin/perl

use strict;
use warnings;
our $session;


if($session->ready()){

	my $current_uuid = $session->getVariable("uuid");

	my $api = new freeswitch::API;

	my $bleg_uuid = $session->getVariable('b_leg');

        my $current_exists = $api->execute( "uuid_exists ", $current_uuid );
        my $bleg_exists = $api->execute( "uuid_exists ", $bleg_uuid );
        if ( defined $bleg_exists and defined $current_exists and
              $bleg_exists eq "true" and $current_exists eq "true" ) {

			$api->executeString("uuid_bridge $current_uuid $bleg_uuid");

	}
	

}



1;