#!/usr/athena/bin/perl
$/ = "";

if (-e $ARGV[0]) {
    open(DATA, $ARGV[0]);
    @kanji = <DATA>    
}


open(MISSING, ">>missing_kanji");

foreach $item (@kanji) {
    if ($item =~ /[Kk][Aa][Nn][Jj][Ii]\s+(\S{3})(\S)(\S)(\S{3})\s+\S+\s+\S+\s+(\S+)\s*/) {
        $char1 = $2;
	$char2 = $3;
	$kuten1 = (ord($char1) - 32);
	if ($kuten1 !~ /\d\d/) {
            $kuten1 = '0' . $kuten1; }
        $kuten2 = (ord($char2) - 32);
	if ($kuten2 !~ /\d\d/) {
            $kuten2 = '0' . $kuten2; }
	$kuten = $kuten1 . $kuten2;

	$word = join('', $1, $2, $3, $4);
	$fn = $5;

	$item =~ s/$fn/$kuten.xbm/;
	if (-e $fn) {
	    rename($fn, "$kuten.xbm");
	}
	else {
	    print MISSING "$word - $kuten - lesson $ARGV[1]\n";
	}
        print "filename is ", $fn, "\n";
        print "new filename would be ", $kuten, ".xbm\n";
	print "new line would read:\n";
	print $item,"\n";
    }

#    print $item,"\n";
}