Google Blog Search Pinging Service API
Google Blog Search Pinging Service API
#!/usr/bin/perl
use strict;
use warnings;
use XMLRPC::Lite;
my $result = XMLRPC::Lite
->proxy('http://blogsearch.google.com/ping/RPC2')
->call('weblogUpdates.extendedPing',
'Official Google Blog',
'http://googleblog.blogspot.com/',
'http://googleblog.blogspot.com/',
'http://googleblog.blogspot.com/atom.xml')
->result;
use Data::Dumper;
print Dumper($result);
1;
colinux:~# perl google_ping.pl
$VAR1 = {
'flerror' => '0',
'message' => 'Thanks for the ping.'
};
