tDiary

たむらです。
一部で盛りあがっている *rium ですが、
webrium(http://www.persistent.org/hiki/hiki.cgi?webrium) の実装を推理しつつ、
WSH + JScript で tDiary関連のサイトサムネイルを利用した tDiariumを作ってみました。

* screenshot
http://www.rubyist.net/~tamura/img/tdiarium/

必要なものは、
* url2bmp http://www.pixel-technology.com/freeware/url2bmp/english/index.html
* パクリウムZ http://wiss.org/hiki/?%A5%D1%A5%AF%A5%EA%A5%A6%A5%E0Z
Photorium http://sappari.org/hiki/hiki.cgi?Photorium でも可。

background.jpg とか、もっとカッコイイのがいいなぁ。
全部CGIにしたいんだけど、サイトサムネイルがネックで。
いいアイデアありませんかねぇ。

/* tdiarium.js
   tDiary site thumbnail show like aquarium.
   you need 
     :url2bmp
     ((<http://www.pixel-technology.com/freeware/url2bmp/english/index.html>))
     :PakuriumZ
     ((<http://wiss.org/hiki/?%A5%D1%A5%AF%A5%EA%A5%A6%A5%E0Z>))
   copy url2bmp.exe and PakuriumZ.swf, background.jpg to same directory.
   This script get tdiary.lirs via network.
 */

function get_lirs(url)
{
  var xmlhttp = new ActiveXObject("Microsoft.XMLHTTP");
  try
  {
    xmlhttp.open("GET", url, false);
    xmlhttp.setRequestHeader("Pragma", "no-cache");
    xmlhttp.setRequestHeader("Cache-Control", "no-cache");
    xmlhttp.send();
  }catch(e){
    throw new Error(0, "Error(Get via HTTP)");
  }
  if(200 != xmlhttp.status)
  {
    throw new Error(0, xmlhttp.statusText);
  }
  return xmlhttp.responseText;
}

function capture(url2bmp, url, basename)
{
  var shell = new ActiveXObject("WScript.Shell");
  var x = "920"; var y = "740";
  try
  {
    shell.Run(url2bmp + " -format jpeg -file " + basename + ".jpg " +
                        " -wx " + x + " -wy " + y + " -notinteractive " +
                        " -bx " + x + " -by " + y + " -removesb " +
                        " -url " + url );
  }catch(e){
    throw new Error(0, "Error(Exec url2bmp.exe)");
  }
}
function main()
{
  var curpath = WScript.ScriptFullName.replace(RegExp(WScript.ScriptName), "")
  var url2bmp = curpath + "url2bmp.exe";

  // create site thumbs 
  var count = 8; var buff = "";
  var lirs = "http://www.tdiary.net/tdiary.lirs";
  var urls = get_lirs(lirs).match( /http:\/\/[^,]+/g );
  for ( i=0; i < count; i++)
  {
    capture(url2bmp, urls[i], i); 
    buff = buff + i.to_s + ".jpg\n";
  }
  // write photo.txt
  var fs = new ActiveXObject("Scripting.FileSystemObject");
  var f = fs.CreateTextFile("photo.txt", true);
  f.write(buff);
  f.close;

  WScript.sleep(3000);

  // launch IE 
  var ie = new ActiveXObject("InternetExplorer.Application");
  ie.visible = true;
  ie.navigate2(curpath + "PakuriumZ.swf");
  ie.theatermode = true;  // KIOSK mode 
                          // http://member.nifty.ne.jp/aya/wsh/wsh15.htm
}
main();

// special thanks to http://member.nifty.ne.jp/aya/
// set vim:ft=javascript

ちなみに、tdiary.lirs で更新されてます？
実は screenshot は家に帰ってから作ったので、Linuxで作りますた (^^;

-- 

たむら (http://www.rubyist.net/~tamura/d/)


-- 

たむら (http://www.rubyist.net/~tamura/d/)