1. <?php
  2. /*
  3.   يَستخدم ملف تحويل XSLT لإنتاج ملف Atom بناء على بيانات في صيغة XML تمثل نتائج بحث عن محتوى منشور في أرشيف الإنترنت archive.org
  4.   حقوق الطبع محفوظة: أحمد غربية، مارس 2009
  5.   منشور برخصة جنو العمومية، الإصدارة الثالثة
  6. Uses an XSLT to produce an Atom feed file from a sarch result in XML retrieved from archive.org
  7. Copyright Ahmad Gharbeia, March 2009
  8. Published under a GNU Pulic License version 3 (GPLv3)
  9. */
  10.  
  11. $xml_dataset_URL = 'http://www.archive.org/advancedsearch.php?q=subject%3A%22%D8%A7%D9%84%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D8%AC+%D8%A7%D9%84%D8%AB%D8%A7%D9%86%D9%8A%22+AND+mediatype%3Aaudio+AND+uploader%3Aagharbeia&fl[]=identifier&fl[]=title&fl[]=description&fl[]=creator&fl[]=oai_updatedate&fl[]=publicdate&fl[]=subject&sort[]=publicdate+desc&sort[]=&sort[]=&rows=50&save=yes&fmt=xml&xmlsearch=Search';
  12.  
  13. $xml_dataset_cache_path = 'search_result.xml';
  14. $atom_path = 'atom.xml';
  15. $xsl_path = 'atom.xsl';
  16.  
  17. $xml_date_xpath = '/response/result/doc[position()=1]/arr[@name="oai_updatedate"]/date[last()]';
  18. $atom_date_xpath = '/atom:feed/atom:entry[position()=1]/atom:updated';
  19.  
  20.  
  21. function latest_public_date(DOMDocument $xml, $xpath)
  22. {
  23.   $domxpath = new DOMXPath($xml);
  24.   $domxpath->registerNamespace('atom', 'http://www.w3.org/2005/Atom');
  25.   return strtotime($domxpath->evaluate($xpath)->item(0)->nodeValue);
  26. }
  27.  
  28. set_time_limit(600);
  29.  
  30. try
  31. {
  32.   $search = new DOMDocument();
  33.   if ($search->load($xml_dataset_URL))
  34.   {  
  35.     echo "Loaded search from result: {$xml_dataset_URL}<br />";
  36.     $latest_in_xml = latest_public_date($search, $xml_date_xpath);
  37.     echo "Latest date in search result: " . date('c', $latest_in_xml) . "<br />";
  38.     $atom = new DOMDocument();
  39.     if ((($atom_exists = $atom->load($atom_path)) === false) || ($latest_in_xml > ($latest_in_atom = latest_public_date($atom, $atom_date_xpath))))
  40.     {
  41.       echo (!$atom_exists?"No current feed":"search result has updated items") . "<br />";
  42.       if (($cachedsize = $search->save($xml_dataset_cache_path)) !== false)
  43.       {
  44.         echo "Search result cached to: {$xml_dataset_cache_path}; {$cachedsize} bytes writ.<br />";
  45.       }
  46.       else
  47.       {
  48.         echo "Saving cache file failed!<br />";
  49.       }
  50.       $xslt = new XSLTProcessor();
  51.       $xslt->importStyleSheet(DOMDocument::load($xsl_path));
  52.       if (($atom = $xslt->transformToDoc($search)) !== false)
  53.       {
  54.         echo "XML transformed into Atom using: {$xsl_path}<br />";
  55.         if (($atomsize = $atom->save($atom_path)) !== false)
  56.         {
  57.           echo "Atom saved to: {$atom_path}; {$atomsize} bytes writ.<br />";
  58.         }
  59.         else
  60.         {
  61.           echo "Saving Atom file failed!<br />";
  62.         }
  63.       }
  64.       else
  65.       {
  66.         echo "Transformation faild!<br />";
  67.       }
  68.     }
  69.     else
  70.     {
  71.       echo "There was a feed AND there were no newer items in search result<br />";
  72.     }
  73.     if ($atom_exists) echo "Latest date in current feed: " . date('c', $latest_in_atom) . "<br />";
  74.   }
  75.   else
  76.   {
  77.     echo "Couldn't retrieve search results<br />";
  78.   }
  79.   echo "Done.";
  80. }
  81. catch (Exception $e)
  82. {
  83.   echo 'Caught exception: ',  $e->getMessage(), "<br />";
  84. }
  85. ?>
  86.  

هذا الكود المصدري منشور في موقع أحمد غربية.

This source code listing is published in the web site of Ahmad Gharbeia.