"Traduire" les flux RSS

<?
 //rsslang.php: verander de <language> in een rss, zodat het lekker wordt voorgelezen

   //aanroepen http://.../rsslang.php/nl-NL/www.destentor.nl/rss.php...

   //dus taal, en dan de feed

   error_reporting(E_ALL);

   require_once 'HTTP/Request.php';

   $rss_info = "";
   foreach(array('PATH_INFO','REDIRECT_PATH_INFO','ORIG_PATH_INFO') as $key)
   {
      if (isset($_SERVER[$key]))
      {
         $rss_info = $_SERVER[$key];
         break;
      }
   }

   $query_string = "";
   foreach(array('QUERY_STRING','REDIRECT_QUERY_STRING','ORIG_QUERY_STRING') as $key)
   {
      if (isset($_SERVER[$key]))
      {
         $query_string = $_SERVER[$key];
         break;
      }
   }

   if (! preg_match('/^\/?([^\/]+)\/(.*)$/',$rss_info,$m))
      error_400("Please use rsslang.php/(language code)/(original url for rss without http)");

   $lang = $m[1];
   $url = "http://" . $m[2];
   if ($query_string)
   {
      $url .= "?{$query_string}";
   }

   $req =& new HTTP_Request($url,array(
      'method' => 'GET',
      'http' => '1.1',
      'timeout' => '30',
      'allowRedirects' => true,
      'maxRedirects' => 3));
   //$req->setURL($url);
   //$req->setMethod($method);

   if (PEAR::isError($req->sendRequest()))
      error_400("The requested url was not found");


   $resp = $req->getResponseCode();
   if ($resp == 200)
   {
      //todo: parsen als xml, op zoek naar language en dat weghalen. Daarna language toevoegen

      $rss = new DomDocument();
      $rss->formatOutput = true;
      if (! $rss->loadXML($req->getResponseBody()))
         error_400("url returns no xml");

      //<rss><channel><language>..</language>...</channel></rss>

      if ($rss->firstChild->nodeName != "rss")
         error_400("returned xml is not an rss channel");

      $channel = $rss->getElementsByTagName('channel')->item(0);
      if (! $channel)
         error_400("returned xml is not an rss channel (no channel)");

      $oldlanguage = $channel->getElementsByTagName('language')->item(0);
      $newlanguage = $rss->createElement('language',$lang);
      if ($oldlanguage)
         $channel->replaceChild($newlanguage,$oldlanguage);

      //en de nieuwe toevoegen
      $channel->insertBefore($newlanguage,$channel->firstChild);


      //we proberen niet alle headers, maar sommige content-type, last-modified, cache-control etc
      //maar niet content-length bijvoorbeeld
      foreach ($req->getResponseHeader() as $h => $v)
      {
         switch(strtolower($h))
         {
            case 'content-type':
            case 'last-modified':
            case 'cache-control':
            case 'expires':
               header("{$h}: {$v}");
               break;
         }
      }
      //toevoegen: de language
      //header("Content-Language: {$lang}");

      print $rss->saveXML();

      exit();
   }

   //hier alleen als resp niet 200 of geen xml..
      error_400("The request was invalid. Please use this only after permission");

function error_400($msg)
{
   //geef een request error en stop
   header("HTTP/1.1 400 {$msg}");
      ?>
      <h1>Error</h1>
      <p><?=htmlentities($msg);?></p>
      <?
      exit;
}

?>

  <h1>Error</h1>
      <p>returned xml is not an rss channel</p>

<?php
/*rss_lip_sync.php : le nom de ce fichier*/
$raw_feed = file_get_contents($HTTP_SERVER_VARS['QUERY_STRING']);

print preg_replace("/<language>([a-z]{2,})<\/language>/", "<language>fr_FR</language>", $raw_feed);
?>

http://monserveur.org/rss_lip_sync.php?http://www.lemonde.fr/rss/une.xml