음성 실행 XML, Part 1: 음성 실행 RSS 리더(reader) 개발하기

                
<?xml version="1.0"?>
<vxml xmlns="http://www.w3.org/2001/vxml" version="2.0">
...
</vxml>

                
<?xml version="1.0" encoding="UTF-8"?>

<vxml version="2.1">
  <form>
    <block>
      <prompt>
        I could ask you anything!
      </prompt>
    </block>
  </form>
</vxml>

                
<?xml version="1.0" encoding="UTF-8"?>
<!-- generator="wordpress/2.0.4" -->
<rss version="2.0" 
  xmlns:content="http://purl.org/rss/1.0/modules/content/"
  xmlns:wfw="http://wellformedweb.org/CommentAPI/"
  xmlns:dc="http://purl.org/dc/elements/1.1/"
  >

<channel>
  <title>MCslp</title>
  <link>http://mcslp.com</link>
  <description>News from the desk of Martin MC Brown</description>
  <pubDate>Thu, 19 Apr 2007 08:14:30 +0000</pubDate>
  <generator>http://wordpress.org/?v=2.0.4</generator>
  <language>en</language>
    <item>
      <title>IBM developerWorks Podcast Interview</title>
      ...
    </item>
    <item>
      <title>...</title>
      ...
    </item>
</channel>
</rss>

                
<item>
  <title>IBM developerWorks Podcast Interview</title>
  <link>http://mcslp.com/?p=250</link>
  <comments>http://mcslp.com/?p=250#comments</comments>
  <pubDate>Thu, 19 Apr 2007 08:14:28 +0000</pubDate>
  <dc:creator>Martin MC Brown</dc:creator>

  <category>Articles</category>
  <category>Interviews</category>
  <category>IBM developerWorks</category>
  <category>Grids</category>
  <guid isPermaLink="false">http://mcslp.com/?p=250</guid>
  <description>
    <![CDATA[
      Summary
    ]]>
  </description>
  <content:encoded>
    <![CDATA[
      Full information
    ]]>
  </content:encoded>
</item>

                
<?xml version="1.0" encoding ="UTF-8"?>
<xsl:stylesheet version="1.0"
    xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
    <xsl:output method="xml" omit-xml-declaration="no"/>
    <xsl:template match="/">

        <vxml version="2.0"
            xmlns="http://www.w3.org/2001/vxml">
            <form id="news">
                <xsl:for-each select="rss/channel/item">

                    <block>
                        <prompt>
                            <xsl:value-of select="title" />
                            <break size="small" />
                            <xsl:value-of select="description" />

                            <break size="medium" />
                        </prompt>
                    </block>

                </xsl:for-each>
            </form>
        </vxml>
    </xsl:template>
</xsl:stylesheet>

                
$ xsltproc rsstovxml.xsl rss.xml
<?xml version="1.0"?>
<vxml xmlns="http://www.w3.org/2001/vxml" version="2.0">
<form id="news">
  <block>
    <prompt>Prince Harry not to serve in Iraq
      <break size="small"/>
        Prince Harry will not be deployed in Iraq because of 
        the security threat, the head of the Army says.
      <break size="medium"/>
    </prompt>
  </block>
...
</form>
</vxml>

                
use XML::FeedPP;

my $feedurl 
   = 'http://newsrss.bbc.co.uk/rss/newsonline_uk_edition/uk/rss.xml';

my $feed = XML::FeedPP->new($feedurl);

my ($selection) = ('');

$selection = '<form><block>';
$selection .= '<prompt>' . $feed->title() . 
              '<break size="small"/></prompt>';

foreach my $i ( $feed->get_item() )
{
    next unless defined($i);
    next unless ($i->link() =~ m/http/);

    $selection 
       .= sprintf('<prompt>%s.<break size="small"/></prompt>',
                  $i->title());
}

$selection .= '</block></form>';

print <<EOF;
<?xml version="1.0" encoding ="UTF-8"?>
<!DOCTYPE vxml PUBLIC "-//W3C//DTD VOICEXML 2.1//EN" 
              "http://www.w3.org/TR/voicexml21/vxml.dtd">
<vxml version="2.1" xmlns="http://www/w3/org/2001/vxml"
    xml:lang="en-US">
$selection
</vxml>
EOF

                
<vxml version="2.1" xmlns="http://www/w3/org/2001/vxml"
  xml:lang="en-US">

  <form>
    <block>
      <prompt>
        BBC News | UK | UK Edition
        <break size="small" />
      </prompt>
      <prompt>
        Prince Harry not to serve in Iraq.
        <break size="small" />
      </prompt>
      <prompt>
        Madeleine fighting fund launched.
        <break size="small" />
      </prompt>
...
    </block>
  </form>

</vxml>

                
use XML::FeedPP;

my $feedurl 
   = 'http://newsrss.bbc.co.uk/rss/newsonline_uk_edition/uk/rss.xml';

my $feed = XML::FeedPP->new($feedurl);

my ($selection,$detail,$counter) = ('','',0);

$selection = '<form id="MainMenu"><field name="select_num" type="digits">';
$selection .= '<prompt>' . $feed->title() . 
                          '<break size="small"/></prompt>';
$selection .= '<prompt>Please select a story from the 
                           following list.</prompt>';

foreach my $i ( $feed->get_item() )
{
    next unless defined($i);
    next unless ($i->link() =~ m/http/);

# We only list the top six stories

    last if ($counter++ >= 6);

    if ($counter == 1)
    {
        $detail .= '<filled><assign name="selection" expr="select_num"/>';
        $detail .= "<if cond=\"selection =='$counter'\">";
    }
    else
    {
        $detail .= "<elseif cond=\"selection =='$counter'\"/>";
    }
    $detail .= sprintf('<prompt>%s. %s<break size="small"/>
<reprompt/></prompt>',$i->title(),$i->description());

    $selection .= sprintf('<prompt>%d: %s<break 
size="small"/></prompt>',$counter,$i->title());
}

$selection .= '<noinput>Please select a number. 
                              <reprompt/></noinput>';
$selection .= '<nomatch>Please select a valid number. 
                              <reprompt/></nomatch>';
$selection .= '</field>';

$detail .= '</if><clear 
namelist="select_num"/><reprompt/></filled></form>';

print <<EOF;
<vxml version="2.1">
$selection
$detail
</vxml>
EOF

                
<vxml version="2.1">
  <form id="MainMenu">
    <field name="select_num" type="digits">
      <prompt>
        BBC News | UK | UK Edition
        <break size="small" />
      </prompt>
      <prompt>
        Please select a story from the following list.
      </prompt>
      <prompt>
        1: Prince Harry not to serve in Iraq
        <break size="small" />
      </prompt>
      <prompt>
        2: Madeleine fighting fund launched
        <break size="small" />
      </prompt>
      <prompt>
        3: Salmond elected as first minister
        <break size="small" />
      </prompt>
      <prompt>
        4: Sainsbury profits jump to £380m
        <break size="small" />
      </prompt>
      <prompt>
        5: Police boo John Reid over pay
        <break size="small" />
      </prompt>
      <prompt>
        6: Uncle jailed for owning death dog
        <break size="small" />
      </prompt>
      <noinput>
        Please select a number.
        <reprompt />
      </noinput>
      <nomatch>
        Please select a valid number.
        <reprompt />
      </nomatch>
    </field>
    <filled>
      <assign name="selection" expr="select_num" />
      <if cond="selection =='1'">
        <prompt>
          Prince Harry not to serve in Iraq. Prince Harry will
          not be deployed in Iraq because of the security
          threat, the head of the Army says.
          <break size="small" />
        </prompt>
        <elseif cond="selection =='2'" />
        <prompt>
          Madeleine fighting fund launched. A fighting fund is
          launched to help cover escalating costs in the
          search for missing Madeleine McCann.
          <break size="small" />
        </prompt>
        <elseif cond="selection =='3'" />
        <prompt>
          Salmond elected as first minister. Alex Salmond
          makes history after becoming the first Nationalist
          to be elected first minister of Scotland.
          <break size="small" />
        </prompt>
        <elseif cond="selection =='4'" />
        <prompt>
          Sainsbury profits jump to £380m. Sainsbury's, the
          supermarket chain that was the target of takeover
          speculation, sees its full-year profits surge.
          <break size="small" />
        </prompt>
        <elseif cond="selection =='5'" />
        <prompt>
          Police boo John Reid over pay. Home Secretary John
          Reid is booed over pay proposals at the Police
          Federation's annual conference.
          <break size="small" />
        </prompt>
        <elseif cond="selection =='6'" />
        <prompt>
          Uncle jailed for owning death dog. The uncle of a
          five-year-old girl killed by a pit bull terrier is
          jailed for eight weeks for owning an illegal dog.
          <break size="small" />
        </prompt>
      </if>
      <clear namelist="select_num" />
      <reprompt />
    </filled>
  </form>
</vxml>

                
<clear namelist="select_num" />
<reprompt />

                
use CGI qw/:standard/;
print header(-type => 'text/xml');

                
import java.net.URL;
import java.util.Iterator;
import java.io.BufferedInputStream;
import java.io.File;
import java.io.FileInputStream;
import java.io.IOException;
import java.io.PrintWriter;
import java.util.Calendar;
import javax.servlet.*;
import javax.servlet.http.*;
import com.sun.syndication.feed.module.Module;
import com.sun.syndication.feed.synd.SyndEntry;
import com.sun.syndication.feed.synd.SyndFeed;
import com.sun.syndication.io.SyndFeedInput;
import com.sun.syndication.io.XmlReader;

public class VXMLRSS extends HttpServlet {

    public void doGet(HttpServletRequest req, HttpServletResponse res)
        throws ServletException, IOException {

        BufferedInputStream bis = null;
        PrintWriter out = null;

        try {
            out = res.getWriter();
            res.setContentType("text/xml");

            printHeader(out);
            printNews(out);
            printFooter(out);

        } finally {
            if (out != null) out.close();
            if (bis != null) bis.close();
        }
    }

    public void doPost(HttpServletRequest req, HttpServletResponse res)
        throws ServletException, IOException {

        doGet(req, res);
    }

    private void printHeader(PrintWriter out) throws IOException {
        out.println("<?xml version=\"1.0\" encoding=\"UTF-8\"?>");
        out.println("<vxml version=\"2.1\">");
    }

    private void printNews(PrintWriter out) throws IOException {
        try {
            final URL feedUrl = new 
URL("http://newsrss.bbc.co.uk/rss/newsonline_uk_edition/uk/rss.xml");

            final SyndFeedInput input = new SyndFeedInput();
            final SyndFeed feed = input.build(new XmlReader(feedUrl));

            out.println("<form><block>" + 
                        "<prompt>" + 
                        feed.getTitle() + 
                        "<break size=\"small\"/></prompt>");

            for (final Iterator iter = feed.getEntries().iterator();
                 iter.hasNext();)
                {
                    out.println("<prompt>" +
                                ((SyndEntry)iter.next()).getTitle() + 
                                "<break size=\"small\"/></prompt>");
                }
            out.println("</block></form>");
        }

        catch (Exception ex) {
            ex.printStackTrace();
            System.out.println("ERROR: " + ex.getMessage());
        }
    }

    private void printFooter(PrintWriter out) throws IOException {
        out.println("</vxml>");
    }
}

                
#!/usr/bin/perl

use XML::FeedPP;

use CGI qw/:standard/;

print header(-type => 'text/xml');

my ($feeds) = ['http://newsrss.bbc.co.uk/rss/newsonline_uk_edition/uk/rss.xml',
               'http://mcslp.com/wp-rss2.php'];


if (param('selection') =~ m/[0-9]+/)
{
    output_news_feed($feeds->[param('selection')]);
}
else
{
    output_feed_list();
}

sub output_feed_list
{
    my ($selection,$detail,$counter) = ('','',0);

    $selection = '<form id="MainMenu"><field name="select_num" 
                                                           type="digits">';
    $selection .= '<prompt>MCSLP News Feed 
                             Reader<break size="small"/></prompt>';
    $selection .= '<prompt>Please select a news source from the following 
                                                              list.</prompt>';

    foreach my $feedurl (@{$feeds})
    {
        my $feed = XML::FeedPP->new($feedurl);

        $counter++;

        if ($counter == 1)
        {
            $detail .= '<filled><assign name="selection" 
                                                       expr="select_num"/>';
            $detail .= "<if cond=\"selection =='$counter'\">";
        }
        else
        {
            $detail .= "<elseif cond=\"selection =='$counter'\"/>";
        }
        $detail .= sprintf('<goto next="http://www.mcslp.com/
                                             rsstovxmlopt.cgi?selection=%s"/>',
                           $counter);

        $selection .= sprintf('<prompt>%d: %s<break 
size="small"/></prompt>',$counter,$feed->title());
    }

    $selection .= '<noinput>Please select a number. 
                                          <reprompt/></noinput>';
    $selection .= '<nomatch>Please select a valid number. 
                                          <reprompt/></nomatch>';
    $selection .= '</field>';

    $detail .= '</if><clear 
namelist="select_num"/><reprompt/></filled></form>';

    print <<EOF;
<?xml version="1.0" encoding="UTF-8"?>

<vxml version="2.1">
$selection
$detail
</vxml>
EOF

}

sub output_news_feed
{
    my ($feedurl) = @_;

    my $feed = XML::FeedPP->new($feedurl);

    my ($selection,$detail,$counter) = ('','',0);

    $selection = '<form id="MainMenu"><field name="select_num" 
                                                              type="digits">';
    $selection .= '<prompt>' . $feed->title() . 
                                     '<break size="small"/></prompt>';
    $selection .= '<prompt>Please select a story from the following 
                                                            list.</prompt>';

    foreach my $i ( $feed->get_item() )
    {
        next unless defined($i);
        next unless ($i->link() =~ m/http/);

        last if ($counter++ >= 6);

        if ($counter == 1)
        {
            $detail .= '<filled><assign name="selection" 
                                                          expr="select_num"/>';
            $detail .= "<if cond=\"selection =='$counter'\">";
        }
        else
        {
            $detail .= "<elseif cond=\"selection =='$counter'\"/>";
        }
        $detail .= sprintf('<prompt>%s. %s<break 
size="small"/></prompt>',$i->title(),$i->description());
        
        $selection .= sprintf('<prompt>%d: %s<break 
size="small"/></prompt>',$counter,$i->title());
    }

    $selection .= '<noinput>Please select a number. 
                                           <reprompt/></noinput>';
    $selection .= '<nomatch>Please select a valid number. 
                                           <reprompt/></nomatch>';
    $selection .= '</field>';

    $detail .= '</if><clear 
namelist="select_num"/><reprompt/></filled></form>';

    print <<EOF;
<?xml version="1.0" encoding="UTF-8"?>

<vxml version="2.1">
$selection
$detail
</vxml>
EOF
}