Parsing du Nabshare...

<?
$Nabshare = array(
   array(
      "0"=>"- Tous - ",
      "1"=>"Pub",
      "2"=>"Comique",
      "3"=>"Documents Historiques",
      "4"=>"Parole",
      "5"=>"Mix persos",
      "6"=>"Musique",
      "7"=>"Chansons",
      "8"=>"Bruitages",
      "9"=>"Bande son de films",
      "10"=>"Discours",
      "11"=>"Télé",
      "12"=>"Feuilletons"
   ),
   array(
      "257767"=>"Air France",
      "1997170"=>"allouette",
      "3343686"=>"AMR DIAB - aktar wa",
      ...
   ),
   array(
      ...
   ),
   ...
   array(
      ...
   )
);
?>

function getPage($url, $header = null)
{
   if (function_exists("curl_init"))
   {
      $curl_handle = curl_init($url);
      curl_setopt ($curl_handle, CURLOPT_HEADER, false);
      curl_setopt ($curl_handle, CURLOPT_FRESH_CONNECT, $disableCache);
      if ($header != null)
         curl_setopt ($curl_handle, CURLOPT_HTTPHEADER, $header);

      ob_start();
      curl_exec ($curl_handle);
      $errno = curl_errno($curl_handle);
      curl_close ($curl_handle);
      $toReturn = ob_get_contents();
      ob_end_clean();   
   }
   else
   {
      $lines = @file($url);
      if (!$lines)
      {
         $toReturn = "";
         debug(ERROR, "Function file returned an error!");
      }         
      else
         $toReturn = implode('', $lines);
   }
   return $toReturn;
}

<?
include_once("../includes/functions.php");

if ($output = @fopen('../includes/datas/tmpNabshare.php', 'w'))
{
   fputs($output, "<?\n");
   fputs($output, "\$Nabshare = array(\n");
   $categoriesAddr = "http://my.nabaztag.com/vl/action/myMessagesNabshare.do";
   $nabshareAddr = "http://my.nabaztag.com/vl/action/myMessagesNabshareChoice.do?langShare=1&idCateg=";
   
   $catPage = getPage($categoriesAddr, true, array("Content-Type: text/xml; charset=UTF-8","Accept-Language: fr-fr"));
   fputs($output, "\tarray(\n");
   fputs($output, "\t\t\"0\"=>\"- Tous - \"");
   
   // first, generate Categories array...
   $categoryIds = array();
   $pos = 0;
   $cpt = 1;   // '0' is "All" section, allready added...
   do
   {   
      $toFind = "myMessagesNabshareChoice.do?idCateg=";
      $pos = strpos($catPage, $toFind, $pos);
      if($pos != FALSE)
      {
            $pos += strlen($toFind);
            $end = strpos($catPage, '"', $pos);
            $catId = substr($catPage, $pos, $end - $pos);
            $pos = strpos($catPage, '>', $pos) + 1;
            $end = strpos($catPage, '<', $pos);
            $catTitle = substr($catPage, $pos, $end - $pos);   
            $catTitle = iconv("UTF-8", "", stripslashes($catTitle));
            // Strange but Violet sometimes puts strange chars... So we have to clean them...
            $catTitle = str_replace("’","'",$catTitle);
            $catTitle = str_replace("…","...",$catTitle);
            
            fputs($output, ",\n\t\t\"" . $cpt . "\"=>\"" . addslashes($catTitle) . "\"");
            print($catId . " - " . $catTitle . "<br>");
            array_push($categoryIds, $catId);
            $cpt++;         
      }
   } while ($pos != false);
   fputs($output, "\n\t)");
   
   $headers = Array(
      Array("Content-Type: text/xml; charset=UTF-8","Accept-Language: fr-fr"),
      Array("Content-Type: text/xml; charset=UTF-8","Accept-Language: en-en"),
   );
   foreach($categoryIds as $catId)
   {
      fputs($output, ",\n\tarray(\n");
      $toWrite = "";      
      for ($i=0; $i<count($headers); $i++)
      {
         $nabsharePage = getPage($nabshareAddr . $catId, true, $headers[$i]);            
         $pos = 0;
         do
         {
            $pos = strpos($nabsharePage, 'id="ID_', $pos);
            if($pos != false)
            {
               $pos += strlen('id="ID_');
               $end = strpos($nabsharePage, '"', $pos);
               $nabshareId = substr($nabsharePage, $pos, $end - $pos);
               
               $pos = strpos($nabsharePage, '>', $pos) + 1;
               $end = strpos($nabsharePage, '<', $pos);
               $nabshareTitle = Trim(substr($nabsharePage, $pos, $end - $pos));            
               $nabshareTitle = iconv("UTF-8", "", stripslashes($nabshareTitle));               
                // Strange but Violet sometimes puts strange chars... So we have to clean them...
               $nabshareTitle = str_replace("’","'",$nabshareTitle);
               $nabshareTitle = str_replace("…","...",$nabshareTitle);
               
               if ($toWrite != "")
                  $toWrite .= ",\n";
               $toWrite .= "\t\t\"" . $nabshareId . "\"=>\"" . addslashes($nabshareTitle) . "\"";
               print("&nbsp;&nbsp;&nbsp;&nbsp;" . $nabshareId . " - " . $nabshareTitle . "<br>");
            }
         } while ($pos != false);
      }
      $toWrite .= "\n\t)";
      fputs($output, $toWrite);
   }
   fputs($output, "\n);\n");
   fputs($output, "?>\n");
   fclose($output);
   unlink('../includes/datas/nabshare.php');
   rename('../includes/datas/tmpNabshare.php', '../includes/datas/nabshare.php');
}
?>