Parking

// Parking service - from http://www.voiptechchat.com/voip/218/use-asterisk-cepstral-and-perl-to-get-parking-and-weather-updates/
answer();
say("Please wait a moment..", "en-us-f");
// Get number of parking spaces at 4th and Washington
ps = httpGet('http://www.a2dda.org/parking__transportation/available_parking_spots/');
ps = ps.replace(/[\n\r\t]/g, ''); // Strip out newlines
re = /4th and Washington[^<]*<\/td>[^<]*<td>[^0-9]*([0-9]+).*$/gim;
match = re.exec(ps);
say("There are " + match[1] + " parking spaces at fourth and washington.", "en-us-f");