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

View of /FigTutorial/test_subsystem.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (download) (as text) (annotate)
Fri May 1 20:54:58 2009 UTC (10 years, 6 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 driver for the subsystem server

#!/usr/bin/perl -w 

use LWP;
use Data::Dumper;


$ua = new LWP::UserAgent;
$url = "http://bioseed.mcs.anl.gov/~disz/FIG/subsystem_server.cgi";
my $res;


@form = (function=>"subsystem_spreadsheet", name=>"Threonine_and_Homoserine_Biosynthesis");
print "\nSUBSYSTEM-SPREADSHEET\n"; 
print "INPUT\n", &Dumper(@form), "\nOUTPUT\n";

$res = $ua->post($url, \@form);

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

#@form = (function=>"all_subsystems");
#print "\nIS-IN-SUBSYSTEM-WITH\n"; 
#print "INPUT\n", &Dumper(@form), "\nOUTPUT\n";
#
#$res = $ua->post($url, \@form);
#
#if ($res->is_success) {
#	print $res->content;
#} else {
#	print "Error ", $res->content;
#};
#exit;
@form = (function=>"is_in_subsystem_with", id=>"fig|83333.1.peg.145", id=>"fig|83333.1.peg.4");
print "\nIS-IN-SUBSYSTEM-WITH\n"; 
print "INPUT\n", &Dumper(@form), "\nOUTPUT\n";

$res = $ua->post($url, \@form);

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

@form = (function=>"is_in_subsystem", id=>"fig|83333.1.peg.145", id=>"fig|83333.1.peg.4");
print "\nIS-IN-SUBSYSTEM\n"; 
print "INPUT\n", &Dumper(@form), "\nOUTPUT\n";

$res = $ua->post($url, \@form);

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


MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3