#!/usr/bin/perl -s

use MBGD;
use MBGD::WWW;
require 'libSeq.pl';
require "MBGD_commonPath.pl";

$| = 1;

$www = new MBGD::WWW();

print "content-type: text/html\n\n" if (!$main::text);

if (!$main::text) {
    print "<HTML>\n";
    print "<PRE>\n";
}

$entnames = join(' ', @ARGV);
if (! $entnames) {
	print "<H2>" if (!$main::text);
	print "No entry is specified";
	print "</H2>" if (!$main::text);
    print "\n";
	exit;
}

$db = MBGD::DB->new;
foreach $ent (@ARGV) {
    my($sp,$name) = split(/:/,$ent);
    $name =~ s/\(\d*\)//;

    my($sql) = "select ps.seq from gene g, proteinseq ps "
             . "where g.sp='$sp' and g.name='$name' and g.aaseq=ps.id";
    my($sth) = $db->execute($sql);
    my($seq) = $sth->fetchrow_array();
    print ">$sp:$name\n";
    print_seq($seq);
}

if (!$main::text) {
    print "</PRE>\n";
    print "</HTML>\n";
}
