Dean Collins has posted a script to allow you to get a weather report via the Festival Speech Synthesis engine:

This script was developed by Mark Johnson.

All I did (Dean Collins) was type up the instructions and make it easy to understand.

This Script will allow you to dial and extension number on your Asterisk@home V0.6 or later pabx and have it read you the weather for your city

How it does this is;

1/ When you dial your extension it causes the weather.agi script to run

2/ This makes the program net::ftp connect to the internet and download a text file from the weather.noaa.gov computer

3/ Festival the 'reads' this text file out to you

Net::ftp is now part of the perl library so you dont need to download this

Festival is installed from V0.6 or later of Asterisk@home so you dont need to download this

You need to work out which text file is suitable for yourself and modify the text below

my $custpath = "city/oh";
my $filename = "youngstown.txt";

The way I worked out what was suitable for me in NY, new_york was to log in via a ftp client and manually browse through to the appropriate folder. Now you have all the appropriate information - lets start.

So Step 1 - Copy the text below into Notepad and name it weather.agi

#!/usr/bin/perl -w

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

my $AGI = new Asterisk::AGI;
my $server = "weather.noaa.gov";
my $basepath = "data/forecasts";
my $custpath = "city/oh";
my $filename = "youngstown.txt";

my @lines;

$AGI->exec('AGI',"festival-script.pl|"Please wait while I get the latest forecast."");

$ftp = Net::FTP->new($server, Debug => 0)
or die "Cannot connect to $server: $@";

$ftp->login("anonymous","a@b.com")
or die "Cannot login with anonymous/a@b.com", $ftp->message;

$ftp->cwd("$basepath/$custpath")
or die "Cannot change working directory ", $ftp->message;

$ftp->binary;
$ftp->get($filename,"/tmp/$filename.$$") || die "Error while downloading /tmp/$filename.$$!!!n", $ftp->message;

open(INPUT,"

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

for($i = 0; $i < scalar(@lines); $i++) {
$AGI->exec('AGI',"festival-script.pl|"$lines[$i]"");
}

$AGI->exec('AGI',"festival-script.pl|"Thank you and please call again!"");
unlink("/tmp/$filesname.$$");
exit;

Step 2 - Copy the text below into Notepad and name it festival-weather-script.pl

#!/usr/bin/perl

#make a tts dir inside your sounds dir (as specified below)
#adjust the t2wp variable to point to your festival bin directory

use Asterisk::AGI;
use File::Basename;
use Digest::MD5 qw(md5_hex);

$AGI = new Asterisk::AGI;

my %input = $AGI->ReadParse();
my ($text)=@ARGV;
my $hash = md5_hex($text);
my $sounddir = "/var/lib/asterisk/sounds/tts";
my $wavefile = "$sounddir/"."tts-$hash.wav";
my $t2wp= "/usr/src/festival/bin/";

unless (-f $wavefile) {
open(fileOUT, ">$sounddir"."/say-text-$hash.txt");
print fileOUT "$text";
close(fileOUT);
my $execf=$t2wp."text2wave $sounddir/say-text-$hash.txt -F 8000 -o $wavefile";
system($execf);
unlink($sounddir."/say-text-$hash.txt");
}
$AGI->stream_file('tts/'.basename($wavefile,".wav"),1);

STEP 3 - Copy the 2 files into your /var/lib/asterisk/agi-bin directory

I use a program called winscp to do this [http://winscp.sourceforge.net/eng/index.php]

(it looks just like a ftp program but allows you to connect to asterisk and swap files between your windows pc and asterisk server)

STEP 4 - Create an extension number for your weather report.

I use Extension 850. The reason I use this is because in the asterisk@home installations AMP uses the 800 series for the Meetme rooms.

As this is similar to a Meetme function I'm going to put all of my festival extensions from 850 onwards.

Be carefule you dont have an extension on your pabx called 50 (because AMP will over write this Weather code with the meetme room number 850 for extension 50)

4/a) Log into Asterisk@home using a browser http://-asterisk-ip-adress/admin

Then click on Maintenance
Then click on ConfigEdit
Then click on Extensions.conf

Now you need to scroll down to where you see the [ext-meetme] context about ¾ of the way down the file

[ext-meetme]

exten => _8X,1,Answer
exten => _8X,2,Wait(1)
exten => _8X,3,GotoIf($[${CALLERIDNUM} = ${EXTEN:1}]?5:4)
exten => _8X,4,MeetMe2(${EXTEN}|sM)
exten => _8X,5,MeetMe2(${EXTEN}|asM)

etc
etc
etc

4/b) Then add the following text at the end of the context

exten => 850,1,Answer
exten => 850,2,AGI(weather.agi);
exten => 850,3,Hangup

that's it, reboot your pc, dial 850 and listen to the weather.

Any problems copy and paste your cli with any errors.

Cheers,

Dean

Comments (Click to post)

Name:
Subject:
Website:
Message: