AGI Script

#!/usr/bin/perl

use Asterisk::AGI;
use DBI;

$AGI = new Asterisk::AGI;

my %input = $AGI->ReadParse();
my $callerid = $input{''''callerid''''};

############# Time Clock Questions ################

my $empid = $AGI->get_data(''''employee'''',-1,5); # Asks for Employee ID
$AGI->stream_file(entered);
$AGI->say_digits($empid);

my $optemp = $AGI->get_data(''''correct'''',-1,1); … Read more