_ 健康診断

午前中に。この日のために、最近は早寝を……してないな。 視力が両眼とも 0.6 でちょっとやばめ。いい歳になったということで、 今年は採血と心電図も。最近の採血って、針を挿したまま、注射器のカートリッジ?を入れ替えられるんすね。 注射といえば inject とか考えてるうちに手際よく終わっちゃいました。

_ [webwml] tarball for webwml

fjp さんが、pserver なコミッタ向けに最新の webwml の tarball を提供してくれています。 が、なぜか CVS ディレクトリがないので、copypage.pl とかできません。ちゅうわけで、まとめてとってくるスクリプト。 動作未確認。

#!/usr/bin/ruby1.8
require "find"
require "open-uri"

VIEWCVS = "http://cvs.debian.org/"
QUERY = "?cvsroot=webwml"
WML_REV_RE = %r!/([^/]+)\?rev=(1\.\d+)&root=webwml&view=auto!
# your politeness
WAIT = 10

Find.find("webwml") do |dir|
  Find.prune if /CVS/ === dir
  Dir.chdir(dir) do
    Dir.mkdir("CVS") unless FileTest.exist?("CVS")
    File.open("CVS/Entries", "w") do |entries|
      open(VIEWCVS + dir + QUERY) do |index|
        index.read.scan(WML_REV_RE).sort_by{|wml, | wml}.each do |wml_rev|
          entries.puts "/%s/%s/dummy timestamp//" % wml_rev
        end
      end
      entries.puts "D"
    end
  end
  sleep(rand(WAIT) + WAIT)
end