retronetworking
/
freeswitch
13
0
Fork 0
Code Pull Requests Releases Activity

simple address book dialer for use with Mac OS X Address Book using xml_rpc to issue the request to your web server... the rest is up to you 

git-svn-id: http://svn.freeswitch.org/svn/freeswitch/trunk@17063 d0543943-73ff-0310-b7d9-9358b9ac24b2
This commit is contained in:
Brian West 2010-03-22 01:16:35 +00:00
parent 7c4f013f48
commit 0aeb564dd4
2 changed files with 28 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
scripts/applescript/FreeSWITCH Dialer.scpt Normal file
View File

Binary file not shown.

28
scripts/perl/rpc.cgi Executable file
View File

@ -0,0 +1,28 @@
#!/usr/bin/perl
use Frontier::Responder;
use Data::Dumper;
require ESL;
#For use with FreeSWITCH Dialer.scpt in applescripts
#
# Install FreeSWITCH Dialer.scpt into ~/Library/Address Book Plug-Ins/
#
sub MakeCall {
my $hash = shift;
my $c = new ESL::ESLconnection("localhost", "8021", "ClueCon");
my $number = $hash->{phoneNumber};
my $user = $hash->{userExtension};
my $gateway = $hash->{useGateway};
$number =~ s/\D//g; # Remove nasties.
my $e = $c->sendRecv("bgapi originate {ignore_early_media=true,origination_caller_id_number=$number,effective_caller_id_number=19183029101}$user &bridge({ignore_early_media=false,sip_authorized=true}$gateway/$number)");
$e->getBody();
}
my $res = Frontier::Responder->new(
methods => {
MakeCall => \&MakeCall,
},
);
print $res->answer;