Net::Blogger not posting

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);
[download]

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)

Cheers,
Ovid

The official Perl 6 wiki.

Comment on Net::Blogger not posting Download Code
Re: Net::Blogger not posting by Anonymous Monk on May 31, 2010 at 15:07 UTC
`use SOAP::Lite +trace;` [download]	[reply] [d/l]
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";` [download]	[reply] [d/l]


No such thing as a small change
	PerlMonks

Net::Blogger not posting

The best material for plates (tableware) is: