#!/usr/bin/perl
use strict;
use warnings;

use lib "$ENV{'ARBHOME'}/lib/";
use ARB;

my $gb_main = ARB::open(":","r");
if (not $gb_main) {
  my $error = ARB::await_error();
  die "$error";
}

# recording started @ Fri May 23 13:19:18 2014
BIO::remote_action($gb_main,'ARB_NT','export_seqs');
BIO::remote_awar($gb_main,'ARB_NT','tmp/export/form/file_name',$ENV{ARBHOME}.'lib/export/fasta.eft');
BIO::remote_awar($gb_main,'ARB_NT','tmp/export_db/file/file_name','noname.fasta');
BIO::remote_action($gb_main,'ARB_NT','ARB_EXPORT/GO');
BIO::remote_action($gb_main,'ARB_NT','import_seq');
BIO::remote_awar($gb_main,'ARB_NT','tmp/import/pattern/file_name','noname.fasta');
BIO::remote_action($gb_main,'ARB_NT','ARB_IMPORT/AUTO_DETECT');
BIO::remote_action($gb_main,'ARB_NT','ARB_IMPORT/GO');
BIO::remote_awar($gb_main,'ARB_NT','tmp/dbquery_spec/ere','2');
BIO::remote_awar($gb_main,'ARB_NT','tmp/dbquery_spec/by','2');
BIO::remote_awar($gb_main,'ARB_NT','tmp/dbquery_spec/by','1');
BIO::remote_action($gb_main,'ARB_NT','SPECIES_QUERY/SEARCH_spec');
