#!/usr/bin/perl -s

use MBGD;
require "MBGD_Conf.pl";

foreach $entname (@ARGV) {
	($sp,$name) = split(/:/, $entname);
	if ($sp eq 'sp') {
		($name,$sp) = split(/_/, $name);
	}
	if ($SPECDATA{$sp}) {
		$SPECDATA{$sp} .= ","
	} else {
		push(@SPEC, $sp);
	}
	$SPECDATA{$sp} .= "'$name'";
}

my $where;
foreach $sp (@SPEC) {
	$where .= " or " if ($where);
	$where .= "(sp='$sp' and name in ($SPECDATA{$sp}))";
}

my($dbname);
$dbname = $ENV{'MYSQL_DB'};
$db = MBGD::DB->new($dbname);

my($tab, $opt);
$tab = "gene";
$opt->{'columns'} = "sp, name, descr";
$opt->{'where'} = "$where";

my($res) = $db->select_fetch($tab, $opt);
my($ent);
foreach $ent (@{$res->{'INFO'}}) {
    print $ent->{'sp'}, ":", $ent->{'name'}, "\t", $ent->{'descr'}, "\n";
}

