#!/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 @ Thu May  8 14:17:08 2014
BIO::remote_action($gb_main,'ARB_NT','nds');
BIO::remote_awar($gb_main,'ARB_NT','tmp/viewkeys/viewkey_0/leaf','0');
BIO::remote_awar($gb_main,'ARB_NT','tmp/viewkeys/viewkey_2/leaf','0');
BIO::remote_awar($gb_main,'ARB_NT','tmp/viewkeys/viewkey_3/leaf','0');
BIO::remote_awar($gb_main,'ARB_NT','tmp/viewkeys/viewkey_4/leaf','0');
BIO::remote_awar($gb_main,'ARB_NT','tmp/viewkeys/viewkey_5/leaf','0');
BIO::remote_awar($gb_main,'ARB_NT','tmp/viewkeys/viewkey_6/leaf','0');
BIO::remote_awar($gb_main,'ARB_NT','tmp/viewkeys/viewkey_7/leaf','0');
BIO::remote_awar($gb_main,'ARB_NT','tmp/viewkeys/viewkey_8/leaf','0');
BIO::remote_awar($gb_main,'ARB_NT','tmp/viewkeys/viewkey_9/leaf','0');
BIO::remote_awar($gb_main,'ARB_NT','tmp/viewkeys/viewkey_1/key_text','nam');
BIO::remote_action($gb_main,'ARB_NT','NDS_PROPS/SELECT_NDS_2');
BIO::remote_action($gb_main,'ARB_NT','SELECT_SPECIES_FIELD/CLOSE');
# BIO::remote_action($gb_main,'ARB_NT','macros');
# recording stopped @ Thu May  8 14:18:04 2014
ARB::close($gb_main);
