root/misc/blogping

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

add feedburner

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