[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.4, Fri Jun 19 17:30:02 2009 UTC revision 1.5, Tue Jun 30 19:02:29 2009 UTC
# Line 11  Line 11 
11    
12  use strict;  use strict;
13    
14    #
15    # This is a SAS Component
16    #
17    
18    
19  sub new  sub new
20  {  {
21      my($class, $server_url) = @_;      my($class, $server_url) = @_;
# Line 48  Line 53 
53              my $res = $self->{ua}->post($self->{server_url}, $form);              my $res = $self->{ua}->post($self->{server_url}, $form);
54              if ($res->is_success)              if ($res->is_success)
55              {              {
56                    return Load($res->content);
57                }
58                else
59                {
60                    die "error on post " . $res->content;
61                }
62    }
63    
64    sub run_query_bad
65    {
66        my($self, $function, @args ) = @_;
67    
68                my $arg_string = Dump(@args);
69                my $form = [function => $function,
70                            args => "$arg_string"];
71    
72                my $res = $self->{ua}->post($self->{server_url}, $form);
73                if ($res->is_success)
74                {
75    print Dumper $res;
76                  my $rc;                  my $rc;
77                  eval {                  eval {
78                      $rc = Load($res->content);                      $rc = Load($res->content);

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3