#!/usr/bin/perl -s
use MBGD;
require 'MBGD_Conf.pl';

$dbname = $MYSQL_DBACCUM if (! $dbname);
print "delete from $dbname: @ARGV\n";
print "OK?";
$ans = <STDIN>;
exit if ($ans !~ /^y/i);

$db = MBGD::DB->new($dbname);
foreach $sp (@ARGV) {
	$chrid = 0;
	if ($sp =~ /:/) {
		($sp, $chrid) = split(/:/, $sp);
	}
	if ($chrid) {
		$db->execute("delete from chromosome where sp = '$sp' and id=$chrid");
		$db->execute("delete from gene where sp = '$sp' and chrid=$chrid");
	} else {
		$db->execute("delete from genome where sp = '$sp'");
		$db->execute("delete from chromosome where sp = '$sp'");
		$db->execute("delete from gene where sp = '$sp'");
	}
}
