#!/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 Mar 21 11:09:35 2014
BIO::remote_action($gb_main,'ARB_NT','ClustalW DNA Alignment (slow & accurate)');
BIO::remote_awar($gb_main,'ARB_NT','gde/Align/ClustalW_DNA_Alignment_slow__accurate/PWDNAMATRIX','CLUSTALW');
BIO::remote_awar($gb_main,'ARB_NT','gde/Align/ClustalW_DNA_Alignment_slow__accurate/PWDNAMATRIX','IUB');
BIO::remote_awar($gb_main,'ARB_NT','gde/Align/ClustalW_DNA_Alignment_slow__accurate/PWGOP','15');
BIO::remote_awar($gb_main,'ARB_NT','gde/Align/ClustalW_DNA_Alignment_slow__accurate/PWGEP','6.67');
BIO::remote_awar($gb_main,'ARB_NT','gde/Align/ClustalW_DNA_Alignment_slow__accurate/PWGEP','6.66');
BIO::remote_awar($gb_main,'ARB_NT','gde/Align/ClustalW_DNA_Alignment_slow__accurate/TRANSWEIGHT','0.55');
BIO::remote_awar($gb_main,'ARB_NT','gde/Align/ClustalW_DNA_Alignment_slow__accurate/TRANSWEIGHT','0.5');
BIO::remote_awar($gb_main,'ARB_NT','gde/Align/ClustalW_DNA_Alignment_slow__accurate/GOP','16');
BIO::remote_awar($gb_main,'ARB_NT','gde/Align/ClustalW_DNA_Alignment_slow__accurate/GOP','15');
BIO::remote_action($gb_main,'ARB_NT','GDE__Align__ClustalW_DNA_Alignment_slow__accurate/GO');
