[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.2, Wed Sep 21 21:05:15 2011 UTC revision 1.5, Mon Jan 16 20:05:49 2012 UTC
# Line 8  Line 8 
8    
9      my ($sap, $sapObject, $altObject);      my ($sap, $sapObject, $altObject);
10      if ($ENV{SAS_SERVER} eq 'localhost') {      if ($ENV{SAS_SERVER} eq 'localhost') {
11          $sap = Sapling->new(dbName => 'pubseed_sapling_07', dbhost => 'localhost', port => 3399);          $sap = Sapling->new(dbName => 'pubseed_sapling_10', dbhost => 'localhost', port => 3333);
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";
16            $FIG_Config::attrHost = "localhost";
17            $FIG_Config::attrPort = 3333;
18      } else {      } else {
19          $sapObject = SAPserver->new();          $sapObject = SAPserver->new();
20          $altObject = ALITREserver->new();  #        $altObject = ALITREserver->new();
21      }      }
22      my @roles = ('Acetate kinase (EC 2.7.2.1)', 'D-glucarate permease');      my $start = time;
23      my $roleHash = $sapObject->role_reactions(-ids => \@roles, -formulas => 1);      my $result = $sapObject->ids_to_publications(-ids => 'fig|83333.1.peg.4');
24      my $roleHash2 = $sapObject->roles_to_complexes(-ids => \@roles);      my $duration = time - $start;
25      print "All done.\n";      print "$duration seconds\n";
   
26  1;  1;

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.5

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3