[Bio] / FigTutorial / test_member.pl Repository:
ViewVC logotype

View of /FigTutorial/test_member.pl

Parent Directory Parent Directory | Revision Log Revision Log

Revision 1.1 - (download) (as text) (annotate)
Fri May 1 20:32:38 2009 UTC (10 years, 8 months ago) by disz
Branch: MAIN
CVS Tags: rast_rel_2009_05_18, rast_rel_2014_0912, rast_rel_2010_0928, rast_rel_2009_0925, rast_rel_2010_0827, rast_rel_2014_0729, rast_rel_2009_07_09, myrast_33, rast_rel_2011_0928, rast_rel_2010_0526, rast_rel_2010_1206, rast_rel_2010_0118, rast_rel_2011_0119, HEAD
test scripts for the streaming figfam server

#!/usr/bin/perl -w 
use strict;
use LWP::UserAgent;
use HTTP::Request::Common;
use Getopt::Long;
use File::Basename;
use Data::Dumper;

my $ua = new LWP::UserAgent;
#my $url = "http://bio-macpro-1.mcs.anl.gov/~disz/FIG/test_server.cgi";
my $url = "http://bio-macpro-1.mcs.anl.gov/~disz/FIG/figfam_server_1.cgi";

#MEMBERS-OF-FAMILIES takes as input a list of FIGfam IDs.  The
#       output is a list of functions for those families
#       (INVALID-FAMILY will be returned for IDs that do not correspond
#       to an active family), as well as a list of the IDs in each family.

my @form = (id=>"FIG000001", id=>"FIG000002");

my $res = $ua->post($url."?function=members_of_families", \@form);

if ($res->is_success) {
        print $res->content;
} else {
        print "Error ", $res->content;

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3