i18n::s('Information channels') ); // page title $context['page_title'] = i18n::s('RSS feed'); // permission denied if(!$permitted) { // give anonymous surfers a chance for HTTP authentication if(!Surfer::is_logged()) { Safe::header('WWW-Authenticate: Basic realm="'.utf8::to_iso8859($context['site_name']).'"'); Safe::header('Status: 401 Unauthorized', TRUE, 401); } // permission denied, or user hit the Cancel button of the authentication box Safe::header('Status: 403 Forbidden', TRUE, 403); Skin::error(i18n::s('You are not allowed to perform this operation.')); // provide requested data } else { // get the list from the cache, if possible $cache_id = 'agents/feed.php#news'; if(!$text =& Cache::get($cache_id)) { // loads feeding parameters Safe::load('parameters/feeds.include.php'); // set preamble strings $title = sprintf(i18n::s('Event log at %s'), strip_tags($context['site_name'])); // provide shortcuts for this site $splash = sprintf(i18n::s('

This is the list of most recent events at %s

You can also use following shortcuts to get more information for this server:

'), $context['host_name'], $context['url_to_home'].$context['url_to_root'], $context['url_to_root'], $context['url_to_home'].$context['url_to_root'].'control/', $context['url_to_root'].'control/'); // the preamble $text = ''."\n" .''."\n" .''."\n" .' '.encode_field($title).''."\n" .' '.$context['url_to_home'].$context['url_to_root'].'agents/'."\n" .' '."\n"; if(isset($context['powered_by_image']) && $context['powered_by_image'] && ($size = Safe::GetImageSize($context['path_to_root'].$context['powered_by_image'])) ) { $text .= ' '."\n" .' '.$context['url_to_home'].$context['url_to_root'].$context['powered_by_image'].''."\n" .' '.$size[0].''."\n" .' '.$size[1].''."\n" .' '.encode_field($title).''."\n" .' '.$context['url_to_home'].$context['url_to_root'].'agents/'."\n" .' '."\n"; } if($context['preferred_language']) $text .= ' '.encode_field($context['preferred_language']).''."\n"; $text .= ' '.gmdate('D, d M Y H:i:s').' GMT'."\n" .' Yet Another Community System'."\n" .' http://blogs.law.harvard.edu/tech/rss'."\n" .' 5'."\n"; // list last events $events = Logger::get_tail(50, 'all'); if(is_array($events)) { // the actual list of events foreach($events as $event) { list($stamp, $surfer, $script, $label, $description) = $event; // formatting patterns $search = array( "|\r\n|", "|\n+|i", /* don't insert additional \n after
*/ "|\n\n+[ \t]*-\s+|i", /* hard-coded lists with - */ "|\n[ \t]*-\s+|i", "|\n\n+[ \t]*\.\s+|i", /* hard-coded lists with . */ "|\n[ \t]*\.\s+|i", "|\n\n+[ \t]*\*\s+|i", /* hard-coded lists with * */ "|\n[ \t]*\*\s+|i", "|\n\n+[ \t]*¤\s+|i", /* hard-coded lists with ¤ */ "|\n[ \t]*¤\s+|i", "|\n\n+[ \t]*\•\s+|i", /* hard-coded lists with • */ "|\n[ \t]*\•\s+|i", "/\n[ \t]*(From|To|cc|bcc|Subject|Date):(\s*)/i", /* common message headers */ "|\n[ \t]*>(\s*)|i", /* quoted by >*/ "|\n[ \t]*\|(\s*)|i", /* quoted by | */ "#([\n\t ])([a-z]+?)://([^, <>{}\n\r]+)#is", /* make URL clickable */ "#^([a-z]+?)://([^, <>{}\n\r]+)#is", "#([\n\t ])www\.([a-z0-9\-]+)\.([a-z0-9\-.\~]+)((?:/[^,< \n\r]*)?)#is", "#([\n\t ])([a-z0-9\-_.]+?)@([^,< \.\n\r]+\.[^,< \n\r]+)#is", "|\n\n|i" /* force an html space between paragraphs */ ); $replace = array( "\n", BR, BR.BR."- ", BR."- ", BR.BR."- ", BR."- ", BR.BR."- ", BR."- ", BR.BR."- ", BR."- ", BR.BR."• ", BR."• ", BR."$1:$2", BR.">$1", BR."|$1", "$1$2://$3", "$1://$2", "$1http://www.$2.$3$4", "$1$2@$3", BR.BR ); // build an extensive description field $description = nl2br(preg_replace($search, $replace, $description)) .'

'.$script.((strlen($surfer) > 1)?' for '.$surfer:'').' on '.$stamp."

"; // build a unique id $id = md5($label.$description.$stamp.$script.$surfer); // output one story $text .= "\n".' '."\n" .' '.encode_field(strip_tags($label))."\n" .' \n" .' '.gmdate('D, d M Y H:i:s', SQL::strtotime($stamp))." GMT\n" .' '.$context['url_to_home'].$context['url_to_root'].'agents/?subject=events&id='.$id."\n" .' '.$id."\n" .' '.encode_field($script)."\n" ." \n"; } } // the postamble $text .= "\n \n" .''; // save in cache during 5 minutes Cache::put($cache_id, $text, 'events', 300); } // // transfer to the user agent // // handle the output correctly render_raw('text/xml; charset='.$context['charset']); // suggest a name on download if(!headers_sent()) { $file_name = $context['site_name'].'.events.rss.xml'; $file_name =& utf8::to_ascii($file_name); Safe::header('Content-Disposition: inline; filename="'.$file_name.'"'); } // enable 30-minute caching (30*60 = 1800), even through https, to help IE6 on download if(!headers_sent()) { Safe::header('Expires: '.gmdate("D, d M Y H:i:s", time() + 1800).' GMT'); Safe::header("Cache-Control: max-age=1800, public"); Safe::header("Pragma: "); } // strong validation if((!isset($context['without_http_cache']) || ($context['without_http_cache'] != 'Y')) && !headers_sent()) { // generate some strong validator $etag = '"'.md5($text).'"'; Safe::header('ETag: '.$etag); // validate the content if hash is ok if(isset($_SERVER['HTTP_IF_NONE_MATCH']) && is_array($if_none_match = explode(',', str_replace('\"', '"', $_SERVER['HTTP_IF_NONE_MATCH'])))) { foreach($if_none_match as $target) { if(trim($target) == $etag) { Safe::header('Status: 304 Not Modified', TRUE, 304); return; } } } } // actual transmission except on a HEAD request if(isset($_SERVER['REQUEST_METHOD']) && ($_SERVER['REQUEST_METHOD'] != 'HEAD')) echo $text; // the post-processing hook, then exit finalize_page(TRUE); } // display error messages, if any render_skin(); ?>