postwordpress.pl

## postwordpress.pl
#!/usr/bin/perl
# script: publish article to a wordpress blog using XMLRPC interface. Uploading a picture and setting this as a featured image. Additionally add custom fields.
# author: <bert2002>

use strict;
use utf8;
use XMLRPC::Lite;
use IO::Socket::SSL;

my ($buf,$contents);
my $pictureid;
my @categories;

# settings
my $username = "USERNAME";
my $password = "PASWORT";
my $server = "https://www.yourblog.com/xmlrpc.php";
my $image = "PATHtoIMAGE"
my $htmlpost = "THErealCONTENT";

# upload picture to wordpress
open(FILE, "$image") or die "$!";
while (read(FILE, $buf, 60*57)) {
        $contents .= $buf;
}
close(FILE);

my $res = XMLRPC::Lite
->proxy($server)
->call('metaWeblog.newMediaObject', 1, $username, $password,
{ name => $image, type => 'image/jpeg', bits => $contents } )
->result;

if (defined ($res)) {
	$pictureid = $res->{id};
	print ". picture uploaded with id $pictureid\n";
} else {
        print " .. uploading picture failed: $!";
}

# post article to wordpress
my $publishdate = "20100220T12:34:56";

# prepare categories
my $multicategories = "cat1 cat2 cat3";
@categories = split(/ /, $multicategories);

# finally create that fucking post
my $res = XMLRPC::Lite
->proxy($server)
->call('metaWeblog.newPost', 1, $username, $password,
{
        categories  => \@categories,
        custom_fields => [
                { "key" => "keyone", "value" => "value one" },
                { "key" => "keytwo", "value" => "value two" }
        ],
        description => $htmlpost,
        title => $productname,
#        dateCreated => $publishdate,
        mt_allow_comments => 0,
        wp_post_thumbnail => $pictureid,
}, 1)->result;

if (defined ($res)) {
        print ". posted article id $res and picture id $pictureid\n";
} else {
        print ".. posting article with id $res failed: $!";
}