Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris
 
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 lurking in the Monastery: (8)
As of 2015-07-01 23:50 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (25 votes), past polls