#!/usr/bin/perl -w

use strict;
use Frontier::Client;
use Getopt::Long;

use constant WEBLOGCOMXMLRPCSERVER => 'http://rpc.weblogs.com/RPC2';

my $MYBLOGTITLE = "";
my $MYBLOGURL 	= "";
my $client 	= "";
my $response 	= "";
my $output 	= "";


GetOptions( "title=s" => \$MYBLOGTITLE,
	    "url=s" => \$MYBLOGURL);

$client = Frontier::Client->new(
	url		=> WEBLOGCOMXMLRPCSERVER,
	use_objects	=> 0,
	debug		=> 0);

$response = $client -> call ('weblogUpdates.ping', $MYBLOGTITLE, $MYBLOGURL);

print "Weblogs.com said: \n\n $response->{'message'}\n\n";