PerlでXML-RPC APIを実装するためのサンプルプログラム(CGI)

#!/usr/bin/perl

use strict;
use warnings;

use XMLRPC::Transport::HTTP;

my $xmlrpcserver = XMLRPC::Transport::HTTP::CGI->
                   dispatch_to('metaWeblog', 'blogger')->handle;

package metaWeblog;

# metaWeblog.newPost (blogid, username, password, struct, publish)
# returns string
sub newPost {
  my ($self, $blogid, $username, $password, $content, $publish) = @_;

  my $logfile = "xmlrpc.log";
  open(OUT, ">>$logfile");
  print OUT "metaWeblog.newPost:", "\n";
  print OUT "blogid:$blogid", "\n";
  print OUT "username:$username", "\n";
  print OUT "password:$password", "\n";
  print OUT "content:$content->{title},$content->{description},";
  print OUT "$content->{mt_excerpt},$content->{mt_keywords}", "\n";
  print OUT "publish:$publish", "\n";
  close(OUT);

  return "OK";
}

#!/usr/bin/perl

use strict;
use warnings;

use XMLRPC::Lite;

my $uri = "http://localhost/xmlrpc.cgi";
my $content;
my @args = ();

my $method = "metaWeblog.newPost";
$content->{title} = 'Title';
$content->{description} = 'Description';
$content->{mt_excerpt} = 'Mt_Excerpt';
$content->{mt_keywords} = 'Mt_Keywords';
@args = ('Blog ID', 'User ID', 'Password', $content, 1);
my $res = call($uri, $method, @args);
print "\n$method:\n";
print "res:$res\n";

# ...

sub call {
  my ($uri, $method, @args) = @_;
  my $res = XMLRPC::Lite->proxy($uri)->call($method, @args)->result;
  return $res;
}

過去ログ