#!/usr/arb/bin/perl -w
use lib "$ENV{'ARBHOME'}/lib/";
use ARB;

$gb_main = ARB::open(":","r");
if (! $gb_main ) {
    $error = ARB::get_error();
    print ("$error\n");
    exit 0;
}

BIO::remote_action($gb_main,"ARB_NT","ARB_NT/save_all_as");
BIO::remote_action($gb_main,"ARB_NT","ARB_NT/optimize_db");
BIO::remote_action($gb_main,"ARB_NT","ARB_NT/import_seq");
BIO::remote_action($gb_main,"ARB_NT","ARB_NT/Import Sequences in Foreign Format (using readseq: slow !!) ...");
BIO::remote_action($gb_main,"ARB_NT","ARB_NT/Test arb_jim ...");
BIO::remote_action($gb_main,"ARB_NT","ARB_NT/export_to_ARB");
BIO::remote_action($gb_main,"ARB_NT","ARB_NT/export_seqs");
BIO::remote_action($gb_main,"ARB_NT","ARB_NT/export_nds");
BIO::remote_action($gb_main,"ARB_NT","ARB_NT/Export Sequences only to Foreign Format (using readseq: slow) ...");
BIO::remote_action($gb_main,"ARB_NT","ARB_NT/print_tree");
BIO::remote_action($gb_main,"ARB_NT","ARB_NT/Pretty Print Sequences (slow) ...");
BIO::remote_action($gb_main,"ARB_NT","ARB_NT/registration");
BIO::remote_action($gb_main,"ARB_NT","ARB_NT/bug_report");
ARB::close($gb_main);