#!/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 @ Mon Mar 10 14:21:36 2014
BIO::remote_action($gb_main,"ARB_NT","arb_pars");
BIO::remote_action($gb_main,"ARB_PARS","PARS_PROPS/SELECT_FILTER");
BIO::remote_awar($gb_main,"ARB_PARS","tmp/pars/filter/subname"," data\AECOLI");
BIO::remote_action($gb_main,"ARB_PARS","FILTER_SELECT_646076448/tmp/pars/filter/2filter/name");
my $selected = BIO::remote_read_awar($gb_main,"ARB_NT","tmp/focus/species_name");
BIO::remote_awar($gb_main,"ARB_PARS","tmp/pars/filter/2filter/subname",'@data'."\1".$selected);
BIO::remote_action($gb_main,"ARB_PARS","FILTER_SELECT_1995317613/CLOSE");
BIO::remote_action($gb_main,"ARB_PARS","FILTER_SELECT_646076448/CLOSE");
BIO::remote_action($gb_main,"ARB_PARS","PARS_PROPS/GO");
BIO::remote_action($gb_main,"ARB_PARS","add_marked");
BIO::remote_action($gb_main,"ARB_PARS","quit");
# recording stopped @ Mon Mar 10 14:22:17 2014
ARB::close($gb_main);