User:SQLBot/tally.php

<?php
include("SxWiki.php"); //Include framework
$url = 'http://en.wikipedia.org/w/'; //Set for the English Wikipedia
$sxLgTA = sxLogin("user", "password"); //Log in
$sxLgID = $sxLgTA[uid];
$sxLgT = $sxLgTA[token];
$maxlag = "5"; //Set maxlag to 5
$epm = setEPM(10); //set 10 edits per min.
 
$rollpage = "User:SQL/Nroll";
$adminpage = "User:SQL/Nadmins";
$cratpage = "User:SQL/Ncrats";
$date = date("D, d M o, H:i");
 
$crat_arr =file('http://en.wikipedia.org/w/api.php?action=query&list=allusers&augroup=bureaucrat&aulimit=500&format=php');
$crats_raw = unserialize($crat_arr[0]);
$crats_lessraw = $crats_raw[query][allusers];
 
foreach($crats_lessraw as $crat) {
        $crats++;
}
 
$rollin = sxGetPage($rollpage);
$adminin = sxGetPage($adminpage);
$cratin = sxGetPage($cratpage);
 
$rollout = $rollin . "\r\n* $date - '''{{subst:NUMBEROFROLLBACKERS}}'''";
$adminout = $adminin . "\r\n* $date - '''{{subst:NUMBEROFADMINS}}'''";
$cratout = $cratin . "\r\n* $date - '''$crats'''";
 
sxPutPage($rollpage, "Updating Historical records on rollbackers", $rollout, $null);
sxPutPage($adminpage, "Updating Historical records on admins", $adminout, $null);
sxPutPage($cratpage, "Updating Historical records on crats", $cratout, $null);
 
?>