Difference between revisions of "Caretaker.pl"
(empty article loop ready for tasks) |
(add a rule for testing) |
||
| Line 1: | Line 1: | ||
use DBI; | use DBI; | ||
my $dbh = DBI->connect('DBI:mysql:wiki',$::peer,$::pwd1) or die DBI->errstr; | my $dbh = DBI->connect('DBI:mysql:wiki',$::peer,$::pwd1) or die DBI->errstr; | ||
| − | @ns = ('','Talk:','User:','User talk:','Project:','Project talk:', | + | my @ns = ('','Talk:','User:','User talk:','Project:','Project talk:', |
'Image:','Image talk:','Mediawiki:','Mediawiki talk:','Template:', | 'Image:','Image talk:','Mediawiki:','Mediawiki talk:','Template:', | ||
'Template talk:','Help:','Help talk:','Category:','Category talk:'); | 'Template talk:','Help:','Help talk:','Category:','Category talk:'); | ||
| Line 13: | Line 13: | ||
# Loop through all articles one per second | # Loop through all articles one per second | ||
| − | my $sth = $dbh->prepare('SELECT cur_namespace,cur_title FROM cur WHERE cur_id=? | + | my $sth = $dbh->prepare('SELECT cur_namespace,cur_title FROM cur WHERE cur_id=?'); |
my $done = 0; | my $done = 0; | ||
| + | my @comments = (); | ||
for (0..$last) { | for (0..$last) { | ||
$sth->execute($_); | $sth->execute($_); | ||
@row = $sth->fetchrow_array; | @row = $sth->fetchrow_array; | ||
if (my $title = $ns[$row[0]].$row[1]) { | if (my $title = $ns[$row[0]].$row[1]) { | ||
| + | |||
| + | # Read the article content | ||
| + | my $article = my $backup = wikiRawPage $::wiki, $title; | ||
| + | |||
| + | # Apply rules to Xml:Articles | ||
| + | if ($title =~ /^Xml:/) { | ||
| + | my $comment = ''; | ||
| + | $comment = 'removed empty elements' if $article =~ s/^\s*<(read|write|category|init|data|view|edit|save)>\s*<\/\w+>[\r\n]*//gms; | ||
| + | } | ||
| + | |||
| + | # If article changed, write and comment | ||
| + | wikiPageEdit $::wiki, $title, $article, join(', ',@comments) if $article ne $backup; | ||
} | } | ||
sleep(1); | sleep(1); | ||
} | } | ||
| − | my $comment = " | + | my $comment = "Daily caretaking tasks completed: $last articles examined, $done adjusted."; |
logAdd $comment; | logAdd $comment; | ||
wikiLogin($::wiki, $::peer, $::pwd1); | wikiLogin($::wiki, $::peer, $::pwd1); | ||
Revision as of 02:14, 24 October 2006
use DBI; my $dbh = DBI->connect('DBI:mysql:wiki',$::peer,$::pwd1) or die DBI->errstr; my @ns = (,'Talk:','User:','User talk:','Project:','Project talk:', 'Image:','Image talk:','Mediawiki:','Mediawiki talk:','Template:', 'Template talk:','Help:','Help talk:','Category:','Category talk:');
- Get last article id
my $sth = $dbh->prepare('SELECT cur_id FROM cur ORDER BY cur_id DESC'); $sth->execute(); my @row = $sth->fetchrow_array; $sth->finish; my $last = $row[0];
- Loop through all articles one per second
my $sth = $dbh->prepare('SELECT cur_namespace,cur_title FROM cur WHERE cur_id=?'); my $done = 0; my @comments = (); for (0..$last) { $sth->execute($_); @row = $sth->fetchrow_array; if (my $title = $ns[$row[0]].$row[1]) {
# Read the article content my $article = my $backup = wikiRawPage $::wiki, $title;
# Apply rules to Xml:Articles if ($title =~ /^Xml:/) { my $comment = ; $comment = 'removed empty elements' if $article =~ s/^\s*<(read|write|category|init|data|view|edit|save)>\s*<\/\w+>[\r\n]*//gms; }
# If article changed, write and comment wikiPageEdit $::wiki, $title, $article, join(', ',@comments) if $article ne $backup; } sleep(1); }
my $comment = "Daily caretaking tasks completed: $last articles examined, $done adjusted."; logAdd $comment; wikiLogin($::wiki, $::peer, $::pwd1); wikiPageAppend($::wiki, $::wikilog, "\n*".localtime()." : $comment", $comment); $sth->finish; $dbh->disconnect;
