#!/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";
|