User:ClueBot VI/Source

<?PHP

function addtobottom(&$data,$add) {
global $cmt;
$cmt++;
$tmp = explode('===',$data);
$tmp[0] = rtrim($tmp[0])."\n".$add."<!-- If removing the CUU/Clerk note template, keep this comment so ClueBot VI won't readd the template. -->\n\n";
$tmp = implode('===',$tmp);
$data = $tmp;
}
include '../wikibot.classes.php';
include 'cluebot6.config.php';
$wpq = new wikipediaquery;
$wpapi = new wikipediaapi;
$wpi = new wikipediaindex;
$wpapi->login($user,$pass);
$wpapi->edit('User:'.$user.'/Source',
'The following is automatically generated by '.$user.".\n\n\n\n" .
'* wikibot.classes.php is here.' .
"\n\n\n\n==Source to ".$user."==\n\n" .
'<pre>'.htmlentities(file_get_contents(__FILE__))."</pre>\n\n\n\n~~~~",
'Automated source upload.'); /* Our source code, we force post this because this is *our* page, and it triggers the nobots. */
//	$i = 22;
while (1) {
$crats = array();
$cratsd = $wpapi->users(null,500,"bureaucrat");
foreach ($cratsd as $crat) $crats[] = preg_quote($crat['name'],'/');
$crats = implode('|',$crats);
$origdata = $wpq->getpage('Wikipedia:Changing username/Usurpations');
$data = preg_replace('/\=\=\=\s*(January|February|March|April|May|June|July|August|September|October|November|December)\s*\d{1,2},\s*\d{4}\s*\=\=\=/',,preg_replace('/\'\'Requests left here will be filled no earlier than (January|February|March|April|May|June|July|August|September|October|November|December)\s*\d{1,2},\s*\d{4}\.\'\'/',,preg_replace('/\=\=\=\s*Unknown\s*\=\=\=/','',$origdata)));
$header = explode('====',$data,2);
$data = '===='.$header[1];
$header = $header[0];
$datatopost = $header;
preg_match_all('/\=\=\=\=\s*(\S.*)\s*\=\=\=\=(.*)(?=\=\=\=\=\s*\S.*\s*\=\=\=\=(.*)|$)/Us',$data,$m,PREG_SET_ORDER);
$footer = explode($m[count($m)-1][2],$data);
$footer = $footer[1];
$cmt = 0;
//		echo $footer."\n\n";
//		print_r($m);
echo $crats."\n";
foreach ($m as $k => &$request) {
if (preg_match('/\{\{Done\}\}.*(\d{2}):(\d{2}), (\d+) ([a-zA-Z]+) (\d{4}) \(UTC\)/i',$request[2],$match)) {
if (preg_match('/User:('.$crats.')/i',$request[2])) {
$month = array('January' => 1, 'February' => 2, 'March' => 3,
'April' => 4, 'May' => 5, 'June' => 6, 'July' => 7,
'August' => 8, 'September' => 9, 'October' => 10,
'November' => 11, 'December' => 12
);
if ((time() - gmmktime($match[1],$match[2],0,$month[$match[4]],$match[3],$match[5])) > 3*24*60*60) {
$darchive[] = $request;
unset($m[$k]);
}
}
continue;
}
if (preg_match('/\{\{Not ?done\}\}.*(\d{2}):(\d{2}), (\d+) ([a-zA-Z]+) (\d{4}) \(UTC\)/i',$request[2],$match)) {
if (preg_match('/User:('.$crats.')/i',$request[2])) {
$month = array('January' => 1, 'February' => 2, 'March' => 3,
'April' => 4, 'May' => 5, 'June' => 6, 'July' => 7,
'August' => 8, 'September' => 9, 'October' => 10,
'November' => 11, 'December' => 12
);
if ((time() - gmmktime($match[1],$match[2],0,$month[$match[4]],$match[3],$match[5])) > 48*60*60) {
$narchive[] = $request;
unset($m[$k]);
}
}
continue;
}
if (preg_match('/\{\{CUU.*/i',$request[2])) continue;
if (preg_match('/\{\{Clerk note\}\}/i',$request[2])) continue;
if (preg_match('/\{\{\[\[Image:.*/i',$request[2])) continue;
if (preg_match('/ClueBot VI/i',$request[2])) continue;
$to = explode('�',trim($request[1]));
if (!isset($to[1])) {
addtobottom(&$request[2],':{{Clerk note}} Parse error: I had a problem parsing this request.  Please ensure that the header is in the correct format.  Thanks.  ~~~~');
continue;
}
$from = trim($to[0]);
$to = trim($to[1]);
$to = strtoupper($to{0}).substr($to,1);
$from = strtoupper($from{0}).substr($from,1);
$params = array();
$totaledits = $wpq->contribcount($to);
$visibleedits = 0;
$cont = null;
while (($count = count($wpapi->usercontribs($to,500,&$cont))) == 500) $visibleedits += $count;
$visibleedits += $count;
$deletededits = $totaledits - $visibleedits;
if ($visibleedits > 0) $params['contribs'] = 'yes'; else $params['contribs'] = 'no';
if ($deletededits > 0) $params['dcontribs'] = 'yes'; else $params['dcontribs'] = 'no';
if (count($wpapi->logs($to)) > 1) $params['logs'] = 'yes'; else $params['logs'] = 'no';
$info = $wpapi->users($to);
if ($info[0]['name'] != $to) {
addtobottom(&$request[2],':{{Clerk note}} User "'.$to.'" is not registered.  Please see WP:CHU/S instead.  ~~~~');
continue;
}
preg_match('/^(\d\d\d\d)-(\d\d)-(\d\d)T(\d\d):(\d\d):(\d\d)Z$/',$info[0]['registration'],$regdate);
if (((time() - gmmktime($regdate[4],$regdate[5],$regdate[6],$regdate[2],$regdate[3],$regdate[1])) > 6*30*24*60*60) or ((time() - gmmktime($regdate[4],$regdate[5],$regdate[6],$regdate[2],$regdate[3],$regdate[1])) < 3600)) {
$params['new'] = 'no';
} else {
$params['new'] = 'yes';
}
if (stripos($wpq->getpage('User talk:'.$to),$from) !== false) $params['notified'] = 'yes';
else $params['notified'] = 'no';
if ($wpi->hasemail($to)) $params['email'] = 'yes'; else $params['email'] = 'no';
$fromec = $wpq->contribcount($from);
$note = 'User has '.$visibleedits.' undeleted edits, '.$deletededits.' deleted edits, and '.$totaledits.' total edits.  ';
$note.= 'Requesting user has '.(isset($fromec)?$fromec:'no').' edits.';
$params['note'] = $note;
$cuutemplate = ':{{CUU';
foreach ($params as $k => $v) $cuutemplate.='|'.$k.'='.$v;
$cuutemplate.= '}} ~~~~';
//			echo $cuutemplate."\n\n";
addtobottom(&$request[2],$cuutemplate);
}
$newdata = trim($header)."\n\n";
$cdate = '';
unset($m2,$unk);
foreach ($m as $k => $req) {
if (preg_match('/(\d{2}):(\d{2}), (\d+) ([a-zA-Z]+) (\d{4}) \(UTC\)/iU',$req[2],$match)) {
$month = array('January' => 1, 'February' => 2, 'March' => 3,
'April' => 4, 'May' => 5, 'June' => 6, 'July' => 7,
'August' => 8, 'September' => 9, 'October' => 10,
'November' => 11, 'December' => 12
);
$m2[$k] = gmmktime($match[1],$match[2],0,$month[$match[4]],$match[3],$match[5]);
} else {
$unk[$k] = 'Unknown';
}
}
asort($m2);
foreach ($m2 as $k => $t) {
$req = $m[$k];
if ($cdate != gmdate('F j, Y', $t)) {
$cdate = gmdate('F j, Y', $t);
$newdata.= '=== '.$cdate.' ==='."\n";
$newdata.= '\'\'Requests left here will be filled no earlier than '.gmdate('F j, Y', ($t + (8*86400))).'.\'\''."\n\n";
}
$newdata.= '===='.$req[1].'===='."\n\n".trim($req[2])."\n\n";
}
if (count($unk) > 0) {
$newdata.= '=== Unknown ==='."\n";
foreach ($unk as $k => $t) {
$req = $m[$k];
$newdata.= '===='.$req[1].'===='."\n\n".trim($req[2])."\n\n";
}
}
$newdata.= $footer;
if (trim($newdata) != trim($origdata)) {
$summary = 'Clerking: Formatting';
if ($cmt > 0) $summary.= ', adding '.$cmt.' clerk notice'.(($cmt > 1)?'s':'');
if (count($darchive) > 0) $summary.= ', archiving '.count($darchive).' done request'.((count($darchive) > 1)?'s':'');
if (count($narchive) > 0) $summary.= ', archiving '.count($narchive).' rejected request'.((count($narchive) > 1)?'s':'');
$summary.= '. (BOT)';
$wpapi->edit('Wikipedia:Changing username/Usurpations',$newdata,$summary);
}
if (count($darchive) > 0) {
$i = 1;
while (strlen($archdata = $wpq->getpage('Wikipedia:Changing username/Usurpations/Completed/'.$i)) > 100000) $i++;
foreach ($darchive as $req) $archdata.= "\n".'===='.$req[1].'===='."\n\n".trim($req[2])."\n\n";
$wpapi->edit('Wikipedia:Changing username/Usurpations/Completed/'.$i,$archdata,'Archiving '.count($darchive).' request'.((count($darchive) > 1)?'s':'').' from WP:CHUU. (BOT)');
}
if (count($narchive) > 0) {
$i = 1;
while (strlen($archdata = $wpq->getpage('Wikipedia:Changing username/Usurpations/Rejected/'.$i)) > 100000) $i++;
foreach ($narchive as $req) $archdata.= "\n".'===='.$req[1].'===='."\n\n".trim($req[2])."\n\n";
$wpapi->edit('Wikipedia:Changing username/Usurpations/Rejected/'.$i,$archdata,'Archiving '.count($narchive).' request'.((count($narchive) > 1)?'s':'').' from WP:CHUU. (BOT)');
}
unset($darchive,$narchive);
sleep(300);
}
?>

ClueBot VI (talk) 18:04, 20 October 2010 (UTC)