--- nfo/perl/libs/POE/Component/ServiceRegistrar.pm	2003/06/29 01:35:30	1.1
+++ nfo/perl/libs/POE/Component/ServiceRegistrar.pm	2003/07/01 13:07:19	1.3
@@ -1,7 +1,11 @@
 ## ------------------------------------------------------------------------
-##  $Id: ServiceRegistrar.pm,v 1.1 2003/06/29 01:35:30 joko Exp $
+##  $Id: ServiceRegistrar.pm,v 1.3 2003/07/01 13:07:19 joko Exp $
 ## ------------------------------------------------------------------------
 ##  $Log: ServiceRegistrar.pm,v $
+##  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
 ##
@@ -46,7 +50,7 @@
   my ( $self, $kernel, $heap ) = @_[ OBJECT, KERNEL, HEAP ];
   $self->debug("_start");
   
-  # V1 - Announce ourselves as global singleton at Kernel side.
+  # V1 - Announce ourselves as "global singleton" session at Kernel side.
   $kernel->alias_set("ServiceRegistrar");
 
   # V2 - Also announce to the IKC infrastructure component.
@@ -80,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');
   
 };
 
@@ -96,7 +100,7 @@
   #$self->debug($sender->[0]->{from}->{kernel});
   
   # postback value via rsvp-mechanism (see perldoc POE::Component::IKC::Responder)
-  return 'LEASE_OK2';
+  return 'LEASE_OK';
 }
 
 
@@ -112,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__