You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
misc/pmwiki_recipes/coeditions.php

76 lines
2.5 KiB

<?php
# return coeditions for a wholewiki
# http://fabien.benetou.fr/MemoryRecalls/ImprovingPIM#TimelyCoeditions
function Coeditions($groupname){
global $ScriptUrl, $PubDir, $FarmD;
$cache_time = 0; # set to 0 to disable cache, practical for testing
$cache_time = 3600;
$cachefile = "/pub/coedits.txt";
$timewindow = 360; # in seconds
$pagelist = ListPages("/$groupname\./e");
// consider removing structural pages (headers, PmWiki, Site, ...)
// mostly case by default since those remains into wikilib.d unless modified
//unset($pagelist[array_search("$groupname.Template",$pagelist)]);
# cache since its costly
if (!file_exists($FarmD.$cachefile)){
if (!touch($FarmD.$cachefile))
print "Creation of the cache file fails, check write permissions for pmWiki and $cachefile.";
# if cache exist
} else {
# cache has been generated recently
if (( (time() - filemtime($FarmD.$cachefile)) < $cache_time ) && $groupname == "")
#return it
return unserialize(file_get_contents($FarmD.$cachefile));
}
foreach ($pagelist as $pagename){
$page = ReadPage($pagename);
if (!$page) return;
krsort($page); reset($page);
foreach($page as $k=>$v) {
if (!preg_match("/^diff:(\d+):(\d+):?([^:]*)/",$k,$match)) continue;
$diff = intval($match[1]);
$edits[] = array ("diff" => $diff, "name" => $pagename);
$diffs[] = $diff;
$names[] = $pagename;
#automatic index since there might multiple edits with the same diff
}
}
# numeric sort $edits by ascending diff (either regenerate or discard index)
array_multisort($diffs,SORT_ASC,SORT_NUMERIC,$names);
//var_dump($diffs,$names);
$numberofedits = count($diffs);
for ($j=0;$j<$numberofedits;$j++){
if (($diffs[$j+1]-$diffs[$j])<$timewindow){
$target = $names[$j];
$dest = $names[$j+1];
$coedits["$target"]["$dest"]++ ;
# dirty since it's a string, not a proper table but will do for tests
}
}
foreach ($coedits as &$ce){
arsort($ce,SORT_NUMERIC);
//$scoedits[] = $ce;
}
//var_dump($coedits);
# should highlight the highest coedition that is not self
# also remove under a certain threshold, e.g. 1 or rather a sigma of the distribution
# most result are... from the same page
# it could thus be noted then filtered
# also the timewindow gives only short-term result
# a second processing could check over long-term editions between pages
#write cache
if ($groupname == "")
$write_result = file_put_contents($FarmD.$cachefile,serialize($coedits));
return $coedits;
}
?>