source: tags/ms_r17q3/lib/macros/testwl.amc

Last change on this file was 6263, checked in by westram, 14 years ago
  • removed deprecated function GB_get_error() aka get_error() from perl interface
  • Property svn:eol-style set to native
  • Property svn:executable set to *
  • Property svn:keywords set to Author Date Id Revision
File size: 938 bytes
Line 
1#!/usr/bin/perl -w
2use lib "$ENV{'ARBHOME'}/lib/";
3use ARB;
4
5$gb_main = ARB::open(":","r");
6if (! $gb_main ) {
7    $error = ARB::await_error();
8    print ("Error: $error\n");
9    exit 0;
10}
11
12BIO::remote_action($gb_main,"ARB_NT","ARB_NT/SEARCH_SPECIES");
13BIO::remote_awar($gb_main,"ARB_NT","tmp/arbdb_query_0/ere","1");
14BIO::remote_awar($gb_main,"ARB_NT","tmp/arbdb_query_0/ere","0");
15BIO::remote_awar($gb_main,"ARB_NT","tmp/arbdb_query_0/by","2");
16BIO::remote_awar($gb_main,"ARB_NT","tmp/arbdb_query_0/by","1");
17BIO::remote_awar($gb_main,"ARB_NT","tmp/arbdb_query_0/query","a*");
18BIO::remote_awar($gb_main,"ARB_NT","tmp/arbdb_query_0/key","acc");
19BIO::remote_awar($gb_main,"ARB_NT","tmp/arbdb_query_0/key","name");
20BIO::remote_action($gb_main,"ARB_NT","SPECIES_QUERY/SEARCH");
21BIO::remote_action($gb_main,"ARB_NT","SPECIES_QUERY/MARK_LISTED_UNMARK_REST");
22BIO::remote_action($gb_main,"ARB_NT","SPECIES_QUERY/CLOSE");
23ARB::close($gb_main);
Note: See TracBrowser for help on using the repository browser.