#!/usr/local/bin/perl5
#
#  BeVocal Sample Code
# (C) Copyright BeVocal, Inc. 2003, All rights reserved.
#
#     This Sample Code is provided for your reference purposes,
#     and carries no warranty whatsoever.  Use of this code is
#     restricted to use in connection with the BeVocal Cafe
#     developer's program.
#
# BeVocal disclaims and excludes any and all warranties of
# merchantability, title and fitness for a particular
# purpose. BeVocal does not warrant that the software will
# satisfy your requirements, or that the software is without
# defect or error.  You are using the software at your own
# risk.
#
use CGI;

#
# This is a sample Perl-based CGI to demonstrate a server-side technique
# for disambiguating the multiple results or multiple interpretations
# from a speech recognition.  
# 
# Note: If you want to change this script in any way and use it with your
# Cafe application, you'll need to host the new Perl script on your
# own web server. You cannot upload a Perl script to your Cafe account.
# 
# This script assumes the recognition was from a grammar that filled
# two slots: "city" and "state".
#
# The expected HTTP request parameters are:
#   results.length  - The number of results from the recognition.
#
#   For i from 0 to results.length - 1:
#   results[i].confidence           - The confidence of this result, 0 to 1
#   results[i].interpretation.city  - The city recognized for this result
#   results[i].interpretation.state - The state recognized for this result
#

#
# Print out the XML and VoiceXML headers, plus the beginning of the
# disambiguation dialog
#
print "\n";
print "Content-type:application/voicexml+xml\n\n";
print "<?xml version=\"1.0\"?>\n";
print "<vxml version=\"2.0\" xmlns=\"http://www.w3.org/2001/vxml\">\n";
print "  <form>\n";
print "    <block>\n";
print "      I didn't quite get that.\n";
print "      Please say 'that one' when you hear the city you want.\n";
print "    </block>\n";

# Create two variables to store the disambiguation results
print "    <var name=\"city\"/>\n";
print "    <var name=\"state\"/>\n";

# Figure out how many results we have to deal with
$length = CGI::param("results.length");

# Save the maximum confidence of any result
$maxConfidence = CGI::param("results[0].confidence");

for ($i = 0; $i < $length; $i++) {
    my ($fname) = ( "f$i" );  # field name
    my ($city)  = ( CGI::param("results[$i].interpretation.city") );
    my ($state) = ( CGI::param("results[$i].interpretation.state") );
    my ($conf)  = ( CGI::param("results[$i].confidence") );

    #
    # If the confidence of this result is close enough to the maximum
    # one (which we know is always the first one) then use it in
    # the disambiguation
    #
    if (($maxConfidence - $conf) < 0.05) {
	#
	# Generate a field that prompts out this city/state name
	# and then pauses briefly to let the user say "that one".
	# If the user remains silent, our custom <noinput> handler
	# simply goes to the next field.
	#
	print "    <field name=\"$fname\">\n";
	print "      <grammar version=\"1.0\">[ ( yes ) ( that one ) ]</grammar>\n";
	print "      <prompt timeout=\"0.75s\">\n";
	print "        $city, $state\n";
	print "      </prompt>\n";

	#
	# If they said "that one", fill in the result variables.
	# The form-level <filled> block below will then return them.
	#
	print "      <filled>\n";
	print "        <assign name=\"city\"  expr=\"'$city'\"/>\n";
	print "        <assign name=\"state\" expr=\"'$state'\"/>\n";
	print "      </filled>\n";

	#
	# They didn't say anything.  Tell the interpreter to go to the
	# next field by setting this field's form item variable to true.
	#
	print "      <noinput>\n";
	print "        <reprompt/>\n";
	print "        <assign name=\"$fname\" expr=\"true\"/>\n";
	print "      </noinput>\n";
	print "    </field>\n";
    }
};

#
# If we get here, it means they didn't say "that one" on any of the fields.
# Clear them all out and try again.
#
print "    <block>\n";
print "      <clear/>\n";
print "    </block>\n";

#
# This form-level filled block returns the city and state variables
# as soon as any of the fields are filled by the user saying "that one"
# It will be executed after the field-level filled, since filled blocks
# are always executed in document order.
#
print "    <filled mode=\"any\">\n";
print "      <return namelist=\"city state\"/>\n";
print "    </filled>\n";

print "  </form>\n";
print "</vxml>\n";
print "\n";

exit 0;