User:Joe's Null Bot/designsketch

use MediaWiki::Bot;

my $bot = MediaWiki::Bot->new({           agent       => "Joe's Null Bot",            assert      => 'bot',            host        => 'en.wikimedia.org',            login_data  => { username => "Joe's Null Bot", password => "[REDACTED]" },        });

my @pages = $bot->get_pages_in_catgory('Category:Category:BLP articles proposed for deletion by days left") or die("get_pages fail");       foreach my $page (@pages) {          my $url = $hash->{'url'};          my $page = $hash->{'title'};          print "$page: $url\n";

my $body = $bot->get_text($page) or die("no body for " . $page); $bot->edit({             page    => $page,              text => $body,              summary => "Joe's Null Bot: Null edit to push category updates",              minor => true, bot => true              assertion => 'bot';            }) unless $bot->get_protection($page); }