--- nfo/perl/libs/POE/Component/LookupService.pm	2003/06/29 01:35:30	1.1
+++ nfo/perl/libs/POE/Component/LookupService.pm	2003/07/01 13:06:00	1.2
@@ -1,7 +1,10 @@
 ## ------------------------------------------------------------------------
-##  $Id: LookupService.pm,v 1.1 2003/06/29 01:35:30 joko Exp $
+##  $Id: LookupService.pm,v 1.2 2003/07/01 13:06:00 joko Exp $
 ## ------------------------------------------------------------------------
 ##  $Log: LookupService.pm,v $
+##  Revision 1.2  2003/07/01 13:06:00  joko
+##  + shutdown IKC?
+##
 ##  Revision 1.1  2003/06/29 01:35:30  joko
 ##  initial commit
 ##
@@ -64,6 +67,7 @@
 sub _stop {
   my ( $self, $kernel, $heap ) = @_[ OBJECT, KERNEL, HEAP ];
   $self->debug("_stop");
+  $kernel->post( IKC => 'shutdown' );
 };
 
 sub boot_intercom {
@@ -144,6 +148,7 @@
   } elsif ($method eq 'ServiceRegistrar.list') {
   } elsif ($method eq 'Lease.renew') {
   } elsif ($method eq 'system.shutdown') {
+    #$kernel->yield('_stop');
     exit;
     #$kernel->signal( 'TERM' );
   } elsif ($method eq 'storage.deploy') {