2 |
## $Id$ |
## $Id$ |
3 |
## ------------------------------------------------------------------------ |
## ------------------------------------------------------------------------ |
4 |
## $Log$ |
## $Log$ |
5 |
|
## Revision 1.5 2003/07/01 18:13:15 joko |
6 |
|
## fixed: shutdown and session-unaliasing seems to be done by gc now...? |
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(); }, |
381 |
#$kernel->run_one_timeslice(); |
#$kernel->run_one_timeslice(); |
382 |
#return; |
#return; |
383 |
|
|
384 |
$kernel->post( 'IKC' => 'shutdown' ); |
#$kernel->post( 'IKC' => 'shutdown' ); |
385 |
#$kernel->run_one_timeslice(); |
#$kernel->run_one_timeslice(); |
386 |
#$kernel->run_one_timeslice(); |
#$kernel->run_one_timeslice(); |
387 |
|
|
388 |
$kernel->alias_remove('DeviceClient'); |
#$kernel->alias_remove('DeviceClient'); |
389 |
#$kernel->run_one_timeslice(); |
#$kernel->run_one_timeslice(); |
390 |
#$kernel->run_one_timeslice(); |
#$kernel->run_one_timeslice(); |
391 |
|
|