#!/usr/bin/perl -w
use strict;

#
# A script to convert slashdot headlines to VXML.
# (C) 2001, Jaldhar Vyas
# Licensed under the Crowley Public License ("Do what thou wilt 
# shall be the whole of the license.")
#

use LWP::Simple qw(get);
use XML::LibXML;
use XML::LibXSLT;

my $content = get('http://slashdot.org/slashdot.rdf');

unless (defined ($content)) # undef means something went wrong.
{
  $content = <<'-EOT-';
<?xml version="1.0"?>
<rdf:RDF xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#">
  <item>
    <title>Failed to retrieve headlines</title>
  </item>
</rdf:RDF>
-EOT-
}

my $xml = XML::LibXML->new();
my $xslt = XML::LibXSLT->new()->parse_stylesheet($xml->parse_fh(*DATA));
print "Content-type: text/xml\n\n" ,
  $xslt->output_string($xslt->transform($xml->parse_string($content)));

__DATA__
<?xml version="1.0"?>

<xsl:stylesheet xmlns=""
    xmlns:xsl="http://www.w3.org/1999/XSL/Transform" version="1.0"
    xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"
    xmlns:rss="http://my.netscape.com/rdf/simple/0.9/">

  <xsl:namespace-alias stylesheet-prefix="#default" result-prefix='rss' />

  <xsl:output method="html" media-type="text/xml" indent="yes" />

  <xsl:template match="rdf:RDF">
    <vxml version='2.0'>
    <form><block>
      <xsl:apply-templates select="rss:item/rss:title" />
    </block></form>
    </vxml>
  </xsl:template>

  <xsl:template match="rss:title">
    <xsl:value-of select="." /><xsl:text>.
    </xsl:text>
  </xsl:template>

</xsl:stylesheet>