Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery

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 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/ 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 (Honestly working code, not just half-formed snippets. Everything I've been pointed to has been broken in one way or another)

Replies are listed 'Best First'.
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(''); $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?

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://842424]
Approved by Corion
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others studying the Monastery: (7)
As of 2018-06-25 11:06 GMT
Find Nodes?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?

    Results (126 votes). Check out past polls.