use DBI;
use DBD::mysql;
use Bio::SearchIO;

use strict;

our $DB_HOST;
our $DB_USER;
our $DB_PASS;
require '../lib/config.pl';

my $DB_NAME = shift;
my $mtg = shift;
my $orfId = shift;

my $dbh = DBI->connect("DBI:mysql:$DB_NAME:$DB_HOST",$DB_USER,$DB_PASS,{RaiseError => 1});

my (@blastDBs) = ('nr','COG','PFAM');

foreach (@blastDBs){
	my $q = "DELETE FROM blastp_".$_."
		 WHERE	idMontagem=\'$mtg\'	AND
			orfId=\'$orfId\'";
	$dbh->do($q);
}