#! /usr/bin/perl
# for Mac OS X (sjis) by Makoto Hiroshige 2003.05.11
#
#

open( DEF, "adddates_def.txt" ) || die "Can't open \"adddates_def.txt\".\n";
while(<DEF>) {
    chop;
    next if /^#/; # skip Comment Line
    next if /^$/; # skip Empty Line
    ($grdate,$paidy) = split;
}
close(DEF);

# print "$grdate .... $paidy\n";

open( IDFILE, "ID.add.lf" ) || die "Can't open \"ID.add.lf\".\n";
open( ENTLOG, ">entlog.txt" ) || die "Can't create \"entlog.txt\".\n";
open( BOOKADD, ">book_add.txt" ) || die "Can't create \"book_add.txt\".\n";

while(<IDFILE>) {
    chop;
    ($id,$name,$furigana,$kind) = split(/\t/);
    $name =~ s/ +//g; # delete 1byte space
    $name =~ s/(\x81\x40)+//g;  # delete 2bytes space sjis

    print ENTLOG "$grdate\t$id\t$name\t入会\t支払済初期値:\t$paidy\n";
    print BOOKADD "$id\t$paidy\n";
}

close ENTLOG;
close BOOKADD;
close IDFILE;