
Net::LiveJournal -- access LiveJournal's APIs

use Net::LiveJournal;
# make an account object...
$lj = Net::LiveJournal->new(user => "brad", password => "xxxx");
# make an entry object...
$entry = Net::LiveJournal::Entry->new(subject => "This is a test",
body => "I'm posting this test at " . localtime);
if (my $url = $lj->post($entry)) {
print "Success: $url\n";
} else {
print "Failure: " . $lj->errstr . "\n";
}

This is a quick hack. It could be fleshed out a lot.

Brad Fitzpatrick <brad@danga.com>

This code is (C) 2006 Six Apart, Ltd. You have permission to use and distribute it under the same terms as Perl itself.