#!/usr/bin/perl
#
# AGI Example that reads through a file one line at a time and sends it to 
# Festival
#
# Written by: James Golovich <james@gnuinter.net>
#

use Asterisk::AGI;

$AGI = new Asterisk::AGI;

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

my $filename = $ARGV[0];

open(TEXT, "<$filename") || die "Cannot open $filename: $!\n";
while ($string = <TEXT>) {
	chop($string);

# remove any quotes (") because they will screw up the string being passed to festival
	$string =~ s/\"/ /g;

	if ($string) {
		$return = $AGI->exec('Festival', "\"$string\"");
	}
}
close(TEXT);