<?php
/*
//      golemxml.php
//
//      Version:  1.0.1
//      Author:         Soeren Fuhrmann - sf@golem.de
//      Homepage:       http://www.golem.de
//
//      Based on:       freshmeat.php3
//      Version:  2.0.4
//      Author:           Kalle Kiviaho - kivi@chl.chalmers.se
//      Lastmod:        2000-09-24
//      Homepage:       http://swamp.chl.chalmers.se/backends/
*/
// Customize it to suit your needs

$link_prefix   =  "&middot;&nbsp;";
$link_postfix  =  "<BR>\n";

$show_abstract    =  true;
$ab_link_prefix   =  "";
$ab_link_postfix  =  "<BR>\n";
$ab_prefix        =  "";
$ab_postfix       =  "<BR><BR>\n";
$ab_more          =  "[mehr...]";
$ab_more_prefix   =  "&nbsp;\n";

$cache_file    =  "/tmp/golem.de.cache";
$cache_time    =  300;
$max_items     =  10;
$max_readsize  =  10000;
$target        =  "_top";

// End of customizations

$backend =  "http://www.golem.de/golem_backend.xml";

$items   =  0;
$time    =  split(" ", microtime());

mt_srand((double)microtime()*1000000);
$cache_time_rnd   =  mt_rand(0, 600) - 300;

if ( (!(file_exists($cache_file))) || ((filectime($cache_file) + $cache_time - $time[1]) + $cache_time_rnd < 0) || (!(filesize($cache_file))) ) {

   $fpread = @fopen($backend, 'r');
   if (!$fpread) {
//    echo "$errstr ($errno)<br>\n";
//    exit;
   } else {

      $fpwrite = @fopen($cache_file, 'w');
      if (!$fpwrite) {
//       echo "$errstr ($errno)<br>\n";
//       exit;
      } else {
         $string = '';
         do {
            $t_str = fread($fpread, 1024);
            $string .= $t_str;
         } while (!empty($t_str) && (strlen($string) < $max_readsize));

         $pattern = "/<ARTIKEL>(.*?)<\/ARTIKEL>/is";
         if (preg_match_all($pattern, $string, $match, PREG_SET_ORDER))
            for ($i= 0; $i< min(count($match), $max_items); $i++) {
               $artikel= $match[$i][1];

               $pattern = "/<HEADLINE>(.*?)<\/HEADLINE>/i";
               preg_match($pattern, $artikel, $lmatch);
               $title= $lmatch[1];

               $pattern = "/<URL>(.*?)<\/URL>/i";
               preg_match($pattern, $artikel, $lmatch);
               $link= $lmatch[1];


               if ($items== 0 && $show_abstract) {
                  $pattern = "/<ABSTRACT>(.*?)<\/ABSTRACT>/i";
                  preg_match($pattern, $artikel, $lmatch);
                  $abstract= $lmatch[1];

                  fputs($fpwrite, $ab_link_prefix."<A HREF=\"".$link."\" TARGET=\"".$target."\">".$title."</A>".$ab_link_postfix);
                  fputs($fpwrite, $ab_prefix.$abstract.$ab_more_prefix."<A HREF=\"".$link."\" TARGET=\"".$target."\">".$ab_more."</A>".$ab_postfix);
               } else {
                  fputs($fpwrite, $link_prefix."<A HREF=\"".$link."\" TARGET=\"".$target."\">".$title."</A>".$link_postfix);
               }

               $items++;
         }
      }
      fclose($fpread);
   }
   fclose($fpwrite);
}
if (file_exists($cache_file)) {
   include($cache_file);
}
?>