#!/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, $MYBL
+OGURL);

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