[Bio] / FigKernelPackages / FBAMODELserver.pm Repository:
ViewVC logotype

Annotation of /FigKernelPackages/FBAMODELserver.pm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.5 - (view) (download) (as text)

1 : chenry 1.1 #
2 :     # This is a SAS Component
3 :     #
4 :    
5 :     package FBAMODELserver;
6 :    
7 :     use strict;
8 :     use base qw(ClientThing);
9 :    
10 :     sub new {
11 : parrello 1.3 my($class, @options) = @_;
12 :     my %options = ClientThing::FixOptions(@options);
13 : chenry 1.1 if (!defined($options{url})) {
14 : chenry 1.5 #Currently, the model server is found in only one location
15 :     $options{url} = "http://pubseed.theseed.org/model-prod/FBAMODEL_server.cgi";
16 :     #$options{url} = ClientThing::ComputeURL($options{url}, 'FBAMODEL_server.cgi', 'model-prod');
17 : chenry 1.1 }
18 : chenry 1.5 #$options{url} =~ s/\/server\.cgi$/\/FBAMODEL_server.cgi/; # switch /server.cgi to /FBAMODEL_server.cgi
19 :     return $class->SUPER::new("ModelSEED::FBAMODEL" => %options);
20 : chenry 1.1 }
21 :    
22 :     1;

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3