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

Annotation of /FigKernelPackages/SSserver.pm

Parent Directory Parent Directory | Revision Log Revision Log


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

1 : disz 1.1
2 :     package SSserver;
3 :    
4 :     use LWP::UserAgent;
5 :     use Data::Dumper;
6 :     use YAML;
7 :    
8 :     use strict;
9 :    
10 :     sub new
11 :     {
12 :     my($class, $server_url) = @_;
13 :    
14 : olson 1.3 $server_url = "http://servers.nmpdr.org/subsystem/server.cgi" unless $server_url;
15 :     #$server_url = "http://bio-macpro-1.mcs.anl.gov/~disz/FIG/subsystem_server.cgi" unless $server_url;
16 : disz 1.1 #$server_url = "http://bio-macpro-1.mcs.anl.gov/ross-proj/FIG/co_occurs_server.cgi" unless $server_url;
17 :    
18 :     my $self = {
19 :     server_url => $server_url,
20 :     ua => LWP::UserAgent->new(),
21 :     };
22 :     return bless $self, $class;
23 :     }
24 :    
25 :     sub is_in_subsystem {
26 :     my ($self, @args) = @_;
27 :     return $self->run_query("is_in_subsystem", @args);
28 :     }
29 :     sub is_in_subsystem_with {
30 :     my ($self, @args) = @_;
31 :     return $self->run_query("is_in_subsystem_with", @args);
32 :     }
33 :    
34 :     sub all_subsystems {
35 :     my ($self, @args) = @_;
36 :     return $self->run_query("all_subsystems", @args);
37 :     }
38 :    
39 :     sub subsystem_spreadsheet {
40 :     my ($self, @args) = @_;
41 :     return $self->run_query("subsystem_spreadsheet", @args);
42 :     }
43 :    
44 :    
45 :     sub run_query
46 :     {
47 :     my($self, $function, @args ) = @_;
48 :    
49 :     my $arg_string = Dump(@args);
50 :     my $form = [function => $function,
51 :     args => "$arg_string"];
52 :    
53 :     my $res = $self->{ua}->post($self->{server_url}, $form);
54 :     if ($res->is_success)
55 :     {
56 :     #print "Content ", $res->content, "\n";
57 : disz 1.2 return Load($res->content);
58 : disz 1.1 }
59 :     else
60 :     {
61 :     die "error on post " . $res->content;
62 :     }
63 :     }
64 :    
65 :    
66 :     1;
67 :    
68 :    
69 :    

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3