source: tags/initial/lib/macros/test.amc

Last change on this file was 2, checked in by oldcode, 24 years ago

Initial revision
  • Property svn:eol-style set to native
  • Property svn:executable set to *
  • Property svn:keywords set to Author Date Id Revision
File size: 888 bytes
Line 
1#!/usr/arb/bin/perl
2use lib "$ENV{'ARBHOME'}/lib/";
3use ARB;
4
5$gb_main = ARB::open(":","r");
6if (! $gb_main ) {
7    $error = ARB::get_error();
8    print ("$error\n");
9    exit 0;
10}
11
12BIO::remote_action($gb_main,"ARB_NT","ARB_NT/unmark_all");
13BIO::remote_action($gb_main,"ARB_NT","ARB_NT/SEARCH_SPECIES");
14BIO::remote_awar($gb_main,"ARB_NT","tmp/arbdb_query_0/query","Bacillus");
15BIO::remote_awar($gb_main,"ARB_NT","tmp/arbdb_query_0/query","*Bacillus*");
16BIO::remote_action($gb_main,"ARB_NT","SPECIES_QUERY/SEARCH");
17BIO::remote_awar($gb_main,"ARB_NT","tmp/arbdb_query_0/query","Bacillus*");
18BIO::remote_action($gb_main,"ARB_NT","SPECIES_QUERY/SEARCH");
19BIO::remote_awar($gb_main,"ARB_NT","tmp/arbdb_query_0/key","full_name");
20BIO::remote_action($gb_main,"ARB_NT","SPECIES_QUERY/SEARCH");
21BIO::remote_action($gb_main,"ARB_NT","SPECIES_QUERY/MARK_LISTED_UNMARK_REST");
22ARB::close($gb_main);
Note: See TracBrowser for help on using the repository browser.