--- nfo/perl/libs/POE/Component/ServiceRegistrar.pm	2003/06/29 11:43:14	1.2
+++ nfo/perl/libs/POE/Component/ServiceRegistrar.pm	2003/07/01 13:07:19	1.3
@@ -1,9 +1,10 @@
 ## ------------------------------------------------------------------------
-##  $Id: ServiceRegistrar.pm,v 1.2 2003/06/29 11:43:14 joko Exp $
+##  $Id: ServiceRegistrar.pm,v 1.3 2003/07/01 13:07:19 joko Exp $
 ## ------------------------------------------------------------------------
 ##  $Log: ServiceRegistrar.pm,v $
-##  Revision 1.2  2003/06/29 11:43:14  joko
-##  fixed return value
+##  Revision 1.3  2003/07/01 13:07:19  joko
+##  - removed "waste_time" here
+##  + renamed response state to "on_response"
 ##
 ##  Revision 1.1  2003/06/29 01:35:30  joko
 ##  initial commit
@@ -83,7 +84,7 @@
   $kernel->post('IKC', 'publish', 'ServiceRegistrar', [qw( renew_lease )]);
 
   # send response back to client session - does it actually work asynchronously?
-  $kernel->post($_[SENDER], 'response', 'REG_OK');
+  $kernel->post($_[SENDER], 'on_response', 'REG_OK');
   
 };
 
@@ -115,26 +116,5 @@
 }
 
 
-#------------------------------------------------------------------------------
-# 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;
-}
-
 1;
 __END__