".$item->description; } $result .= rss_full_tag("description",3,false,$item->description); $result .= rss_end_tag("item",2,true); } } else { $result = false; } return $result; } //This function return all the common footers for every rss feed in the site function rss_standard_footer($title = NULL, $link = NULL, $description = NULL) { global $CFG, $USER; $status = true; $result = ""; //Close the chanel $result .= rss_end_tag("channel",1,true); ////Close the rss tag $result .= ""; return $result; } //This function return an error xml file (string) //to be sent when a rss is required (file.php) //and something goes wrong function rss_geterrorxmlfile() { global $CFG; $return = ''; //XML Header $return = rss_standard_header(); //XML item if ($return) { $item->title = "RSS Error"; $item->link = $CFG->wwwroot; $item->pubdate = time(); $item->description = get_string("rsserror"); $return .= rss_add_items(array($item)); } //XML Footer if ($return) { $return .= rss_standard_footer(); } return $return; } // ===== This function are used to write XML tags ========= // [stronk7]: They are similar to the glossary export and backup generation // but I've replicated them here because they have some minor // diferences. Someday all they should go to a common place. //Return the xml start tag function rss_start_tag($tag,$level=0,$endline=false) { if ($endline) { $endchar = "\n"; } else { $endchar = ""; } return str_repeat(" ",$level*2)."<".$tag.">".$endchar; } //Return the xml end tag function rss_end_tag($tag,$level=0,$endline=true) { if ($endline) { $endchar = "\n"; } else { $endchar = ""; } return str_repeat(" ",$level*2)."".$endchar; } //Return the start tag, the contents and the end tag function rss_full_tag($tag,$level=0,$endline=true,$content,$to_utf=true) { //Here we encode absolute links $st = rss_start_tag($tag,$level,$endline); $co=""; if ($to_utf) { $co = preg_replace("/\r\n|\r/", "\n", utf8_encode(htmlspecialchars($content))); } else { $co = preg_replace("/\r\n|\r/", "\n", htmlspecialchars($content)); } $et = rss_end_tag($tag,0,true); return $st.$co.$et; } //////////////////// LIBRARY FUNCTIONS FOR RSS_CLIENT BLOCK //////////////// //initialize config vars for rss_client block if missing if (empty($CFG->block_rss_client_submitters) ) { $CFG->block_rss_client_submitters = 1; //default to admin only } if (empty($CFG->block_rss_client_num_entries) ) { $CFG->block_rss_client_num_entries = 5; //default to 5 entries per block } if (empty($CFG->block_rss_timeout) ) { $CFG->block_rss_timeout = 30; } /** * Determines whether or not to get a news feed remotely or from cache and reads it into a string * @param int rssid - id of feed in blog_rss table * @param string url - url of remote feed * @param string type - either 'A' or 'R' where A is an atom feed and R is either rss or rdf * @return Atom|MagpieRSS|null This function returns an Atom object in the case of an Atom feed, a MagpieRSS object in the case of an RDF/RSS feed or null if there was an error loading the remote feed. * NOTE that this function requires allow_url_fopen be On in your php.ini file * (it may be off for security by your web host) */ function rss_get_feed($rssid, $url, $type) { global $CFG; $writetofile = false; $urlfailurestring = 'Failed to open remote feed at: ' . $url .'
allow_url_fopen needs to be On in the php.ini file for this file wrapper call to work. Please refer to http://us2.php.net/filesystem'; $filefailurestring = 'Could not open the file located at: '; $secs = $CFG->block_rss_timeout * 60; // If moodle dataroot cache folder is missing create it if (!file_exists($CFG->dataroot .'/cache/')) { mkdir($CFG->dataroot .'/cache'); } // If moodle dataroot cache/rsscache folder is missing create it if (!file_exists($CFG->dataroot .'/cache/rsscache/')) { mkdir($CFG->dataroot .'/cache/rsscache'); } $file = $CFG->dataroot .'/cache/rsscache/'. $rssid .'.xml'; // echo "file = ". $file; //debug //if feed in cache if (file_exists($file)) { //check age of cache file // echo "file exists $file"; //debug if ($CFG->debug){ $data = stat($file); } else { $data = @stat($file); } $now = time(); if (($now - $data[10]) > $secs) { // The cached file has expired. Attempt to read fresh from source $xml = load_feed_from_url($url); if ($xml) { //success $writetofile = true; } else { // Failed to load remote feed. Since the file exists attempt to read from cache if ($CFG->debug) { print $urlfailurestring; } $xml = load_feed_from_file($file); if (!$xml) { // Failed to load from cache as well! if ($CFG->debug) { print $filefailurestring . $file; return; } } } } else { // Cached file has not expired. Attempt to read from cached file. $xml = load_feed_from_file($file); if (!$xml) { // Failed to load from cache, attempt to read from source if ($CFG->debug) { print $filefailurestring . $file; } $xml = load_feed_from_url($url); if ($xml) { // success $writetofile = true; } else { // Failed to read from source as well! if ($CFG->debug) { print $urlfailurestring; } return; } } } } else { // No cached fil at all, read from source $xml = load_feed_from_url($url); if ($xml) { //success $writetofile = true; } else { // Failed to read from source url! if ($CFG->debug) { print $urlfailurestring; } return; } } //print_object($xml); //debug if ($CFG->debug){ $xmlstr = implode(' ', $xml); } else { $xmlstr = @implode(' ', $xml); } if ( $writetofile && !empty($xmlstr) ) { //write file to cache // jlb: adding file:/ to the start of the file name fixed // some caching problems that I was experiencing. //$file="file:/" + $file; file_put_contents($file, $xmlstr); } if ($type == 'A') { //note: Atom is being modified by a working group //http://www.mnot.net/drafts/draft-nottingham-atom-format-02.html include_once($CFG->dirroot .'/rss/class.Atom.php'); $atom = new Atom($xmlstr); $atom->channel = $atom->feed; $atom->items = $atom->entries; $atom->channel['description'] = $atom->channel['tagline']; for($i=0;$iitems);$i++) { $atom->items[$i]['description'] = $atom->items[$i]['content']; } return $atom; } else { include_once($CFG->dirroot .'/rss/class.RSS.php'); $rss = new MagpieRSS($xmlstr); return $rss; } } /** * @param string $file The path to the cached feed to load */ function load_feed_from_file($file) { global $CFG; // echo "read from cache"; //debug //read in from cache if ($CFG->debug){ $xml = file($file); } else { $xml = @file($file); } return $xml; } /** * @param string $url The url of the remote news feed to load */ function load_feed_from_url($url) { global $CFG; // echo "read from original"; //debug //read from source if ($CFG->debug){ $xml = file($url); } else { $xml = @file($url); } return $xml; } /** * @param int $rssid . */ function rss_display_feeds($rssid='none') { global $db, $USER, $CFG, $THEME; global $blogid; //hackish, but if there is a blogid it would be good to preserve it $closeTable = false; //Daryl Hawes note: convert this sql statement to a moodle function call if ($rssid != 'none'){ $sql = 'SELECT * FROM '. $CFG->prefix .'block_rss_client WHERE id='. $rssid; } else { $sql = 'SELECT * FROM '. $CFG->prefix .'block_rss_client'; } $res = $db->Execute($sql); // print_object($res); //debug if ($res->fields){ $closeTable = true; ?> fields){ while(!$res->EOF) { $editString = ' '; $deleteString = ' '; if ($res->fields['userid'] == $USER->id || isadmin()){ $editString = ''; $editString .= ''; $deleteString = ''; $deleteString .= ''; } print '' ."\n"; print '' ."\n"; print ''."\n"; $res->MoveNext(); } } if ($closeTable){ print '

'. $res->fields['title'] .' ' ."\n"; print $res->fields['description'] .'  ' ."\n"; print $res->fields['url'] .'  ' ."\n"; print '(Validate)'; print '	'. $editString .'	'. $deleteString .'

'."\n"; } } /** * @param string $act . * @param string $url . * @param int $rssid . * @param string $rsstype . * @param bool $printnow . */ function rss_get_form($act, $url, $rssid, $rsstype, $printnow=true) { global $USER, $CFG, $_SERVER, $blockid, $blockaction; global $blogid; //hackish, but if there is a blogid it would be good to preserve it $returnstring = '

'; if ($act == 'rss_edit') { $returnstring .= get_string('edit'); } else { $returnstring .= get_string('block_rss_add_new', 'block_rss_client'); } $returnstring .= ' '. get_string('block_rss_feed', 'block_rss_client'); $returnstring .= '

'; $returnstring .= ' '; $returnstring .= 'URL: RSS/RDF '. "\n"; } $returnstring .= ''; $returnstring .= ''; $returnstring .= '  '; $returnstring .= ' ' . get_string('block_rss_find_more_feeds', 'block_rss_client'); // removed as this is possibly out of place here // $returnstring .= ' syndic8 NewsIsFree'; $returnstring .= ' '; $returnstring .= '

'; if ($printnow){ print $returnstring; } return $returnstring; } /** * added by Daryl Hawes for rss/atom feeds * found at http://us4.php.net/manual/en/function.fwrite.php * added check for moodle debug option. if off then use '@' to suppress error/warning messages * @param string $filename . * @param string $content . */ if (! function_exists('file_put_contents')){ function file_put_contents($filename, $content) { global $CFG; $nr_of_bytes = 0; if ($CFG->debug){ if (($file = fopen($filename, 'w+')) === false) return false; } else { if (($file = @fopen($filename, 'w+')) === false) return false; } if ($CFG->debug){ if ($nr_of_bytes = fwrite($file, $content, strlen($content)) === false) return false; } else { if ($nr_of_bytes = @fwrite($file, $content, strlen($content)) === false) return false; } fclose($file); return $nr_of_bytes; } } ?>