From 4f3fd53c5ee6f908984f144ae848f094bd55f051 Mon Sep 17 00:00:00 2001
From: poltawski ";
- echo " ";
- }
-}
-
-DISCUSSION:
-
-This recipe only works for RSS 1.0 feeds that include the
-
-";
- foreach ($rss->items as $item) {
- $href = $item['link'];
- $title = $item['title'];
- echo "
";
-
-DESCRIPTION
-
- MapieRSS is an XML-based RSS parser in PHP. It attempts to be "PHP-like",
- and simple to use.
-
- Some features include:
-
- * supports RSS 0.9 - 1.0, with limited RSS 2.0 support
- * supports namespaces, and modules, including mod_content and mod_event
- * open minded [1]
- * simple, functional interface, to object oriented backend parser
- * automatic caching of parsed RSS objects makes its easy to integrate
- * supports conditional GET with Last-Modified, and ETag
- * uses constants for easy override of default behaviour
- * heavily commented
-
-
-1. By open minded I mean Magpie will accept any tag it finds in good faith that
- it was supposed to be here. For strict validation, look elsewhere.
-
-
-GETTING STARTED
-
-
-
-COPYRIGHT:
- Copyright(c) 2002 kellan@protest.net. All rights reserved.
- This software is released under the GNU General Public License.
- Please read the disclaimer at the top of the Snoopy.class.inc file.
diff --git a/lib/magpie/README_MOODLE.txt b/lib/magpie/README_MOODLE.txt
deleted file mode 100644
index 319cd7c9b2..0000000000
--- a/lib/magpie/README_MOODLE.txt
+++ /dev/null
@@ -1,29 +0,0 @@
-This folder is the MagpieRSS news feed client library
-http://magpierss.sourceforge.net/
-Moodle's rss_client block uses these libraries to download, parse and cache remote new feeds.
-
-Magpie version 0.72 added to Moodle 1.6dev on 20051213
-
-=============================================================
-Changes - see MDL-7045:
-* ETag and Last-Modified http field names are not case sensitive anymore - should improve caching
-* Fixed some minor undefined warnings
-* Tralining newlines are stripped from ETag and Last-Modified headers (discovered by Matthew Bockol),
- we should be sending valid headers when fetching feed updates now, yay!
-
-
-Fixes not reported upstream yet.
-
-skodak
-16 October 2006
-=============================================================
-Bug fix - see MDL-18644
-
-Bug in function array_change_key_case(), using assignment (=) instead of
-equality (==).
-
-Reported upstream as bug #2705796
-
-David Mudrak (mudrd8mz)
-=============================================================
-
diff --git a/lib/magpie/TROUBLESHOOTING b/lib/magpie/TROUBLESHOOTING
deleted file mode 100644
index 89068d382c..0000000000
--- a/lib/magpie/TROUBLESHOOTING
+++ /dev/null
@@ -1,152 +0,0 @@
-TROUBLESHOOTING
-
-
-Trouble Installing MagpieRSS:
-
-1. Fatal error: Failed opening required '/path/to/script/rss_fetch.inc'
- (include_path='.:/usr/local/lib/php:/usr/local/lib/php/pear')
-
-2. Cache couldn't make dir './cache'.
-
-3. Fatal error: Failed to load PHP's XML Extension.
- http://www.php.net/manual/en/ref.xml.php
-
-Trouble Using MagpieRSS
-
-4. Warning: MagpieRSS: Failed to fetch example.com/index.rdf.
- (HTTP Error: Invalid protocol "")
-
-5. Warning: MagpieRSS: Failed to parse RSS file.
- (not well-formed (invalid token) at line 19, column 98)
-
-6. Warning: MagpieRSS: Failed to fetch http://localhost/rss/features.1-0.rss.
- (HTTP Response: HTTP/1.1 404 Not Found)
-
-If you would rather provide a custom error, see the COOKBOOK
-(http://magpierss.sf.net/cookbook.html) recipe 2.
-
-*************************************************************************
-1. Fatal error: Failed opening required '/path/to/script/rss_fetch.inc'
- (include_path='.:/usr/local/lib/php:/usr/local/lib/php/pear')
-
- This could mean that:
-
- a) PHP can't find the MagpieRSS files.
- b) PHP found them the MagpieRSS files, but can't read them.
-
- a. Telling PHP where to look for MagpieRSS file.
-
- This might mean your PHP program can't find the MagpieRSS libraries.
- Magpie relies on 4 include files, rss_fetch.inc, rss_parse.inc,
- rss_cache.inc, rss_util.inc, and for normal use you'll need all 4 (see the
- cookbook for exceptions).
-
- This can be fixed by making sure the MagpieRSS files are in your include
- path.
-
- If you can edit your include path (for example your on a shared host) then
- you need to replace:
-
- require_once('rss_fetch.inc');
-
- -with-
-
- define('MAGPIE_DIR', '/path/to/magpierss/');
- require_once(MAGPIE_DIR.'rss_fetch.inc');
-
- b. PHP can't read the MagpieRSS files
-
- All PHP libraries need to be readable by your webserver.
-
- On Unix you can accomplish this with:
-
- chmod 755 rss_fetch.inc rss_parse.inc rss_cache.inc rss_util.inc
-
-*************************************************************************
-2. Cache couldn't make dir './cache'.
-
- MagpieRSS caches the results of fetched and parsed RSS to reduce the load on
- both your server, and the remote server providing the RSS. It does this by
- writing files to a cache directory.
-
- This error means the webserver doesn't have write access to the current
- directory.
-
- a. Make a webserver writeable cache directory
-
- Find the webserver's group. (on my system it is 'www')
-
- mkdir ./cache
- chgrp www directory_name
- chmod g+w directory_name
-
- (this is the best, and desired solution)
-
- b. Tell MagpieRSS to create the cache directory somewhere the webserver can
- write to.
-
- define('MAGPIE_CACHE_DIR', '/tmp/magpierss');
-
- (this is not a great solution, and might have security considerations)
-
- c. Turn off cacheing.
-
- Magpie can work fine with cacheing, but it will be slower, and you might
- become a nuiance to the RSS provider, but it is an option.
-
- define('MAGPIE_CACHE_ON', 0);
-
- d. And lastly, do NOT
-
- chmod 777 ./cache
-
- Any of the above solutions are better then this.
-
- NOTE: If none of this works for you, let me know. I've got root, and a
- custom compiled Apache on almost any box I ever touch, so I can be a little
- out of touch with reality. But I won't know that if I don't feedback.
-
-************************************************************************* 3.
-3. Fatal error: Failed to load PHP's XML Extension.
- http://www.php.net/manual/en/ref.xml.php
-
- -or-
-
- Fatal error: Failed to create an instance of PHP's XML parser.
- http://www.php.net/manual/en/ref.xml.php
-
- Make sure your PHP was built with --with-xml
-
- This has been turned on by default for several versions of PHP, but it might
- be turned off in your build.
-
- See php.net for details on building and configuring PHP.
-
-
-*************************************************************************
-4. Warning: MagpieRSS: Failed to fetch index.rdf.
- (HTTP Error: Invalid protocol "")
-
- You need to put http:// in front of your the URL to your RSS feed
-
-*************************************************************************
-5. Warning: MagpieRSS: Failed to parse RSS file.
- (not well-formed (invalid token) at line 19, column 98)
-
- There is a problem with the RSS feed you are trying to read.
- MagpieRSS is an XML parser, and therefore can't parse RSS feed with invalid
- characters. Some RSS parser are based on regular expressions, and can
- parse invalid RSS but they have their own problems.
-
- You could try contacting the author of the RSS feed, and pointing them to
- the online RSS validator at:
-
- http://feeds.archive.org/validator/
-
-*************************************************************************
-6. Warning: MagpieRSS: Failed to fetch http://example.com/index.rdf
- (HTTP Response: HTTP/1.1 404 Not Found)
-
- Its a 404! The RSS file ain't there.
-
-
diff --git a/lib/magpie/cookbook b/lib/magpie/cookbook
deleted file mode 100644
index 45dda98bcd..0000000000
--- a/lib/magpie/cookbook
+++ /dev/null
@@ -1,125 +0,0 @@
-MAGPIERSS RECIPES: Cooking with Corbies
-
- "Four and twenty blackbirds baked in a pie."
-
-1. LIMIT THE NUMBER OF HEADLINES(AKA ITEMS) RETURNED.
-
-PROBLEM:
-
-You want to display the 10 (or 3) most recent headlines, but the RSS feed
-contains 15.
-
-SOLUTION:
-
-$num_items = 10;
-$rss = fetch_rss($url);
-
-$items = array_slice($rss->items, 0, $num_items);
-
-DISCUSSION:
-
-Rather then trying to limit the number of items Magpie parses, a much simpler,
-and more flexible approach is to take a "slice" of the array of items. And
-array_slice() is smart enough to do the right thing if the feed has less items
-then $num_items.
-
-See: http://www.php.net/array_slice
-
-
-2. DISPLAY A CUSTOM ERROR MESSAGE IF SOMETHING GOES WRONG
-
-PROBLEM:
-
-You don't want Magpie's error messages showing up if something goes wrong.
-
-SOLUTION:
-
-# Magpie throws USER_WARNINGS only
-# so you can cloak these, by only showing ERRORs
-error_reporting(E_ERROR);
-
-# check the return value of fetch_rss()
-
-$rss = fetch_rss($url);
-
-if ( $rss ) {
-...display rss feed...
-}
-else {
- echo "An error occured! " .
- "Consider donating more $$$ for restoration of services." .
- "
Error Message: " . magpie_error();
-}
-
-DISCUSSION:
-
-MagpieRSS triggers a warning in a number of circumstances. The 2 most common
-circumstances are: if the specified RSS file isn't properly formed (usually
-because it includes illegal HTML), or if Magpie can't download the remote RSS
-file, and there is no cached version.
-
-If you don't want your users to see these warnings change your error_reporting
-settings to only display ERRORs. Another option is to turn off display_error,
-so that WARNINGs, and NOTICEs still go to the error_log but not to the webpages.
-
-You can do this with:
-
-ini_set('display_errors', 0);
-
-See: http://www.php.net/error_reporting,
- http://www.php.net/ini_set,
- http://www.php.net/manual/en/ref.errorfunc.php
-
-3. GENERATE A NEW RSS FEED
-
-PROBLEM:
-
-Create an RSS feed for other people to use.
-
-SOLUTION:
-
-Use Useful Inc's RSSWriter (http://usefulinc.com/rss/rsswriter/)
-
-DISCUSSION:
-
-An example of turning a Magpie parsed RSS object back into an RSS file is forth
-coming. In the meantime RSSWriter has great documentation.
-
-4. DISPLAY HEADLINES MORE RECENT THEN X DATE
-
-PROBLEM:
-
-You only want to display headlines that were published on, or after a certain
-date.
-
-
-SOLUTION:
-
-require 'rss_utils.inc';
-
-# get all headlines published today
-$today = getdate();
-
-# today, 12AM
-$date = mktime(0,0,0,$today['mon'], $today['mday'], $today['year']);
-
-$rss = fetch_rss($url);
-
-foreach ( $rss->items as $item ) {
- $published = parse_w3cdtf($item['dc']['date']);
- if ( $published >= $date ) {
- echo "Title: " . $item['title'];
- echo "Published: " . date("h:i:s A", $published);
- echo "MagpieRSS Recipes: Cooking with Corbies
-
-"Four and twenty blackbirds baked in a
-pie."
-$num_items = 10; -$rss = fetch_rss($url); - -$items = array_slice($rss->items, 0, $num_items); - -foreach ( $items as $item ) { --
-# Magpie throws USER_WARNINGS only -# so you can cloak these, by only showing ERRORs -error_reporting(E_ERROR); - -# check the return value of fetch_rss() - -$rss = fetch_rss($url); - -if ( $rss ) { -...display rss feed... -} -else { - echo "An error occured! " . - "Consider donating more $$$ for restoration of services." . - "<br>Error Message: " . magpie_error(); -} --
-# you can also do this in your php.ini file -ini_set('display_errors', 0); -- -
-require_once('rss_utils.inc'); - -# get all headlines published today -$today = getdate(); - -# today, 12AM -$date = mktime(0,0,0,$today['mon'], $today['mday'], $today['year']); - -$rss = fetch_rss($url); - -foreach ( $rss->items as $item ) { - $published = parse_w3cdtf($item['dc']['date']); - if ( $published >= $date ) { - echo "Title: " . $item['title']; - echo "Published: " . date("h:i:s A", $published); - echo "<p>"; - } -} --
parse_w3cdtf()
is defined in
-rss_utils.inc
, and parses RSS style dates into Unix epoch
-seconds.
-
-fetch_rss()
which takes a URL and returns a
-parsed RSS object, but what if you want to parse a file stored locally that
-doesn't have a URL?
-
--require_once('rss_parse.inc'); - -$rss_file = 'some_rss_file.rdf'; -$rss_string = read_file($rss_file); -$rss = new MagpieRSS( $rss_string ); - -if ( $rss and !$rss->ERROR) { -...display rss... -} -else { - echo "Error: " . $rss->ERROR; -} - -# efficiently read a file into a string -# in php >= 4.3.0 you can simply use file_get_contents() -# -function read_file($filename) { - $fh = fopen($filename, 'r') or die($php_errormsg); - $rss_string = fread($fh, filesize($filename) ); - fclose($fh); - return $rss_string; -} -- -
fetch_rss()
. We read the contents of the RSS file into a
-string, and pass it to the parser constructor. Notice also that error handling
-is subtly different.
-
--
- MagpieRSS is compatible with RSS .9 through RSS 1.0, and supports the - RSS 1.0's modules. (with a few exceptions) -
-
- --require('rss_fetch.inc'); -$rss = fetch_rss($url); -- -
fetch_rss()
)
- around the library.
- parse_w3cdtf()
, for parsing W3CDTF into epoch seconds.
- - This makes it very simple support the varied versions of RSS simply, but - forces the consumer of a RSS feed to be cognizant of how it is - structured.(at least if you want to do something fancy) -
-
- Magpie parses a RSS feed into a simple object, with 4 fields:
- channel
, items
, image
, and
- textinput
.
-
-
$rss->channel
contains key-value pairs of all tags, without
- nested tags, found between the root tag (<rdf:RDF>, or <rss>)
- and the end of the document.
-
- -
$rss->items
is an array of associative arrays, each one
- describing a single item. An example that looks like:
- -<item rdf:about="http://protest.net/NorthEast/calendrome.cgi?span=event&ID=210257"> -<title>Weekly Peace Vigil</title> -<link>http://protest.net/NorthEast/calendrome.cgi?span=event&ID=210257</link> -<description>Wear a white ribbon</description> -<dc:subject>Peace</dc:subject> -<ev:startdate>2002-06-01T11:00:00</ev:startdate> -<ev:location>Northampton, MA</ev:location> -<ev:enddate>2002-06-01T12:00:00</ev:enddate> -<ev:type>Protest</ev:type> -</item> -
- Is parsed, and pushed on the $rss->items
array as:
-
-array( - title => 'Weekly Peace Vigil', - link => 'http://protest.net/NorthEast/calendrome.cgi?span=event&ID=210257', - description => 'Wear a white ribbon', - dc => array ( - subject => 'Peace' - ), - ev => array ( - startdate => '2002-06-01T11:00:00', - enddate => '2002-06-01T12:00:00', - type => 'Protest', - location => 'Northampton, MA' - ) -); -- -
-
$rss->image
and $rss-textinput
are associative arrays
-including name-value pairs for anything found between the respective parent
-tags.
-
--require_once 'rss_fetch.inc'; - -$url = 'http://magpie.sf.net/samples/imc.1-0.rdf'; -$rss = fetch_rss($url); - -echo "Site: ", $rss->channel['title'], "<br>\n"; -foreach ($rss->items as $item ) { - $title = $item[title]; - $url = $item[link]; - echo "<a href=$url>$title</a></li><br>\n"; -} --More soon....in the meantime you can check out a -cool tool built with -MagpieRSS, version 0.1. - -
-
-coded by: kellan (at) protest.net, feedback is always appreciated. -
-
-
-
-
diff --git a/lib/magpie/rss_cache.inc b/lib/magpie/rss_cache.inc
deleted file mode 100644
index b8d436cddb..0000000000
--- a/lib/magpie/rss_cache.inc
+++ /dev/null
@@ -1,200 +0,0 @@
-
- * Version: 0.51
- * License: GPL
- *
- * The lastest version of MagpieRSS can be obtained from:
- * http://magpierss.sourceforge.net
- *
- * For questions, help, comments, discussion, etc., please join the
- * Magpie mailing list:
- * http://lists.sourceforge.net/lists/listinfo/magpierss-general
- *
- */
-
-class RSSCache {
- var $BASE_CACHE = './cache'; // where the cache files are stored
- var $MAX_AGE = 3600; // when are files stale, default one hour
- var $ERROR = ""; // accumulate error messages
-
- function RSSCache ($base='', $age='') {
- if ( $base ) {
- $this->BASE_CACHE = $base;
- }
- if ( $age ) {
- $this->MAX_AGE = $age;
- }
-
- // attempt to make the cache directory
- if ( ! file_exists( $this->BASE_CACHE ) ) {
- $status = @mkdir( $this->BASE_CACHE, 0755 );
-
- // if make failed
- if ( ! $status ) {
- $this->error(
- "Cache couldn't make dir '" . $this->BASE_CACHE . "'."
- );
- }
- }
- }
-
-/*=======================================================================*\
- Function: set
- Purpose: add an item to the cache, keyed on url
- Input: url from wich the rss file was fetched
- Output: true on sucess
-\*=======================================================================*/
- function set ($url, $rss) {
- $this->ERROR = "";
- $cache_file = $this->file_name( $url );
- $fp = @fopen( $cache_file, 'w' );
-
- if ( ! $fp ) {
- $this->error(
- "Cache unable to open file for writing: $cache_file"
- );
- return 0;
- }
-
-
- $data = $this->serialize( $rss );
- fwrite( $fp, $data );
- fclose( $fp );
-
- return $cache_file;
- }
-
-/*=======================================================================*\
- Function: get
- Purpose: fetch an item from the cache
- Input: url from wich the rss file was fetched
- Output: cached object on HIT, false on MISS
-\*=======================================================================*/
- function get ($url) {
- $this->ERROR = "";
- $cache_file = $this->file_name( $url );
-
- if ( ! file_exists( $cache_file ) ) {
- $this->debug(
- "Cache doesn't contain: $url (cache file: $cache_file)"
- );
- return 0;
- }
-
- $fp = @fopen($cache_file, 'r');
- if ( ! $fp ) {
- $this->error(
- "Failed to open cache file for reading: $cache_file"
- );
- return 0;
- }
-
- if ($filesize = filesize($cache_file) ) {
- $data = fread( $fp, filesize($cache_file) );
- $rss = $this->unserialize( $data );
-
- return $rss;
- }
-
- return 0;
- }
-
-/*=======================================================================*\
- Function: check_cache
- Purpose: check a url for membership in the cache
- and whether the object is older then MAX_AGE (ie. STALE)
- Input: url from wich the rss file was fetched
- Output: cached object on HIT, false on MISS
-\*=======================================================================*/
- function check_cache ( $url ) {
- $this->ERROR = "";
- $filename = $this->file_name( $url );
-
- if ( file_exists( $filename ) ) {
- // find how long ago the file was added to the cache
- // and whether that is longer then MAX_AGE
- $mtime = filemtime( $filename );
- $age = time() - $mtime;
- if ( $this->MAX_AGE > $age ) {
- // object exists and is current
- return 'HIT';
- }
- else {
- // object exists but is old
- return 'STALE';
- }
- }
- else {
- // object does not exist
- return 'MISS';
- }
- }
-
- function cache_age( $cache_key ) {
- $filename = $this->file_name( $url );
- if ( file_exists( $filename ) ) {
- $mtime = filemtime( $filename );
- $age = time() - $mtime;
- return $age;
- }
- else {
- return -1;
- }
- }
-
-/*=======================================================================*\
- Function: serialize
-\*=======================================================================*/
- function serialize ( $rss ) {
- return serialize( $rss );
- }
-
-/*=======================================================================*\
- Function: unserialize
-\*=======================================================================*/
- function unserialize ( $data ) {
- return unserialize( $data );
- }
-
-/*=======================================================================*\
- Function: file_name
- Purpose: map url to location in cache
- Input: url from wich the rss file was fetched
- Output: a file name
-\*=======================================================================*/
- function file_name ($url) {
- $filename = md5( $url );
- return join( DIRECTORY_SEPARATOR, array( $this->BASE_CACHE, $filename ) );
- }
-
-/*=======================================================================*\
- Function: error
- Purpose: register error
-\*=======================================================================*/
- function error ($errormsg, $lvl=E_USER_WARNING) {
- // append PHP's error message if track_errors enabled
- if ( isset($php_errormsg) ) {
- $errormsg .= " ($php_errormsg)";
- }
- $this->ERROR = $errormsg;
- if ( MAGPIE_DEBUG ) {
- trigger_error( $errormsg, $lvl);
- }
- else {
- error_log( $errormsg, 0);
- }
- }
-
- function debug ($debugmsg, $lvl=E_USER_NOTICE) {
- if ( MAGPIE_DEBUG ) {
- $this->error("MagpieRSS [debug] $debugmsg", $lvl);
- }
- }
-
-}
-
-?>
diff --git a/lib/magpie/rss_fetch.inc b/lib/magpie/rss_fetch.inc
deleted file mode 100644
index 7d2bd3098c..0000000000
--- a/lib/magpie/rss_fetch.inc
+++ /dev/null
@@ -1,480 +0,0 @@
-
- * License: GPL
- *
- * The lastest version of MagpieRSS can be obtained from:
- * http://magpierss.sourceforge.net
- *
- * For questions, help, comments, discussion, etc., please join the
- * Magpie mailing list:
- * magpierss-general@lists.sourceforge.net
- *
- */
-
-// Setup MAGPIE_DIR for use on hosts that don't include
-// the current path in include_path.
-// with thanks to rajiv and smarty
-if (!defined('DIR_SEP')) {
- define('DIR_SEP', DIRECTORY_SEPARATOR);
-}
-
-if (!defined('MAGPIE_DIR')) {
- define('MAGPIE_DIR', dirname(__FILE__) . DIR_SEP);
-}
-
-require_once( MAGPIE_DIR . 'rss_parse.inc' );
-require_once( MAGPIE_DIR . 'rss_cache.inc' );
-
-// moodlefix start
-// for including 3rd party libraries
-//define('MAGPIE_EXTLIB', MAGPIE_DIR . 'extlib' . DIR_SEP);
-//require_once( MAGPIE_EXTLIB . 'Snoopy.class.inc');
-require_once($CFG->libdir.'/filelib.php');
-// moodlefix end
-
-/*
- * CONSTANTS - redefine these in your script to change the
- * behaviour of fetch_rss() currently, most options effect the cache
- *
- * MAGPIE_CACHE_ON - Should Magpie cache parsed RSS objects?
- * For me a built in cache was essential to creating a "PHP-like"
- * feel to Magpie, see rss_cache.inc for rationale
- *
- *
- * MAGPIE_CACHE_DIR - Where should Magpie cache parsed RSS objects?
- * This should be a location that the webserver can write to. If this
- * directory does not already exist Mapie will try to be smart and create
- * it. This will often fail for permissions reasons.
- *
- *
- * MAGPIE_CACHE_AGE - How long to store cached RSS objects? In seconds.
- *
- *
- * MAGPIE_CACHE_FRESH_ONLY - If remote fetch fails, throw error
- * instead of returning stale object?
- *
- * MAGPIE_DEBUG - Display debugging notices?
- *
- * MAGPIE_PROXY_HOST, MAGPIE_PROXY_PORT - Proxy settings if needed
-*/
-
-
-/*=======================================================================*\
- Function: fetch_rss:
- Purpose: return RSS object for the give url
- maintain the cache
- Input: url of RSS file
- (optional) postdata to send (will force a POST rather than a GET)
- Output: parsed RSS object (see rss_parse.inc)
-
- NOTES ON CACHEING:
- If caching is on (MAGPIE_CACHE_ON) fetch_rss will first check the cache.
-
- NOTES ON RETRIEVING REMOTE FILES:
- If conditional gets are on (MAGPIE_CONDITIONAL_GET_ON) fetch_rss will
- return a cached object, and touch the cache object upon recieving a
- 304.
-
- NOTES ON FAILED REQUESTS:
- If there is an HTTP error while fetching an RSS object, the cached
- version will be return, if it exists (and if MAGPIE_CACHE_FRESH_ONLY is off)
-\*=======================================================================*/
-
-define('MAGPIE_VERSION', '0.72');
-
-$MAGPIE_ERROR = "";
-
-function fetch_rss ($url, $postdata=null) {
- // initialize constants
- init();
-
- if ( !isset($url) ) {
- do_error("fetch_rss called without a url");
- return false;
- }
-
- // if cache is disabled
- if ( !MAGPIE_CACHE_ON ) {
- // fetch file, and parse it
- $resp = _fetch_remote_file( $url, null, $postdata );
- if ( is_success( $resp->status ) ) {
- return _response_to_rss( $resp );
- }
- else {
- do_error("Failed to fetch $url and cache is off");
- return false;
- }
- }
- // else cache is ON
- else {
- // Flow
- // 1. check cache
- // 2. if there is a hit, make sure its fresh
- // 3. if cached obj fails freshness check, fetch remote
- // 4. if remote fails, return stale object, or error
-
- $cache = new RSSCache( MAGPIE_CACHE_DIR, MAGPIE_CACHE_AGE );
-
- if (MAGPIE_DEBUG and $cache->ERROR) {
- do_debug($cache->ERROR, E_USER_WARNING);
- }
-
-
- $cache_status = 0; // response of check_cache
- $request_headers = array(); // HTTP headers to send with fetch
- $rss = 0; // parsed RSS object
- $errormsg = 0; // errors, if any
-
- // store parsed XML by desired output encoding
- // as character munging happens at parse time
- $cache_key = $url . MAGPIE_OUTPUT_ENCODING;
- // if we're sending postdata, we should add that to the cache key.
- // since GET data would be part of the url anyway.
- if (!empty($postdata) && is_array($postdata)) {
- $cache_key .= serialize($postdata);
- }
-
- if (!$cache->ERROR) {
- // return cache HIT, MISS, or STALE
- $cache_status = $cache->check_cache( $cache_key);
- }
-
- // if object cached, and cache is fresh, return cached obj
- if ( $cache_status == 'HIT' ) {
- $rss = $cache->get( $cache_key );
- if ( isset($rss) and $rss ) {
- // should be cache age
- $rss->from_cache = 1;
- if ( MAGPIE_DEBUG > 1) {
- do_debug("MagpieRSS: Cache HIT", E_USER_NOTICE);
- }
- return $rss;
- }
- }
-
- // else attempt a conditional get
-
- // setup headers
- if ( $cache_status == 'STALE' ) {
- $rss = $cache->get( $cache_key );
- if ( $rss and !empty($rss->etag) and !empty($rss->last_modified) ) { // moodle fixes
- $request_headers['If-None-Match'] = $rss->etag;
- $request_headers['If-Last-Modified'] = $rss->last_modified;
- }
- }
-
- $resp = _fetch_remote_file( $url, $request_headers, $postdata );
-
- if (isset($resp) and $resp) {
- if ($resp->status == '304' ) {
- // we have the most current copy
- if ( MAGPIE_DEBUG > 1) {
- do_debug("Got 304 for $url");
- }
- // reset cache on 304 (at minutillo insistent prodding)
- $cache->set($cache_key, $rss);
- return $rss;
- }
- elseif ( is_success( $resp->status ) ) {
- $rss = _response_to_rss( $resp );
- if ( $rss ) {
- if (MAGPIE_DEBUG > 1) {
- do_debug("Fetch successful");
- }
- // add object to cache
- $cache->set( $cache_key, $rss );
- return $rss;
- }
- }
- else {
- $errormsg = "Failed to fetch $url ";
- if ( $resp->status == '-100' ) {
- $errormsg .= "(Request timed out after " . MAGPIE_FETCH_TIME_OUT . " seconds)";
- }
- elseif ( $resp->error ) {
- # compensate for Snoopy's annoying habbit to tacking
- # on '\n'
- $http_error = trim($resp->error); // moodle fix
- $errormsg .= "(HTTP Error: $http_error)";
- }
- else {
- $errormsg .= "(HTTP Response: " . $resp->response_code .')';
- }
- }
- }
- else {
- $errormsg = "Unable to retrieve RSS file for unknown reasons.";
- }
-
- // else fetch failed
-
- // attempt to return cached object
- if ($rss) {
- if ( MAGPIE_DEBUG ) {
- do_debug("Returning STALE object for $url");
- }
- return $rss;
- }
-
- // else we totally failed
- do_error( $errormsg );
-
- return false;
-
- } // end if ( !MAGPIE_CACHE_ON ) {
-} // end fetch_rss()
-
-/*=======================================================================*\
- Function: error
- Purpose: set MAGPIE_ERROR, and trigger error
-\*=======================================================================*/
-//Daryl Hawes note: had to rename this function from error to do_error for moodle
-// due to conflict with existing moodle function name
-function do_error ($errormsg, $lvl=E_USER_WARNING) {
- global $MAGPIE_ERROR;
-
- // append PHP's error message if track_errors enabled
- if ( isset($php_errormsg) ) {
- $errormsg .= " ($php_errormsg)";
- }
- if ( $errormsg ) {
- $errormsg = "MagpieRSS: $errormsg";
- $MAGPIE_ERROR = $errormsg;
- trigger_error( $errormsg, $lvl);
- }
-}
-
-//Daryl Hawes note: renamed this function from debug to do_debug for moodle
-function do_debug ($debugmsg, $lvl=E_USER_NOTICE) {
- trigger_error("MagpieRSS [debug] $debugmsg", $lvl);
-}
-
-/*=======================================================================*\
- Function: magpie_error
- Purpose: accessor for the magpie error variable
-\*=======================================================================*/
-function magpie_error ($errormsg="") {
- global $MAGPIE_ERROR;
-
- if ( isset($errormsg) and $errormsg ) {
- $MAGPIE_ERROR = $errormsg;
- }
-
- return $MAGPIE_ERROR;
-}
-
-/*=======================================================================*\
- Function: _fetch_remote_file
- Purpose: retrieve an arbitrary remote file
- Input: url of the remote file
- headers to send along with the request (optional)
- Output: an HTTP response object (see Snoopy.class.inc)
-\*=======================================================================*/
-function _fetch_remote_file ($url, $headers = "", $postdata=null ) {
- // moodlefix
- return download_file_content($url, $headers, $postdata, true, MAGPIE_FETCH_TIME_OUT);
-/*
- // Snoopy is an HTTP client in PHP
- $client = new Snoopy();
- $client->proxy_host = MAGPIE_PROXY_HOST;
- $client->proxy_port = MAGPIE_PROXY_PORT;
- $client->agent = MAGPIE_USER_AGENT;
- $client->read_timeout = MAGPIE_FETCH_TIME_OUT;
- $client->use_gzip = MAGPIE_USE_GZIP;
- if (is_array($headers) ) {
- $client->rawheaders = $headers;
- }
- if (!empty($postdata) && is_array($postdata)) {
- @$client->submit($url,$postdata);
- } else {
- @$client->fetch($url);
- }
- return $client;
-*/
- // end of moodlefix
-
-}
-
-/*=======================================================================*\
- Function: _response_to_rss
- Purpose: parse an HTTP response object into an RSS object
- Input: an HTTP response object (see Snoopy)
- Output: parsed RSS object (see rss_parse)
-\*=======================================================================*/
-function _response_to_rss ($resp) {
- $rss = new MagpieRSS( $resp->results, MAGPIE_OUTPUT_ENCODING, MAGPIE_INPUT_ENCODING, MAGPIE_DETECT_ENCODING );
-
- // if RSS parsed successfully
- if ( $rss and !$rss->ERROR) {
-
- // find Etag, and Last-Modified
- foreach($resp->headers as $h) {
- // 2003-03-02 - Nicola Asuni (www.tecnick.com) - fixed bug "Undefined offset: 1"
- if (strpos($h, ": ")) {
- list($field, $val) = explode(": ", $h, 2);
- }
- else {
- $field = $h;
- $val = "";
- }
-// start of moodle modification
- if ( strtolower($field) == 'etag' ) { // field names are case insensitive - sites are sending Etag, ETag, etc.
- $rss->etag = rtrim($val); // trailing newline problem discovered by Matthew Bockol
- }
-
- if ( strtolower($field) == 'last-modified' ) { // field names are case insensitive
- $rss->last_modified = rtrim($val); // we do not want any whitespace after it
- }
-// end of moodle modification
- }
-
- return $rss;
- } // else construct error message
- else {
- $errormsg = "Failed to parse RSS file.";
-
- if ($rss) {
- $errormsg .= " (" . $rss->ERROR . ")";
- }
- do_error($errormsg);
-
- return false;
- } // end if ($rss and !$rss->error)
-}
-
-/*=======================================================================*\
- Function: init
- Purpose: setup constants with default values
- check for user overrides
-\*=======================================================================*/
-function init () {
- if ( defined('MAGPIE_INITALIZED') ) {
- return;
- }
- else {
- define('MAGPIE_INITALIZED', true);
- }
-
- if ( !defined('MAGPIE_CACHE_ON') ) {
- define('MAGPIE_CACHE_ON', true);
- }
-
- if ( !defined('MAGPIE_CACHE_DIR') ) {
- define('MAGPIE_CACHE_DIR', './cache');
- }
-
- if ( !defined('MAGPIE_CACHE_AGE') ) {
- define('MAGPIE_CACHE_AGE', 60*60); // one hour
- }
-
- if ( !defined('MAGPIE_CACHE_FRESH_ONLY') ) {
- define('MAGPIE_CACHE_FRESH_ONLY', false);
- }
-
- if ( !defined('MAGPIE_OUTPUT_ENCODING') ) {
- define('MAGPIE_OUTPUT_ENCODING', 'ISO-8859-1');
- }
-
- if ( !defined('MAGPIE_INPUT_ENCODING') ) {
- define('MAGPIE_INPUT_ENCODING', null);
- }
-
- if ( !defined('MAGPIE_DETECT_ENCODING') ) {
- define('MAGPIE_DETECT_ENCODING', true);
- }
-
- if ( !defined('MAGPIE_DEBUG') ) {
- define('MAGPIE_DEBUG', 0);
- }
-
- if ( !defined('MAGPIE_USER_AGENT') ) {
- $ua = 'MagpieRSS/'. MAGPIE_VERSION . ' (+http://magpierss.sf.net';
-
- if ( MAGPIE_CACHE_ON ) {
- $ua = $ua . ')';
- }
- else {
- $ua = $ua . '; No cache)';
- }
-
- define('MAGPIE_USER_AGENT', $ua);
- }
-
- if ( !defined('MAGPIE_FETCH_TIME_OUT') ) {
- define('MAGPIE_FETCH_TIME_OUT', 5); // 5 second timeout
- }
-
- // use gzip encoding to fetch rss files if supported?
- if ( !defined('MAGPIE_USE_GZIP') ) {
- define('MAGPIE_USE_GZIP', true);
- }
-}
-
-// NOTE: the following code should really be in Snoopy, or at least
-// somewhere other then rss_fetch!
-
-/*=======================================================================*\
- HTTP STATUS CODE PREDICATES
- These functions attempt to classify an HTTP status code
- based on RFC 2616 and RFC 2518.
-
- All of them take an HTTP status code as input, and return true or false
-
- All this code is adapted from LWP's HTTP::Status.
-\*=======================================================================*/
-
-
-/*=======================================================================*\
- Function: is_info
- Purpose: return true if Informational status code
-\*=======================================================================*/
-function is_info ($sc) {
- return $sc >= 100 && $sc < 200;
-}
-
-/*=======================================================================*\
- Function: is_success
- Purpose: return true if Successful status code
-\*=======================================================================*/
-function is_success ($sc) {
- return $sc >= 200 && $sc < 300;
-}
-
-/*=======================================================================*\
- Function: is_redirect
- Purpose: return true if Redirection status code
-\*=======================================================================*/
-function is_redirect ($sc) {
- return $sc >= 300 && $sc < 400;
-}
-
-/*=======================================================================*\
- Function: is_error
- Purpose: return true if Error status code
-\*=======================================================================*/
-function is_error ($sc) {
- return $sc >= 400 && $sc < 600;
-}
-
-/*=======================================================================*\
- Function: is_client_error
- Purpose: return true if Error status code, and its a client error
-\*=======================================================================*/
-function is_client_error ($sc) {
- return $sc >= 400 && $sc < 500;
-}
-
-/*=======================================================================*\
- Function: is_client_error
- Purpose: return true if Error status code, and its a server error
-\*=======================================================================*/
-function is_server_error ($sc) {
- return $sc >= 500 && $sc < 600;
-}
-
-?>
diff --git a/lib/magpie/rss_parse.inc b/lib/magpie/rss_parse.inc
deleted file mode 100644
index 65aebef5be..0000000000
--- a/lib/magpie/rss_parse.inc
+++ /dev/null
@@ -1,605 +0,0 @@
-
-* @version 0.7a
-* @license GPL
-*
-*/
-
-define('RSS', 'RSS');
-define('ATOM', 'Atom');
-
-require_once (MAGPIE_DIR . 'rss_utils.inc');
-
-/**
-* Hybrid parser, and object, takes RSS as a string and returns a simple object.
-*
-* see: rss_fetch.inc for a simpler interface with integrated caching support
-*
-*/
-class MagpieRSS {
- var $parser;
-
- var $current_item = array(); // item currently being parsed
- var $items = array(); // collection of parsed items
- var $channel = array(); // hash of channel fields
- var $textinput = array();
- var $image = array();
- var $feed_type;
- var $feed_version;
- var $encoding = ''; // output encoding of parsed rss
-
- var $_source_encoding = ''; // only set if we have to parse xml prolog
-
- var $ERROR = "";
- var $WARNING = "";
-
- // define some constants
-
- var $_CONTENT_CONSTRUCTS = array('content', 'summary', 'info', 'title', 'tagline', 'copyright');
- var $_KNOWN_ENCODINGS = array('UTF-8', 'US-ASCII', 'ISO-8859-1');
-
- // parser variables, useless if you're not a parser, treat as private
- var $stack = array(); // parser stack
- var $inchannel = false;
- var $initem = false;
- var $incontent = false; // if in Atom