Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:
#!/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' => '', } );
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: Can't locate object method REDIRECTS in package HTTP::Headers
by GrandFather (Saint) on Mar 14, 2011 at 21:29 UTC | |
by Anonymous Monk on Mar 14, 2011 at 21:47 UTC | |
by Anonymous Monk on Mar 15, 2011 at 02:12 UTC | |
by Eliya (Vicar) on Mar 15, 2011 at 04:53 UTC | |
by Anonymous Monk on Mar 15, 2011 at 07:42 UTC |