yi-bot.pl

Legacy: This article describes a concept that has been superseded in the course of ongoing development on the Organic Design wiki. Please do not develop this any further or base work on this concept, now this page is for historic record only.

#!/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);
	}