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

View of /Sprout/SapServerTest4.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.8 - (download) (as text) (annotate)
Tue May 20 18:15:09 2014 UTC (5 years, 5 months ago) by parrello
Branch: MAIN
CVS Tags: rast_rel_2014_0912, rast_rel_2014_0729, HEAD
Changes since 1.7: +10 -21 lines
CDMI and Sprout load fixes. Locations fixes.

### Test program for Ross's project.

use strict;
use SeedEnv;
use Tracer;
use Sapling;
use ScriptThing;
use Data::Dumper;

    my ($sap, $sapObject, $altObject);
    if ($ENV{SAS_SERVER} eq 'localhost') {
        $sap = Sapling->new(dbName => 'pubseed_sapling_14', dbhost => 'localhost', port => 3333);
#        $sap = Sapling->new(dbName => 'pseed_sapling_07', dbhost => 'localhost', port => 3333);
        $sapObject = SAPserver->new(sapDB => $sap, url => 'localhost');
        $FIG_Config::orgCache = "P:/vol/public-pseed/SharedData/OrgCache";
        $FIG_Config::attrHost = "localhost";
        $FIG_Config::attrPort = 3333;
    } else {
        $sapObject = SAPserver->new();
    }
#

my $result;

my @tuples = (['fig|83333.1.peg.10']);
my %comments = ScriptThing::CommentHash(\@tuples);
$result = $sapObject->upstream( { -ids => $tuples[0],
                           -size => 200, -fasta => 1,  
                           -comments => \%comments,
                           -skipGene => ''
                         }
                       );

print Dumper( $result );


MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3