Transform-changes.php

<?

1. Merge local changes with changes from other specified MediaWikis

# Extract changes from a page into an array ready for rendering in a table function extractChanges(&$changes, &$page, $wd = array()) { global $xwIsAdmin, $xwUserGroups; list($wiki, $url, $tz) = $wd; #if ($wiki) xwMessage(strlen($page)." bytes of changes received from $wiki wiki.", 'green'); # Change exraction rules (for supporting TWiki and MoinMoin later) $cr = "/^\\((.*?(diff|log|undo)(<\\/a>)?)\\)(.+?\\((.+?<\\/a>)\\))?( \\. \\.\\s+(.*?)\\s+(()?<a.+?<\\/a>(<\\/strong>)?))?.*?; ([0-9]+:[0-9]+) \\. \\. (<a.+?<\\/a>).+?(<a.+?<\\/a>)(.+?\\((.+)\\))?/";

$pr = "/

([0-9]+ [a-z]+ [0-9]+)<\\/h4>\\s*

(.+?)<\\/ul>/is"; # Used to make urls from other wiki's absolute if ($url) { $url = parse_url($url); $url = $url['scheme'].'://'.$url['host']; } $tr = 999; # patch to stop same time keys overwriting # First split the page by day sections preg_match_all($pr, $page, $m1, PREG_SET_ORDER); # Loop through changes in each day extracting relevent info into $changes array foreach ($m1 as $day) { preg_match_all("/
• (.+?)<\\/li>/", $day[2], $m2); foreach ($m2[1] as $change) { $change = str_replace('href="', "href=\"$url", $change); if (preg_match($cr, $change, $m3)) { list(,$diff,,,,$hist,,$flags,$title,,,$time,$user,$talk,,$comment) = $m3; ereg('>.+</a>', $user, $uname); $user = ereg_replace($uname[0], str_replace(' ',' ',$uname[0]), $user); # Get read-perms for article if ( (!$readable = $xwIsAdmin) && ereg('>(.+)</a>', $title, $anchor) ) { $readable = xwGetListByTagname( xwArticleProperties($anchor[1]), 'read' ) + array('anyone'); $readable = count( array_intersect( $readable, $xwUserGroups ) ); } # Store the change if readable by current user if ( $readable ) $changes[(strtotime("$day[1] $time")+$tz*3600).'.00'.$tr--] = array($wd,$diff,$hist,$flags,$title,$user,$talk,$comment); } else xwMessage( "Couldn't match change: $change", 'red' ); } } return $changes; } # Render changes into said table function renderChanges( &$changes ) { $head = ; foreach ( array( 'Date', 'Event / Activity / Article', 'Description', 'Account', 'Change', 'State' ) as $i ) { $colspan = $head ?  : ' colspan=2'; $head .= "<th$colspan align=center>

  <a href=\"/wiki/index.php/Talk:transform-changes.php\">$i</a>

  \n";

  }

  $html = "
  \n"; $date = ; $td = '" : "\n";

  $html .= str_replace( ">Date", ">$d", $head ); $date = $d; $bg = 1; }; $bgtag = ++$bg % 2 ? 'bg1' : 'bg2';

  $lcap = ($bg%2) ? $td : "$lcap$td$s$time$s$td$s $s"; if ( $wt = $c[0][0] ) { $wiki = "<a href=\"".$c[0][1]."\" style=\"color:#009900;\">$wt:</a>"; if ( !preg_match("/\\d+\\.\\d+\\.\\d+\\.\\d+/", $c[5]) ) $c[5] = str_replace( '">', "\">$wt:", $c[5] ); } else $wiki = ; if ( !$c[2] ) { list( $diff, $hist ) = explode( ' ', $c[1] ); preg_match( "/(<a.+?<\\/a>)/", $c[7], $m ); $c[4] = $m[1]; } else list(, $diff, $hist ) = $c; if ( $diff == 'diff' ) $diff = ; if ( ereg( '^href', $hist ) ) { $diff = "<a $hist>log</a>"; $hist = ; } if ( ereg( 'undo', $c[1] ) ) { $c4 = $c[4]; $c[4] = str_replace( ' moved to', , $c[3] ); $c[7] = "moved to $c4"; $c[3] = ; } $event = "$wiki$c[4]"; if ( $c[3] ) $c[7] = "($c[3]) $c[7]"; $html .= "$td$s$event$s

  '; $s = '  '; ksort( $changes ); foreach ( array_reverse( $changes, SORT_STRING ) as $t => $c ) { $time = strftime('%H:%M', $t); if ( $date != ( $d = strftime( '%d %b %Y', $t ) ) ) { $html .= $date ? "\n
  <img src='/wiki/images/7/78/Cap-left.png' height=100%>"; $rcap = ($bg%2) ? $td : "	<img src='/wiki/images/9/95/Cap-right.png' height=100%>"; $html .= "\n
  $s$c[7]$s\n"; $html .= "$td$s$c[5]"; $html .= "$td$s$diff"; $html .= "$td$s$hist$rcap"; } return "$html\n

  ";

  }

  
  

  1. Get the list of wikis for which changes are merged

  $wikis = array(); if ( !$wl = xwArticleContent( $GLOBALS['xwUserName'].'/wiki.list', false ) ) $wl = xwArticleContent( "$tTitle/wiki.list", false ); if ( preg_match_all( "/^\\*.*?\"(.*?)\".*?\"(.*?)\".*?\"(.*?)\".*?\"(.*?)\"/m", $wl, $wikis, PREG_SET_ORDER ) ) for ( $i = 0; $i < count($wikis); $i++ ) array_shift( $wikis[$i] );

  1. get query string of this request

  if ( !$qs = $_SERVER['QUERY_STRING'] ) $qs = "title=Special:Recentchanges";

  1. Merge each wikis changes into local table
  2. - connect with socket so we can bail after a small timeout

  $changes = array(); foreach ( $wikis as $wd ) { $url = parse_url( $wd[1] ); $domain = $url['host']; $scheme = $url['scheme']; $port = $scheme == 'http' ? 80 : 443; $request = $url['path']."?$qs&xpath://view:=&printable=yes"; if ( $handle = @fsockopen( $domain, $port, $errno, $err, 1 ) ) { fclose( $handle ); extractChanges( $changes, file_get_contents( "$scheme://$domain$request" ), $wd ); } else xwMessage( "Failed to merge changes from $scheme://$domain", 'red' ); }

  1. Extract local changes and replace with merged table
  $article = preg_replace( "/

  [0-9]+ [a-z]+ [0-9]+<\\/h4>\\s*

  .+(?=
  )/ise", '"
  ".renderChanges(extractChanges($changes,$article))', $article );

  1. $article .= renderChanges( extractChanges( $changes, $article ) );

  global $wgSitename, $wgLang;

  $head = "

  $wgSitename Events & Changes \n"; $now = str_replace( ' ', ' ', $wgLang->timeanddate( wfTimestampNow(), true ) ); $head .= "

  <a href=$script/Talk:Transform-changes.php>Talk:transform-changes.php        $now</a>

  \n";

  1. $article = "$head$article";

  1. Add a 1 minute refresh into the headers
  2. $GLOBALS['xwHeaders'] .= '<META HTTP-EQUIV="REFRESH" CONTENT="300" />';
  3. if ( !isset( $_REQUEST['printable'] ) ) $_REQUEST['printable'] = true;

  ?>