#!/usr/bin/perl
#

use strict;
use warnings;
our $session;



if($session->ready()){

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


        if ( not $session->bridged() ) {
                my $bleg_uuid = $session->getVariable('b_leg');
                if ( defined $bleg_uuid and $bleg_uuid ne "" ) {
                        $session->execute("intercept", $bleg_uuid);
                }

        }


}


1;