[debian-users:04273] Re: debian-jp archive

[Araki Yasuhiro 荒木靖宏 <yasuhi-a-debian-users@xxxxxxxxxxxxxxxxxxxxx>]

あらきです。
御指摘どうもです。

#結局やるやると言っててほったらかしてたのを
#やりました。
#他人に言われないとめんちゃいことはほったらかす。。

From: YOSHIDA Ken-ichi/吉田健一 <5hed@xxxxxxxxxxxxxxxxxxxxxxxxxxxxx>

>   よしだと申します。
>   http://www.mew.org/ 以下のML検索を便利に使わせていただいています m(_)m

>   さて，http://www.linux.or.jp/~ukai/debian/topics-ml-46.html などから
> www.mew.org のアーカイブに飛ぶときに気がついたんですが，ファイル名とML
> のカウンタとが一致していないようです。
>   例えば，http://www.mew.org/archive/debian-users/1/msg02925.htmlの中
> 身が [debian-users: 03004]になっています。
> ＃メールがが9本抜けてることになるんでしょうか。

例によって、sort.?????.html という名前にしたものをリンクするように
しました。
http://www.mew.org/archive/debian-users/1/sort.00001.html
のようになります。
鵜飼さんごめんなさい。。おわびにいい加減なスクリプトをつけます。
debugのprint文だらけですけど。
---
 (yasu@debian.or.jp)     でびでびあんあん、でびあんあん♪
 あらき@ないすと http://fukuda.aist-nara.ac.jp/~yasuhi-a/    


#!/usr/local/bin/perl5

while(<>) {
    if (/^<strong><A NAME=/) {
	if (/debian-users:\d\d\d\d\d/) {
	    @COUNT = split(/(\"|:|\[|\]|\s)/, $_);
#	print "@COUNT[6]\n"; print "@COUNT[12]\n";
#	$realfile = @COUNT[10];
#	$seqnum = @COUNT[16];
#	print "$realfile seq is $seqnum\n";
	$SEQ{"@COUNT[10]"} = "@COUNT[16]";
#	$seqfile = $SORTDIR.@COUNT[12];
	$seqfile = "sort.@COUNT[16].html";
#	print "$seqfile\n";
#	print "file exist\n" if -e $seqfile;
	    if (-e $seqfile) {
		print "file exist. skip $seqfile\n";
		next;
	    } else {
		symlink("@COUNT[10]", "$seqfile");
	    }
	    print "@COUNT[10] is $SEQ{@COUNT[10]}\n";
	}
    }
}

# print "msg00001.html is $SEQ{'msg00001.html'}\n";