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

Diff of /FigKernelPackages/SSserver.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.4, Fri Jun 19 17:30:02 2009 UTC revision 1.5, Fri Jun 19 17:47:59 2009 UTC
# Line 15  Line 15 
15  {  {
16      my($class, $server_url) = @_;      my($class, $server_url) = @_;
17    
18      $server_url = "http://servers.nmpdr.org/subsystem/server.cgi" unless $server_url;  #    $server_url = "http://servers.nmpdr.org/subsystem/server.cgi" unless $server_url;
19      #$server_url = "http://bio-macpro-1.mcs.anl.gov/~disz/FIG/subsystem_server.cgi" unless $server_url;      $server_url = "http://bio-macpro-2.mcs.anl.gov/~disz/FIG/subsystem_server_sapling.cgi" unless $server_url;
20      #$server_url = "http://bio-macpro-1.mcs.anl.gov/ross-proj/FIG/co_occurs_server.cgi" unless $server_url;      #$server_url = "http://bio-macpro-1.mcs.anl.gov/ross-proj/FIG/co_occurs_server.cgi" unless $server_url;
21    
22      my $self = {      my $self = {
23          server_url => $server_url,          server_url => $server_url,
24          ua => LWP::UserAgent->new(),          ua => LWP::UserAgent->new(),
25      };      };
26        $self->{ua}->timeout(30*60);
27      return bless $self, $class;      return bless $self, $class;
28  }  }
29    
# Line 46  Line 47 
47  }  }
48    
49    
50    sub metabolic_reconstruction {
51            my ($self, @args) = @_;
52            return $self->run_query("metabolic_reconstruction", @args);
53    }
54    
55  sub run_query  sub run_query
56  {  {
57      my($self, $function, @args ) = @_;      my($self, $function, @args ) = @_;
# Line 57  Line 63 
63              my $res = $self->{ua}->post($self->{server_url}, $form);              my $res = $self->{ua}->post($self->{server_url}, $form);
64              if ($res->is_success)              if ($res->is_success)
65              {              {
 #print "Content ", $res->content, "\n";  
66                  return Load($res->content);                  return Load($res->content);
67              }              }
68              else              else

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3