--- nfo/perl/libs/POE/Component/LookupClient.pm	2003/07/01 13:13:44	1.3
+++ nfo/perl/libs/POE/Component/LookupClient.pm	2003/07/01 18:13:15	1.5
@@ -1,7 +1,10 @@
 ## ------------------------------------------------------------------------
-##  $Id: LookupClient.pm,v 1.3 2003/07/01 13:13:44 joko Exp $
+##  $Id: LookupClient.pm,v 1.5 2003/07/01 18:13:15 joko Exp $
 ## ------------------------------------------------------------------------
 ##  $Log: LookupClient.pm,v $
+##  Revision 1.5  2003/07/01 18:13:15  joko
+##  fixed: shutdown and session-unaliasing seems to be done by gc now...?
+##
 ##  Revision 1.3  2003/07/01 13:13:44  joko
 ##  made "port" and "host" configurable from script
 ##
@@ -82,7 +85,7 @@
   
   #create_ikc_client( host => $host, port => 30, name => 'Client', on_connect => $self->{options}->{on_connect} );
   create_ikc_client( 
-    host => $self->{options}->{host}, 
+    ip => $self->{options}->{host}, 
     port => $self->{options}->{port}, 
     #name => 'Client', 
     #on_connect => sub { $self->build(); },
@@ -378,11 +381,11 @@
   #$kernel->run_one_timeslice();
   #return;
   
-  $kernel->post( 'IKC' => 'shutdown' );
+  #$kernel->post( 'IKC' => 'shutdown' );
   #$kernel->run_one_timeslice();
   #$kernel->run_one_timeslice();
 
-  $kernel->alias_remove('DeviceClient');
+  #$kernel->alias_remove('DeviceClient');
   #$kernel->run_one_timeslice();
   #$kernel->run_one_timeslice();