#!/usr/bin/perl

require "MBGD_commonPath.pl";

$SPEC = shift(@ARGV);
foreach $n (@ARGV) {
	$Name{$n} = 1;
}

$orffile   = "$DIR_database/class/$SPEC.class";
$classfile = "$DIR_database/class/$SPEC.cl";

$cmdname = `basename $0`; chop $cmdname;
if ($cmdname eq 'get_categoryname') {
	$return_categoryname = 1;
}

open(FILE, $classfile) || die;
while (<FILE>) {
	chop;
	($class, $name) = split(/\t/);
	if ($return_categoryname) {
		print "$class $name<br>\n" if ($Name{$class});
	}
	$classname{$class} = $name;
}
close(FILE);

exit if ($return_category_name);
open(FILE, $orffile) || die;

while (<FILE>) {
	chop;
	($class, $name) = split(/\t/);
	print "$name $class $classname{$class}\n" if ($Name{$name});
}
close(FILE);
