<?php
//header('Content-type: text/xml; charset=ISO-8859-1');
header('Content-type: text/xml; charset=utf-8');
header("Cache-Control: no-cache, must-revalidate");
header("Expires: Mon, 26 Jul 1997 05:00:00 GMT");
define('EOL', "\r\n");
$vl_c_url='http://www.lefigaro.fr';
$vl_c_test = get_meta_tags ($vl_c_url);
echo(fa_xcree_entete_rdf());  
while (list ($key, $val) = each ($vl_c_test)){
  switch ($key){
    case 'keywords':
      $pieces = explode(",", $val);
      $vl_e_i=count($pieces);
      $vl_e_j = 0;
      while ($vl_e_j < $vl_e_i):
        echo('<RDF:li>'.EOL);
        echo('<RDF:Description>');
        echo('<row:tag >'.fa_remplace_quotes(fa_ent_xml(utf8_encode($pieces[$vl_e_j]))).'</row:tag>');
        echo('<row:tag01 >'.fa_remplace_quotes(fa_ent_xml($pieces[$vl_e_j])).'</row:tag01>');
        echo('<row:tag02 >'.fa_ent_xml($pieces[$vl_e_j]).'</row:tag02>');
        echo('<row:tag03 >'.$pieces[$vl_e_j].'</row:tag03>');
        echo('<row:tag04 >'.utf8_encode($pieces[$vl_e_j]).'</row:tag04>');
        echo('<row:tag04 >'.utf8_encode(fa_remplace_quotes($pieces[$vl_e_j])).'</row:tag04>');
        echo('</RDF:Description>'.EOL);
        echo('</RDF:li>'.EOL);
        $vl_e_j++;
      endwhile;
      break;
    case 'description':
    case 'robots':
    default:
      break;
  }
}
// fin du fichier RDF
echo('</RDF:Bag>'.EOL);
echo('</RDF:RDF>'.EOL);
function fa_ent_xml($str) {
  return preg_replace(array("'&'", "'\"'", "'<'","'>'","'\n'"), array('&#38;', '&#34;','&lt;','&gt;','&#10;'), $str);
}
function fa_remplace_quotes($vl_c_chaine) {
  $a="'";
  $b="&apos;";
  $vl_c_nouveau=str_replace($a,$b,$vl_c_chaine);
  $a='"';
  $b="&quot;";
  $vl_c_nouveau=str_replace($a,$b,$vl_c_nouveau);
  return $vl_c_nouveau;
}
function fa_xcree_entete_rdf() {
  $vl_c_entete='';
  $vl_c_entete.='<?xml version="1.0" encoding="utf-8"?>'.EOL;
  $vl_c_entete.='<RDF:RDF xmlns:RDF="http://www.w3.org/1999/02/22-rdf-syntax-ns#" xmlns:row="http://dummy/rdf#" xmlns:NC="http://home.netscape.com/NC-rdf#">'.EOL;
  $vl_c_entete.='<RDF:Bag about="urn:data:row">'.EOL;
  return $vl_c_entete; 
}


?>