#! /usr/bin/perl
#
#  Sum up idx files for HUSO OB webpages.   by Makoto Hiroshige
#   ( in reverse order i.e., new -> old )
#
#     99-01-04
#

#
# Colors
#
$bg_color = "#ffe6cc";
$title_bgcolor = "#ffcc99";

#
# Output OUT file header
#
print <<"End of Header";



  




  

  

    
     OB会通信 エッセイ集 
    
  
  


現在までに発行された「OB 会通信」に掲載されたエッセイです。
現在 No.40 以降が掲載されています。
このインデックスでは、新しいものから順\に\表\示\されています。



文章中の記述内容や連絡先等は、いずれも発行当時のものです。
現在は変更になっている\可\能\性\がありますのでご注意下さい。

データの一部は、東 高志 さん (Cla,H6入,H8年度OB会事務局長) から
ご提供いただきました。ありがとうございました。



End of Header

@ARGV = reverse sort @ARGV;

while (<>) {
    die "Filename must be essayXXidx.htm."
	unless $ARGV =~ /^essay\d\didx.htm$/;
    print;
}

#
# Output file footer
#
print <<"End of footer";




End of footer