#!/usr/bin/perl
#
# AGI Example that picks a random bofh excuse from the fortune database 
# and sends it to Festival (text to speech processor)
#
# This script also requires the Fortune perl module
#
# Written by: James Golovich <james@gnuinter.net>
#



use Asterisk::AGI;
use Fortune;

$AGI = new Asterisk::AGI;

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

my $base_filename = '/usr/share/games/fortunes/bofh-excuses';

$ffile = new Fortune ($base_filename);
$ffile->read_header ();
$fortune = '"' . $ffile->get_random_fortune () . '"';
$fortune =~ s/\n/ /g;
$fortune =~ s/BOFH excuse \#(\d*):/Bastard Operator From Hell Excuse Number $1:,., /;

$AGI->exec('Festival', $fortune);