#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
use MIME::Base64;
use JSON;
use REST::Client;
use Getopt::Long;
use HTTP::Cookies;
use URI::Escape;
use Sys::Hostname;

$|++; # Output buffering off

my $wiki = 'https://wikihost';
my $api  = '/mediawiki/api.php';
my $JSON = JSON->new->allow_nonref;

# Create rest client and set some options
my $client = REST::Client->new();
$client->setHost($wiki);
my $ua = $client->getUseragent(); # Get the LWP User agent
$ua->ssl_opts(verify_hostname => 0);
my  $cookie_jar  = HTTP::Cookies->new(
    file            =>  "/tmp/lwp_cookies.dat",
    autosave        =>  1,
    ignore_discard  =>  1,
);
$ua->cookie_jar( $cookie_jar ); # Give the chap a cookie

# First get a token. This works
my $request = 'action=query&meta=tokens&type=login&format=json';
my $result = post($request);
print Dumper $result;
my $token = uri_escape( $result->{query}{tokens}{logintoken} );
print "URI Escaped Token: $token\n";

# Now we log in with that token. I've tried both the below requests
$request = 'action=login&lgname=Marvin&lgpassword=ldiode&lgtoken=$token&lgdomain=wikihost&format=json';
# $request = 'action=login&lgname=Marvin&lgpassword=ldiode&lgtoken=$token&format=json';
$result  = post($request);
print Dumper $result;

sub post {
    my $query = shift @_;
    $client->POST($api, $query, {'Content-type' => 'application/x-www-form-urlencoded'});
    if ( $client->responseCode() == 200 ) {
        return $JSON->decode( $client->responseContent() );
    }
    else {
        print "Failed with code $client->responseCode()\n";
        print Dumper $client->responseContent();
    }
}