#!/usr/bin/perl

use warnings;
use strict;

use CGI qw/:simple/;
use CGI::Carp qw(fatalsToBrowser);

use lib "/home/content/68/7511668/html/DOMAIN-askageek/lib";

use WWW::Mechanize;

print header;

my $username = '';
my $password = '';
my $url_to_sign_on = '';
my $post_new = '';


my $mech = WWW::Mechanize->new();

$mech->get($url_to_sign_on);

$mech->submit_form(
	form_name =>'loginform',
        fields => {
		user_login => $username,
		user_pass  => $password,
	}
);

######
# get html for page after sign on
######
my $page_source1 = $mech->content; 

if ($page_source1 =~ m/dashboard/i) 
{
   print "Sign on successful.<br><br>";
}
else
{
   print "sign on failed.<br><br>";
   exit;
}

#####
# load page to post new post
#####
$mech->get($post_new);

if ($post_new =~ m/log out/i)
{
   print "Post_new page loaded successfully.<br><br>";
}
else
{
   print "Post_new page failed to load.<br><br>";
   exit;
}

#####
# Fill out the post form
#####
#<input type="hidden" id="_wpnonce" name="_wpnonce" value="35bb69e3ce" />

#my @post_new = split(/\n/, $post_new);
$post_new =~ m#name\=\"_wponce\"\s+value=\"([a-z][0-9]){10}\"#i;

print "found $1";
exit;


$mech->submit_form(
	form_name =>'post',
        fields => {
		_wpnonce => '',
		_wp_http_referer => '/wp-admin/post-new.php',
		parent_id => '0',
		user_ID => '1',
		action => 'editpost',
		originalaction => 'editpost',
		post_author => '1',
		post_type => 'post',
		original_post_status => 'auto-draft',
		referredby => 'http',
		_wp_original_http_referer => '_wp_original_http_referer',
		auto_draft => '1',
		post_ID => '',
		autosaveonce => '',
		'meta-box-order-nonce' => '',
		}
);