---

";

  $num = ($num) ? $num+1 : 16 ;

  $url = "http://news.google.com/news?hl=en&num=$num&scoring=d&q=".urlencode($q);

  if ($fp = @fopen($url, "r")) {
    while (!feof($fp)) $data .= fgets($fp, 128);
    fclose($fp);
  }

// *******************
// Some people seem to have problems with google not returning anything
// uncomment the following lines and comment out the content-type header
// to see what google is returning.
  
//  print "";
//  print "
";
//  print htmlentities($data);  
  header("Content-Type: text/xml");

  $data = strstr($data,"Sorted by date");

  eregi("", $data, $title);
  $channel_title = $title[1];

  $match_count = preg_match_all($itemregexp, $data, $items);
  $match_count = ($match_count > 25) ? 25 : $match_count;
  
  $output .= "\n";
  $output .= "\n";
  $output .= "\n";

  $output .= "\n";
  $output .= "  \n";
  $output .= "    \n";
  $output .= "    ". htmlentities($url) ."\n";
  $output .= "    Google News Search: $q\n";
  $output .= "    julian_bond@voidstar.com\n";
  $output .= "    en-us\n";
  $output .= "    <a href=\"http://www.voidstar.com/gnews2rss.php\">GNews2Rss</a>\n";

  $day = date("d"); 
  if ($day == 1 || $day == 11 || $day == 21) {
    $output .= "    \n";
    $output .= "      \n";
    $output .= "      http://www.voidstar.com/gnews2rss.php\n";
    $output .= "      If you're using Gnews2rss you presumably find it useful. Please <a href=\"mailto:news-feedback@google.com\">email Google</a> asking them to produce RSS directly out of Google News Search. And why not <a href=\"http://www.voidstar.com/gnews2rss.php.txt\">host it yourself</a> to save my bandwidth costs.\n";
    $output .= "    \n";
  }

  for ($i=0; $i< $match_count; $i++) {

    $item_url = $items[1][$i];
    $title = $items[2][$i];
    $title = strip_tags($title);
    $desc = $items[3][$i];

    $desc = eregi_replace(" - .* ago
", "
", $desc);
    $desc = strip_tags($desc, $allowable_tags);
    $desc = htmlspecialchars($desc);

    $output .= "    \n";
    $output .= "      \n";
    $output .= "      ". htmlspecialchars($item_url) ."\n";
    $output .= "      ". $desc ."\n";
    $output .= "    \n";
  }

  $output .= "  \n";
  $output .= "\n";

  print $output;

//****************
// More debug stuff  
//  print "
";
//  print htmlentities($output);
//  print "
"; 

}


?>







 privacy | feedback 







© 2002-2009 The University of Queensland, Brisbane, Australia

ABN 63 942 912 684

CRICOS Provider No: 00025B





This is a personal web area hosted on a University of Queensland web server.

Please be advised that this web page is not officially endorsed by The University of Queensland.

The University accepts no responsibility or liability for the contents of this area.