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

Diff of /FigKernelPackages/P2P.pm

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

revision 1.16, Mon Oct 4 15:57:15 2004 UTC revision 1.17, Mon Dec 6 18:26:25 2004 UTC
# Line 476  Line 476 
476  {  {
477      my($class, $fig, $url, $peer_id, $relay) = @_;      my($class, $fig, $url, $peer_id, $relay) = @_;
478    
479      my $proxy = SOAP::Lite->uri($ns_p2p)->proxy($url);      my $proxy = SOAP::Lite->uri($ns_p2p)->proxy($url, timeout => 3600);
480    
481      my $self = {      my $self = {
482          fig => $fig,          fig => $fig,
# Line 511  Line 511 
511          $last_update = $self->{fig}->get_peer_last_update($self->{peer_id});          $last_update = $self->{fig}->get_peer_last_update($self->{peer_id});
512      }      }
513    
514        print "Requesting update via $self->{proxy}\n";
515      my $reply = $self->{proxy}->request_update($rel, $last_update);      my $reply = $self->{proxy}->request_update($rel, $last_update);
516        print "Got reply ", Dumper($reply);
517    
518      if ($self->{relay})      if ($self->{relay})
519      {      {
# Line 820  Line 822 
822      #      #
823    
824      my @users = keys(%users);      my @users = keys(%users);
825      $fig->ensure_users(\@users);      # $fig->ensure_users(\@users);
826    
827      return [$session_id, $my_release, $num_assignments, $num_annos, $num_pegs, $num_genomes,      return [$session_id, $my_release, $num_assignments, $num_annos, $num_pegs, $num_genomes,
828              $now, $compatible, \@users];              $now, $compatible, \@users];

Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3