Rosetta Code:Village Pump/Lang-tag bot/Source: Difference between revisions

use strict;

use feature 'say';

use MediaWiki::API;

 

 

my $username = 'UnderBot';

my $password = 'secret';

 

my $kill_switch_trigger = qr/stopediting/;

 

my $tasks_path = '/home/hippo/Temporary/tasks.yml';

 

 

my $h = qr/(?:\t| )*/;

my $lwsl = qr/(?:\t| )+\S[^\n]*/;

 

# ------------------------------------------------------------

our (%tasks, @done, @todo);

local *tasks = LoadFile $tasks_path;

 

my $mw = new MediaWiki::API({api_url => 'http://rosettacode.org/mw/api.php'});

$mw->login({lgname => $username, lgpassword => $password})

 

say "TITLE: $pagetitle";

 

 

$p = $mw->get_page({title => $pagetitle}) || die;

 

$text =~ s/ (.+? \n) (== \s* {{) /$2/xs or die;

my $newtext = $1;

( == $h {{ $h header $h \| $h ([^}]+?) $h }} $h == $h \n )

 

( \z | == $h {{ )

 

s/\bC #/C#/ foreach $header, $langname;

 

$body =~ s {$h (<lang [^>]* >)}

{my $s = $1;

? $s # Don't replace "Mathematica" with "mathematica" or "java5" with "java"

: $tag}gxe;

# Get rid of any indenting spaces left behind when

# someone else added the lang tags.

{my $space = minstr($b =~ /^( +)\S/gm);

$b =~ s/^$space//gm;}

elsif ($body =~ /<pre/)

# Just assume they should all be lang tags.

(.+?)

\s* </pre> }

else

# Turn indented passages into lang-tagged passages.

{ ( ^ $lwsl \n

(?: (?: $lwsl \n | $h \n )*

$t =~ s/^$space//gm;

$t =~ s/\s+\z//;

 

$body =~ s

{(<lang [^>]*>) <nowiki> \s* (.+?) \s* </nowiki> \x3c/lang>}

{$1$2\x3c/lang>}gsx;

 

{skip_encoding => 1});

 

 

 

[[Category:Perl]]