Yi-bot.pl

From OrganicDesign Wiki

#!/usr/bin/perl
# Script to create or adjust many articles
#
 
# Set up a user agent
use HTTP::Request;
use LWP::UserAgent;
$client = LWP::UserAgent->new(
        cookie_jar => {},
        agent => 'Mozilla/5.0',
        from => 'wikid.pl@organicdesign.co.nz',
        timeout => 10,
        max_size => 100000
        );
 
# Wiki script URL and comment to use for edit summary
$wiki = 'http://www.organicdesign.co.nz/wiki/index.php';
$summary = 'Yi-bot script';
 
# Your list of article titles
@articles = ('foo','bar');
 
# Loop through the article titles
for $title (@articles) {
	print "$title\n";
 
	# If your adjusting existing articles, read the existing title's wikitext, otherwise read content from a file
	$response = $client->get("$wiki?title=$title&action=raw");
	$_ = $response->content;
 
	# If your adjusting existing articles, adjust the content here
	s/old/new/g;
 
	# Update the article by posting a form using a Simple Forms request
	%form = (
		title   => $title,
		caction => 'replace',
		summary => $summary,
		content => $_
		);
	$client->post($wiki,\%form);
 
	sleep(0.5);
	}