はてな

■いまいち
今までとは勝手が違うなぁ。
はてなおそいなぁ。
早速だけど、別なサーバに乗り換えようかな。

■しかし
cgiboy にためこんだ日記は2メガを超えていた。
よく書いたな。
2003年から6年くらいか。だいぶかわった。

■cgiboy からの移転用フォーマッタ

#!/usr/bin/perl
$imgdir="http://www2.odn.ne.jp/~utsumi/diary";
open IN, "nkf -w |";

while(<IN>) {
	if(/<SPAN class=c><FONT color=.*>(.*)<\/FONT><\/SPAN>.*(200[\d]),([\d]+),([\d]+)/) {
		print "-----\n" if $open==1;
		print "--------\n" if $open==1;
		printf ("DATE: %02d/%02d/%02d 0:00:00\n", $3, $4, $2);
		print "TITLE: $1\n";
		print "CATEGORY: CGIBOY\n";
		print "ALLOW COMMENTS: 0\n";
		$open=1;
	} elsif (/<div class=mtxt>(.*)<\/div>/) {
		$body=$1;
		$body=~s/<br>/\n/g;
		print "-----\n";
		print "BODY: \n$body\n";
	} elsif (/<IMG src=\"(.*?)\">/) {
		$img=$1;
		@ret=split(/\//,$img);
		print "<img src=\"$imgdir/$ret[$#ret]\">\n";
	}
}
print "-----\n";
print "--------\n";

close IN;