inc/rdf.class.php

   1 <?php
   2 /* $Id: rdf.class.php,v 1.40 2003/07/06 20:33:58 sts Exp $ */
   3
   4 //
   5 // +----------------------------------------------------------------------+
   6 // | rss Parser                                                           |
   7 // | Copyright (c) 2001 Stefan Saasen                                     |
   8 // +----------------------------------------------------------------------+
   9 // | The contents of this file are subject to the Mozilla Public License  |
  10 // | Version 1.1 (the "License"); you may not use this file except in     |
  11 // | compliance with the License. You may obtain a copy of the License at |
  12 // | http://www.mozilla.org/MPL/                                          |
  13 // |                                                                      |
  14 // | Software distributed under the License is distributed on an "AS IS"  |
  15 // | basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See  |
  16 // | the License for the specific language governing rights and           |
  17 // | limitations under the License.                                       |
  18 // +----------------------------------------------------------------------+
  19 // |                                                                      |
  20 // | Maintainer and initial developer:                                    |
  21 // | Stefan Saasen <s@fase4.com>                                          |
  22 // |                                                                      |
  23 // | Proxy and authentication methods added by:                           |
  24 // | Marco Kraus <marco.kraus@siemens.com>                                |
  25 // |                                                                      |
  26 // | Decoding of data by htmlentities or utf8_decode added by:            |
  27 // | Roland Haeder <webmaster@mxchange.org>                               |
  28 // |                                                                      |
  29 // +----------------------------------------------------------------------+
  30 // | Ref:                                                                 |
  31 // |   @link http://www.fase4.com/rdf/                   Latest release   |
  32 // +----------------------------------------------------------------------+
  33
  34 /**
  35 * Class RSS Parser
  36 *
  37 * This class offers methods to parse RSS Files
  38 *
  39 * @link      http://www.fase4.com/rdf/ Latest release of this class
  40 * @package   rss
  41 * @copyright Copyright (c) 2001 fase4.com. All rights reserved.
  42 * @author    Stefan Saasen <s@fase4.com>
  43 * @version   1.7 ($Date: 2003/07/06 20:33:58 $) $Revision: 1.40 $
  44 * @access    public
  45 */
  46
  47 class fase4_rdf {
  48
  49     /**
  50     * Word-wrapping mode for description, set it to 0 do disable this feature! Ommits _use_nl2br!
  51     *
  52     * @access private
  53     * @var    integer
  54     */
  55     var $_word_wrap = 0;
  56
  57     /**
  58     * Wether to recode \n -> <br /> or not in description
  59     *
  60     * @access private
  61     * @var    boolean
  62     */
  63     var $_use_nl2br = true;
  64
  65     /**
  66     * Sets the decoding mode of the read data (UTF8 scrambles some german umlauts here!)
  67     *
  68     * "htmlentities" - Use the function htmlentities()
  69     * "utf8_decode"  - Use the function ut8_decode() when you have UTF8 encoded text
  70     *
  71     * @access private
  72     * @var    string
  73     */
  74     var $_decoding_mode = "utf8_decode";
  75
  76     /**
  77     * If $_link_target is set a target='xxx' attribute in each <a /> and <form /> html tag will be added
  78     *
  79     * Possible values are "_blank", "_content", "_parent", "_self", "_top"
  80     *
  81     * @access private
  82     * @var    string
  83     */
  84     var $_link_target = "_blank";
  85
  86     /**
  87     * vars for proxy settings - Prox Host
  88     *
  89     * @access private
  90     * @var      string
  91     */
  92     var $_phost = "";
  93
  94     /**
  95     * vars for proxy settings - Prox Port
  96     *
  97     * @access private
  98     * @var      string
  99     */
 100     var $_pport = "";
 101
 102     /**
 103     * vars for proxy settings - Prox Username
 104     *
 105     * @access private
 106     * @var      string
 107     */
 108     var $_pname = "";
 109
 110     /**
 111     * vars for proxy settings - Prox Password
 112     *
 113     * @access private
 114     * @var      string
 115     */
 116     var $_ppasswd = "";
 117
 118     /**
 119     * just a flag for checking if proxy-support should be enabled
 120     * set default to false (will be enabled if set_proxy is called)
 121     *
 122     * @access   private
 123     * @see      set_proxy()
 124     * @var      bool
 125     */
 126     var $_use_proxy = false;
 127
 128     /**
 129     * just a flag for checking if proxy-support with authentication
 130     * should be enabled
 131     * set default to false (will be enabled if set_proxy is called)
 132     *
 133     * @access   private
 134     * @see      set_proxy()
 135     * @var      boolean
 136     */
 137     var $_use_proxy_auth = false;
 138
 139     /**
 140     * The time the Files will be cached (in seconds).
 141     *
 142     * @access private
 143     * @var    int
 144     */
 145     var $_refresh = 60;   // int
 146
 147     /**
 148     * The Name of the cached File.
 149     *
 150     * @access private
 151     * @var    string
 152     */
 153     var $_cached_file = "";   // String
 154
 155     /**
 156     * Indicates whether the cached or the remote file was used.
 157     *
 158     * @access private
 159     * @var    boolean
 160     */
 161     var $_use_cached_file = true;
 162
 163     /**
 164     * (fast|normal) depends on _use_dynamic_display(). _use_dynamic_display( TRUE ) -> 'normal', otherwise 'fast'
 165     *
 166     * @access private
 167     * @var    string
 168     */
 169     var $_cache_type = "fast";
 170
 171     /**
 172     * The Name of the Remote File.
 173     *
 174     * @access private
 175     * @var    string
 176     */
 177     var $_remote_file = "";
 178
 179     /**
 180     * Path to the Cache Directory.
 181     *
 182     * @access private
 183     * @var    string
 184     */
 185     var $_cache_dir = "cache/";  // String
 186
 187     /**
 188     * Indicates whether the Creating of the Cache Directory needs to be done or not.
 189     *
 190     * @access private
 191     * @var    boolean
 192     */
 193     var $_cache_dir_ok = false;
 194
 195     /**
 196     * Type of the file to be parsed (RSS or RDF).
 197     *
 198     * The Type depends on the root node
 199     *
 200     * @access private
 201     * @var    string
 202     */
 203     var $_type = "rss"; // string (rss or rdf)
 204
 205     /**
 206     * Array of Display Settings.
 207     *
 208     * Specific Parameters can be set to hidden. These are:
 209     * image, channel and textinput. If set to "hidden" those elements won't be displayed.
 210     *
 211     * @access private
 212     * @var    array
 213     */
 214     var $_display_opt = array(
 215                 'build' => "",
 216                 'image' => "",
 217                 'channel' => "",
 218                 'textinput' => "",
 219                 'cache_update' => "",
 220                 'sitelink' => "",
 221                 'refid' => "",
 222                 'reflink' => "",
 223     );
 224
 225     /**
 226     * Defines the width attribute in the table that holds the rdf/rss representation
 227     *
 228     * @access private
 229     * @var    int
 230     * @see    see_table_width()
 231     */
 232     var $_table_width = "100%";
 233
 234     /**
 235     * Indicates whether or not to use dynamic Display Settings
 236     *
 237     * @access private
 238     * @var    array
 239     */
 240     var $_use_dynamic_display = false;
 241
 242     /**
 243     * <item> count
 244     *
 245     * @access private
 246     * @var    int
 247     */
 248     var $_item_count = 0;
 249
 250     /**
 251     * No of max <item>s
 252     *
 253     * @access private
 254     * @var    boolean
 255     */
 256     var $_max_count = false;
 257
 258     /**
 259     * Array containing the content of <channel />
 260     *
 261     * @access private
 262     * @var    array
 263     */
 264     var $_array_channel = array();
 265
 266     /**
 267     * Array containing the content of each <item />
 268     *
 269     * @access private
 270     * @var    array
 271     */
 272     var $_array_item = array();
 273
 274     /**
 275     * Array containing the content of <textinput />
 276     *
 277     * @access private
 278     * @var    array
 279     */
 280     var $_array_textinput = array();
 281
 282     /**
 283     * Array containing the content of <image />
 284     *
 285     * @access private
 286     * @var    array
 287     */
 288     var $_array_image = array();
 289
 290     /**
 291     * Array containing the Channel content. Just For internal XML Parser Purposes.
 292     *
 293     * @access private
 294     * @var    array
 295     */
 296     var $_citem = array();
 297
 298     /**
 299     * Array containing the Channel Parser Depth. Just For internal XML Parser Purposes.
 300     *
 301     * @access private
 302     * @var    array
 303     */
 304     var $_cdepth = array();
 305
 306     /**
 307     * Array containing the Channel tags. Just For internal XML Parser Purposes.
 308     *
 309     * @access private
 310     * @var    array
 311     */
 312     var $_ctags = array( "x" );
 313
 314     /**
 315     * Array containing the Channel content. Just For internal XML Parser Purposes.
 316     *
 317     * @access private
 318     * @var    array
 319     */
 320     var $_item = array();   // Array
 321
 322     /**
 323     * Array containing the Channel Parser Depth. Just For internal XML Parser Purposes.
 324     *
 325     * @access private
 326     * @var    array
 327     */
 328     var $_depth = array();  // Array
 329
 330     /**
 331     * Array containing the tags. Just For internal XML Parser Purposes.
 332     *
 333     * @access private
 334     * @var    array
 335     */
 336     var $_tags = array( "x" );  // Array
 337
 338     /**
 339     * Garbage collection: probability in percent
 340     *
 341     * @var      integer     0 => never
 342     * @access   public
 343     */
 344     var $gc_probability = 1;
 345
 346     /**
 347     * HTML Output
 348     *
 349     * @var      string
 350     * @access   private
 351     */
 352     var $_output = "";
 353
 354     /**
 355     * @var  string
 356     */
 357     var $_parse_mode = "";
 358
 359     // Output variable
 360     var $out = "";
 361
 362     // Salt for hashing
 363     var $salt = "";
 364
 365     /**
 366     * Constructor of our Class
 367     *
 368     * This Method checks if the Cache Directory can be found. Otherwise it tries to creat the Cache Directory at the specified Path.
 369     * Additionally the Refresh Time is set to a default Value of 1200s (20 min).
 370         *
 371     * @access    public
 372         * @author    Stefan Saasen <s@fase4.com>
 373         * @see           _refresh
 374     */
 375     function fase4_rdf()
 376     {
 377         // default Value, to be overwritten in set_refresh()
 378         $this->_refresh = (time() - 1200);
 379         $this->_clear_cItems();
 380         $this->_clear_Items();
 381     }
 382
 383     /**
 384     * This Method starts the parsing of the specified RDF File. The File can be a local or a remote File.
 385     *
 386     * @access    public
 387         * @author    Stefan Saasen <s@fase4.com>
 388     * @param     string $rdf    RDF File (Location)
 389     * @return    string Displays RDF Content ( using _display() )
 390         * @see           _remote_file, cache()
 391     */
 392     function parse_RDF( $rdf )
 393     {
 394         unset($this->_array_item);
 395         $this->_remote_file = $rdf;
 396         $this->out .= "<!-- http://www.fase4.com/rdf/ -->";
 397         $this->out .= "<table width=\"".$this->_table_width."\">";
 398         $this->out .= $this->cache();
 399         $this->out .= "</table>";
 400         $this->_output = "";
 401         $this->_item_count = 0;
 402         return true;
 403     }
 404
 405     /**
 406     * This Method is called when all parsing is finished to use the garbage collection
 407     *
 408     * @access    public
 409         * @author    Stefan Saasen <s@fase4.com>
 410     * @param     string $rdf    RDF File (Location)
 411     * @return    string Displays RDF Content ( using _display() )
 412         * @see           _remote_file, cache()
 413     */
 414     function finish($return = false)
 415     {
 416                 if (!$return) {
 417                         echo $this->out;
 418                 } else {
 419                         return $this->out;
 420                 }
 421         flush();
 422         $this->_garbage_collection();
 423     }
 424
 425     /**
 426     * With this method you can decide whether to use the normal cache and dynamic display Options or to use a static cache.
 427     *
 428     * In the first case the rdf/rss File will be stored locally, in the second case the html output of the specified source will be stored.
 429     * In this case you can not modify the display settings.
 430     * processing time: ( 1.4792) --> remote file
 431     * processing time: ( 0.0313) --> using 'normal cache' with display Modification turned on.
 432     * processing time: ( 0.0019) --> using 'fast cache'
 433     *
 434     * @access    public
 435         * @author    Stefan Saasen <s@fase4.com>
 436     * @param     string $rdf    RDF File (Location)
 437     * @return    string Displays RDF Content ( using _display() )
 438         * @see           _remote_file, cache()
 439     */
 440     function use_dynamic_display( $bool )
 441     {
 442         $this->_use_dynamic_display = $bool;
 443         return true;
 444     }
 445
 446     /**
 447     * This Method avtually parses the XML data.
 448     *
 449     * @access    private
 450     * @author    Stefan Saasen <s@fase4.com>
 451     * @param     string $data    RDF File XML Data
 452     * @see       _clear_Items()
 453     */
 454     function _parse_xRDF( $data )
 455     {
 456         $this->_clear_Items();
 457         $xml_parser = xml_parser_create();
 458         xml_set_object($xml_parser,$this);
 459         xml_parser_set_option($xml_parser,XML_OPTION_CASE_FOLDING,0);
 460         xml_set_element_handler($xml_parser, "_startElement", "_endElement");
 461         xml_set_character_data_handler($xml_parser, "_parseData");
 462         if (!xml_parse($xml_parser, trim($data))) {
 463                 $this->_throw_exception(sprintf("XML error: %s at line %d",
 464                 xml_error_string(xml_get_error_code($xml_parser)),
 465                 xml_get_current_line_number($xml_parser))."<br /><br />Exception in function parse_RDF().");
 466             }
 467         xml_parser_free($xml_parser);
 468     }
 469
 470
 471     /**
 472     * This Methods allows you to set the Refresh Time
 473     *
 474     * @access    public
 475         * @author    Stefan Saasen <s@fase4.com>
 476     * @param     int $seconds time files will be cached (in seconds).
 477         * @return        boolean
 478         * @see           _refresh
 479     */
 480     function set_refresh( $seconds )
 481     {
 482         $this->_refresh = (time() - $seconds);
 483         return true;
 484     }
 485
 486     function set_salt( $saltPara )
 487     {
 488         $this->salt = $saltPara;
 489         return true;
 490     }
 491
 492     /**
 493     * This Methods allows you to set the No. of <item>s to display
 494     *
 495     * @access    public
 496     * @param     int $int No of max <item>s
 497         * @author    Stefan Saasen <s@fase4.com>
 498         * @return        boolean
 499         * @see           _max_count, _endElement()
 500     */
 501     function set_max_item( $int )
 502     {
 503         $this->_max_count = $int;
 504         return true;
 505     }
 506
 507     /**
 508     * This Methods allows you to set the Cache Directory
 509     *
 510     * @access    public
 511         * @author    Stefan Saasen <s@fase4.com>
 512     * @param     string $dir Path to Directory.
 513         * @return        boolean
 514         * @see           _cache_dir
 515     */
 516     function set_CacheDir( $dir )
 517     {
 518         if(substr($dir, -1) != "/") {
 519             $dir = $dir."/";
 520         }
 521         $this->_cache_dir = $dir;
 522     }
 523
 524     /**
 525     * This Method displays Error Messages and terminates the Execution of the Script
 526     *
 527     * @access    private
 528     * @param     string $msg Message to display on failure
 529         * @author    Stefan Saasen <s@fase4.com>
 530     */
 531     function _throw_exception( $msg )
 532     {
 533         $this->out .= "<div style=\"font-family: verdana, helvetica, arial, sans-serif;font-size:11px; color: #6699cc;margin-top:10px;margin-bottom:10px;\" align=\"center\">fase4 RDF Error: ".$msg."</div>";
 534         return true;
 535     }
 536
 537     /**
 538     * This Method clears the Array containig the Items.
 539     *
 540     * @access    private
 541         * @author    Stefan Saasen <s@fase4.com>
 542     * @see       _item
 543     */
 544     function _clear_Items( ) {
 545         $this->_item = array(
 546             'title'=>"",
 547             'link'=>"",
 548             'description'=>"",
 549             'url'=>"",
 550             'language'=>"",
 551             'pubDate'=>"",
 552             'lastBuildDate'=>"",
 553             'width'=>"",
 554             'height'=>""
 555         );
 556     }
 557     /**
 558     * This Method clears the Array containig the Channel Items.
 559     *
 560     * @access    private
 561         * @author    Stefan Saasen <s@fase4.com>
 562     * @see       _item
 563     */
 564     function _clear_cItems( ) {
 565         $this->_citem = array(
 566             'title'=>"",
 567             'link'=>"",
 568             'description'=>"",
 569             'url'=>"",
 570             'language'=>"",
 571             'copyright'=>"",
 572             'managingEditor'=>"",
 573             'webMaster'=>"",
 574             'pubDate'=>"",
 575             'lastBuildDate'=>"",
 576             'category'=>"",
 577             'generator'=>"",
 578             'docs'=>"",
 579             'cloud'=>"",
 580             'ttl'=>"",
 581             'image'=>"",
 582             'textinput'=>"",
 583             'skipHours'=>"",
 584             'skipDays' =>"",
 585             'sitelink'=>"",
 586             'refid'=>"",
 587             'reflink'=>"",
 588         );
 589     }
 590
 591     /**
 592     * XML Parser Start Element Handler
 593     *
 594     * @access    private
 595         * @author    Stefan Saasen <s@fase4.com>
 596     * @param     mixed  $parser a reference to the XML parser calling the handler.
 597     * @param     string $name contains the name of the element for which this handler is called.
 598     * @param     string $attrs contains an associative array with the element's attributes (if any).
 599         * @see           _get_ChannelData(), _clear_Items(), _type, _parse_mode, _depth, _tags, _cdepth, _ctags
 600     */
 601     function _startElement($parser, $name, $attrs) {
 602         // We have to determine, which type of xml data we have to parse
 603         if($name == "rss") {
 604             $this->_type = "rss";
 605         } elseif($name == "rdf:RDF" OR $name == "rdf") {
 606             $this->_type = "rdf";
 607         }
 608
 609
 610         if ( $name == "channel" AND $this->_type != "rdf" ) {
 611             $this->_parse_mode = "channel";
 612         } elseif ( ($name=="item")
 613                     ||($name=="image")
 614                     ||($name=="textinput")
 615                     ||(($name=="channel") && ($this->_type != "rss")) ) {
 616             if($this->_parse_mode=="channel") {
 617                 $this->_get_ChannelData( $parser );
 618             }
 619             $this->_parse_mode = "all";
 620         }
 621
 622         if( !isset( $this->_depth[$this->get_parser_id($parser)] ) ) {
 623             $this->_depth[$this->get_parser_id($parser)] = 0;
 624         }
 625         $this->_depth[$this->get_parser_id($parser)]++;
 626         array_push($this->_tags, $name);
 627
 628         if( !isset( $this->_cdepth[$this->get_parser_id($parser)] ) ) {
 629             $this->_cdepth[$this->get_parser_id($parser)] = 0;
 630         }
 631         $this->_cdepth[$this->get_parser_id($parser)]++;
 632         array_push($this->_ctags, $name);
 633     }   // END _startElement()
 634
 635     /**
 636     * Retrives the Channel Data in <rss> File
 637     *
 638     * @access    private
 639         * @author    Stefan Saasen <s@fase4.com>
 640     * @param     mixed  $parser a reference to the XML parser calling the handler.
 641         * @see           _output, _display_opt, _citem
 642     */
 643     function _get_ChannelData( $parser )
 644     {
 645                 $this->_citem["link"] = trim($this->_citem["link"]);
 646                          if (($this->_display_opt["sitelink"] == $this->_citem["link"]) && (!empty($this->_display_opt["reflink"])) && (!empty($this->_display_opt["refid"])))
 647                 {
 648                     $this->_citem["link"] .= $this->_display_opt["reflink"].$this->_display_opt["refid"];
 649                 }
 650
 651                 if( empty($this->_display_opt["channel"]) OR
 652                     $this->_display_opt["channel"] != "hidden") {
 653                 $this->_output .= "<tr><td>\n";
 654                 $this->_output .= "<table border=\"0\" width=\"100%\" class=\"fase4_rdf_meta\" cellspacing=\"5\" cellpadding=\"2\">\n";
 655                 $this->_output .= "<tr><td class=\"fase4_rdf_main_title\"><div class=\"fase4_rdf_main_title\">".htmlspecialchars($this->_citem["title"])."</div></td></tr>\n";
 656                 $this->_output .= "<tr><td class=\"fase4_rdf\">".strip_tags($this->_citem["description"], "<a>, <img>")."</td></tr>\n";
 657                 $this->_output .= "<tr><td>&nbsp;</td></tr>\n";
 658                 $this->_output .= "<tr><td class=\"fase4_rdf\">\n";
 659                 if(isset($this->_display_opt["build"]) && $this->_display_opt["build"] != "hidden") {
 660                     if($this->_citem["lastBuildDate"]){$this->_output .= "build: ". $this->_citem["lastBuildDate"]."<br />";}
 661                 }
 662                 if(isset($this->_display_opt["cache_update"]) && $this->_display_opt["cache_update"] != "hidden" && ( $_update = $this->get_cache_update_time()) ) {
 663                 $this->_output .= "cache update: ".$_update."<br />\n";
 664                 }
 665                 $this->_output .= "<a href=\"".$this->_citem["link"]."\" ";
 666                 if(isset($this->_link_target)) { $this->_output .= "target=\"".$this->_link_target."\" "; }
 667                 $this->_output .= ">".$this->_cut_string($this->_citem["link"])."</a>";
 668                 $this->_output .= "</td></tr>\n";
 669                 $this->_output .= "<tr><td><hr noshade width=\"100%\" size=\"1\"></td></tr>\n";
 670                 $this->_output .= "</table></td></tr>";
 671                 }
 672                     $this->_array_channel = array(  "title"=>$this->_citem["title"],
 673                                                     "link"=>$this->_citem["link"],
 674                                                     "description"=>$this->_citem["description"],
 675                                                     "lastBuildDate"=>$this->_citem["lastBuildDate"]);
 676     }
 677
 678     /**
 679     * XML Parser End Element Handler
 680     *
 681     * @access    private
 682         * @author    Stefan Saasen <s@fase4.com>
 683     * @param     mixed  $parser a reference to the XML parser calling the handler.
 684     * @param     string $name contains the name of the element for which this handler is called.
 685         * @see           _clear_Items(), _type, _parse_mode, _depth, _tags, _cdepth, _ctags, _item, _output, _display_opt
 686     */
 687     function _endElement($parser, $name) {
 688         array_pop($this->_tags);
 689         $this->_depth[$this->get_parser_id($parser)]--;
 690         array_pop($this->_ctags);
 691         $this->_cdepth[$this->get_parser_id($parser)]--;
 692         $this->_item["link"] = trim($this->_item["link"]);
 693            if ((!empty($this->_display_opt["refid"])) && (!empty($this->_item["link"])))
 694            {
 695             if (!ereg("refid=", $this->_item["link"])) $this->_item["link"] .= "?refid=" . $this->_display_opt["refid"];
 696            }
 697         switch ($name) {
 698             case "item":
 699                 if(empty($this->_max_count) OR $this->_item_count < $this->_max_count) {
 700                     if($this->_item["title"] != $this->_item["description"]
 701                                             AND $this->_item["description"]) {
 702
 703                         // word-wrapping added by Roland Haeder <webmaster@mxchange.org>
 704                            if (($this->_word_wrap > 0) && (strlen($this->_item["description"]) > $this->_word_wrap))
 705                         {
 706                             // Switch off _use_nl2br
 707                             $this->_use_nl2br = false;
 708                             // First remove all \n
 709                             $this->_item["description"] = str_replace('\n', ' ', $this->_item["description"]);
 710                             // Wrap with <br />\n
 711                             $this->_item["description"] = wordwrap($this->_item["description"], $this->_word_wrap, "*<br>\n");
 712                         }
 713                          elseif (($this->_word_wrap == 0) && (!$this->_use_nl2br))
 714                         {
 715                             // Strip tags out instead when word-wrap is disabled
 716                             $this->_item["description"] = strip_tags($this->_item["description"], "<a>, <img>");
 717                         }
 718
 719                         // nl2br added by Roland Haeder <webmaster@mxchange.org>
 720                         if ($this->_use_nl2br) $this->_item["description"] = nl2br($this->_item["description"]);
 721
 722                         $this->_output .= "<tr><td class=\"fase4_rdf_title\"><div class=\"fase4_rdf_title\"><a class=\"fase4_rdf_title\" href=\"".$this->_item["link"]."\" ";
 723                         if(isset($this->_link_target)) { $this->_output .= "target=\"".$this->_link_target."\" "; }
 724                         $this->_output .= ">".strip_tags($this->_item["title"], "<a>, <img>")."</a> (".$this->_item["pubDate"].")</div></td></tr>\n";
 725                                         $this->_output .= "<tr><td class=\"fase4_rdf\">".$this->_item["description"]."</td></tr>\n";
 726                         // we just display the <hr> if there is a description
 727                         $this->_output .= "<tr><td><hr noshade=\"noshade\" size=\"1\" /></td></tr>\n";
 728                     } else {
 729                         $this->_output .= "<tr><td class=\"fase4_rdf\">\n";
 730                         $this->_output .= "<a href=\"".$this->_item["link"]."\" ";
 731                         if(isset($this->_link_target)) { $this->_output .= "target=\"".$this->_link_target."\" "; }
 732                         $this->_output .= ">".$this->_item["title"]."</a></td></tr>\n";
 733                     }
 734                         $this->_array_item[] = array(   "title"=>$this->_item["title"],
 735                                                         "link"=>$this->_item["link"],
 736                                                         "description"=>$this->_item["description"]);
 737                         ++$this->_item_count;
 738                 }
 739                     $this->_clear_Items();
 740             break;
 741             case "image":
 742                 if(isset($this->_display_opt["image"]) && ($this->_display_opt["image"] != "hidden") && $this->_item["url"]) {
 743                     $this->_output .= "<tr><td class=\"fase4_rdf\">\n";
 744                     $this->_output .= "<a href=\"".$this->_item["link"]."\" ";
 745                     if(isset($this->_link_target)) { $this->_output .= "target=\"".$this->_link_target."\" "; }
 746                     $this->_output .= "><img src=\"".$this->_item["url"]."\"";
 747                 if(isset($this->_item["width"]) && isset($this->_item["height"])) {
 748                     $this->_output .= " width=\"".$this->_item["width"]."\" height=\"".$this->_item["height"]."\"";
 749                 }
 750                 $this->_output .= " alt=\"".$this->_item["title"]."\" border=\"0\" /></a></td></tr>\n";
 751
 752                     $this->_array_image[] = array(  "url"=>$this->_item["url"],
 753                                                     "link"=>$this->_item["link"],
 754                                                     "width"=>$this->_item["width"],
 755                                                     "height"=>$this->_item["height"]);
 756                     $this->_clear_Items();
 757                 } elseif( isset($this->_display_opt["image"] ) && ($this->_display_opt["image"] == "hidden") ) {
 758                     $this->_clear_Items();
 759                 }
 760
 761             break;
 762             case "channel":
 763                 if(isset($this->_display_opt["channel"]) AND $this->_display_opt["channel"] != "hidden" AND $this->_item["title"] != '') {
 764                     $this->_output .= "<tr><td>\n";
 765                     $this->_output .= '<table border="0" width="100%" class="fase4_rdf_meta" cellspacing="5" cellpadding="2">'."\n";
 766                     $this->_output .= "<tr><td class=\"fase4_rdf\"><div class=\"fase4_rdf_title\">".htmlspecialchars($this->_item["title"])."</div></td></tr>\n";
 767                     $this->_output .= "<tr><td class=\"fase4_rdf\">".strip_tags($this->_item["description"], "<a>, <img>")."</td></tr>\n";
 768                     $this->_output .= "<tr><td>&nbsp;</td></tr>\n";
 769                     $this->_output .= "<tr><td class=\"fase4_rdf\">\n";
 770                 if($this->_display_opt["build"] != "hidden") {
 771                     if($this->_item["lastBuildDate"]){$this->_output .= "build: ". $this->_item["lastBuildDate"]."<br />";}
 772                 }
 773                 if($this->_display_opt["cache_update"] != "hidden" && ( $_update = $this->get_cache_update_time()) ) {
 774                     $this->_output .= "cache update: ".$_update."<br />\n";
 775                 }
 776                 $this->_output .= "<a href=\"".$this->_item["link"]."\" ";
 777                 if(isset($this->_link_target)) { $this->_output .= "target=\"".$this->_link_target."\" "; }
 778                 $this->_output .= ">".$this->_cut_string($this->_item["link"])."</a>\n";
 779                 $this->_output .= "</td></tr>\n";
 780                 $this->_output .= "</table></td></tr>\n";
 781                 }
 782                     $this->_array_channel = array(  "title"=>$this->_item["title"],
 783                                                     "link"=>$this->_item["link"],
 784                                                     "description"=>$this->_item["description"],
 785                                                     "lastBuildDate"=>$this->_item["lastBuildDate"]);
 786                     $this->_clear_Items();
 787                     $this->_clear_cItems();
 788             break;
 789                         case "textinput":
 790                 if(isset($this->_display_opt["textinput"]) && ($this->_display_opt["textinput"] != "hidden") && $this->_item["name"] && $this->_item["link"]) {
 791                     $this->_output .= "<tr><td class=\"fase4_rdf\">\n";
 792                                 $this->_output .= "<form action=\"".$this->_item["link"]."\" ";
 793                     if(isset($this->_link_target)) { $this->_output .= "target=\"".$this->_link_target."\" "; }
 794                     $this->_output .= "method=\"get\">\n";
 795                     $this->_output .= "<div class=\"fase4_rdf_title\">".$this->_item["title"]."</div>";
 796                     $this->_output .= strip_tags($this->_item["description"], "<a>, <img>")."<br><br>\n";
 797                     $this->_output .= "<input class=\"fase4_rdf_input\" type=\"text\" name=\"".$this->_item["name"]."\">&nbsp;\n";
 798                     $this->_output .= "<input class=\"fase4_rdf_input\" type=\"submit\" value=\"go\">";
 799                     $this->_output .= "</form>\n";
 800                     $this->_output .= "</td></tr>\n";
 801                     $this->_array_textinput = array(    "title"=>$this->_item["title"],
 802                                                         "name"=>$this->_item["name"],
 803                                                         "link"=>$this->_item["link"],
 804                                                         "description"=>$this->_item["description"]);
 805                     $this->_clear_Items();
 806                 } elseif( isset($this->_display_opt["textinput"]) && ($this->_display_opt["textinput"] == "hidden") ) {
 807                     $this->_clear_Items();
 808                 }
 809
 810                         break;
 811         }
 812     }
 813
 814     /**
 815     * This Method returns the data from the <channel /> paragraph.
 816     *
 817     * @access    public
 818         * @author    Stefan Saasen <s@fase4.com>
 819     * @return    array
 820         * @see           _array_channel
 821     */
 822     function get_array_channel( )
 823     {
 824         return $this->_array_channel;
 825     }
 826
 827     /**
 828     * This Method returns the data from each <item /> paragraph.
 829     *
 830     * @access    public
 831         * @author    Stefan Saasen <s@fase4.com>
 832     * @return    array
 833         * @see           _array_item
 834     */
 835     function get_array_item( )
 836     {
 837         return $this->_array_item;
 838     }
 839
 840     /**
 841     * This Method returns the data from <textinput />.
 842     *
 843     * @access    public
 844         * @author    Stefan Saasen <s@fase4.com>
 845     * @return    array
 846         * @see           _array_textinput
 847     */
 848     function get_array_textinput( )
 849     {
 850         return $this->_array_textinput;
 851     }
 852
 853         /**
 854         * Getter for parser id from resource
 855         *
 856         * @access private
 857         * @author       Roland Haeder <webmaster@mxchange.org>
 858         * @return       int
 859         */
 860         function get_parser_id ($parser) {
 861                 // Default is zero
 862                 $id = 0;
 863
 864                 // Is it a resource?
 865                 if (is_resource($parser)) {
 866                         // Cast the resource into id
 867                         $id = (int) $parser;
 868                 } // END - if
 869
 870                 // Return the id
 871                 return $id;
 872         }
 873
 874     /**
 875     * This Method returns the data from <image />.
 876     *
 877     * @access    public
 878         * @author    Stefan Saasen <s@fase4.com>
 879     * @return    array
 880         * @see           _array_image
 881     */
 882     function get_array_image( )
 883     {
 884         return $this->_array_image;
 885     }
 886
 887     /**
 888     * XML Parser Data Handler
 889     *
 890     * @access    private
 891         * @author    Stefan Saasen <s@fase4.com>
 892     * @param     mixed  $parser a reference to the XML parser calling the handler.
 893     * @param     string $text contains the character data as a string.
 894         * @see           _parse_mode, _item, _tags, _depth, _citem, _ctags, _cdepth
 895     */
 896     function _parseData($parser, $text)
 897     {
 898         // Deocing mode added by Roland Haeder <webmaster@mxchange.org>
 899         switch ($this->_decoding_mode)
 900         {
 901         case "utf8_decode":
 902             $text = utf8_decode($text);
 903             break;
 904
 905         case "htmlentities":
 906             $text = htmlentities($text);
 907             break;
 908         }
 909
 910         $clean = preg_replace("/\s/", "", $text);
 911         if ($clean) {
 912             $text = preg_replace("/^\s+/", "", $text)."\n";
 913                 if($this->_parse_mode == "all") {
 914                         if ( isset($this->_item[$this->_tags[$this->_depth[$this->get_parser_id($parser)]]]) &&
 915                             $this->_item[$this->_tags[$this->_depth[$this->get_parser_id($parser)]]] ) {
 916                            $this->_item[$this->_tags[$this->_depth[$this->get_parser_id($parser)]]] .= $text;
 917                         } else {
 918                            $this->_item[$this->_tags[$this->_depth[$this->get_parser_id($parser)]]] = $text;
 919                         }
 920                 } elseif (isset($this->_parse_mode) && $this->_parse_mode == "channel") {
 921                         if ( isset($this->_citem[$this->_ctags[$this->_cdepth[$this->get_parser_id($parser)]]]) ) {
 922                            $this->_citem[$this->_ctags[$this->_cdepth[$this->get_parser_id($parser)]]] .= $text;
 923                         } else {
 924                            $this->_citem[$this->_ctags[$this->_cdepth[$this->get_parser_id($parser)]]] = $text;
 925                         }
 926                 }
 927         }
 928     }
 929
 930     /**
 931     * This Method allows you to choose if specific Parameters are displayed or not. These are:
 932     * image, channel, textinput, build and cache_update. If set to "hidden" those elements won't be displayed.
 933     *
 934     * @access    public
 935         * @author    Stefan Saasen <s@fase4.com>
 936     * @param     array  $options
 937         * @see           _display_opt
 938     */
 939     function set_Options( $options = "" )
 940     {
 941         if(is_array( $options )) {
 942             $this->_display_opt = $options;
 943             return true;
 944         } else {
 945             unset($this->_display_opt);
 946             return false;
 947         }
 948     }
 949
 950     /**
 951     * This Method allows you to define the width of the table that holds the representation of the rdf/rss file.
 952     *
 953     * @access    public
 954         * @author    Stefan Saasen <s@fase4.com>
 955     * @param     int  $width  attribute width in tag <table>
 956         * @see           _table_width
 957     */
 958     function set_table_width( $width = 400 )
 959     {
 960         $this->_table_width = $width;
 961         return true;
 962     }
 963
 964     /**
 965     * This Method returns an assocative Array with available Options.
 966     *
 967     * The Keys are the Name of the Options to be set.
 968     * The Values are  short Description of available Options.
 969     *
 970     * @access    public
 971         * @author    Stefan Saasen <s@fase4.com>
 972     * @return    array  $options
 973         * @see           _display_opt
 974     */
 975     function get_Options()
 976     {
 977         $options = array(   "image"=>"If 'image' is set to \"hidden\" no image provided by the RDF Publisher will be displayed.",
 978                             "channel"=>"If 'channel' is set to \"hidden\" the Channel Meta Data (i.e the Title and the short description regarding the RDF Publisher will not be displayed",
 979                             "textinput"=>"If set to \"hidden\" no Input Form will be displayed",
 980                             "build"=>"If set to \"hidden\" the Build Date (if provided) of the RDF File will not be displayed",
 981                             "cache_update"=>"If set to \"hidden\" the Update Date/Time of the cached Rdf File will not be displayed");
 982         return $options;
 983     }
 984
 985     /**
 986     * This Method returns the Content of the RDF File in one string. The String actually holds the whole XML Document.
 987     *
 988     * @access    public
 989         * @author    Stefan Saasen <s@fase4.com>
 990     * @param     string $rdf    RDF File (Location)
 991     * @return    string XML Presentation of parsed RDF File
 992         * @see           _cached_file, _remote_file, _cache_dir, _refresh, _update_cache()
 993     */
 994     function cache()
 995     {
 996         // checks if the cache directory already exists
 997         // if not, the cache directory will be created
 998         if(!$this->_cache_dir_ok) {
 999             $this->_create_cache_dir();
1000         }
1001         if($this->_use_dynamic_display == true) {
1002             $this->_cached_file = md5("dynamic".$this->salt.$this->_remote_file);
1003             $this->_cache_type = "normal";
1004         } else {
1005             $this->_cached_file = md5($this->salt.$this->_remote_file);
1006             $this->_cache_type = "fast";
1007         }
1008
1009         $_cache_f = $this->_cache_dir.$this->_cached_file;
1010
1011         if ( (!file_exists($_cache_f)) || (filemtime($_cache_f) < $this->_refresh) || (filesize($_cache_f) == 0)) {
1012         // We have to parse the remote file
1013         $this->_use_cached_file = false;
1014             // --> we want to provide proper Information for Use in
1015             // get_cache_update_time()
1016             clearstatcache();
1017             if($this->_use_dynamic_display == true) {
1018                 $_rdf = @implode(" ", $this->_rdf_data()); // -> proxy
1019                 if(!$_rdf) {
1020                     $this->_throw_exception( $this->_remote_file." is not available" );
1021                 }
1022                 $this->_parse_xRDF( $_rdf );
1023                 $this->_update_cache( $_rdf );
1024                 $data = $this->_output;
1025             } else {
1026                 $_rdf = @implode(" ", $this->_rdf_data()); // -> proxy
1027                 if(!$_rdf) {
1028                     $this->_throw_exception( $this->_remote_file." is not available" );
1029                 }
1030                 $this->_parse_xRDF( $_rdf );
1031                 $this->_update_cache( $this->_output );
1032                 $data = $this->_output;
1033             }
1034         } else {
1035         // we can use the cached file
1036         $this->_use_cached_file = true;
1037             if($this->_use_dynamic_display == true) {
1038                 $this->_parse_xRDF( implode(" ", file($_cache_f)) );
1039                 $data = $this->_output;
1040             } else {
1041                 $data = @implode(" ", file($_cache_f));
1042             }
1043         }
1044         return trim($data);
1045     }   // END cache()
1046
1047     /**
1048     * This Methods creates the Cache Directory if the specified Directory does not exist.
1049     *
1050     * @access    private
1051         * @author    Stefan Saasen <s@fase4.com>
1052     * @param     string $dir Path to Directory.
1053         * @return        boolean
1054         * @see           _cache_dir, _cache_dir_ok
1055     */
1056     function _create_cache_dir()
1057     {
1058         $path = "";
1059         if(!@is_dir($this->_cache_dir)) {
1060             $arr = explode("/", $this->_cache_dir);
1061             $c = count($arr);
1062             if($arr[0]=="") {
1063                 $path = "/";
1064             }
1065             for($i = 0;$i<$c;$i++)
1066             {
1067                 if($arr[$i]!="") {
1068                     $path .= $arr[$i]."/";
1069                     if(!@is_dir($path)) {
1070                        if(!@mkdir($path, 0777)) {
1071                             $this->_throw_exception("failed to create directory:<b>".$this->_cache_dir."</b>.<br /><br />Exception on Line: ".__LINE__);
1072                         return false;
1073                         }
1074                     }
1075                 }
1076             }
1077             $this->_cache_dir_ok = true;
1078             return true;
1079         } else {
1080             $this->_cache_dir_ok = true;
1081             return true;
1082         }
1083     }   // END _create_cache_dir()
1084
1085     /**
1086     * This Method updates the cached RDF Files and synchronises them with their remote Counterparts.
1087     *
1088     * @access    private
1089         * @author    Stefan Saasen <s@fase4.com>
1090     * @param     string $rdf    RDF File (Location)
1091         * @see           _cache_dir, _cached_file, _throw_exception()
1092     */
1093     function _update_cache( $content = "" )
1094     {
1095              $_local = @fopen( $this->_cache_dir.$this->_cached_file, 'w' );
1096              if(!$_local) {
1097                 $this->_throw_exception( "Cannot open ".$this->_cached_file."<br /><br />Exception at Line: ".__LINE__ );
1098                 return false;
1099              }
1100              if (fwrite( $_local, $content) === false) {
1101                         $this->_throw_exception( "Cannot write to ".$this->_cached_file."<br /<br />Exeception at Line: ".__LINE__);
1102                         return false;
1103                    }
1104              fclose( $_local );
1105                    @chmod( $this->_cache_dir.$this->_cached_file, 0666);
1106              return true;
1107     }   // END _update_cache()
1108
1109     /**
1110     * This Method returns the Date/Time of last Cache Update of the actually parsed RDF File.
1111         *
1112     * @access    public
1113         * @author    Stefan Saasen <s@fase4.com>
1114         * @return        string Date/Time of last Update
1115         * @see           _cache_dir, _cached_file
1116     */
1117     function get_cache_update_time()
1118     {
1119             return (file_exists($this->_cache_dir.$this->_cached_file))?date("d.m.Y H:i:s", filemtime($this->_cache_dir.$this->_cached_file)):"Cachemiss";
1120     }   // END get_cache_update_time()
1121
1122     /**
1123     * This Method returns the Type of Cache that was used ('normal' or 'fast')
1124     *
1125     * @access    public
1126         * @author    Stefan Saasen <s@fase4.com>
1127     * @param     string $rdf    RDF File (Location)
1128     * @return    string Displays RDF Content ( using _display() )
1129         * @see           _remote_file, cache()
1130     */
1131     function get_CacheType()
1132     {
1133         return $this->_cache_type;
1134     }
1135
1136     /**
1137     * Returns true if cached file was used, otherwise false
1138     *
1139     * @access    public
1140         * @author    Stefan Saasen <s@fase4.com>
1141     * @return    array  $options
1142         * @see           _use_cached_file
1143     */
1144     function is_cachedFile()
1145     {
1146         return $this->_use_cached_file;
1147     }
1148
1149     /**
1150     * This Method deletes all the cached Files.
1151     *
1152     * Please keep in mind to use this method just as a 'manual garbage collection'
1153     * You should cache the rss/rdf files locally to avoid unnecessary traffic.
1154     * (Both for your visitors and the Publisher)
1155         *
1156     * @access    public
1157         * @author    Stefan Saasen <s@fase4.com>
1158         * @see           _cache_dir
1159     */
1160     function clear_cache()
1161     {
1162         $dir = dir($this->_cache_dir);
1163         while($file=$dir->read()) {
1164             // Exclude directories
1165             if (is_file($dir->path.$file) && substr($file, -6, 6) != ".cache" && substr($file, -4, 4) != ".log")  {
1166                 if(!@unlink($dir->path.$file)) {
1167                     $this->_throw_exception("Unable to unlink ".$dir->path.$file."<br />\n<br />\nException at Line: ".__LINE__ );
1168                     return false;
1169                 } // END - if
1170             } // END - if
1171         } // END - while
1172         $dir->close();
1173         return true;
1174     }   // END clear_cache()
1175
1176     /**
1177     * Cuts the String $string after $str_len and adds "... "
1178     *
1179     * @access   private
1180     * @param    string  $string String to be shortened
1181     * @param    int     $str_len length of the returned String (overall length including "... ")
1182     * @return   string  Cut String
1183     */
1184     function _cut_string( $string, $str_len = "30" )
1185     {
1186         if(strlen(trim($string))>$str_len) {
1187             $string = substr( trim($string) , 0, $str_len - 4);
1188             $string .= " ...";
1189         }
1190         return $string;
1191     }   // END _cut_string()
1192
1193     /**
1194     * this Method implements simple Garbage Collection
1195     *
1196     * @access    private
1197         * @author    Stefan Saasen <s@fase4.com>
1198         * @see           _cache_dir, gc_probability, gc_maxlifetime
1199     */
1200     function _garbage_collection()
1201     {
1202         srand((double) microtime() * 1000000);
1203         if (mt_rand(1, 100) <= $this->gc_probability) {
1204             $dir = dir($this->_cache_dir);
1205             while($file=$dir->read()) {
1206                 if (is_file($dir->path.$file) && substr($file, -6, 6) != ".cache" && substr($file, -4, 4) != ".log" && filemtime($dir->path.$file) <= time() - $this->_refresh )  {
1207                     @unlink($dir->path.$file);
1208                 } // END - if
1209         }
1210         $dir->close();
1211         }   // END if
1212     }
1213
1214     /* ==== Proxy/Auth methods ==== */
1215
1216    /**
1217     * this method sets a proxy server
1218     *
1219     * @access    public
1220     * @param     string $phost Proxy Host
1221     * @param     string $pport Prox Port
1222     * @author    Marco Kraus <marco.kraus@siemens.com>
1223     */
1224     function set_proxy($phost, $pport)
1225     {
1226      $this->_use_proxy = true;
1227
1228      if ($phost != '')
1229         $this->_phost = $phost;
1230
1231      if ($pport != '')
1232         $this->_pport = $pport;
1233     }
1234
1235     /**
1236     * this method sets a proxy server authentification
1237     *
1238     * @access    public
1239     * @param     string $pname Username
1240     * @param     string $ppaswd Password
1241     * @author    Marco Kraus <marco.kraus@siemens.com>
1242     */
1243     function set_proxy_auth( $pname, $ppasswd )
1244     {
1245      $this->_use_proxy_auth = true;
1246
1247      if ($pname != '')
1248         $this->_pname = $pname;
1249
1250      if ($ppasswd != '')
1251         $this->_ppasswd = $ppasswd;
1252     }
1253
1254
1255    /**
1256     * gets _remote_file into an array
1257     *
1258     * needed, cause if you use a proxy, you have to open
1259     * a raw-tcp-socket to get the data
1260     *
1261     * @access    private
1262     * @author    Marco Kraus <Marco.Kraus@siemens.com>
1263     * @return array
1264     * @see _use_proxy, cache()
1265     */
1266     function _rdf_data()
1267     {
1268       if ( $this->_use_proxy == true )
1269       {
1270        // we need a raw socket here to connect to proxy
1271        $fp = fsockopen($this->_phost,$this->_pport);
1272
1273        if (!$fp) {
1274            $this->_throw_exception( $this->_remote_file." is not available with proxy" );
1275        } else {
1276         if ( $this->_use_proxy_auth == true ) {
1277              fputs($fp, "GET ".$this->_remote_file." HTTP/1.0\r\nUser-Agent: Fase4 RDF-Reader/1.40 modified by Quix0r\r\n\r\n");
1278            } else {
1279              fputs($fp, "GET ".$this->_remote_file." HTTP/1.0\r\nUser-Agent: Fase4 RDF-Reader/1.40 modified by Quix0r\r\nProxy-Authorization: Basic ".base64_encode("$this->_pname:$this->_ppasswd") ."\r\n\r\n");
1280            }
1281         }
1282
1283
1284        for ( $i = 0; !feof ($fp) ; $i++)
1285        {
1286           $usable_data[$i] = "";
1287           $usable_data[$i] = fgets($fp,4096);
1288
1289         // PARSE HEADER ---- first line has to be <?xml, second rdf or rss, and third is blank
1290
1291         // strstr did not fit (ask Rasmus why), so we compare each character
1292             if ( ($usable_data[$i][0] == "<" ) &&
1293                ($usable_data[$i][1] == "?" ) &&
1294                ($usable_data[$i][2] == "x" ) &&
1295                ($usable_data[$i][3] == "m" ) &&
1296                ($usable_data[$i][4] == "l" ) ) {
1297                     $usable_data[0] = $usable_data[$i]; // save current field
1298                       $i = 1; // just reset array to start
1299               }
1300
1301         // there seems to be proxystuff after the <?xml....we delete this
1302             if ( (
1303                ($usable_data[$i][0] == "<" ) &&
1304                ($usable_data[$i][1] == "r" ) &&
1305                ($usable_data[$i][2] == "d" ) &&
1306                ($usable_data[$i][3] == "f" ) &&
1307                ($usable_data[$i][4] == ":" )
1308                )
1309                ||
1310                (
1311                ($usable_data[$i][0] == "<" ) &&
1312                ($usable_data[$i][1] == "r" ) &&
1313                ($usable_data[$i][2] == "s" ) &&
1314                ($usable_data[$i][3] == "s" )
1315                )
1316             ) {
1317
1318                 $usable_data[1] = $usable_data[$i]; // save current field
1319                 $usable_data[2] = "\n";
1320                 $i = 2; // just reset array to start
1321           }
1322        }
1323
1324        fclose($fp);
1325        return $usable_data;
1326      } else {
1327                 if (substr($this->_remote_file, 0, 7) != "http://") {
1328                         $this->_throw_exception( "Cannot find http:// in ".$this->_remote_file."!" );
1329                         return "";
1330                 } else {
1331                         // Extract host information
1332                         $host = substr($this->_remote_file, 7);
1333                         // Extract the GET part
1334                         $get = "/";
1335                         if (strpos($host, "/") > 0) {
1336                                 $get = substr($host, strpos($host, "/"));
1337                                 $host = substr($host, 0, strpos($host, "/"));
1338                         }
1339                         // Extract port
1340                         $port = "80";
1341                         if (strpos($host, ":") > 0) {
1342                                 $port = substr($host, (strpos($host, ":") + 1));
1343                                 $host = substr($host, 0, (strpos($host, ":") - 1));
1344                         }
1345
1346                         // Start connection to server
1347                         $fp = fsockopen($host, $port);
1348                         if (!$fp) {
1349                     $this->_throw_exception( $this->_remote_file." is maybe not available." );
1350                           return "";
1351                         }
1352                         // Repare request line
1353                         $request = sprintf("GET %s HTTP/1.0\r\nHost: %s\r\nUser-Agent: Fase4 RDF-Reader/1.40 modified by Quix0r\r\n\r\n", $get, $host);
1354                         // Send request out
1355                         fputs($fp, $request);
1356                         $reply = ""; $isContent = false; $dummy = "";
1357                         // Read reply
1358                         $i=0;
1359                         while ( !feof($fp) ) {
1360                                 $read = trim(fgets($fp, 4096));
1361                                 if (substr($read, 0, 5) == "<?xml" || $isContent) {
1362                                         // Add content
1363                                         $reply[] = $read;
1364                                         $isContent = true;
1365                                 } else {
1366                                         // Put in dummy
1367                                         $dummy[] = $read;
1368                                 }
1369                                 $i++;
1370                         }
1371                         if ((count($dummy) > 0) && (count($reply) == 0) && (!$isContent)) {
1372                                 // Transfer content from dummy
1373                                 $reply = $content;
1374                         }
1375                         fclose($fp);
1376                         //die(htmlentities($reply));
1377                         return $reply;
1378                 }
1379      }
1380    }    // END _rdf_data()
1381 }   // END class
1382 ?>