tamcat（木管猫）の備忘録

Ask.jp が blog検索のベータ版を公開しました。 んで、ブログ検索のクロール頻度は最短 1 分という恐ろしい更新頻度にびっくりした訳ですが。 わたしん所はヒットするのかなと思って検索したけどヒットしませんでした。

9月末にはAsk.jp独自のpingサーバーも運用を開始する予定

http://internet.watch.impress.co.jp/cda/news/2005/09/14/9131.html

との事なので、その時に Ping 打てば良いかと思ったけど、よく考えてみたら So-net blog は Ping サーバを自由に設定できなかったという。（あらかじめ選択肢として用意されているものからしか選べない）

そういえば更新 Ping ってどういうやつなんだっけなと思ってちょっと調べて．．． スクリプト書いて遊んでました。 Windows 上の WSH で動作する JScript で。

//---------------------------------------------------------------------------
var BlogTitle = "tamcat（木管猫）の備忘録";
var BlogURL = "http://blog.so-net.ne.jp/tamcat/";
//---------------------------------------------------------------------------

WScript.Echo("各 Ping Server へ更新 Ping を打ち込みます。");

var PingURLs = new Array();
PingURLs = [
  "http://blog.goo.ne.jp/XMLRPC",
  "http://blogdb.jp/xmlrpc",
  "http://bulkfeeds.net/rpc",
  "http://coreblog.org/ping/",
  "http://ping.amagle.com/",
  "http://ping.bloggers.jp/rpc/",
  "http://ping.cocolog-nifty.com/xmlrpc",
  "http://ping.myblog.jp/",
  "http://rpc.technorati.jp/rpc/ping",
  "http://www.blogoole.com/ping/",
  "http://www.blogpeople.net/servlet/weblogUpdates"
  ];

var PingBody = "<?xml version=¥"1.0¥" encoding=¥"UTF-8¥"?>¥n"
 + "<methodCall>¥n"
 + "<methodName>weblogUpdates.ping</methodName>¥n"
 + "<params>¥n"
 + "<param>¥n<value>" + BlogTitle + "</value>¥n</param>¥n"
 + "<param>¥n<value>" + BlogURL + "</value>¥n</param>¥n"
 + "</params>¥n"
 + "</methodCall>";

var XMLDOMsend = WScript.CreateObject("Microsoft.XMLDOM");
var XMLDOMreceive = WScript.CreateObject("Microsoft.XMLDOM");

XMLDOMsend.async = false;
XMLDOMsend.loadXML(PingBody);

var XMLHTTP = WScript.CreateObject("Microsoft.XMLHTTP");

var msgHeader;

for (var TargetPingURLIndex in PingURLs) 
{
  try
  {
    XMLHTTP.open("POST", PingURLs[TargetPingURLIndex], false);
    XMLHTTP.setRequestHeader("Content-Type","text/xml");
    XMLHTTP.send(XMLDOMsend.xml);
    XMLDOMreceive.async = false;
    XMLDOMreceive.loadXML(XMLHTTP.responseText);
    msgHeader = "Ping打ち込み先 " + PingURLs[TargetPingURLIndex] + ":¥n¥n";
    if (XMLDOMreceive.xml.length > 0 ) 
    {
      WScript.Echo(msgHeader + XMLDOMreceive.xml);
    }
    else 
    {
      WScript.Echo(msgHeader + "失敗なのだ");
    }
  }
  catch(e)
  {
    WScript.Echo("Error: " + msgHeader);
  }
}
WScript.Echo("終了しました。");

HTTP POST に対するタイムアウト設定とか、Ping 打った後のレスポンスのチェックとかやらなければいけないけど、面倒なのでやってない。

関連記事： 続、blog の更新 Ping

VBScriptで書き直したのですが、ping の仕様を誤解してます（汗）