<!ELEMENT conf:pass EMPTY>   
<!ELEMENT conf:fail EMPTY>
<!ATTLIST conf:fail
   reason CDATA #IMPLIED
   expr CDATA #IMPLIED>

<!ENTITY % ir-utterances 'alpha|bravo|charlie|delta|echo|foxtrot|golf|hotel'>
<!ENTITY % ir-commands '%ir-utterances;|help|cancel|exit|yes'>

<!ELEMENT conf:dtmf EMPTY>
<!ATTLIST conf:dtmf
   value CDATA #REQUIRED
   count CDATA #IMPLIED
   pre_mark CDATA #IMPLIED
   post_mark CDATA #IMPLIED>

<!ELEMENT conf:hangup   EMPTY >
<!ELEMENT conf:noinput   EMPTY >
<!ATTLIST conf:noinput
  duration CDATA #IMPLIED
   count CDATA #IMPLIED
   pre_mark CDATA #IMPLIED
   post_mark CDATA #IMPLIED>

<!ELEMENT conf:nomatch   EMPTY >
<!ATTLIST conf:nomatch 
  duration CDATA #IMPLIED
   count CDATA #IMPLIED
   pre_mark CDATA #IMPLIED
   post_mark CDATA #IMPLIED>

<!ELEMENT conf:recording   EMPTY >
<!ATTLIST conf:recording
   value (%ir-utterances;|nonspeech) #REQUIRED 
   count CDATA #IMPLIED
   pre_mark CDATA #IMPLIED
   post_mark CDATA #IMPLIED>

<!-- Add conf:speech to the menu element decl. -->
<!ELEMENT conf:speech EMPTY>
<!ATTLIST conf:speech
   value (%ir-commands;) #REQUIRED
   count CDATA #IMPLIED
   pre_mark CDATA #IMPLIED
   post_mark CDATA #IMPLIED>

<!ELEMENT conf:grammar (conf:key*)>   
<!ATTLIST conf:grammar 
  utterance (%ir-utterances;) #REQUIRED
  interp CDATA #IMPLIED
>

<!ELEMENT conf:key         (#PCDATA | conf:key)* >
<!ATTLIST conf:key
   name  CDATA  #REQUIRED 
   value  CDATA  #IMPLIED
>

<!ELEMENT conf:phrase      EMPTY >
<!ATTLIST conf:phrase
   utterance   (%ir-commands;) #REQUIRED >


<!ELEMENT conf:comment (#PCDATA | value)*>

<!ENTITY % ir-test-ext "conf:pass | conf:fail | conf:comment ">
<!ENTITY % ir-prompts "conf:speech | conf:dtmf | conf:hangup | 
  conf:noinput | conf:nomatch | conf:recording">

<vxml version="2.1" xmlns="http://www.w3.org/2001/vxml"
   xmlns:conf="http://www.w3.org/2002/vxml-conformance">
  <form>
    <block>
      <conf:pass/>
    </block>
  </form>
</vxml>

<vxml version="2.1" xmlns="http://www.w3.org/2001/vxml"
   xmlns:conf="http://www.w3.org/2002/vxml-conformance">
  <form>
    <block>
      <conf:fail/>
    </block>
  </form>
</vxml>

<vxml version="2.1" xmlns="http://www.w3.org/2001/vxml"
   xmlns:conf="http://www.w3.org/2002/vxml-conformance">
  <form>
    <block>
      <conf:fail reason="roulette"/>
    </block>
  </form>
</vxml>

<vxml version="2.1" xmlns="http://www.w3.org/2001/vxml"
   xmlns:conf="http://www.w3.org/2002/vxml-conformance">
  <form>
    <block>
      <conf:fail expr="'pete ' + (1 + 2)"/>
    </block>
  </form>
</vxml>

<vxml version="2.1" xmlns="http://www.w3.org/2001/vxml"
   xmlns:conf="http://www.w3.org/2002/vxml-conformance">
  <var name="x" expr="1+1"/>
  <form>
    <block>
      <conf:comment>
        The value of x is <value expr="x"/>. 
      </conf:comment>
      <conf:pass/>
    </block>
  </form>
</vxml>

<vxml version="2.1" xmlns="http://www.w3.org/2001/vxml"
   xmlns:conf="http://www.w3.org/2002/vxml-conformance">

  <catch><conf:fail expr="_event"/></catch>

  <form>
    <field name="one">
      <catch event="connection.disconnect.hangup">
        <conf:pass/>
      </catch>
      <catch><conf:fail expr="_event"/></catch>
      <conf:hangup/>
      <conf:grammar utterance="alpha"/>
    </field>

    <block><conf:fail reason="block"/></block>
  </form>
</vxml>

<vxml version="2.1" xmlns="http://www.w3.org/2001/vxml"
   xmlns:conf="http://www.w3.org/2002/vxml-conformance">
  <catch><conf:fail reason="catch"/></catch>
  <form>
    <field name="one">
      <noinput><conf:pass/></noinput>
      <catch><conf:fail expr="_event"/></catch>
      <conf:noinput/>
      <conf:grammar utterance="alpha"/>
    </field>

    <block><conf:fail reason="block"/></block>
  </form>
</vxml>

<vxml version="2.1" xmlns="http://www.w3.org/2001/vxml"
   xmlns:conf="http://www.w3.org/2002/vxml-conformance">
  <catch><conf:fail expr="_event"/></catch>
  <form>
    <field name="one">
      <nomatch><conf:pass/></nomatch>
      <catch><conf:fail expr="_event"/></catch>
      <conf:nomatch/>
      <conf:grammar utterance="alpha"/>
    </field>

    <block><conf:fail reason="block"/></block>
  </form>
</vxml>

<vxml version="2.1" xmlns="http://www.w3.org/2001/vxml"
   xmlns:conf="http://www.w3.org/2002/vxml-conformance">

  <catch><conf:fail expr="_event"/></catch>

  <form>
    <block>
      <if cond="one != undefined">
        <conf:fail reason="initial check"/>
      </if>
    </block>

    <field name="one">
      <conf:speech value="alpha"/>
      <conf:grammar utterance="alpha"/>
    </field>

    <block>
      <if cond="one != undefined"><conf:pass/></if>
      <conf:fail reason="field assignment"/>
    </block>
  </form>
</vxml>

<vxml version="2.1" xmlns="http://www.w3.org/2001/vxml"
   xmlns:conf="http://www.w3.org/2002/vxml-conformance">

  <catch><conf:fail reason="catch"/></catch>

  <form>
    <block>
      <if cond="one != undefined">
        <conf:fail reason="initial check"/>
      </if>
    </block>

    <field name="one">
      <conf:speech value="alpha"/>
      <conf:grammar utterance="alpha" interp="peña"/>
    </field>
    
    <block>
      <if cond="one=='peña'"><conf:pass/></if>
      <conf:fail reason="field assignment"/>
    </block>
  </form>
</vxml>

<vxml version="2.1" xmlns="http://www.w3.org/2001/vxml"
   xmlns:conf="http://www.w3.org/2002/vxml-conformance">

  <catch><conf:fail expr="_event"/></catch>

  <form>
    <block>
      <if cond="one != undefined">
        <conf:fail reason="initial check"/>
      </if>
    </block>

    <field name="one">
      <conf:speech value="alpha"/>
      <conf:grammar utterance="alpha">
        <conf:key name="x" value="valX"/>
        <conf:key name="y" value="valY"/>
      </conf:grammar>
    </field>

    <block>
      <if cond="typeof one == 'object' 
        &amp;&amp; one.x == 'valX' 
        &amp;&amp; one.y == 'valY'">
        <conf:pass/>
      </if>
      <conf:fail reason="field assignment"/>
    </block>
  </form>

</vxml>

<vxml version="2.1" xmlns="http://www.w3.org/2001/vxml"
   xmlns:conf="http://www.w3.org/2002/vxml-conformance">

  <catch><conf:fail expr="_event"/></catch>

  <form>
    <block>
      <if cond="one != undefined">
        <conf:fail reason="initial check"/>
      </if>
    </block>

    <field name="one">
      <conf:speech value="alpha"/>
      <conf:grammar utterance="alpha">
        <conf:key name="x">
          <conf:key name="a" value="valA"/>
          <conf:key name="b" value="valB"/>
        </conf:key>
        <conf:key name="y" value="valY"/>
      </conf:grammar>
    </field>

    <block>
      <if cond="typeof one != 'object'">
        <conf:fail reason="one is not an object"/>
      <elseif cond="one.y != 'valY'"/>
        <conf:fail reason="one.y had bad value"/>
      <elseif cond="typeof one.x != 'object'"/>
        <conf:fail reason="one.x is not an object"/>
      <elseif cond="typeof one.x.a != 'valA'"/>
        <conf:fail reason="one.x.a had bad value"/>
      <elseif cond="typeof one.x.b != 'valB'"/>
        <conf:fail reason="one.x.b had bad value"/>
      <else/>
        <conf:pass/>
      </if>
    </block>
  </form>

</vxml>

<vxml version="2.1" xmlns="http://www.w3.org/2001/vxml"
   xmlns:conf="http://www.w3.org/2002/vxml-conformance">

  <catch event="menu-done"> <conf:pass/> </catch>
  <catch><conf:fail reason="catch"/></catch>

  <menu>
    <conf:speech value="alpha"/>
    <choice event="menu-done">
      <conf:phrase utterance="alpha"/>
    </choice>
  </menu>

</vxml>

<?xml version="1.0"?> 
<!-- Copyright 1998-2003 W3C (MIT, ERCIM, Keio), All Rights Reserved. See http://www.w3.org/Consortium/Legal/. -->
<xsl:stylesheet
    xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
    xmlns:conf="http://www.w3.org/2002/vxml-conformance"
    xmlns="http://www.w3.org/2001/vxml"
    version="1.0">

<xsl:output cdata-section-elements="script"/>

<!-- ############################################# -->
<!-- D o c u m e n t   H e a d e r s               -->
<!-- ############################################# -->

<!-- Copy everything that doesn't match other rules -->
<xsl:template match="/ | @* | node()">
  <xsl:copy>
    <xsl:apply-templates select="@* | node()"/>
  </xsl:copy>
</xsl:template>

<!-- strip comments -->
<xsl:template match="comment()"/>

<!-- ############################################# -->
<!-- F i n a l   S t a t u s   I n d i c a t o r s -->
<!-- ############################################# -->

<!-- Success criteria -->
<xsl:template match="conf:pass">
  <prompt>pass</prompt>
  <exit/>
</xsl:template>

<!-- Failure criteria -->
<xsl:template match="conf:fail">
  <prompt>fail</prompt>
  <!-- the following only comes up in case of failure -->
  <xsl:if test="@reason != ''">
    <log>failure reason: <xsl:value-of select="@reason"/></log>
    <prompt><xsl:value-of select="@reason"/></prompt>
  </xsl:if>
  <xsl:if test="@expr != ''">
    <log>failure expression: <value expr="{@expr}"/></log>
    <prompt><value expr="{@expr}"/></prompt>
  </xsl:if>
  <exit/>
</xsl:template>

<!-- ############################################# -->
<!-- I n t e r m e d i a t e   R e p o r t s       -->
<!-- ############################################# -->

<!-- Copy everything doesn't match the other rules -->
<xsl:template match="conf:comment">
  <log>
    <xsl:apply-templates />
  </log>
</xsl:template>

<!-- ############################################# -->
<!-- I n p u t   I n d i c a t o r s               -->
<!-- ############################################# -->

<xsl:template match="conf:hangup">
  <prompt> Hang up now. </prompt>
</xsl:template>

<!-- Recite a recording that DOES contain the specified speech command (alpha, bravo, etc) -->
<xsl:template match="conf:recording[@value]">
  <prompt count="1"> 
      <xsl:if test="@pre_mark != ''">
      <mark name="{@pre_mark}"/>
      </xsl:if>
    Recite a sentence containing the word 
    '<xsl:call-template name="emit-name-from-token">
        <xsl:with-param name="token" select="@value"/>
      </xsl:call-template>'.
      <xsl:if test="@post_mark != ''">
      <mark name="{@post_mark}"/>
      </xsl:if>
  </prompt>
  <prompt count="2"> 
      <xsl:if test="@pre_mark != ''">
      <mark name="{@pre_mark}"/>
      </xsl:if>
    Recite a sentence containing the word 
    '<xsl:call-template name="emit-name-from-token">
        <xsl:with-param name="token" select="@value"/>
      </xsl:call-template>' again.
      <xsl:if test="@post_mark != ''">
      <mark name="{@post_mark}"/>
      </xsl:if>
  </prompt>
  <prompt count="3"> 
      <xsl:if test="@pre_mark != ''">
      <mark name="{@pre_mark}"/>
      </xsl:if>
    Recite a sentence containing the word 
    '<xsl:call-template name="emit-name-from-token">
        <xsl:with-param name="token" select="@value"/>
      </xsl:call-template>' one more time.
      <xsl:if test="@post_mark != ''">
      <mark name="{@post_mark}"/>
      </xsl:if>
  </prompt>
</xsl:template>

<xsl:template match="conf:recording[@value and @count='0']">
  <prompt> 
      <xsl:if test="@pre_mark != ''">
      <mark name="{@pre_mark}"/>
      </xsl:if>
    Recite a sentence containing the word 
    '<xsl:call-template name="emit-name-from-token">
        <xsl:with-param name="token" select="@value"/>
      </xsl:call-template>'.
      <xsl:if test="@post_mark != ''">
      <mark name="{@post_mark}"/>
      </xsl:if>
  </prompt>
</xsl:template>

<xsl:template match="conf:recording[@value and @count &gt; 0]">
  <prompt count="{@count}"> 
      <xsl:if test="@pre_mark != ''">
      <mark name="{@pre_mark}"/>
      </xsl:if>
    Recite a sentence containing the word 
    '<xsl:call-template name="emit-name-from-token">
        <xsl:with-param name="token" select="@value"/>
      </xsl:call-template>'.
      <xsl:if test="@post_mark != ''">
      <mark name="{@post_mark}"/>
      </xsl:if>
  </prompt>
</xsl:template>


<!-- Recite a recording at least 5 seconds in length that 
  does NOT contain a well-defined speech command (alpha, bravo, etc) -->
<!-- Little Miss Muffett sat on her tuffett, eating her curds and whey. 
  Along came a spider ... -->
<!-- Jack and Jill went up the hill to fetch a pail of water. 
  Jack fell down and broke his crown ... -->
<xsl:template match="conf:recording[@value='nonspeech']">
  <prompt count="1"> 
      <xsl:if test="@pre_mark != ''">
      <mark name="{@pre_mark}"/>
      </xsl:if>
    Recite your favorite nursery rhyme, for example, 'Little Miss Muffett'.
      <xsl:if test="@post_mark != ''">
      <mark name="{@post_mark}"/>
      </xsl:if>
  </prompt>
  <prompt count="2"> 
      <xsl:if test="@pre_mark != ''">
      <mark name="{@pre_mark}"/>
      </xsl:if>
    Recite your favorite nursery rhyme again.
      <xsl:if test="@post_mark != ''">
      <mark name="{@post_mark}"/>
      </xsl:if>
  </prompt>
  <prompt count="3"> 
      <xsl:if test="@pre_mark != ''">
      <mark name="{@pre_mark}"/>
      </xsl:if>
    Recite your favorite nursery rhyme one more time.
      <xsl:if test="@post_mark != ''">
      <mark name="{@post_mark}"/>
      </xsl:if>
  </prompt>
</xsl:template>

<xsl:template match="conf:recording[@value='nonspeech' and @count='0']">
  <prompt> 
      <xsl:if test="@pre_mark != ''">
      <mark name="{@pre_mark}"/>
      </xsl:if>
    Recite your favorite nursery rhyme, for example, 'Little Miss Muffett'.
      <xsl:if test="@post_mark != ''">
      <mark name="{@post_mark}"/>
      </xsl:if>
  </prompt>
</xsl:template>

<xsl:template match="conf:recording[@value='nonspeech' and @count &gt; 0]">
  <prompt count="{@count}"> 
      <xsl:if test="@pre_mark != ''">
      <mark name="{@pre_mark}"/>
      </xsl:if>
    Recite your favorite nursery rhyme, for example, 'Little Miss Muffett'.
      <xsl:if test="@post_mark != ''">
      <mark name="{@post_mark}"/>
      </xsl:if>
  </prompt>
</xsl:template>

<!-- ask the user to keep quiet -->
<xsl:template match="conf:noinput">
  <prompt count="1"> 
      <xsl:if test="@pre_mark != ''">
      <mark name="{@pre_mark}"/>
      </xsl:if>
    No input expected. Say nothing 
    <xsl:if test="@duration"> for <xsl:value-of select="@duration"/> seconds</xsl:if>.
      <xsl:if test="@post_mark != ''">
      <mark name="{@post_mark}"/>
      </xsl:if>
  </prompt>
  <prompt count="2"> 
      <xsl:if test="@pre_mark != ''">
      <mark name="{@pre_mark}"/>
      </xsl:if>
    No input expected. Say nothing again 
    <xsl:if test="@duration"> for <xsl:value-of select="@duration"/> seconds</xsl:if>.
      <xsl:if test="@post_mark != ''">
      <mark name="{@post_mark}"/>
      </xsl:if>
  </prompt>
  <prompt count="3"> 
      <xsl:if test="@pre_mark != ''">
      <mark name="{@pre_mark}"/>
      </xsl:if>
     No input expected. Say nothing one more time 
    <xsl:if test="@duration"> for <xsl:value-of select="@duration"/> seconds</xsl:if>.
      <xsl:if test="@post_mark != ''">
      <mark name="{@post_mark}"/>
      </xsl:if>
  </prompt>
</xsl:template>

<xsl:template match="conf:noinput[@count = 0]">
  <prompt> 
      <xsl:if test="@pre_mark != ''">
      <mark name="{@pre_mark}"/>
      </xsl:if>
    No input expected. Say nothing 
    <xsl:if test="@duration"> for <xsl:value-of select="@duration"/> seconds</xsl:if>.
      <xsl:if test="@post_mark != ''">
      <mark name="{@post_mark}"/>
      </xsl:if>
  </prompt>
</xsl:template>

<xsl:template match="conf:noinput[@count &gt; 0]">
  <prompt count="{@count}"> 
      <xsl:if test="@pre_mark != ''">
      <mark name="{@pre_mark}"/>
      </xsl:if>
    No input expected. Say nothing 
    <xsl:if test="@duration"> for <xsl:value-of select="@duration"/> seconds</xsl:if>.
      <xsl:if test="@post_mark != ''">
      <mark name="{@post_mark}"/>
      </xsl:if>
  </prompt>
</xsl:template>

<!-- ask the user to mumble something out of grammar -->
<xsl:template match="conf:nomatch">
  <prompt count="1"> 
      <xsl:if test="@pre_mark != ''">
      <mark name="{@pre_mark}"/>
      </xsl:if>
    Say something unrecognizable 
    <xsl:if test="@duration"> for <xsl:value-of select="@duration"/> seconds</xsl:if>.
      <xsl:if test="@post_mark != ''">
      <mark name="{@post_mark}"/>
      </xsl:if>
  </prompt>
  <prompt count="2"> 
      <xsl:if test="@pre_mark != ''">
      <mark name="{@pre_mark}"/>
      </xsl:if>
    Say something unrecognizable again 
    <xsl:if test="@duration"> for <xsl:value-of select="@duration"/> seconds</xsl:if>.
      <xsl:if test="@post_mark != ''">
      <mark name="{@post_mark}"/>
      </xsl:if>
  </prompt>
  <prompt count="3"> 
      <xsl:if test="@pre_mark != ''">
      <mark name="{@pre_mark}"/>
      </xsl:if>
    Say something unrecognizable one more time 
    <xsl:if test="@duration"> for <xsl:value-of select="@duration"/> seconds</xsl:if>.
      <xsl:if test="@post_mark != ''">
      <mark name="{@post_mark}"/>
      </xsl:if>
  </prompt>
</xsl:template>

<xsl:template match="conf:nomatch[@count = 0]">
  <prompt> 
      <xsl:if test="@pre_mark != ''">
      <mark name="{@pre_mark}"/>
      </xsl:if>
    Say something unrecognizable 
    <xsl:if test="@duration"> for <xsl:value-of select="@duration"/> seconds</xsl:if>.
      <xsl:if test="@post_mark != ''">
      <mark name="{@post_mark}"/>
      </xsl:if>
  </prompt>
</xsl:template>

<xsl:template match="conf:nomatch[@count &gt; 0]">
  <prompt count="{@count}"> 
      <xsl:if test="@pre_mark != ''">
      <mark name="{@pre_mark}"/>
      </xsl:if>
    Say something unrecognizable 
    <xsl:if test="@duration"> for <xsl:value-of select="@duration"/> seconds</xsl:if>.
      <xsl:if test="@post_mark != ''">
      <mark name="{@post_mark}"/>
      </xsl:if>
  </prompt>
</xsl:template>

<!-- special case a conf:speech inside a nomatch handler -->
<xsl:template match="*[name()='nomatch']/conf:speech[@value]" priority="2">
   <xsl:call-template name="emit-prompt">
     <xsl:with-param name="value"><xsl:value-of select="@value"/></xsl:with-param>
     <xsl:with-param name="pre_mark"><xsl:value-of select="@pre_mark"/></xsl:with-param>
     <xsl:with-param name="post_mark"><xsl:value-of select="@post_mark"/></xsl:with-param>
   </xsl:call-template>
</xsl:template>

<!-- special case a conf:speech inside a noinput handler -->
<xsl:template match="*[name()='noinput']/conf:speech[@value]" priority="2">
   <xsl:call-template name="emit-prompt">
     <xsl:with-param name="value"><xsl:value-of select="@value"/></xsl:with-param>
     <xsl:with-param name="pre_mark"><xsl:value-of select="@pre_mark"/></xsl:with-param>
     <xsl:with-param name="post_mark"><xsl:value-of select="@post_mark"/></xsl:with-param>
   </xsl:call-template>
</xsl:template>

<!-- special case a conf:speech inside a block -->
<xsl:template match="*[name()='block']/conf:speech[@value]" priority="2">
   <xsl:call-template name="emit-prompt">
     <xsl:with-param name="value"><xsl:value-of select="@value"/></xsl:with-param>
     <xsl:with-param name="pre_mark"><xsl:value-of select="@pre_mark"/></xsl:with-param>
     <xsl:with-param name="post_mark"><xsl:value-of select="@post_mark"/></xsl:with-param>
   </xsl:call-template>
</xsl:template>

<xsl:template match="conf:speech[@value]">
   <xsl:call-template name="emit-prompt">
     <xsl:with-param name="value"><xsl:value-of select="@value"/></xsl:with-param>
     <!-- explicit @count overrides tapering behavior -->
     <!-- to get a single prompt (no tapering) with no explicit count attribute, set @count="0" -->
     <xsl:with-param name="count" select="@count"/>
     <xsl:with-param name="taper">
       <xsl:choose>
         <xsl:when test="@count">0</xsl:when>
         <xsl:when test="@taper"><xsl:value-of select="@taper"/></xsl:when>
         <xsl:otherwise>1</xsl:otherwise>
       </xsl:choose>
     </xsl:with-param>
     <xsl:with-param name="pre_mark"><xsl:value-of select="@pre_mark"/></xsl:with-param>
     <xsl:with-param name="post_mark"><xsl:value-of select="@post_mark"/></xsl:with-param>
   </xsl:call-template>
</xsl:template>

<xsl:template match="*[name()='nomatch']/conf:dtmf[@value]" priority="2">
   <xsl:call-template name="emit-dtmf">
     <xsl:with-param name="value"><xsl:value-of select="@value"/></xsl:with-param>
     <xsl:with-param name="count" select="0"/>
     <xsl:with-param name="pre_mark" select="@pre_mark"/>
     <xsl:with-param name="post_mark" select="@post_mark"/>
   </xsl:call-template>
</xsl:template>

<xsl:template match="*[name()='noinput']/conf:dtmf[@value]" priority="2">
   <xsl:call-template name="emit-dtmf">
     <xsl:with-param name="value"><xsl:value-of select="@value"/></xsl:with-param>
     <xsl:with-param name="count" select="0"/>
     <xsl:with-param name="pre_mark" select="@pre_mark"/>
     <xsl:with-param name="post_mark" select="@post_mark"/>
   </xsl:call-template>
</xsl:template>

<xsl:template match="*[name()='block']/conf:dtmf[@value]" priority="2">
   <xsl:call-template name="emit-dtmf">
     <xsl:with-param name="value"><xsl:value-of select="@value"/></xsl:with-param>
     <xsl:with-param name="count" select="0"/>
     <xsl:with-param name="pre_mark" select="@pre_mark"/>
     <xsl:with-param name="post_mark" select="@post_mark"/>
   </xsl:call-template>
</xsl:template>

<xsl:template match="conf:dtmf[@value]">
   <xsl:call-template name="emit-dtmf">
     <xsl:with-param name="value"><xsl:value-of select="@value"/></xsl:with-param>
     <xsl:with-param name="count" select="@count"/>
     <xsl:with-param name="pre_mark" select="@pre_mark"/>
     <xsl:with-param name="post_mark" select="@post_mark"/>
   </xsl:call-template>
</xsl:template>

<!-- ############################################# -->
<!-- G r a m m a r s                               -->
<!-- ############################################# -->

<xsl:template match="conf:grammar[@interp and @utterance]" priority="2">
<xsl:variable name="rootname">CityName<xsl:value-of select="generate-id()"/></xsl:variable>
<grammar type="application/srgs+xml" root="{$rootname}" version="1.0">
  <rule id="{$rootname}" scope="public">
  <one-of>
     <item>
       <xsl:call-template name="emit-utterance">
         <xsl:with-param name="utterance"><xsl:value-of select="@utterance"/></xsl:with-param>
       </xsl:call-template>
      <tag>'<xsl:value-of select="@interp"/>'</tag>
    </item>
  </one-of>
  </rule>
</grammar>
</xsl:template>

<!-- an utterance without an explicit interpretation -->
<xsl:template match="conf:grammar[@utterance]" priority="1">
<xsl:variable name="rootname">CityName<xsl:value-of select="generate-id()"/></xsl:variable>
<grammar type="application/srgs+xml" root="{$rootname}" version="1.0">
  <rule id="{$rootname}" scope="public">
  <one-of>
    <item>
      <xsl:call-template name="emit-utterance">
         <xsl:with-param name="utterance"><xsl:value-of select="@utterance"/></xsl:with-param>
      </xsl:call-template>
    </item>
  </one-of>
  </rule>
</grammar>
</xsl:template>

<xsl:template match="conf:grammar[@utterance and descendant::conf:key]" priority="2">
<xsl:variable name="rootname">CityName<xsl:value-of select="generate-id()"/></xsl:variable>
<grammar type="application/srgs+xml" root="{$rootname}" version="1.0">
  <rule id="{$rootname}" scope="public">
  <one-of>
    <item>
      <xsl:call-template name="emit-utterance">
         <xsl:with-param name="utterance"><xsl:value-of select="@utterance"/></xsl:with-param>
      </xsl:call-template>

    <tag>
      <xsl:apply-templates select="conf:key"/>
    </tag>
    </item>
  </one-of>
  </rule>
</grammar>
</xsl:template>


<xsl:template match="conf:key[@value]" priority="2">
  <xsl:param name="path"/>
  <xsl:choose>  
  <xsl:when test="$path = ''">
    <xsl:text>var </xsl:text>
  </xsl:when>
  <xsl:when test="$path != ''">
    <xsl:value-of select="$path"/><xsl:text>.</xsl:text>
  </xsl:when>
 </xsl:choose>
  
  <xsl:value-of select="@name"/>
  <xsl:text>='</xsl:text>
  <xsl:value-of select="@value"/>
  <xsl:text>'; </xsl:text>
</xsl:template>

<xsl:template match="conf:key" priority="1">
  <xsl:param name="path"/>
 <xsl:choose>
  <xsl:when test="$path = ''">
    <xsl:text>var </xsl:text>
  </xsl:when>
  <xsl:when test="$path != ''">
    <xsl:value-of select="$path"/><xsl:text>.</xsl:text>
  </xsl:when>
</xsl:choose>
  <xsl:value-of select="@name"/><xsl:text>=new Object(); </xsl:text>
  <xsl:apply-templates select="conf:key">
    <xsl:with-param name="path">
      <xsl:if test="$path != ''">
        <xsl:value-of select="$path"/><xsl:text>.</xsl:text>
      </xsl:if>
      <xsl:value-of select="@name"/>
    </xsl:with-param>
  </xsl:apply-templates>
</xsl:template>


<xsl:template match="conf:phrase[@utterance]">
   <xsl:call-template name="emit-name-from-token">
     <xsl:with-param name="token" select="@utterance"/>
   </xsl:call-template>          
</xsl:template>

<!-- ############################################# -->
<!-- H e l p e r  T e m p l a t e s                            -->
<!-- ############################################# -->

<!-- for use in building grammars -->
<xsl:template name="emit-utterance">
<xsl:param name="utterance"/>
  <xsl:choose>
  <xsl:when test="$utterance='alpha'">chicago</xsl:when>
  <xsl:when test="$utterance='bravo'">san francisco</xsl:when>
  <xsl:when test="$utterance='charlie'">new york</xsl:when>
  <xsl:when test="$utterance='delta'">london</xsl:when>
  <xsl:when test="$utterance='echo'">tokyo</xsl:when>
  <xsl:when test="$utterance='foxtrot'">truth or consequences</xsl:when>
  <xsl:when test="$utterance='golf'">hackensack</xsl:when>
  <xsl:when test="$utterance='hotel'">standardsville</xsl:when>
  <xsl:when test="$utterance='help'">help</xsl:when>
  <xsl:when test="$utterance='cancel'">cancel</xsl:when>
  <xsl:when test="$utterance='exit'">exit</xsl:when>
  <xsl:when test="$utterance='yes'">yes</xsl:when>
  </xsl:choose>
</xsl:template>
<!-- Truth or Consequences is a real city in New Mexico, US.  Hackensack
     is located in New Jersey, US very close to the site of the Sept. 2001
     face-to-face.   And finally, yes, there really is a Standardsville.
     It's in Greene County, Virginia, US. -->

<!-- for use in building prompts -->
<xsl:template name="emit-name-from-token">
<xsl:param name="token"/>
  <xsl:choose>
    <xsl:when test="$token = 'alpha'">Chicago</xsl:when>
    <xsl:when test="$token = 'bravo'">San Francisco</xsl:when>
    <xsl:when test="$token = 'charlie'">New York</xsl:when>
    <xsl:when test="$token = 'delta'">London</xsl:when>
    <xsl:when test="$token = 'echo'">Tokyo</xsl:when>
    <xsl:when test="$token = 'foxtrot'">Truth or Consequences</xsl:when>
    <xsl:when test="$token = 'golf'">Hackensack</xsl:when>
    <xsl:when test="$token = 'hotel'">Standardsville</xsl:when>
    <xsl:when test="$token = 'help'">help</xsl:when>
    <xsl:when test="$token = 'cancel'">cancel</xsl:when>
    <xsl:when test="$token = 'exit'">exit</xsl:when>
    <xsl:when test="$token = 'yes'">yes</xsl:when>
  </xsl:choose>
</xsl:template>

<xsl:template name="emit-prompt">
  <xsl:param name="value"/>
  <xsl:param name="count" select="0"/>
  <xsl:param name="pre_mark"/>
  <xsl:param name="post_mark"/>
  
  <xsl:variable name="text_mapping">
    <xsl:call-template name="emit-name-from-token">
      <xsl:with-param name="token" select="$value"/>
    </xsl:call-template>          
  </xsl:variable>
  
  <xsl:choose>
  <xsl:when test="$count &gt;= 0">
    <prompt><xsl:if test="$count &gt; 0"><xsl:attribute name="count"><xsl:value-of select="$count"/></xsl:attribute></xsl:if>
            <xsl:if test="$pre_mark != ''">
            <mark name="{$pre_mark}"/>
            </xsl:if>
       Say '<xsl:value-of select="$text_mapping"/>'.
            <xsl:if test="$post_mark != ''">
            <mark name="{$post_mark}"/>
            </xsl:if>
    </prompt>
  </xsl:when>
  <xsl:otherwise> <!-- taper -->
    <prompt count="1">
            <xsl:if test="$pre_mark != ''">
            <mark name="{$pre_mark}"/>
            </xsl:if>
      Say '<xsl:value-of select="$text_mapping"/>'.
            <xsl:if test="$post_mark != ''">
            <mark name="{$post_mark}"/>
            </xsl:if>
    </prompt>
    <prompt count="2"> 
            <xsl:if test="$pre_mark != ''">
            <mark name="{$pre_mark}"/>
            </xsl:if>
      Say '<xsl:value-of select="$text_mapping"/>' again.      
            <xsl:if test="$post_mark != ''">
            <mark name="{$post_mark}"/>
            </xsl:if>
    </prompt>
    <prompt count="3">       
            <xsl:if test="$pre_mark != ''">
            <mark name="{$pre_mark}"/>
            </xsl:if>
      Say '<xsl:value-of select="$text_mapping"/>' one more time.
            <xsl:if test="$post_mark != ''">
            <mark name="{$post_mark}"/>
            </xsl:if>
    </prompt>
   </xsl:otherwise>
  </xsl:choose>     
</xsl:template>

<xsl:template name="emit-dtmf">
  <xsl:param name="value"/>
  <xsl:param name="count"/>
  <xsl:param name="pre_mark"/>
  <xsl:param name="post_mark"/>

  <xsl:choose>
    <xsl:when test="$count &gt;= 0">
      <prompt><xsl:if test="$count &gt; 0"><xsl:attribute name="count"><xsl:value-of select="$count"/></xsl:attribute></xsl:if>
      <xsl:if test="$pre_mark != ''">
      <mark name="{$pre_mark}"/>
      </xsl:if>
            Press '<xsl:value-of select="$value"/>'. 
    <xsl:if test="@duration"> for <xsl:value-of select="@duration"/> seconds</xsl:if>.
      <xsl:if test="$post_mark != ''">
      <mark name="{$post_mark}"/>
      </xsl:if>
      </prompt>
    </xsl:when>
  <xsl:otherwise>
    <prompt count="1"> 
            <xsl:if test="$pre_mark != ''">
            <mark name="{$pre_mark}"/>
            </xsl:if>
       Press '<xsl:value-of select="@value"/>'. 
            <xsl:if test="$post_mark != ''">
            <mark name="{$post_mark}"/>
            </xsl:if>
    </prompt>
    <prompt count="2"> 
            <xsl:if test="$pre_mark != ''">
            <mark name="{$pre_mark}"/>
            </xsl:if>
       Press '<xsl:value-of select="@value"/>' again. 
            <xsl:if test="$post_mark != ''">
            <mark name="{$post_mark}"/>
            </xsl:if>
    </prompt>
    <prompt count="3"> 
            <xsl:if test="$pre_mark != ''">
            <mark name="{$pre_mark}"/>
            </xsl:if>
       Press '<xsl:value-of select="@value"/>' one more time. 
            <xsl:if test="$post_mark != ''">
            <mark name="{$post_mark}"/>
            </xsl:if>
    </prompt>
  </xsl:otherwise>
  </xsl:choose>
</xsl:template>

</xsl:stylesheet>

<!ENTITY % ir-checks "if-header | if-method | if-parameter | if-upload | if-all-params" >

<!ELEMENT ircgi (params | comment | %ir-checks; | next)*>

<!ELEMENT comment (#PCDATA) >

<!ELEMENT if-parameter (comment | %ir-checks; | next)* >
<!ATTLIST if-parameter 
  name CDATA #REQUIRED
  value CDATA #IMPLIED
  starts-with CDATA #IMPLIED
  ignore-case (true|false) "false" >

<!ELEMENT if-all-params (comment | %ir-checks; | next)* >
<!ATTLIST if-all-params
  ref IDREF #REQUIRED>

<!ELEMENT params (param+)>
<!ATTLIST params
  id ID #REQUIRED>

<!ELEMENT param EMPTY>
<!ATTLIST param 
  name CDATA #REQUIRED
  value CDATA #REQUIRED
>

<!ELEMENT if-upload (comment | %ir-checks; | next)* >
<!ATTLIST if-upload
  name CDATA #REQUIRED
  size CDATA #IMPLIED>

<!ELEMENT if-header (comment | %ir-checks; | next)* >
<!ATTLIST if-header
  name CDATA #REQUIRED
  value CDATA #IMPLIED
  starts-with CDATA #IMPLIED
  ignore-case (true|false) "false" >

<!ELEMENT if-method (comment | %ir-checks; | next)* >
<!ATTLIST if-method
  type (get|post) "get" >

<!ELEMENT next EMPTY>
<!ATTLIST next
  code CDATA "200"
  dest CDATA #IMPLIED
  include (true|false) "false"
  sleep CDATA #IMPLIED
  expires CDATA #IMPLIED>

<?xml version="1.0"?>
<!-- Check if request method was 'POST'. -->
<ircgi>
  <if-method value="post">
    <next dest="pass.vxml" /> 
  </if-method>
  <next dest="fail.vxml" /> 
</ircgi>

<?xml version="1.0"?>
<!--
Check if parameter p1 is present.
-->
<ircgi>
  <if-parameter name="p1">
      <next dest="../pass.vxml" /> 
  </if-parameter>
  <next dest="../fail.vxml" /> 
</ircgi>

<?xml version="1.0"?>
<!-- Check if p1 ==  42 and p2 == 'quiche'. -->
<ircgi>
  <if-parameter name="p1" value="42">
    <comment>p1 is 42.</comment>
    <if-parameter name="p2" value="quiche">
      <comment> p2 is quiche.</comment>
      <next dest="../pass.vxml" /> 
    </if-parameter>
    <comment> p2 is not quiche.</comment>
    <next dest="../fail.vxml" />
  </if-parameter>
  <comment>p1 is not 42.</comment>
  <next dest="../fail.vxml" /> 
</ircgi>

<?xml version="1.0" ?>
<ircgi>
  <if-header name="User-Agent">
    <if-header name="User-Agent" value="" >
      <comment>
        User-Agent header present, but empty.
      </comment>
      <next dest="../fail.vxml" />
    </if-header>
    <comment>
      User-Agent header was supplied and not empty.
    </comment>
    <next dest="../pass.vxml" />
  </if-header>
  <comment>
    User-Agent header was not supplied.
  </comment>
  <next dest="../fail.vxml" />
</ircgi>

<?xml version="1.0"?>
<!-- Send 404 if p1 not present -->
<ircgi>
  <if-parameter name="p1">
    <next dest="../pass.vxml" /> 
  </if-parameter>
  <next code="404" /> 
</ircgi>

<?xml version="1.0"?>
<!-- If p1 == 'include', include 'pass.vxml' if p2 == 'pass'. -->
<ircgi>
  <if-parameter name="p1" value="include">
    <if-parameter name="p2" value="pass">
      <next dest="../pass.vxml" include="true"/> 
    </if-parameter>
    <next dest="../fail.vxml" include="true" />
  </if-parameter>
  <comment>p1 is not 'include'.</comment>
  <next dest="../fail.vxml" /> 
</ircgi>

<?xml version="1.0"?>
<ircgi>
  <next dest="../fail.vxml" sleep="5" /> 
</ircgi>

<ircgi>
  <if-header name="Content-Type">
    <if-header name="Content-Type" starts-with="multipart/form-data" ignore-case="true">
      <next dest="../pass.vxml" />
    </if-header>
    <comment>
      Content-Type header was not multipart/form-data .
    </comment>
    <next dest="../fail.vxml" />
  </if-header>
  <next dest="../fail.vxml" />
</ircgi>

<ircgi>
  <next sleep="2" dest="../epoch.js" include="true"/>
</ircgi>

var epoch = __EPOCH__;

<ircgi>
  <next dest="../cache_me.vxml" include="true" expires="60"/>
</ircgi>

<?xml version="1.0"?>
<!--
Check if upload was of a specified size.
-->
<ircgi>
  <!-- 
    @name represents the upload parameter name
    @size can refer to a static numeric value or, 
      as shown here, to a CGI parameter name
  -->
  <if-upload name="recording" size="recsize">
      <next dest="../pass.vxml" /> 
  </if-upload>
  <next dest="../fail.vxml" /> 
</ircgi>

<?xml version="1.0"?>
<!-- Check if submitted parameters are in the set plist1 -->
<ircgi>
  <params id="plist1">
  <param name="p1" value="42"/>
  <param name="p2.dinner.main" value="quiche"/>
  <param name="p3" value="a 1 c"/>
  </params>
  <if-all-params ref="plist1">
      <next dest="../pass.vxml" /> 
  </if-all-params>
  <next dest="../fail.vxml" />
</ircgi>

<?xml version="1.0"?>
<!-- Copyright 1998-2005 W3C (MIT, ERCIM, Keio), All Rights Reserved. See http://www.w3.org/Consortium/Legal/. -->
<!-- Transforms an ircgi test file into a Java Server Page.-->
<!-- 
    NOTE: This JSP requires the com.oreilly.servlet package available at http://www.servlets.com/cos/
    The source code, object code, and documentation in the com.oreilly.servlet package
    (http://www.servlets.com/cos/) is copyright and owned by Jason Hunter.
-->
<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
<xsl:output method="text"/>

<xsl:template match="/" >
  <xsl:apply-templates />
</xsl:template>

<xsl:template match="ircgi">
  <xsl:call-template name="header" />
  <xsl:call-template name="declarations" />
  <xsl:call-template name="determineResult" />
</xsl:template>

<!--   Official contentType is 'application/voicexml+xml'.
  Change contentType to 'text/xml' to view generated JSP in IE.

   NOTE: The "header" template content below must be on a single line so that whitespace is not
   introduced at the beginning of the resulting XML document. XML parsers will complain. 
   Line breaks are included here for readability in the documentation.
 -->
<xsl:template name="header" >&lt;%@ page language="java" contentType="text/xml" %>
&lt;%@ page import="java.io.*" %>
&lt;%@ page import="java.net.*" %>
&lt;%@ page import="java.util.*" %>
&lt;%@ page import="com.oreilly.servlet.multipart.*" %>
</xsl:template>

<!--   Define a Result class to hold the destination, comments, and
  HTTP status code that will be set by 'determineResult' method.
-->
<xsl:template name="declarations">&lt;%!
    
    // Handles server side includes so they can be parsed
    private class JSPIncluder
    {
        void readInput(HttpServletRequest request, String strIncludePath) throws JspException
        {
            URLConnection conn;

            // Get URL
            StringBuffer strUrl = request.getRequestURL();
            String strUri = strUrl.toString();
            int nFindSlash = strUri.lastIndexOf("/");
            if (nFindSlash != -1)
            {
                strUri = strUri.substring(0, nFindSlash + 1);              
            }
            strUri += strIncludePath;
            // Open connection
            try
            {
                conn = (new URL(strUri)).openConnection();
                conn.setDoInput(true);
                conn.setDoOutput(false);
                conn.connect();
            }
            catch (Exception e)
            {
                throw new JspException(e.toString());
            }

            // Read in contents
            try
            {
                BufferedReader in = new BufferedReader(new InputStreamReader(conn.getInputStream()));
                StringBuffer buff = new StringBuffer();
                char[] chars = new char[2048];
                int nLen;

                while ((nLen = in.read(chars, 0, chars.length)) &gt;= 0)
                {
                    buff.append(chars, 0, nLen);
                }
                m_strBuffer = buff.toString();
                in.close();
            }
            catch (Exception e)
            {
                throw new JspException(e.toString());
            }
        }

        boolean replace(String strFind, String strReplace)
        {
            boolean bFound = false;
            if (m_strBuffer != null &amp;&amp; m_strBuffer.length() > 0)
            {
                int a = 0;
                int b = 0;
                while (true)
                {
                    a = m_strBuffer.indexOf(strFind, b);
                    if (a != -1)
                    {
                        m_strBuffer = m_strBuffer.substring(0, a) + strReplace + m_strBuffer.substring(a + strFind.length());
                        b = a + strReplace.length();
                        bFound = true;
                    }
                    else
                    {
                        break;
                    }
                }
            }
            return bFound;
        }
        
        void doOutput(PageContext context) throws JspException
        {
            JspWriter out = context.getOut();
            try
            {
                out.print(m_strBuffer.toString());
            }
            catch (Exception e)
            {
                throw new JspException(e.toString());
            }   
        }
        private String m_strBuffer;
    }
    
    // Handles multipart/form-data 
    private class MultiPartHandler 
    {
        HttpServletRequest request;
        
        public MultiPartHandler(HttpServletRequest req)
        {
            request = req;
        }
        
        public boolean find(String strFind, int nOfSize) throws JspException 
        {            
            MultipartParser parser;
            Part part;
            String strName;
            if((request.getContentType() != null)&amp;&amp;(request.getContentType().startsWith("multipart/form-data")))
            {
                try
                {
                    parser = new MultipartParser(request, request.getContentLength());
                    while ((part = parser.readNextPart()) != null)
                    {
                        strName = part.getName();
                        if(strName.equals(strFind))
                        {
                            if (nOfSize == -1)
                            {
                                return true;
                            }
                            else
                            {
                                if (part.isFile())
                                {
                                    InputStream stream = ((FilePart)part).getInputStream();
                                    if (getSizeOfStream(stream) == nOfSize)
                                    {
                                        return true;
                                    }
                                }
                            }
                        }
                    }
                }
                catch (Exception e)
                {
                    throw new JspException(e.toString());
                }
            }
            
            return false;        
         }
         
         private long getSizeOfStream(InputStream stream)
         {
            if (null == stream) return 0;
            
            int nRead = 0;
            int nSize = 0;
            byte[] temp = new byte[1024];
            try 
            {
                while ((nRead = stream.read(temp)) != -1)
                {
                    nSize += nRead;
                }  
            }
            catch (IOException e) {}
            
            return nSize;         
         }
     }
    
  private class Result {
    String dest;
    long sleep = 0;
    boolean expiresHeaderSet = false;
    long expires = 0;
    boolean include = false;
    StringBuffer comments = new StringBuffer();
    int statusCode = 200;
  }
  private final String NL = System.getProperty("line.separator");
  private void determineResult(HttpServletRequest request, Result result, MultiPartHandler multipart) throws JspException
  {
    <xsl:apply-templates />
  }
%&gt;</xsl:template>


<!--  Create Result object and call 'determineResult' to set its fields.
  Return VoiceXML document only if HTTP response status code is 200.
  Otherwise, return just the status code.
-->
<xsl:template name="determineResult" >&lt;%
    Result myResult = new Result();
    MultiPartHandler myMultiPart = new MultiPartHandler(request);
    determineResult(request, myResult, myMultiPart);
    response.setStatus(myResult.statusCode);
    
    if (myResult.sleep &gt; 0)
    {
        try
        {
            Thread.sleep(myResult.sleep * 1000);
        }
        catch (InterruptedException e)
        {
            throw new JspException(e.toString());
        }
    }
    
    if (myResult.expiresHeaderSet)
    {
        Date now = new Date();
        long nMillis = now.getTime();
        response.setDateHeader("Expires", nMillis + myResult.expires*1000);
    }
    
    if (myResult.include) 
    {
        Date now = new Date();
        long nMillis = now.getTime();
        String strEpoch = String.valueOf(nMillis);
        JSPIncluder includer = new JSPIncluder();
        includer.readInput(request, myResult.dest);
        includer.replace("__EPOCH__", strEpoch);
        includer.doOutput(pageContext);
    }
    else {%&gt;<xsl:call-template name="vxml" />&lt;%}%&gt;
</xsl:template>


<xsl:template match="if-parameter" >
  if (<xsl:call-template name="genIfExpr">
        <xsl:with-param name="type" select="'Parameter'" />
      </xsl:call-template>) {
    <xsl:apply-templates />
  }
</xsl:template>


<xsl:template match="if-header" >
  if (<xsl:call-template name="genIfExpr">
        <xsl:with-param name="type" select="'Header'" />
      </xsl:call-template>) {
    <xsl:apply-templates />
  }
</xsl:template>


<xsl:template match="if-all-params">
<xsl:choose>
<xsl:when test="/ircgi/params[@id=current()/@ref][not(param)]">
  if (request.getParameterMap().isEmpty()) {
      <xsl:apply-templates />
  }
</xsl:when>
<xsl:otherwise>
  if (<xsl:for-each select="/ircgi/params[@id=current()/@ref]/param">
        <xsl:call-template name="genIfExpr">
          <xsl:with-param name="type" select="'Parameter'" />
        </xsl:call-template>
        <xsl:if test="position() != last()">&amp;&amp;</xsl:if>
      </xsl:for-each>) {
    <xsl:apply-templates />
  }
</xsl:otherwise>
</xsl:choose>
</xsl:template>


<xsl:template match="if-upload" >
  int nSize = -1;
  <xsl:if test="@size">
    if (null != request.getParameter("<xsl:value-of select='@size'/>"))
    {
      try {
        nSize = Integer.parseInt(request.getParameter("<xsl:value-of select='@size'/>"));
      }
      catch (NumberFormatException e) { }
    }
    else
    {
      try {
        nSize = Integer.parseInt("<xsl:value-of select='@size'/>");
      }
      catch (NumberFormatException e) { }
    }
  </xsl:if>  
  if (multipart.find("<xsl:value-of select="@name"/>", nSize))
  {
    <xsl:apply-templates />
  } 
</xsl:template>


<!--  Generate an expression that determines when the condition of an if-parameter / if-header
  element is true.  The 'type' parameter determines the
  HttpServletRequest method to use to get the value to be checked.
-->
<xsl:template name="genIfExpr" >
  <xsl:param name="type" />
  <xsl:param name="size" />
  <xsl:variable name="method">
    <xsl:choose>
      <xsl:when test="@ignore-case = 'true'" >equalsIgnoreCase</xsl:when>
      <xsl:otherwise>equals</xsl:otherwise>
    </xsl:choose>
  </xsl:variable>
  <xsl:choose>
    <xsl:when test="@value">
      request.get<xsl:value-of select="$type"/>
        ("<xsl:value-of select="@name"/>") != null &amp;&amp;
      request.get<xsl:value-of select="$type"/>
        ("<xsl:value-of select="@name"/>").<xsl:value-of select="$method"/>
        ("<xsl:value-of select="@value" />")
    </xsl:when>
    <xsl:when test="@starts-with">
       request.get<xsl:value-of select="$type"/>
        ("<xsl:value-of select="@name"/>") != null &amp;&amp;
       request.get<xsl:value-of select="$type"/>
        ("<xsl:value-of select="@name"/>").startsWith("<xsl:value-of select="@starts-with"/>")
    </xsl:when>     
    <xsl:otherwise>
      request.get<xsl:value-of select="$type"/>("<xsl:value-of select="@name"/>") != null 
        || multipart.find("<xsl:value-of select="@name"/>", -1)
    </xsl:otherwise>
  </xsl:choose>
</xsl:template>


<xsl:template match="if-method" >
  if (request.getMethod().equalsIgnoreCase("<xsl:value-of select="@type" />")) {
    <xsl:apply-templates />
  }
</xsl:template>


<!--  Disarm double quotes and newline characters from comments, then
  add to result's comment buffer for use later in 'log' element.
-->
<xsl:template match="comment" >
  result.comments.append
    ("<xsl:value-of select="translate(., '&#034;&#013;&#010;', '   ')" />".trim());
  result.comments.append(NL);
</xsl:template>


<xsl:template match="next" >
  <xsl:if test="@code" >
    result.statusCode = <xsl:value-of select="@code" />;
  </xsl:if>
  <xsl:if test="@dest" >
      result.dest = "<xsl:value-of select="@dest" />";
  </xsl:if>
  <xsl:if test="@include = 'true'">
    result.include = true;
  </xsl:if>  
  <xsl:if test="@sleep">
      result.sleep = <xsl:value-of select="@sleep" />;
  </xsl:if>  
  <xsl:if test="@expires">
      result.expiresHeaderSet = true;
      result.expires = <xsl:value-of select="@expires" />;
  </xsl:if>
    return;
</xsl:template>


<!--  Generate VoiceXML document that does a 'goto' to the document
  indicated in myResult.  If comment buffer is not empty, include
  a 'log' element to aid in debugging.
-->
<xsl:template name="vxml" ><![CDATA[<?xml version="1.0" ?>
<vxml version="2.1" xmlns="http://www.w3.org/2001/vxml">
  <form>
    <block><% String comments = myResult.comments.toString();
   if (comments.length()>0) {%>
      <log>]]>
        <xsl:text disable-output-escaping="yes">
          &lt;![CDATA[&lt;%= comments %&gt;]]&gt;
        </xsl:text><![CDATA[
      </log><%}%>
      <goto next="<%= myResult.dest %>"/>
    </block>
  </form>
</vxml> ]]>
</xsl:template>

</xsl:stylesheet>

<?xml version="1.0"?>
<!-- Copyright 1998-2005 W3C (MIT, ERCIM, Keio), All Rights Reserved. See http://www.w3.org/Consortium/Legal/. -->
<xsl:stylesheet version="1.0" 
  xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
<xsl:output method="text"/>

<xsl:template match="/" >
  <xsl:apply-templates />
</xsl:template>

<!-- root document element -->
<xsl:template match="ircgi">
  <xsl:call-template name="header" />
  <xsl:apply-templates />
  <xsl:call-template name="footer" />
</xsl:template>

<!-- handle CGI parameter checks -->
<xsl:template match="if-parameter" >
  $val = param("<xsl:value-of select="@name"/>");
  <xsl:call-template name="check-value">
    <xsl:with-param name="value" select="@value"/>
    <xsl:with-param name="starts-with" select="@starts-with"/>
    <xsl:with-param name="ignore-case" select="@ignore-case"/>
  </xsl:call-template>
</xsl:template>

<xsl:template match="if-all-params[@ref]" >
  if (CheckAllParams({<xsl:for-each select="/ircgi/params[@id=current()/@ref]/param">'<xsl:value-of select="@name"/>' 
        => '<xsl:value-of select="@value"/>'<xsl:if test="position() != last()">,</xsl:if></xsl:for-each>}, \@comments)) {
    <xsl:apply-templates/>
  }
</xsl:template>


<!-- 
if-upload - perform checks on a file upload
@name - does an upload exist with the given name
@size - (optional) check its size. if the value is a number, compare directly. 
       if it starts with alpha or '_', see if there's a param with that name, and compare against the value
@type - (optional) verify that the uploaded data is the specified type
   <if-upload name="recording" size="recsize">
      <next dest="../pass.vxml"/>
   </if-upload>
-->
<xsl:template match="if-upload">
  if (CheckUpload('<xsl:value-of select="@name"/>', 
    <xsl:choose><xsl:when test="@size">'<xsl:value-of select="@size"/>'</xsl:when>
    <xsl:otherwise>undef</xsl:otherwise></xsl:choose>, \@comments)) {
    <xsl:apply-templates/>
  }
</xsl:template>

<!-- handle HTTP Request header checks -->
<xsl:template match="if-header">
  $val = $ENV{<xsl:call-template name="map-header"><xsl:with-param name="header" select="@name"/></xsl:call-template>};
  <xsl:call-template name="check-value">
    <xsl:with-param name="value" select="@value"/>
    <xsl:with-param name="starts-with" select="@starts-with"/>
    <xsl:with-param name="ignore-case" select="@ignore-case"/>
  </xsl:call-template>
</xsl:template>

<!-- in Perl, the Request-Method is just another HTTP Request header -->
<xsl:template match="if-method">
 $val = $ENV{REQUEST_METHOD};
  <xsl:call-template name="check-value">
    <xsl:with-param name="value">
      <xsl:choose>
        <xsl:when test="@type"><xsl:value-of select="@type"/></xsl:when>
        <xsl:otherwise>get</xsl:otherwise> <!-- default http request method -->
      </xsl:choose>
    </xsl:with-param>
    <xsl:with-param name="ignore-case" select="'true'"/>
  </xsl:call-template>
</xsl:template>

<!-- strip comment elements -->
<xsl:template match="comment">
  push @comments, qq {<xsl:value-of select="."/>};
</xsl:template>

<!-- handle next elements -->
<xsl:template match="next">
    return {
  <xsl:choose>
    <xsl:when test="not(@code) and not(@dest)">
      status => "200",
    </xsl:when>
  <xsl:otherwise>
    <xsl:if test="@dest">
      next => "<xsl:value-of select="@dest" />", 
      <xsl:if test="@include = 'true'">
        include => 1,
      </xsl:if>
    </xsl:if>
    <xsl:if test="@code">
      status => "<xsl:value-of select="@code" />",
    </xsl:if>    
  </xsl:otherwise>
  </xsl:choose>
  <xsl:if test="@sleep">
    sleep => "<xsl:value-of select="@sleep"/>",    
  </xsl:if>
  <xsl:if test="@expires">
    expires => int(<xsl:value-of select="@expires"/>),
  </xsl:if>
    comments => \@comments};
</xsl:template>

<!-- check the value, if any, and continue processing child elements -->
<xsl:template name="check-value">
<xsl:param name="value"/>
<xsl:param name="starts-with"/>
<xsl:param name="ignore-case"/>
<xsl:param name="equals-upload-size"/>
<xsl:choose>
<xsl:when test="$starts-with">
  my $starts = '<xsl:value-of select="$starts-with"/>';
  if (defined($val) &amp;&amp; ($val =~ /^$starts/<xsl:if test="$ignore-case='true'">i</xsl:if>)) {
    <xsl:apply-templates/>
  }
</xsl:when>
<xsl:when test="$value"> <!-- XSLT 1.0 11.2: empty attr == missing attr -->
  <xsl:choose>
  <xsl:when test="$value=''">
    if (defined($val) &amp;&amp; ($val =~ /^\s*$/)) {
      <xsl:apply-templates/>
    }
  </xsl:when>
  <xsl:otherwise>
    my $match = '<xsl:value-of select="$value"/>';
    if (defined($val) &amp;&amp; ($val =~ /^$match$/<xsl:if test="$ignore-case='true'">i</xsl:if>)) {
      <xsl:apply-templates/>
    }
  </xsl:otherwise>
  </xsl:choose>
</xsl:when>
<xsl:otherwise>
  if (defined($val)) {
    <xsl:apply-templates/>
  }
</xsl:otherwise>
</xsl:choose>
</xsl:template>

<xsl:template name="header">#!/usr/local/bin/perl -w
use strict;
use CGI qw(param);
use CGI::Util qw(expires);
use IO::Handle ();

# limit sleep time to 1 minute to prevent DOS attack
use constant SLEEP_LIMIT => 60;

# forward decls
sub GetStatusText;
sub Run;
sub JumpTo;
sub GetContentType;
sub ExpiresFromDelta;
sub GetFileSize;
sub CheckUpload;
sub CheckAllParams;

my $rhRetval = Run();
my $next = $rhRetval->{next}; # where to Mr. Magoo?
my $statusCode = $rhRetval->{status};
my $statusText = "unknown status";
my $ctype = GetContentType($next);
my $raComments = $rhRetval->{comments};
my $bInclude = $rhRetval->{include};
my $expires_delta = $rhRetval->{expires};
my $epoch = time;

if (defined($next) &amp;&amp; defined($bInclude) &amp;&amp; 1 == $bInclude) {
  # restrict paths when allowing source inclusion
  if (($next =~ /^\//) || ($next =~ /\/\.\./)) {
    $statusCode = 403;
  }
}

my $sleep = $rhRetval->{sleep};
if (defined($sleep)) {
  if (($sleep =~ /^\d+$/) &amp;&amp; ($sleep &lt;= SLEEP_LIMIT)) {
    sleep $sleep;
  } else {
    push @$raComments, "Bad sleep interval $sleep";
  }
}

print "Content-Type: $ctype\n";
if (defined($expires_delta)) {
  print ExpiresFromDelta($expires_delta) . "\n";
}
if(defined($statusCode)) {
  $statusText = GetStatusText($statusCode);
  print "Status: $statusCode $statusText\n\n";
} else {
  print "\n";
}

if (!defined($next)) {
  print "$statusText\n";
} else {
  my $content;
  if ($bInclude) {
    $! = 0; # clear i/o errs
    open HINCLUDE, $next;
    if ($! != 0) {
      push @$raComments, "Unable to open $next";
      $content = JumpTo($next, $raComments);
      print STDERR "Unable to open $next\n";
    } else {
      my $eor = $/;
      undef $/;
      $content = &lt;HINCLUDE&gt;;
      # allow caching tests to be performed by interpolating __EPOCH__
      $content =~ s/__EPOCH__/$epoch/g;
      close HINCLUDE;
      $/ = $eor;  
    }
  } else {
    $content = JumpTo($next, $raComments);
  }

  print $content;
}

# Return a simple VoiceXML document that navigates 
#   to the URI specified by $next
# Dump the comments in the array $raComments to the call log
sub JumpTo
{
  my($next, $raComments) = @_;

<![CDATA[
  my $content = <<EOF;
<?xml version="1.0"?>
<vxml version="2.1"
  xmlns="http://www.w3.org/2001/vxml"
>
<form>
  <block>
EOF
]]>
foreach my $comment (@$raComments) {
  $content .= qq{&lt;log>$comment &lt;/log>\n};
}
<![CDATA[
$content .= <<EOF;
    <goto next="$next"/>
  </block>
</form>
</vxml>
EOF
]]>

  $content;
}


# Determine what to do next
# Return a hash containing one or more of the following keys:
#   next - the next document to navigate to 
#   code - the HTTP response code
#   comments - a reference to an array of comments to aid in debugging
sub Run
{
  my $val; # temp var to stash param or header value
  my @comments = (); # array of comments obtained while processing
</xsl:template>

<xsl:template name="footer" >
}

# Map a status code to an informative string
# http://www.w3.org/Protocols/rfc2616/rfc2616-sec6.html#sec6.1.1
sub GetStatusText
{
  my($code) = @_;

  my $rhCodes = {100 => "Continue",
  101 => "Switching Protocols",
  200 => "OK",
  201 => "Created",
  202 => "Accepted",
  203 => "Non-Authoritative Information",
  204 => "No Content",
  205 => "Reset Content",
  206 => "Partial Content",
  300 => "Multiple Choices",
  301 => "Moved Permanently",
  302 => "Found",
  303 => "See Other",
  304 => "Not Modified",
  305 => "Use Proxy",
  307 => "Temporary Redirect",
  400 => "Bad Request",
  401 => "Unauthorized",
  402 => "Payment Required",
  403 => "Forbidden",
  404 => "Not Found",
  405 => "Method Not Allowed",
  406 => "Not Acceptable",
  407 => "Proxy Authentication Required",
  408 => "Request Time-out",
  409 => "Conflict",
  410 => "Gone",
  411 => "Length Required",
  412 => "Precondition Failed",
  413 => "Request Entity Too Large",
  414 => "Request-URI Too Large",
  415 => "Unsupported Media Type",
  416 => "Requested range not satisfiable",
  417 => "Expectation Failed",
  500 => "Internal Server Error",
  501 => "Not Implemented",
  502 => "Bad Gateway",
  503 => "Service Unavailable",
  504 => "Gateway Time-out",
  505 => "HTTP Version not supported extension-code"};

  return (exists($rhCodes->{$code}) ? $rhCodes->{$code} : "invalid status code");
}

sub GetContentType
{
  my($next) = @_;

  my $ctype = "text/plain";
  if (defined($next)) {
    my $rhTypes = {'txml' => 'text/xml', 'vxml' => 'text/xml', 
      'xml' => 'text/xml', 'srgs' => 'text/xml'};
    my @parts = split /\./, $next;    
    my $ext = $parts[0];
    if (exists($rhTypes->{$ext})) {
      $ctype = $rhTypes->{$ext};
    }    
  }
  
  $ctype;
}

# return an expires header given seconds since epoch
sub ExpiresFromDelta
{
  my($delta) = @_;
  $delta = (($delta >= 0 &amp;&amp; $delta !~ /^\+/) ? "+" : "") . $delta . "s";
  "Expires: " . expires($delta);
}

# check the size of the file referenced by $fh
sub GetFileSize
{
  my($fh) = @_;
  my $size = 0;
  if (defined($fh)) {
    my $io = IO::Handle->new_from_fd(fileno($fh), 'r');
    if (defined($io)) {
      my @stats = $io->stat();
      $size = $stats[7];
    }
  }
  $size;
}

# check the validity of the named file upload
# optionally validate its size
sub CheckUpload
{
  my($name, $compsize, $raComments) = @_;
  my $retval = 0;
  my $size = GetFileSize(param($name));
  if (defined($compsize)) {
    if ($compsize =~ /^\d+$/) {
      # if all digits, assume static value for comparison
      $compsize = int($compsize);
    } elsif ($compsize =~ /^[a-zA-Z_]/) {   
      # assume a reference to another parameter
      my $psize = param($compsize);
      if (defined($psize)) {
        # we expect digits
        if ($psize =~ /^\d+$/) {
          $compsize = int($psize);
        } else {
          push @$raComments, 'invalid if-upload/@size ' . $compsize . '; expected number';
        }
      } else {
        push @$raComments, 'unable to retrieve if-upload/@size ' . $compsize;
      }
    } else {
      # yikes. bad variable name
      push @$raComments, 'bad if-upload/@size ' . $compsize;
    }
    if ($size == $compsize) {
      $retval = 1;
    } else {
      push @$raComments, 'file size ' . $size . ' did not match expected size ' . $compsize;
    }
  } else {
    # just check if we got an upload with this name
    if ($size &gt; 0) {
      $retval = 1;
    } else {
      push @$raComments, 'no file upload found for ' . $name;
    }
  }

  $retval;
}

# loop through the CGI params received in the HTTP request and verify that their names/values
# exist in the hash reference. also verify that all of the expected values were passed in the request
sub CheckAllParams
{
  my($rhExpectedParams, $raComments) = @_;
  my $ret = 1;
  my @params = param();
  # loop through what we got in the HTTP request, and see if we expected it
  foreach my $name (@params) {
    my $vSubmitted = param($name);
    my $vExpected = $rhExpectedParams->{$name};
    if (!defined($vExpected)) { # if the values aren't equal, we'll catch it during the next loop
      push @$raComments, "unexpected '$name' in request'";
      $ret = 0;
    }
  }

  # loop through what we expected to get, and see if we received it
  foreach my $expected (keys %$rhExpectedParams) {
    my $vExpected = $rhExpectedParams->{$expected};
    my $vSubmitted = param($expected);
    if (!defined($vSubmitted)) {
      push @$raComments, "expected '$expected' not found";
      $ret = 0;
    } elsif ($vExpected ne $vSubmitted) {
      push @$raComments, "expected '$expected' to be '$vExpected' not '$vSubmitted'";
      $ret = 0;
    }
  }

  $ret;
}
</xsl:template>

<!-- 
  the headers we're willing to expose.
  allowing arbitrary header requests is a security risk
-->
<xsl:template name="map-header">
<xsl:param name="header"/>
<xsl:choose>
  <xsl:when test="$header = 'User-Agent'">HTTP_USER_AGENT</xsl:when>
  <xsl:when test="$header = 'Request-Method'">REQUEST_METHOD</xsl:when>
  <xsl:when test="$header = 'Content-Type'">CONTENT_TYPE</xsl:when>
  <xsl:otherwise>__UNKNOWN__<xsl:value-of select="$header"/></xsl:otherwise>
</xsl:choose>
</xsl:template>

</xsl:stylesheet>