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