User:Fish1203/TransformChanges.php

<?
# Extension:TransformChanges
# - See http://www.mediawiki.org/Extension:TransformChanges for installation and usage details
# - Licenced under LGPL (http://www.gnu.org/copyleft/lesser.html)
 
if (!defined('MEDIAWIKI')) die('Not an entry point.');
 
define('TRANSFORMCHANGES_VERSION','1.0.7, 2007-09-08');
 
$wgExtensionCredits['other'][] = array(
	'name'        => 'TransformChanges',
	'author'      => '[http://www.organicdesign.co.nz/nad User:Nad]',
	'description' => 'Makes recent-changes and watchlists render in nice columns for easier reading.',
	'url'         => 'http://www.organicdesign.co.nz/Extension:TransformChanges',
	'version'     => TRANSFORMCHANGES_VERSION
);
 
## Returns the position of the $n-th $c token (string) in $haystack (= position at the end of the token)
function strposn($haystack, $c, $n) {
	$a = explode($c, $haystack, $n+1);
	if($n <= 0 || count($a) <= $n)
		return false;
	return strlen($haystack) - strlen($a[$n]);
}
 
# Disable enhanced recent changes
$wgExtensionFunctions[] = 'wfSetupTransformChanges';
function wfSetupTransformChanges() {
	global $wgUser;
	$wgUser->setOption('usenewrc',false);
}
 
$wgHooks['SpecialPageExecuteAfterPage'][] = 'wfTransformChanges';
function wfTransformChanges() {
	global $wgOut;
	$title = $wgOut->getPageTitle();
	if ($title != wfMsgForContent('recentchanges') && $title != wfMsgForContent('watchlist')) return true;
	$text =& $wgOut->mBodytext;
	$text = preg_replace('|(</ul>\\s*)?<h4>(.+?)</h4>\\s*(<ul class="special">)<li>|s','$3<li $2>',$text);

	## Edits by Fish1203
	## (http://www.mediawiki.org/wiki/User:Fish1203)
	## solving the PHP preg_replace_callback() pcre.backtrack_limit problem
	
	## splitting in days
	$parts = explode('<ul class="special">',$text);

	$first = 1;
	$nbedits = 50;
	
	$text = $parts[0] . "<table class=\"changes\">";
	foreach($parts as $part) {
		if ($first == 1) {	## skipping first part (= Special:RecentChanges "header")
			$first = 0;
		}
		else {
			
			$nbsubparts = (substr_count($part,"</li>") - 1);	## how many edits for this day ?
			
			## if more than $nbedits edits for this day
			if ($nbsubparts > $nbedits) {		
				$divide = intval(abs($nbsubparts/$nbedits));
				
				## splits each day in parts containing $nbedits edits (max.)
				$start = 0;
				$parts2 = array();
				for($lp=0; $lp<$divide; $lp++) {
					$parts2[$lp] = substr($part, $start, (strposn($part,"</li>",($lp+1)*$nbedits))-$start );
					$start = (strposn($part,"</li>",($lp+1)*$nbedits));
				}
				$parts2[$divide] = substr($part, $start, strlen($part));	## last part for the day
				
				foreach($parts2 as $part2) {
					$part2 = '<ul class="special">' . $part2 . '</ul>';
					$text .= preg_replace_callback('|<ul class="special">(.+?)</ul>|s','wfTransformChangesUL',$part2);
				}
			}
			else {
				$part = '<ul class="special">' . $part . '</ul>';
				$text .= preg_replace_callback('|<ul class="special">(.+?)</ul>|s','wfTransformChangesUL',$part);
			}
		}
	}
	
	## there may be one last </ul> tag remaining...
	## just remove it... :-)
	$text = str_replace("</ul>","",$text);
	
	$text .= "</table>";
	return true;
}
 
function wfTransformChangesUL($match) {
	global $wgTransformChangesRow;
	$wgTransformChangesRow = 'odd';		## was originally $wgTransformChangesRow = 0
	$rows = preg_replace_callback('|<li\\s*(.*?)>(.+?)</li>|s','wfTransformChangesLI',$match[1]);
	return $rows;
}
 
function wfTransformChangesLI($match) {
	global $wgTransformChangesRow,$wgSimpleSecurity;
	$wgTransformChangesRow = $wgTransformChangesRow == 'even' ? 'odd' : 'even';
	list(,$date,$text) = $match;
	$cols = array('time','title','user','talk','info','comment','diff');
	$ncols = count($cols);
	$row = '';
	$error = '<td colspan="$ncols"><font color="red"><b>Error: match failed!</b></font></td>';
	if ($date) {
		$row = "<tr><td class=\"heading\" colspan=\"$ncols\">$date</td></tr>\n"; 
		$wgTransformChangesRow = 'even';
	}
	$row .= "<tr class=\"$wgTransformChangesRow\">";
	if (preg_match('|^(.*?); (\\d+:\\d+)(.+?)(<a.+?\\))\\s*(.*?)$|',$text,$m)) {
		list(,$diff,$time,$bytes,$user,$comment) = $m;
		if (preg_match('|^(.+\\)).*?\\. \\.\\s*(.*?)\\s*(<a.+)$|',$diff,$m)) list(,$diff,$info,$title) = $m; else $info = $title = '';
		if (preg_match('|(\\(.+?\\))|',$bytes,$m)) $info .= "<small>$m[1]</small>";
		if (preg_match('|(<a.+?</a>).+?(\\(.+?\\))|',$user,$m)) {
			# Remove talk for email or IP users and make user lowercase
			list(,$user,$talk) = $m;
			if (ereg('@',$user) || !eregi('[a-z]',$user)) { $talk = ''; $user = strtolower($user); }
			}
		if (preg_match('|\\((.+)\\)|',$comment,$m)) $comment = $m[1];
		$allowed = true;
		if (preg_match('|title="(.+?)"|',$title,$m) && is_object($wgSimpleSecurity)) {
			# Only show row if ok by SimpleSecurity extension
			$t = Title::newFromText($m[1]);
			$allowed = $wgSimpleSecurity->validateTitle('view',$t);
			}
		if ($allowed) foreach ($cols as $col) $row .= "<td class=\"$col\">{$$col}</td>";
		} else $row = $error;
	$row .= "</tr>\n";
	return $row;
}
?>