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

Annotation of /Sprout/SapServerTest4.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.3 - (view) (download) (as text)

1 : parrello 1.1 ### Test program for Ross's project.
2 :    
3 :     use strict;
4 :     use SeedEnv;
5 :     use Tracer;
6 : parrello 1.2 use Sapling;
7 :     use ALITREserver;
8 : parrello 1.1
9 : parrello 1.2 my ($sap, $sapObject, $altObject);
10 :     if ($ENV{SAS_SERVER} eq 'localhost') {
11 :     $sap = Sapling->new(dbName => 'pubseed_sapling_07', dbhost => 'localhost', port => 3399);
12 :     # $sap = Sapling->new(dbName => 'pseed_sapling_07', dbhost => 'localhost', port => 3333);
13 :     $sapObject = SAPserver->new(sapDB => $sap, url => 'localhost');
14 :     $altObject = ALITREserver->new(sapDB => $sap, url => 'localhost');
15 : parrello 1.3 $FIG_Config::orgCache = "P:/vol/public-pseed/SharedData/OrgCache";
16 : parrello 1.2 } else {
17 :     $sapObject = SAPserver->new();
18 :     $altObject = ALITREserver->new();
19 :     }
20 : parrello 1.3 my @complexes = qw(cpx00078 cpx00084 cpx00069);
21 :     my $retVal = $sapObject->complex_data(-ids => \@complexes,
22 :     -data => ['name', 'reactions', 'roles']);
23 : parrello 1.2 print "All done.\n";
24 : parrello 1.1
25 :     1;

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3