#!/usr/bin/perl

BEGIN {
    my $base_module_dir = (-d '/home/askk/perl' ? '/home/askk/perl' : 
+( getpwuid($>) )[7] . '/perl/');
    unshift @INC, map { $base_module_dir . $_ } @INC;
}


use warnings;
use strict;

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

print "test";

use WWW::Mechanize;

my $username = 'admin';
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#!/usr/bin/perl

BEGIN {
    my $base_module_dir = (-d '/home/askageek/perl' ? '/home/askk/perl
+' : ( getpwuid($>) )[7] . '/perl/');
    unshift @INC, map { $base_module_dir . $_ } @INC;
}


use warnings;
use strict;

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

print "test";

use WWW::Mechanize;

my $username = 'admin';
my $password = 'wfgs343R';
my $url_to_sign_on = 'http://www';
my $post_new = 'http://www.';


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
#####

$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-admpin/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' => '',
        }
);


{
   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
#####

$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' => '',
        }
);
[download]