mithraen-agi-0.0.3/000075500000000000000000000000001136245234200140575ustar00rootroot00000000000000mithraen-agi-0.0.3/Makefile000064400000000000000000000002521136245234200155160ustar00rootroot00000000000000all: install: install -m 755 -D callback.pl ${DESTDIR}/usr/lib/asterisk/agi-bin/callback install -m 755 -D callback2.pl ${DESTDIR}/usr/lib/asterisk/agi-bin/callback2 mithraen-agi-0.0.3/callback.pl000075500000000000000000000014341136245234200161550ustar00rootroot00000000000000#!/usr/bin/perl -w use strict; use Asterisk::AGI; use Asterisk::Outgoing; $SIG{HUP} = "IGNORE"; #sub verbose($$) { # my $agi = shift; # my $str = shift; # $agi->exec( 'Verbose', $str ); #} my $agi = new Asterisk::AGI; my %input = $agi->ReadParse(); my $from = $input{arg_1}; my $to_context = $input{arg_2}; my $callerid = $input{callerid}; my $out = new Asterisk::Outgoing(); $out->setvariable( 'Channel', $from ); $out->setvariable( 'Context', $to_context ); $out->setvariable( 'Extension', $callerid ); $out->setvariable( 'Priority', '1' ); $out->setvariable( 'Archive', 'yes' ); $out->create_outgoing(); #foreach my $k ( sort keys %input ) { # $agi->exec( 'Verbose', "$k=" . $input{$k} ); #} #verbose( $agi, "Callerid: '$callerid'" ); $agi->exec("Hangup"); mithraen-agi-0.0.3/callback2.pl000075500000000000000000000017521136245234200162420ustar00rootroot00000000000000#!/usr/bin/perl -w use strict; use Asterisk::AGI; use Asterisk::Outgoing; $SIG{HUP} = "IGNORE"; #sub verbose($$) { # my $agi = shift; # my $str = shift; # $agi->exec( 'Verbose', $str ); #} my $agi = new Asterisk::AGI; my %input = $agi->ReadParse(); my $from = $input{arg_1}; my $from_context = $input{arg_2}; my $to_context = $input{arg_3}; my $callerid = $input{callerid}; #$callerid =~ s/[^\d]//g; #verbose($agi, "1"); my $out = new Asterisk::Outgoing(); #verbose($agi, "2"); $out->setvariable( 'Channel', "Local/" . $callerid . "@" . $to_context ); $out->setvariable( 'Context', $from_context ); $out->setvariable( 'Extension', $from ); $out->setvariable( 'Priority', '1' ); $out->setvariable( 'Archive', 'yes' ); $out->setvariable( 'WaitTime', '60' ); $out->create_outgoing(); #verbose($agi, "3"); #foreach my $k ( sort keys %input ) { # $agi->exec( 'Verbose', "$k=" . $input{$k} ); #} #verbose( $agi, "Callerid: '$callerid'" ); $agi->exec("Hangup");