Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

Net::Blogger not posting

by Ovid (Cardinal)
on May 31, 2010 at 14:52 UTC ( #842424=perlquestion: print w/ replies, xml ) Need Help??
Ovid has asked for the wisdom of the Perl Monks concerning the following question:

Update: This module relies on the XMLRPC interface. Blogger no longer supports that interface, thus rendering this useless.

I have the following code which relies on Net::Blogger:

use Net::Blogger; my $blogger = Net::Blogger->new({ debug => 1, appkey => '0123456789ABCDEF', # doesn't matter? blogid => $blogid, username => $username, password => $password, }); my $result = $blogger->newPost({ postbody => \'<p>This is text</p><hr/><p><strong>Whee!</strong></p +>', publish => 1, }); use Data::Dumper; print Dumper($result);

That should, in theory, post something to blogger.com. Instead, I keep getting the following error message:

Element '' can't be allowed in valid XML message. 
Died. at /Library/Perl/5.10.1/SOAP/Lite.pm line 1410.

Anyone recognise this error and know how to make this work? Am I doing something incredibly stupid? Better yet, does anyone have any samples of working code which successfully posts to blogger.com? (Honestly working code, not just half-formed snippets. Everything I've been pointed to has been broken in one way or another)

Comment on Net::Blogger not posting
Download Code
Re: Net::Blogger not posting
by Anonymous Monk on May 31, 2010 at 15:07 UTC
Re: Net::Blogger not posting
by Khen1950fx (Canon) on Jun 01, 2010 at 11:09 UTC
    I tried this. It comes back "200 OK", but it doesn't post. I think that the module has seen better days.
    #!/usr/bin/perl use strict; use warnings; use Data::Dumper; use Net::Blogger::Engine::Blogger; use SOAP::Lite trace => 'debug'; my $blogger = Net::Blogger::Engine::Blogger->new(); $blogger->Proxy('https://www.blogger.com/api/RPC2'); $blogger->Username('username'); $blogger->Password('password'); $blogger->AppKey('0123456789ABCDEF'); my $post = $blogger->newPost( postbody => \'<p>This is text</p><hr/><p><strong>Whee! </strong></p>', publish => $blogger, ); print Dumper($post), "\n";

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://842424]
Approved by Corion
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others contemplating the Monastery: (16)
As of 2014-10-21 20:31 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    For retirement, I am banking on:










    Results (110 votes), past polls