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 |
## Revision 1.3 2003/07/01 13:13:44 joko |
9 |
## made "port" and "host" configurable from script |
## made "port" and "host" configurable from script |
10 |
## |
## |
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 => $self->{options}->{host}, |
ip => $self->{options}->{host}, |
89 |
port => $self->{options}->{port}, |
port => $self->{options}->{port}, |
90 |
#name => 'Client', |
#name => 'Client', |
91 |
#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 |
|
|