Главная   Изменения   Спек   Патчи   Исходники   Загрузить   Gear   Bugs and FR  Repocop 

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");