XIMSS Call Bridging part 2, a Perl script example

I previously wrote about how one can create a click to call application with the CommuniGate Pro XIMSS protocol. I have heard of several solution examples people created from that posting that range from customer service applications to simple "call us now" buttons on hosted web pages. Some have asked for more source examples of how to create an application that performs the actions described in the previous post. I have received an example script that I have tested and this script works for me.

Use this script at your own risk and only in a test environment. The author of this post and the the host of this blog accept no responsibility for any problems caused by these downloads or their contents.


lcamel
I saved the source linked below as a Perl script called XIMSS_call.pl After defining the values in the first section I run the script with the command:
$ perl XIMSS_call.pl

I tested this script by arranging a SIP call to my work phone account from my free TalktoIP account. Therefore I defined the login and pass for ab@talktoip.com and the destination URI as my work phone account which is the title of this blog. I registered a software phone to the TalktoIP account in order to accept the first leg of the call. You can review the script with syntax highlighting here:

XIMSS Call Bridge Script source view

You can download the script here:

XIMSS_Call.pl