root/misc/blogping

Revision 2001 (checked in by miyagawa, 14 years ago)

add blogping script

  • 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://www.bloglines.com/ping',
9     'http://rpc.technorati.jp/rpc/ping',
10     'http://rpc.reader.livedoor.com/ping',
11 );
12
13 my $blog_url  = shift || "http://blog.bulknews.net/mt/";
14 my $blog_name = shift || "blog.bulknews.net";
15
16 for my $ping (@ping) {
17     my $result = XMLRPC::Lite->proxy($ping)->call("weblogUpdates.ping", $blog_name, $blog_url)->result;
18     warn YAML::Dump $result;
19 }
Note: See TracBrowser for help on using the browser.