Voxilla VoIP Forum

jsree · #1 (**permalink**) November 29th, 2007, 09:03 PM

Hi

Asterisk 1.4.13 works with GoogleTalk.
JABBER: gtalk_account INCOMING: <message to="buddy@gmail.com" type="chat" id="92" from="buddy2<A href="mailto:buddy2@gmail.com/Talk.v1049A93112B"><body>CALL ME</body><active">@gmail.com/Talk.v1049A93112B"><body>CALL ME</body><active xmlns="<A href="http://jabber.org/protocol/chatstates"/><nos:x">http://jabber.org/protocol/chatstates"/><nos:x value="disabled" xmlns:nos="google:nosave"/><arc:record otr="false" xmlns:arc="<A href="http://jabber.org/protocol/archive"/></message">http://jabber.org/protocol/archive"/></message>

if I get CALL ME command I like to call my cell phone and get connection to buddy@gmail.com

Please let me know how to run agi script on gtalk incomming message

thanks in Advance

Jay

jsree · #2 (**permalink**) December 16th, 2007, 12:23 AM

Hi

finally using perl/manager interface my asterisk server start chatting with gtalk client.

Created two accounts in Manger.conf for chatter, gchat

save the following lines as gtalk.pl (run the code as ./gtalk.pl yourname buddyname)
#!/usr/bin/perl -w
#file name: gtalk.pl
#usage ./gtalk.pl urname buddy
#urname, buddy are valid gmail user and both user added them in gtalk buddy list
use POE::Session;
use XML::Simple;
use Digest::MD5 qw(md5_hex);
use Asterisk::Manager;
my ($myname, $buddy) = @ARGV;
my $gusers = {
$buddy.'@gmail.com'

[top]> 1,
};
use POE::Component::Client::Asterisk::Manager;
my $xml

new XML::Simple;
POE::Component::Client::Asterisk::Manager->new(
Alias => 'monitor',
RemoteHost => 'localhost',
RemotePort => 5038, # default port
Password => 'xyzXYZ',
Username => 'gchat',
CallBacks => {
ring => {
'Event' => 'JabberEvent',
'Account' => 'gtalk_account',
},
},
inline_states => {
ring => sub {
my $input = $_[ARG0];
my $packet = $input->{Packet};
if ($packet ne '') {
my $data = $xml->XMLin($packet);
print $data->{from}."\n";
my $username = "";
if ($data->{from} =~ m{(.*?)/}) {
$username = $1;
}
if ((exists $gusers->{$username}) and ($data->{type} =~ /chat/)) {
&processCall($data);
}elsif ($data->{from} =~ /$myname/) {
}elsif ($data->{type} =~/chat/) {
&sendJabberMsg($username,"Only Voice Chat Please");
&sendJabberMsg($username,"$username Have a Nice Day");
}
}
},
},
);

POE::Kernel->run();
die;
sub processCall {

my ($data) = @_;
my $username = "";
if ($data->{from} =~ m{(.*?)/}) {
$username = $1;
}
if ($data->{body} =~ /Help\s*$/) {
&sendJabberMsg($username,"Help -- for Help");
&sendJabberMsg($username,"Connect nnnn - connect Gtalk to extenison nnnn");
}elsif($data->{body} =~ /Connect\s+(\d\d\d\d)/) {
&sendJabberMsg($username,"Please Accept $1 connection", $1) ;
}else {
&sendJabberMsg($username,"Invalid CMD $data->{body}") ;
}
}

sub sendJabberMsg {
my ($username, $msg, $exten) = @_;
my $astman = new Asterisk::Manager;
$astman->user('chatter');
$astman->secret('aaachat');
$astman->host('localhost');
$astman->connect||die "Count not connect to" .$astman->host."\n";
my %resp = $astman->sendcommand( Action => 'JabberSend',
Jabber => 'gtalk_account',
ScreenName => $username,
Message => $msg
);
if (defined $exten) {
%resp = $astman->sendcommand(
Action =>"Originate",
Channel => "Gtalk/gtalk_account/$username",
Context => "from-internal",
CallerId => $username,
Exten => $exten,
Timeout =>30000,
Priority => 1

);
foreach $key (keys %resp) {
print "$key %resp{$key)\n";
}
}
$astman->disconnect;

}

User Name		Remember Me?
Password
No account yet? Create one
Forgot your Username or Password?

Thread Tools
Show Printable Version Email this Page
Display Modes	Rate This Thread
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode	Rate This Thread:

Similar Threads for: Asterisk 1.4.13:Howto run AGI on gtalk incoming msg
Thread	Thread Starter	Forum	Replies	Last Post
Howto Configure Efonia with Asterisk	jsree	Asterisk Support Forum	1	December 5th, 2006 02:50 AM
ENUM Howto for Asterisk at Home	kevank	Asterisk Support Forum	0	April 26th, 2006 07:35 AM
Run Asterisk@Home 2.5 on a Windows PC ... Honest!	AlexanderBell	Asterisk Support Forum	2	February 9th, 2006 02:06 PM
MSG Waiting Off	syscon	Linksys (Sipura) VoIP Support Forum	3	August 30th, 2005 01:26 AM
Run platform in asterix from remote server?	paranhos	Asterisk Support Forum	3	June 16th, 2005 07:33 PM

Voxilla VoIP Forum

Asterisk 1.4.13:Howto run AGI on gtalk incoming msg

[top]> 1, }; use POE::Component::Client::Asterisk::Manager; my $xml

[top]> 1,
};
use POE::Component::Client::Asterisk::Manager;
my $xml