User:HighInBC/find socks by revert rate/source

#!/usr/bin/perl
use     strict;
use     HTTP::Request;
use     HTTP::Request::Common;
use     LWP::UserAgent;
use     XML::Simple;
use     Data::Dumper;
 
my $ua = new LWP::UserAgent;
$ua->default_headers->push_header('Accept-Encoding' => 'gzip');
$ua->cookie_jar({});

my $page = $ARGV[0] || die "Need a page";

my $rvcontinue;
my @edits;
do {
  my $post = [
    prop       => 'revisions',
    rvprop     => 'ids|timestamp|user|sha1',
    rvlimit    => 500,
    rvdir      => 'newer',
    titles     => $page,  
    rvcontinue => $rvcontinue,
  ];
  my $xml = api2xml( 'query', $post );
  $rvcontinue = $xml->{'query-continue'}{'revisions'}{'rvcontinue'};
  my $edits = $xml->{'query'}{'pages'}{'page'}{'revisions'}{'rev'}; 
  $edits = ref($edits) eq 'ARRAY' ? $edits : [ $edits ];
  map { $_->{anon} = 1 if ( defined( $_->{anon} ) ); } @{ $edits };
  push( @edits, @{ $edits } );
  sleep 1;
} while ( $rvcontinue );

sub api2xml {
  my $action = shift;
  my $post = shift;  
  print Dumper $post if $ENV{DEBUG} > 1;
  my $xml = $ua->request(POST 'https://wiki.riteme.site/w/api.php?action='.$action.'&format=xml', $post)->decoded_content();
  eval{$xml = XMLin($xml)};
  (warn $@ && die) if ($@);
  print Dumper $xml if $ENV{DEBUG};
  return $xml;
}