メールをトリガーにして更新pingをうつ

更新pingを送信する のように専用のソフトを使うのも手だが、面倒。

というわけで、書いてみました、更新pingを打つスクリプト。bloggerの設定画面→メール の BlogSend アドレス を設定して、受信する側の.procmailrcにスクリプトを起動するレシピを記述。

blogupdate.rb -- このスクリプトは、各人の責任においてご自由にお使いください。使用した際に発生したいかなる問題にも、作者はいっさいの責任を負いません。

#!/usr/local/bin/ruby
require 'xmlrpc/client'

blog_title = "Hiroaki's Blog"
blog_url = "http://h-abe.blogspot.com"
ping_timeout = 60

ping_site_list = [
                  "http://bulkfeeds.net/rpc",
                  "http://ping.bloggers.jp/rpc", 
                  "http://rpc.weblogs.com/RPC2",
                  "http://www.blogpeople.net/servlet/weblogUpdates",
                  "http://ping.rss.drecom.jp/",
                  "http://rpc.technorati.com/rpc/ping",
                  "http://blog.goo.ne.jp/XMLRPC"]
$KMODE = "utf-8"
threads = []

for site in ping_site_list
  threads << Thread.new(site) { |mySite|
    ok = false
    begin
      ok, result = XMLRPC::Client.new2(mySite).call2("weblogUpdates.ping", blog_title, blog_url, ping_timeout)
    rescue Timeout::Error
      Thread.current["error"] = "#{mySite} ... Error(Timeout)"
    rescue
      #
    end
    if !ok
      if result.nil? or result.faultString.nil?
        Thread.current["error"] = "#{mySite} ... Error"
      else
        Thread.current["error"] = "#{mySite} ... #{result.faultString}"
      end
    end
  }
end

threads.each { |t|
  t.join;
  puts t["error"] unless t["error"].nil?
}