[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.6, Wed Jun 24 16:24:24 2009 UTC
# Line 16  Line 16 
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-big.mcs.anl.gov/server/FIG/subsystem_server_sapling.cgi" unless $server_url;
21    
22      #$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;
23    
24      my $self = {      my $self = {
25          server_url => $server_url,          server_url => $server_url,
26          ua => LWP::UserAgent->new(),          ua => LWP::UserAgent->new(),
27      };      };
28        $self->{ua}->timeout(30*60);
29      return bless $self, $class;      return bless $self, $class;
30  }  }
31    
# Line 46  Line 49 
49  }  }
50    
51    
52    sub metabolic_reconstruction {
53            my ($self, @args) = @_;
54            return $self->run_query("metabolic_reconstruction", @args);
55    }
56    
57  sub run_query  sub run_query
58  {  {
59      my($self, $function, @args ) = @_;      my($self, $function, @args ) = @_;
# Line 57  Line 65 
65              my $res = $self->{ua}->post($self->{server_url}, $form);              my $res = $self->{ua}->post($self->{server_url}, $form);
66              if ($res->is_success)              if ($res->is_success)
67              {              {
 #print "Content ", $res->content, "\n";  
68                  return Load($res->content);                  return Load($res->content);
69              }              }
70              else              else

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3