#!/usr/local/bin/perl

# hinasort.pl
# Copyright (c) 1998 by TAKu <taku@mail.club.or.jp>
#
# 仕  様：連続した一続きのデータを一つのカテゴリとして認識し、
#         カテゴリ毎にソートします。
# 
# 使い方：hina.shの適当なところに、
#             cat hina.html | $PERL hinasort.pl > index.html
#         みたいな感じで書きます。


while(<>) {
	if(m|<!--HINA|) {
		if(m|<!--HINA_OK (..../../.. ..:..)|) {
			$BUF{$1} .= $_;
		} else {
			$BUF{'0000/00/00 00:00'} .= $_;
		}
	} elsif(m|<!--Connection refused.-->|) {
		;
	} else {
		if(%BUF) {
			foreach (reverse sort keys %BUF) {
				print $BUF{$_};
			}
			undef %BUF;
		}
		print $_;
	}
}
