#!/usr/bin/perl -w

use Asterisk::AGI;
use Net::FTP;

my $AGI = new Asterisk::AGI;

my @lines;

$AGI->exec('Cepstral',"\"This is the latest weather forecast from Environment Canada.\"");

open(INPUT,"</tmp/forecast.txt") || die "Could not open /tmp/forecast.txt\n";

while(<INPUT>) {
   if(grep(/^\./,$_)) {
   chomp($_);
   $_ =~ s/^\.//;
   push(@lines,$_);
   print "$_\n";
   }
}

for($i = 0; $i < scalar(@lines); $i++) {
$AGI->exec('Cepstral',"\"$lines[$i]\"");
}

$AGI->exec('Cepstral',"\"That concludes the extended weather forcast.\"");
exit;