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

Diff of /FigKernelPackages/ACHserver.pm

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

revision 1.2, Wed May 13 20:03:06 2009 UTC revision 1.3, Mon May 18 17:00:00 2009 UTC
# Line 11  Line 11 
11  {  {
12      my($class, $server_url) = @_;      my($class, $server_url) = @_;
13    
14      $server_url = "http://bio-macpro-2.mcs.anl.gov/~disz/FIG/ach_server.cgi" unless $server_url;      $server_url = "http://servers.nmpdr.org/ach/server.cgi" unless $server_url;
15    
16        #$server_url = "http://bio-macpro-2.mcs.anl.gov/~disz/FIG/ach_server.cgi" unless $server_url;
17      #$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;
18    
19      my $self = {      my $self = {
# Line 42  Line 44 
44              my $res = $self->{ua}->post($self->{server_url}, $form);              my $res = $self->{ua}->post($self->{server_url}, $form);
45              if ($res->is_success)              if ($res->is_success)
46              {              {
47                  return Load($res->content);                  my $rc;
48                    eval {
49                        $rc = Load($res->content);
50                    };
51                    if ($@)
52                    {
53                        die "Bad YAML parse $@ on input\n" .  $res->content;
54                    }
55              }              }
56              else              else
57              {              {
58                  die "error on post " . $res->content;                  die "error on post " . $res->status_line . " " . $res->content;
59              }              }
60  }  }
61    

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3