rss

1. <?function my_headlines($url) {
2.     $rdf = ($url);
3.     $fp = ($rdf['host'], 80, $errno, $errstr, 15);
4.     if (!$fp) {
5.         $content = "<font class=\"content\">Problema!</font>";
6.         return;
7.     }
8.     if ($fp) {
9.         ($fp, "GET " . $rdf['path'] . "?" . $rdf['query'] . " HTTP/1.0\r\n");
10.         ($fp, "HOST: " . $rdf['host'] . "\r\n\r\n");
11.         $string = "";
12.         while(!($fp)) {
13.      $pagetext = ($fp,300);
14.      $string .= ($pagetext);
15.  }
16.  ($fp,"Connection: close\r\n\r\n");
17.  ($fp);
18.  $items = ("</item>",$string);
19.  $content = "<font class=\"content\">";
20.  for ($i=0;$i<10;$i++) {
21.      $link = (".*<link>","",$items[$i]);
22.      $link = ("</link>.*","",$link);
23.      $title2 = (".*<title>","",$items[$i]);
24.      $title2 = ("</title>.*","",$title2);
25.      if ($items[$i] == "") {
26.          $content = "";
27.          return;
28.      } else {
29.          if (($link,$title)) {
30.           $cont = 1;
31.       $content .= "<img src=\"images/arrow.gif\" border=\"0\" hspace=\"5\"><a href=\"$link\" target=\"new\">$title2</a><br>\n";
32.   }
33.      }
34.  }
35.     }
36.     echo "$content";
37. }
39. my_headlines
40. ?>