#!/usr/bin/perl
#
# AGI Script that demonstrates various forms of input and output. Sound files not included.
#
# Requires the Asterisk::AGI and Nmap::Parser perl modules
#
# Written by: Black Rathchet (blackratchet@blackratchet.org)
#

use Asterisk::AGI;

$AGI = new Asterisk::AGI;

my %input = $AGI->ReadParse();

while (1){
	$input = chr($AGI->stream_file('seeandsay/menu','123'));
	if ($input eq "1"){
		$AGI->stream_file('seeandsay/ratchet');
	}elsif($input eq "2"){
		$AGI-> stream_file('seeandsay/cepstralsays');
		$AGI-> stream_file('seeandsay/cepstral');
	}elsif($input eq "3"){
		$AGI-> stream_file('seeandsay/allisonsays');
		$AGI-> stream_file('seeandsay/allisonhello');
	}	

}