Perl With Asterisk PBX
->Perl is most supporive language for Asterisk P.B.X
->There are many function which are used in Asterisk P.B.X only some of the function are written in following lines:
::::::THIS PAGE CONTAIN FOLLOWING TOPICS:::::
-->First starting Perl Scripting with LINUX O.S in Asterisk P.B.X.We just write following firt lines and make an object for A.G.I
Now value contain in $language variable is in ascii formate
######GET DATA############
here STDERR use for printing ERROR on Asterisk Console
##########STREAM FILE###########
Stream File is an Asterisk function which is used to play a voice file.
->There are many function which are used in Asterisk P.B.X only some of the function are written in following lines:
::::::THIS PAGE CONTAIN FOLLOWING TOPICS:::::
- GET OPTION
- GET DATA
- STREAM FILE
- RECORD FILE
-->First starting Perl Scripting with LINUX O.S in Asterisk P.B.X.We just write following firt lines and make an object for A.G.I
#!/usr/bin/perl
$|=1;
use Asterisk::AGI;
$AGI=new Asterisk::AGI;
#use DBI;
$|=1;
use Asterisk::AGI;
$AGI=new Asterisk::AGI;
#use DBI;
###GET OPTION#######
$PromptPath="/home/sharjeel/ServiceName/prompts/english/"; #Complete path of prompts
$language=$AGI->get_option("/home/sharjeel/horlics/prompts/english/language","1,2,3,4,5,6,7,8,9,0,*,#",5000);
$language=$AGI->get_option("/home/sharjeel/horlics/prompts/english/language","1,2,3,4,5,6,7,8,9,0,*,#",5000);
Now value contain in $language variable is in ascii formate
######GET DATA############
$p_no=$AGI->get_data("$p_path",5000,11);
Here $p_no variable contain 11 digit value
print (STDERR "\nP_NO IS-->$p_no&& A_IS-->$a\n");
print (STDERR "\nP_NO IS-->$p_no&& A_IS-->$a\n");
here STDERR use for printing ERROR on Asterisk Console
##########STREAM FILE###########
Stream File is an Asterisk function which is used to play a voice file.
$AGI->stream_file("$p_path","1,2,3,4,5,6,7,8,9,0,*,#");
#########RECORD FILE##########
Here in $FileRecordPath contain the location where we want to record file from cell phone And then Record_File function record file as per given location with given termination digit and time period.
$FileRecordPath="/home/sharjeel/ServiceName/recording/".$ARGV[0]."_".$CurrentDate;
$AGI->record_file("$FileRecordPath","wav","0","60000");
$p_path=$path."beep";
$AGI->stream_file("$p_path","1,2,3,4,5,6,7,8,9,0,*,#");
$AGI->record_file("$FileRecordPath","wav","0","60000");
$p_path=$path."beep";
$AGI->stream_file("$p_path","1,2,3,4,5,6,7,8,9,0,*,#");
Comments
Post a Comment