/[cvs]/nfo/perl/libs/POE/Component/ServiceRegistrar.pm
ViewVC logotype

Diff of /nfo/perl/libs/POE/Component/ServiceRegistrar.pm

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

revision 1.2 by joko, Sun Jun 29 11:43:14 2003 UTC revision 1.3 by joko, Tue Jul 1 13:07:19 2003 UTC
# Line 2  Line 2 
2  ##  $Id$  ##  $Id$
3  ## ------------------------------------------------------------------------  ## ------------------------------------------------------------------------
4  ##  $Log$  ##  $Log$
5  ##  Revision 1.2  2003/06/29 11:43:14  joko  ##  Revision 1.3  2003/07/01 13:07:19  joko
6  ##  fixed return value  ##  - removed "waste_time" here
7    ##  + renamed response state to "on_response"
8  ##  ##
9  ##  Revision 1.1  2003/06/29 01:35:30  joko  ##  Revision 1.1  2003/06/29 01:35:30  joko
10  ##  initial commit  ##  initial commit
# Line 83  sub register_lease { Line 84  sub register_lease {
84    $kernel->post('IKC', 'publish', 'ServiceRegistrar', [qw( renew_lease )]);    $kernel->post('IKC', 'publish', 'ServiceRegistrar', [qw( renew_lease )]);
85    
86    # send response back to client session - does it actually work asynchronously?    # send response back to client session - does it actually work asynchronously?
87    $kernel->post($_[SENDER], 'response', 'REG_OK');    $kernel->post($_[SENDER], 'on_response', 'REG_OK');
88        
89  };  };
90    
# Line 115  sub remote_register { Line 116  sub remote_register {
116  }  }
117    
118    
 #------------------------------------------------------------------------------  
 # This event keeps this POE kernel alive.  
 # (stolen from POE::Component::IKC::Server, but not used 'til now...)  
 sub waste_time  
 {  
     my($kernel, $heap)=@_[KERNEL, HEAP];  
     return if $heap->{'is a child'};  
   
     unless($heap->{'been told we are parent'}) {  
         warn "$$: Telling everyone we are the parent\n";  
         $heap->{'been told we are parent'}=1;  
         $kernel->signal($kernel, '__parent');  
     }  
     if($heap->{'die'}) {  
         DEBUG and warn "$$: Orderly shutdown\n";  
     } else {  
         $kernel->delay('waste_time', 60);  
     }  
     return;  
 }  
   
119  1;  1;
120  __END__  __END__
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed