2 |
## $Id$ |
## $Id$ |
3 |
## ------------------------------------------------------------------------ |
## ------------------------------------------------------------------------ |
4 |
## $Log$ |
## $Log$ |
5 |
|
## Revision 1.4 2003/07/01 17:08:17 joko |
6 |
|
## fixed option-to-component propagation |
7 |
|
## |
8 |
|
## Revision 1.3 2003/07/01 13:13:44 joko |
9 |
|
## made "port" and "host" configurable from script |
10 |
|
## |
11 |
## Revision 1.2 2003/07/01 13:05:01 joko |
## Revision 1.2 2003/07/01 13:05:01 joko |
12 |
## 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? |
## 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? |
13 |
## |
## |
80 |
|
|
81 |
# Client component - encapsulates some session(s) and/or wheel(s)? |
# Client component - encapsulates some session(s) and/or wheel(s)? |
82 |
|
|
83 |
my $host = "localhost"; |
$self->{options}->{host} ||= "localhost"; |
84 |
|
$self->{options}->{port} ||= 30; |
85 |
|
|
86 |
#create_ikc_client( host => $host, port => 30, name => 'Client', on_connect => $self->{options}->{on_connect} ); |
#create_ikc_client( host => $host, port => 30, name => 'Client', on_connect => $self->{options}->{on_connect} ); |
87 |
create_ikc_client( |
create_ikc_client( |
88 |
host => $host, |
ip => $self->{options}->{host}, |
89 |
port => 30, |
port => $self->{options}->{port}, |
90 |
#name => 'Client', |
#name => 'Client', |
91 |
#on_connect => sub { $self->build(); }, |
#on_connect => sub { $self->build(); }, |
92 |
on_connect => sub { $self->build(); }, |
on_connect => sub { $self->build(); }, |