--- nfo/perl/libs/POE/Component/LookupClient.pm	2003/07/01 13:05:01	1.2
+++ nfo/perl/libs/POE/Component/LookupClient.pm	2003/07/01 13:13:44	1.3
@@ -1,7 +1,10 @@
 ## ------------------------------------------------------------------------
-##  $Id: LookupClient.pm,v 1.2 2003/07/01 13:05:01 joko Exp $
+##  $Id: LookupClient.pm,v 1.3 2003/07/01 13:13:44 joko Exp $
 ## ------------------------------------------------------------------------
 ##  $Log: LookupClient.pm,v $
+##  Revision 1.3  2003/07/01 13:13:44  joko
+##  made "port" and "host" configurable from script
+##
 ##  Revision 1.2  2003/07/01 13:05:01  joko
 ##  major changes, tried to clean up shutdown phase - the watchdog-mech didn't work out well..... - what's about IKC's monitor? does it work on Linux?
 ##
@@ -74,11 +77,13 @@
 
   # Client component - encapsulates some session(s) and/or wheel(s)?
   
-  my $host = "localhost";
+  $self->{options}->{host} ||= "localhost";
+  $self->{options}->{port} ||= 30;
+  
   #create_ikc_client( host => $host, port => 30, name => 'Client', on_connect => $self->{options}->{on_connect} );
   create_ikc_client( 
-    host => $host, 
-    port => 30, 
+    host => $self->{options}->{host}, 
+    port => $self->{options}->{port}, 
     #name => 'Client', 
     #on_connect => sub { $self->build(); },
     on_connect => sub { $self->build(); },