source: trunk/se/lu/thep/webservices_clients/test.pl @ 275

#! /usr/bin/perl -w

# $Id: test.pl 260 2007-04-20 16:30:44Z jari $

use BaseWebService;
use strict;
use Data::Dumper;

#############################################################
#
# This is small script to test the BaseWebService.pm module
#
#############################################################

# Create the BaseWebService object
my $obj = BaseWebService->new(baseUrl => 'http://base2.thep.lu.se:8080/demo');
my $sessionID = $obj->sessionID();
print "Session ID = $sessionID \n";

# Login, change to fit your account
#$obj->login('userid', 'password');
$obj->login('base2', 'base2');

# Get all the projects
my $projs = $obj->getProjects();
print "List of Projects:\n";
foreach my $proj (@{$projs}) {
    print "Id         : ", $proj->{id}, "\n";
    print "Name       : ", $proj->{name}, "\n";
    print "Description: ", 
    ($proj->{description} ? '' : defined($proj->{description})), "\n\n";
}    
# Make an array of all project ID's
my @projID = map { $_->{id} } @{$projs};


# Set active project. This is an important step, since 
# you have to have your project in an active state.
# Here I simply select the first project ID.
$obj->setActiveProject($projID[0]);

# Get a listing of all experiments (At the moment you get a list of all 
# experiments, unfortunately not only for the active project.
my $exps = $obj->getExperiments(); 

print "List of Experiments:\n";
foreach my $exp (@{$exps}) {
    print "Id         : ", $exp->{id}, "\n";
    print "Name       : ", $exp->{name}, "\n";
    print "Description: ", 
    ($exp->{description} ? '' :  defined($exp->{description})), "\n\n";
}    

# Make an array of all experiment ID's
my @expID = map { $_->{id} } @{$exps};

# Call the getRawBioAssays for the first one (if you have any)
if( @expID ) {
    my $useExpID = $expID[0];
    print "Raw bioassays for experiment with ID = $useExpID\n";
    my $files = $obj->getRawBioAssays_by_expID($useExpID);
    foreach my $file (@$files) {
  print "celfile: $file->{celFile} (design = $file->{cdfFile})\n";
    }

    # Download all files to the local directory. Uncomment to apply!
    #$obj->downloadRawBioAssays($files, './');
}

# Here you can download all files at once given an experiment ID
#if( @expID ) {
#    $obj->downloadRawBioAssays_by_expID($expID[0], './tmp');
#}

# Logout
$obj->logout();