# create instance of BEAST_UPDATE module
my $bdbi = new BEAST_UPDATE();
$bdbi->init('bes', $blast_type, $blast_db, 'all', "");
my $connector = new AAFCBLAST;


for (my $currjob = $startjob; $currjob <= $endjob; $currjob++) {

  $connector->{'job_id'} = $currjob;

  my $query_ids = $connector->getJobQueryIds();

  foreach my $query_id (split ",", $query_ids) {


    print "Getting query result: $query_id of job: ".$connector->{'job_id'}."\n";
    # print $query_id. "\n";;
    my $result = $connector->getQueryResult($query_id);

    my $FH;
    open $FH, "<", \$result;

    my $searchio = new Bio::SearchIO(-format => "blast",
                                     -fh => $FH);

    while (my $o_blast = $searchio->next_result()) {
      my $clone_id = $o_blast->query_name();

      my $statement = $bdbi->form_push_SQL ($o_blast, $clone_id, 5);
      print $statement . "\n";
      #$bdbi->update($statement);
    }

    $FH->close;

  }

}