#!/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 @ Wed Apr 10 12:48:38 2013
BIO::remote_action($gb_main,"ARB_NT","ARB_NT/SEARCH");
BIO::remote_action($gb_main,"ARB_NT","SPECIES_QUERY/SEARCH_spec");
BIO::remote_action($gb_main,"ARB_NT","macros");
# recording stopped @ Wed Apr 10 12:48:46 2013
# recording resumed @ Wed Apr 10 15:04:24 2013
BIO::remote_action($gb_main,"ARB_NT","ARB_NT/EDIT_SEQUENCES");
# recording stopped @ Wed Apr 10 15:05:04 2013
# recording resumed @ Wed Apr 10 16:18:58 2013
BIO::remote_action($gb_main,"ARB_NT","arb_dist");
# recording stopped @ Wed Apr 10 16:19:24 2013
# recording resumed @ Wed Apr 10 16:19:56 2013
BIO::remote_action($gb_main,"ARB_DIST","NEIGHBOUR_JOINING/DETECT_CLUSTERS");
BIO::remote_awar($gb_main,"ARB_DIST","dist/cluster/maxdist","30");
BIO::remote_action($gb_main,"ARB_DIST","DETECT_CLUSTERS/CALC");
# recording stopped @ Wed Apr 10 16:20:08 2013
# recording resumed @ Wed Apr 10 16:31:07 2013
BIO::remote_awar($gb_main,"ARB_NT","tmp/dbquery_spec/select","TheAcido");
BIO::remote_awar($gb_main,"ARB_NT","tmp/dbquery_spec/by","0");
BIO::remote_action($gb_main,"ARB_NT","SPECIES_QUERY/SEARCH_spec");
BIO::remote_awar($gb_main,"ARB_NT","tmp/dbquery_spec/select","StpGrise");
BIO::remote_awar($gb_main,"ARB_NT","tmp/dbquery_spec/by","1");
BIO::remote_action($gb_main,"ARB_NT","SPECIES_QUERY/SEARCH_spec");
# recording stopped @ Wed Apr 10 16:31:50 2013
# recording resumed @ Wed Apr 10 15:05:56 2013
BIO::remote_action($gb_main,"ARB_EDIT4","ARB_EDIT4/SECEDIT");
# recording stopped @ Wed Apr 10 15:06:59 2013
ARB::close($gb_main);
