Note: For information on Ann Arbor DDA blocking this application, click here.

Patrick and Fred eat, breathe, and live telecommunication. So, when the chance to make fun little phone applications come around, we like to jump on it. Recently, while discussing parking issues with Ann Arbor’s Edward Vielmetti, and idea came to mind. Mr. Vielmetti is active within the Ann Arbor community and among the many hats he wears, one seeks to provide access to accurate information concerning downtown transportation and parking (wow that was a mouthful). While discussing the lack of accurate bus information in Ann Arbor, the conversation took a tangent (yes, how odd that conversations with Fred or Patrick take tangents) on the area of parking.

The parking garages in Ann Arbor provide nice signs in front displaying in brightly lit numbers, the amount of available spaces remaining. Ann Arbor also posts this information on the web at the A2DDA website. An idea came to mind that basically, you can tell the available spots either from the website or right when you reach the garage — but what if you wanted to know while driving to the garage?

So, with that long introduction, we present “using asterisk, cepstral, and perl to get parking and weather updates.” Ok, for the non-techs, don’t panic! We’ll talk about the techie stuff in a little bit. The bottom line is using Asterisk, Cepstral, and Perl, you can check the internet for the spaces available and let the caller know — all in real time. For a working example, call +1 (212) 937-7844 and press 6 +1 (734) 272-0909 (this is not a toll-free number).

First, let’s talk about the three major components here: Asterisk, Cepstral, and Perl.

Asterisk

Asterisk (by Digium) is the world’s leading open source telephony engine and tool kit. Asterisk empowers communication with it’s flexibility. Whether working as a simple office telephone system, a robust Call Center platform, or anything in-between, Asterisk provides advanced features at a very low deployment cost.

Asterisk is free, open source software provided under the GNU General Public License (GPL). Asterisk is the most popular open source software available, with the Asterisk Community being the top influencer in VoIP.

Why free? “It’s just how Digium rolls.” They really take that GPL open source to heart.

Cepstral

Cepstral provides speech technologies and services for the spoken delivery of information. They build high quality, natural sounding voices for hand-held, desktop, and server applications. Their technology is easy to incorporate and operates in a small memory footprint with low computing resources. Cepstral is not free, however a full user’s license can cost under $30.00 (as of January 2009 at least).

If you are looking for a free alternative to Cepstral, try Festival. Festival is free, but sounds very “machine” like. Cepstral is a little more human.

Perl

Perl is a stable, cross platform programming language. Perl is open-source and is sometimes called the “duct tape of the internet.” If MacGyver programmed, he would have used Perl.

Ok, with our introductions in hand, let’s get on with the show. First step was to get the information from the A2DDA website using a perl script. the perl code for that was:

my $ua = LWP::UserAgent->new( timeout => 45);
my $URL = 'http://www.a2dda.org/parking.php';
$ua->agent('AsteriskAGIQuery/1');
my $req = new HTTP::Request GET => $URL;
my $res = $ua->request($req);
if ($res->is_success()) {
 if ($res->content =~ /4th and Washington</td><td>(.*)</td></tr>/) {
  my $spaces = $1;
  if($spaces =~ m/(d+)/) {
			$spaces = $1;
			return $spaces;
		}
 }
}

Sure, it could be nicer, but it works.

Ok, next was to resign the script so that it would work with the Asterisk AGI (the gateway interface of Asterisk). We modified the script slightly to read the amount of parking spaces at 4th and Washington and if we’re unable to get a number, report an ERROR.

#!/usr/bin/perl -w
use strict;
use LWP::UserAgent;
$|=1;
sub trim($);

my %AGI;

while(<STDIN>) {
	chomp;
	last unless length($_);
	if (/^agi_(w+):s+(.*)$/) {
		$AGI{$1} = $2;
	}
}

print qq(VERBOSE "STATUS: checking a2dda.org for spaces available" 2n);

my $spacesavail = "";

if ($spacesavail = &parking_lookup) {
	print qq(VERBOSE "There are $spacesavail spaces at 4th and Washington" 2n);
	print qq(SET VARIABLE SPACESAVAIL "$spacesavail"n);
	exit(0);
	}
else {
	print qq(VERBOSE "STATUS: unable to determine spaces" 2n);
}

print qq(SET VARIABLE SPACESAVAIL "ERROR"n);
exit(0); 

sub parking_lookup {
  my $ua = LWP::UserAgent->new( timeout => 45);
  my $URL = 'http://www.a2dda.org/parking.php';
  $ua->agent('AsteriskAGIQuery/1');
  my $req = new HTTP::Request GET => $URL;
  my $res = $ua->request($req);
  if ($res->is_success()) {
  		if ($res->content =~ /4th and Washington</td><td>(.*)</td></tr>/) {
      my $spaces = $1;
      if($spaces =~ m/(d+)/) {
							$spaces = $1;
							return $spaces;
						}
     }
  }
  return "";
}

Now, we have a number of available spaces, and integrating it was as easy as:

exten => s,1,NoOp(checking parking)
exten => s,n,playback(/tmp/spaces-greet)
exten => s,n,AGI(getspaces.pl)
exten => s,n,GotoIf($["${SPACESAVAIL}" = "ERROR" ]?error)
exten => s,n,SayNumber(${SPACESAVAIL})
exten => s,n,playback(/tmp/spaces-avail)

So why do we need Cepstral?

Good question! During testing of the script, we noticed that the number of spaces was always 130. No matter what we did, we kept getting back 130. Fred was pulling out what little hair he has… checking the asterisk… checking the code… couldn’t figure it out. Then, after checking the website, realized that Ann Arbor’s garages weren’t updating the spaces available. Perhaps a glitch, perhaps they don’t care, perhaps the information is being held hostage. No one knows for sure, but as of this moment, it’s pinned at 130.

Anyway, so enter Cepstral. Since the parking spots wouldn’t change, maybe the weather would. So, using another script to check the weather, you can modify the results and create a sound file using Cepstral (and swift), such as:

my $hash = "";
$hash .= ('0'..'9', "a".."f")[int(rand(16))] for 1 .. 8;

my $text = qq(Currently <break strength="weak" /> it is $currtempf degrees <break strength="weak" /> in $city <break strength="medium" /> Current conditions <break strength="weak" /> $currcondition <break strength="medium" /> Rest of day predicts <break strength="weak" /> $todaycond <break strength="medium" />);

my $sounddir = "/tmp";
my $wavefile = "$sounddir/"."tts-$hash.wav";
my $wavefileAst = "$sounddir/"."tts-$hash";
my $t2wp= "/opt/swift/bin/"; 

unless (-f $wavefile) {
       open(fileOUT, ">$sounddir"."/say-text-$hash.txt");
       print fileOUT "$text";
       close(fileOUT);
							my $execf=$t2wp."swift -f $sounddir/say-text-$hash.txt -p audio/channels=1,audio/volume=70,audio/sampling-rate=8000,audio/deadair=2 -o $wavefile";
       system($execf);
       unlink($sounddir."/say-text-$hash.txt");
} 

print qq(SET VARIABLE SWIFTFILE "$wavefileAst"n);

Yes, again the code could be nicer.. but in this case we create a sound file for the weather conditions and then make a sound file variable. Yes, AGI supports streaming the audio and even playing it back directly from the script… so why did we chose to exit the script and return to the dialplan? Asterisk is very versatile. We like returning to the dialplan, and that’s how we code. Life is that simple. What works for you best, can sometimes be the best solution.

Ok, bringing that into the asterisk dial plan, you have:

exten => s,1,NoOp(checking parking)
exten => s,n,playback(/tmp/spaces-greet)
exten => s,n,AGI(testspaces.pl)
exten => s,n,GotoIf($["${SPACESAVAIL}" = "ERROR" ]?error)
exten => s,n,SayNumber(${SPACESAVAIL})
exten => s,n,playback(/tmp/spaces-avail)
exten => s,n,goto(weather)
exten => s,n(error),playback(/tmp/spaces-error)
exten => s,n(weather),AGI(current-weather.pl)
exten => s,n,GotoIf($["${CITY}" = "ERROR" ]?end)
exten => s,n,playback(${SWIFTFILE})
exten => s,n(end),goto(main,s,1)

Your comments are always welcome!

UPDATE — 01/10/2009

Well, the system has been upgraded a little bit… if you call +1 (212) 937-7844 and press option 6 +1 (734) 272-0909 you can choose your garage, and then be automatically called back (on the number you called from) when there are fewer than 10 spaces available.

Comments… we love to hear them.