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

Annotation of /Sprout/SapServerTest4.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.8 - (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 : parrello 1.8 use ScriptThing;
8 :     use Data::Dumper;
9 : parrello 1.1
10 : parrello 1.2 my ($sap, $sapObject, $altObject);
11 :     if ($ENV{SAS_SERVER} eq 'localhost') {
12 : parrello 1.8 $sap = Sapling->new(dbName => 'pubseed_sapling_14', dbhost => 'localhost', port => 3333);
13 : parrello 1.2 # $sap = Sapling->new(dbName => 'pseed_sapling_07', dbhost => 'localhost', port => 3333);
14 :     $sapObject = SAPserver->new(sapDB => $sap, url => 'localhost');
15 : parrello 1.3 $FIG_Config::orgCache = "P:/vol/public-pseed/SharedData/OrgCache";
16 : parrello 1.5 $FIG_Config::attrHost = "localhost";
17 :     $FIG_Config::attrPort = 3333;
18 : parrello 1.2 } else {
19 :     $sapObject = SAPserver->new();
20 :     }
21 : parrello 1.7 #
22 :    
23 :     my $result;
24 :    
25 : parrello 1.8 my @tuples = (['fig|83333.1.peg.10']);
26 :     my %comments = ScriptThing::CommentHash(\@tuples);
27 :     $result = $sapObject->upstream( { -ids => $tuples[0],
28 :     -size => 200, -fasta => 1,
29 :     -comments => \%comments,
30 :     -skipGene => ''
31 : parrello 1.7 }
32 :     );
33 :    
34 : parrello 1.8 print Dumper( $result );
35 : parrello 1.7

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3