[Bio] / Sprout / SapServerTest4.pl Repository:
ViewVC logotype

Diff of /Sprout/SapServerTest4.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3, Sat Oct 1 10:35:02 2011 UTC revision 1.4, Mon Oct 3 20:34:51 2011 UTC
# Line 11  Line 11 
11          $sap = Sapling->new(dbName => 'pubseed_sapling_07', dbhost => 'localhost', port => 3399);          $sap = Sapling->new(dbName => 'pubseed_sapling_07', dbhost => 'localhost', port => 3399);
12  #        $sap = Sapling->new(dbName => 'pseed_sapling_07', dbhost => 'localhost', port => 3333);  #        $sap = Sapling->new(dbName => 'pseed_sapling_07', dbhost => 'localhost', port => 3333);
13          $sapObject = SAPserver->new(sapDB => $sap, url => 'localhost');          $sapObject = SAPserver->new(sapDB => $sap, url => 'localhost');
14          $altObject = ALITREserver->new(sapDB => $sap, url => 'localhost');  #        $altObject = ALITREserver->new(sapDB => $sap, url => 'localhost');
15          $FIG_Config::orgCache = "P:/vol/public-pseed/SharedData/OrgCache";          $FIG_Config::orgCache = "P:/vol/public-pseed/SharedData/OrgCache";
16      } else {      } else {
17          $sapObject = SAPserver->new();          $sapObject = SAPserver->new();
18          $altObject = ALITREserver->new();  #        $altObject = ALITREserver->new();
19      }      }
20      my @complexes = qw(cpx00078 cpx00084 cpx00069);      my $genomes = $sapObject->all_genomes();
21      my $retVal = $sapObject->complex_data(-ids => \@complexes,      print scalar(keys %$genomes) . " genomes found.\n";
         -data => ['name', 'reactions', 'roles']);  
     print "All done.\n";  
22    
23  1;  1;

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3