<html dir="ltr">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style id="owaParaStyle">P {
MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px
}
</style>
</head>
<body fPStyle="1" ocsi="0">
<div style="direction: ltr;font-family: Tahoma;color: #000000;font-size: 10pt;">
<p>Over the last 6 months, I have received all kinds of support and help from the freeswitch community (both IRC and this list) in learning to control this incredible piece of software. Im truly grateful, thanks everyone.</p>
<p> </p>
<p>I run freeswitch at my car dealership. We have approximately 40 sip extensions, an ATT voip connection, and 6 analog outbound fax lines provided by freetdm. Prior to freeswitch, I was running an old Lucent/Avaya Merlin "key" system. One of the features
of the Merlin was that it was pretty easy to do "directed callpick". In essence, you would dial *7 + extension you wanted to pickup. Provided the call was either on hold or ringing at that extension, you would pick it up. When I first started using Freeswitch,
I was very disappointed in the directed callpick. Before I realized that the call pickup that was built into the sample dialplan was really just an example to show a simple possibility for using intercept. I was convinced that it was a totally useful feature.
I couldn't believe that was as good as it got... My problem with the directed pickup that is in the sample dialplan is that it can steal a live call right from another extension, as well as it really only works with the most recent call on that extension.</p>
<p> </p>
<p>Then I woke up, and rolled my own 8-) . In an effort to provide just another example, I wanted to share the piece of code I've developed. I will warn that this was the first perl script I have ever written, and probably is pretty ugly, but it seems to
work perfectly in our environment. Bottom line, do what you want with it...I'm just trying to help other beginner's like myself:</p>
<p> </p>
<p>To all beginners: You will need to build and enable mod_perl for this to work...</p>
<p> </p>
<p>First, we need an entry in your XML dialplan to see the user's request to interecept a "held" or "ringing" extension. The only 4 digit extensions at my company are internal ones so I match on ** + 4-digit-extension.</p>
<p> </p>
<p>In the xML dialplan:</p>
<p> </p>
<p> <extension name="intercept-ext"><br>
<condition field="destination_number" expression="^\*\*(\d{4})$"><br>
<action application="answer"/><br>
<action application="perl" data="/usr/local/freeswitch/scripts/myintercept.pl $1"/><br>
<action application="sleep" data="2000"/><br>
</condition><br>
</extension><br>
</p>
<p>Then, we need the actual perl script:</p>
<p>/usr/local/freeswitch/scripts/myintercept.pl:</p>
<p><br>
# This is code to allow us to use intercept to grab only calls that are on hold or ringing.<br>
#<br>
# by Frank Busalacchi 2012-06-13</p>
<p>use strict;<br>
use Switch;<br>
use Data::Dumper;<br>
use XML::Simple;<br>
use POSIX qw(strftime);<br>
our $session;</p>
<p>{<br>
my $dest_target = $ARGV[0];</p>
<p> my $api = new freeswitch::API();<br>
my $xml = new XML::Simple;<br>
my $chan_xml = $xml->XMLin($api->executeString("show detailed_calls as xml"),KeyAttr => 'row', ForceArray => ['row']);</p>
<p> my %candidates;<br>
my $result;</p>
<p> foreach my $row (@{$chan_xml->{row}}) {<br>
if ($row->{callstate} eq "RINGING" && $row->{dest} eq $dest_target) {<br>
$candidates{ $row->{created_epoch} - 1000 } = $row->{call_uuid}; #In the case of a tie, we want to pickup ringing calls before held calls...<br>
next;<br>
}</p>
<p> elsif ($row->{callstate} eq "HELD" && $row->{b_sent_callee_num} eq $dest_target ) {<br>
$candidates{ $row->{created_epoch} } = $row->{b_uuid};<br>
next;<br>
}</p>
<p> elsif ($row->{b_callstate} eq "HELD" && $row->{b_callee_num} eq $dest_target ) {<br>
$candidates{ $row->{b_created_epoch} } = $row->{uuid};<br>
next;<br>
}<br>
}</p>
<p> if( keys( %candidates ) == 0) {<br>
$result = "[Intercept] No suitable channel to intercept on extension $dest_target.";<br>
freeswitch::consoleLog("INFO","$result\n");<br>
}</p>
<p> else {<br>
my $user = $session->getVariable('caller_id_name');<br>
my $cid_num = $session->getVariable('caller_id_number');</p>
<p> for my $winner ( sort keys %candidates ) {</p>
<p> my $uuid= $candidates{$winner};</p>
<p> $result = "[Intercept]User:$user" . "[" . "$cid_num" . "] intercepting Extension:$dest_target" . ". UUID:" . "$uuid" . "\n";<br>
freeswitch::consoleLog("INFO","$result\n");<br>
$session->execute("intercept",$uuid);<br>
last;<br>
}<br>
}<br>
1;<br>
}</p>
<p> </p>
<p>Enjoy!</p>
<p> </p>
<p>-Frank</p>
<p> </p>
<p> </p>
</div>
</body>
</html>