AAP: Bloque 2.8.3: Hacer un CGI que genere un RSS arbitrario. El tipo que hay que devolver es application/xml+rss.

#!"C:\Program Files\XAMPP\perl\bin\perl.exe"



use CGI qw(:standard);



print header( -type => 'application/xml+rss' );



print<<EOC;

<?xml version="1.0" encoding="iso-8859-1"?>

<rss version="2.0" xmlns:dc="http://purl.org/dc/elements/1.1/" xmlns:itunes="http://www.itunes.com/dtds/podcast-1.0.dtd">



<channel>

<title>Barcelona // Marca // marca.com</title>

<link>http://www.marca.com/</link>



<item>



<title><![CDATA[Iniesta pide que se reconozca  la gran temporada del Barça]]></title>

<link>http://www.marca.com/2009/04/23/futbol/equipos/barcelona/1240491412.html</link>

<description><![CDATA[Andrés Iniesta reivindicó la reciente trayectoria de su equipo y pidió que se valoren &quot;los méritos&quot; del Barça como líder de la Liga, finalista de la Copa y semifinalista de la Liga de Campeones.&nbsp; <a href="http://www.marca.com/2009/04/23/futbol/equipos/barcelona/1240491412.html">Leer</a>]]></description>

<author><![CDATA[EFE <marca@recoletos.com>]]></author>

<guid isPermaLink="true">http://www.marca.com/2009/04/23/futbol/equipos/barcelona/1240491412.html</guid>

<pubDate>Fri, 24 Apr 2009 09:34 +0200</pubDate>

</item>



<item>

<title><![CDATA[El Barça jugará en julio dos amistosos en Wembley]]></title>

<link>http://www.marca.com/2009/04/23/futbol/equipos/barcelona/1240515304.html</link>

<description><![CDATA[El Barcelona trasladará en el próximo verano su concentración de verano a Londres, donde jugará dos partidos amistosos, en el estadio de Wembley, ante el Tottenham Hotspur inglés y el Al-Ahly egipcio.&nbsp; <a href="http://www.marca.com/2009/04/23/futbol/equipos/barcelona/1240515304.html">Leer</a>]]></description>

<author><![CDATA[EFE. Barcelona <marca@recoletos.com>]]></author>



<guid isPermaLink="true">http://www.marca.com/2009/04/23/futbol/equipos/barcelona/1240515304.html</guid>

<pubDate>Thu, 23 Apr 2009 21:41 +0200</pubDate>

</item>







</channel>

</rss>

EOC