Difference between revisions of "Yi-bot.pl"
From Organic Design wiki
m |
m |
||
(11 intermediate revisions by 3 users not shown) | |||
Line 1: | Line 1: | ||
+ | {{lowercase}}{{legacy}} | ||
+ | <source lang="perl"> | ||
#!/usr/bin/perl | #!/usr/bin/perl | ||
− | # Script to | + | # Script to create or adjust many articles |
+ | # | ||
+ | # Set up a user agent | ||
use HTTP::Request; | use HTTP::Request; | ||
use LWP::UserAgent; | use LWP::UserAgent; | ||
Line 12: | Line 16: | ||
); | ); | ||
+ | # Wiki script URL and comment to use for edit summary | ||
$wiki = 'http://www.organicdesign.co.nz/wiki/index.php'; | $wiki = 'http://www.organicdesign.co.nz/wiki/index.php'; | ||
− | $summary = ' | + | $summary = 'Yi-bot script'; |
− | for $ | + | # Your list of article titles |
− | + | @articles = ('foo','bar'); | |
− | print "$ | + | |
+ | # Loop through the article titles | ||
+ | for $title (@articles) { | ||
+ | print "$title\n"; | ||
− | $response = $client->get("$wiki?title=$ | + | # 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; | $_ = $response->content; | ||
− | + | # If your adjusting existing articles, adjust the content here | |
− | + | s/old/new/g; | |
− | |||
− | |||
− | s/ | ||
+ | # Update the article by posting a form using a Simple Forms request | ||
%form = ( | %form = ( | ||
− | title => $ | + | title => $title, |
caction => 'replace', | caction => 'replace', | ||
summary => $summary, | summary => $summary, | ||
− | content => | + | content => $_ |
); | ); | ||
$client->post($wiki,\%form); | $client->post($wiki,\%form); | ||
Line 38: | Line 45: | ||
sleep(0.5); | sleep(0.5); | ||
} | } | ||
+ | </source> | ||
+ | [[Category:PERL]][[Category:Robots]] |
Latest revision as of 03:23, 23 April 2020
#!/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);
}