User:ClueBot VI/Source
From Wikipedia, the free encyclopedia
The following is automatically generated by ClueBot VI.
- wikibot.classes.php is here.
[edit] Source to ClueBot VI
<?PHP function addtobottom(&$data,$add) { global $changed; $changed = true; $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); $wpi->forcepost('User:'.$user.'/Source', 'The following is automatically generated by [[User:'.$user.'|'.$user."]].\n\n\n\n" . '* wikibot.classes.php is [[User:ClueBot/Source|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) { $changed = false; $data = $wpq->getpage('Wikipedia:Changing username/Usurpations'); $header = explode('====',$data,2); $data = '===='.$header[1]; $header = $header[0]; $datatopost = $header; $changed = false; 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]; // echo $footer."\n\n"; // print_r($m); foreach ($m as &$request) { if (preg_match('/\{\{CUU.*/i',$request[2])) continue; if (preg_match('/\{\{Clerk note\}\}/i',$request[2])) continue; if (preg_match('/\{\{Done\}\}/i',$request[2])) continue; if (preg_match('/\{\{Not done\}\}/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]] 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 = $header; foreach ($m as $req) $newdata.= '===='.$req[1].'===='.$req[2]; $newdata.= $footer; // echo $newdata."\n\n"; if ($changed == true) { $wpi->post('Wikipedia:Changing username/Usurpations',$newdata,'Adding clerk notices. (BOT)'); // $i++; // if ($i == 25) die(); } sleep(300); } ?>
ClueBot VI (talk) 03:08, 5 June 2008 (UTC)