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

Diff of /FigKernelPackages/P3WorkspaceClient.pm

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

revision 1.2, Thu Sep 22 20:04:48 2016 UTC revision 1.3, Tue Nov 8 17:33:46 2016 UTC
# Line 1  Line 1 
 package P3WorkspaceClient;  
1    
2  # This is a SAS Component  
3    package P3WorkspaceClient;
4    
5  use POSIX;  use POSIX;
6    no warnings 'redefine';
7  use strict;  use strict;
8  use Data::Dumper;  use Data::Dumper;
9  use JSON::RPC::Client;  use JSON::RPC::Legacy::Client;
10  use URI;  use URI;
11  my $get_time = sub { time, 0 };  my $get_time = sub { time, 0 };
12  eval {  eval {
# Line 90  Line 91 
91    
92          my %args = @args;          my %args = @args;
93          my $token;          my $token;
94            my $fh;
95          if ($args{token})          if ($args{token})
96          {          {
97              $token = $args{token};              $token = $args{token};
# Line 98  Line 100 
100          {          {
101              $token = $ENV{KB_AUTH_TOKEN};              $token = $ENV{KB_AUTH_TOKEN};
102          }          }
103          elsif (open(my $fh, "<", "$ENV{HOME}/.patric_token"))          elsif (open($fh, "<", "$ENV{HOME}/.patric_token"))
104          {          {
105              $token = <$fh>;              $token = <$fh>;
106              chomp $token;              chomp $token;
107          }          }
108          elsif (open(my $fh, "<", "$ENV{HOME}/.kbase_config"))          elsif (open($fh, "<", "$ENV{HOME}/.kbase_config"))
109          {          {
110          OUTER:          OUTER:
111              while (<$fh>)              while (<$fh>)
# Line 2452  Line 2454 
2454  =cut  =cut
2455    
2456  package Bio::P3::Workspace::WorkspaceClient::RpcClient;  package Bio::P3::Workspace::WorkspaceClient::RpcClient;
2457  use base 'JSON::RPC::Client';  use base 'JSON::RPC::Legacy::Client';
2458  use POSIX;  use POSIX;
2459  use strict;  use strict;
2460    
# Line 2485  Line 2487 
2487          return unless($result->content); # notification?          return unless($result->content); # notification?
2488    
2489          if ($service) {          if ($service) {
2490              return JSON::RPC::ServiceObject->new($result, $self->json);              return JSON::RPC::Legacy::ServiceObject->new($result, $self->json);
2491          }          }
2492    
2493          return JSON::RPC::ReturnObject->new($result, $self->json);          return JSON::RPC::Legacy::ReturnObject->new($result, $self->json);
2494      }      }
2495      elsif ($result->content_type eq 'application/json')      elsif ($result->content_type eq 'application/json')
2496      {      {
2497          return JSON::RPC::ReturnObject->new($result, $self->json);          return JSON::RPC::Legacy::ReturnObject->new($result, $self->json);
2498      }      }
2499      else {      else {
2500          return;          return;
# Line 2512  Line 2514 
2514              $self->id($obj->{id}) if ($obj->{id}); # if undef, it is notification.              $self->id($obj->{id}) if ($obj->{id}); # if undef, it is notification.
2515          }          }
2516          else {          else {
2517              $obj->{id} = $self->id || ($self->id('JSON::RPC::Client'));              $obj->{id} = $self->id || ($self->id('JSON::RPC::Legacy::Client'));
2518          }          }
2519      }      }
2520      else {      else {

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3