root/misc/blogping

Revision 2028 (checked in by miyagawa, 13 years ago)

added google

  • Property svn:executable set to *
Line 
1 #!/usr/bin/perl
2 use strict;
3 use warnings;
4 use XMLRPC::Lite;
5 use YAML;
6
7 my @ping = (
8     'http://ping.feedburner.com/',
9     'http://www.bloglines.com/ping',
10     'http://rpc.technorati.jp/rpc/ping',
11     'http://rpc.reader.livedoor.com/ping',
12     'http://blogsearch.google.com/ping/RPC2',
13 );
14
15 my $blog_url  = shift || "http://blog.bulknews.net/mt/";
16 my $blog_name = shift || "blog.bulknews.net";
17
18 for my $ping (@ping) {
19     warn "pinging $ping\n";
20     my $result = XMLRPC::Lite->proxy($ping)->call("weblogUpdates.ping", $blog_name, $blog_url)->result;
21     warn YAML::Dump $result;
22 }
Note: See TracBrowser for help on using the browser.