2 |
## $Id$ |
## $Id$ |
3 |
## ------------------------------------------------------------------------ |
## ------------------------------------------------------------------------ |
4 |
## $Log$ |
## $Log$ |
5 |
|
## Revision 1.2 2003/07/01 13:06:00 joko |
6 |
|
## + shutdown IKC? |
7 |
|
## |
8 |
## Revision 1.1 2003/06/29 01:35:30 joko |
## Revision 1.1 2003/06/29 01:35:30 joko |
9 |
## initial commit |
## initial commit |
10 |
## |
## |
67 |
sub _stop { |
sub _stop { |
68 |
my ( $self, $kernel, $heap ) = @_[ OBJECT, KERNEL, HEAP ]; |
my ( $self, $kernel, $heap ) = @_[ OBJECT, KERNEL, HEAP ]; |
69 |
$self->debug("_stop"); |
$self->debug("_stop"); |
70 |
|
$kernel->post( IKC => 'shutdown' ); |
71 |
}; |
}; |
72 |
|
|
73 |
sub boot_intercom { |
sub boot_intercom { |
148 |
} elsif ($method eq 'ServiceRegistrar.list') { |
} elsif ($method eq 'ServiceRegistrar.list') { |
149 |
} elsif ($method eq 'Lease.renew') { |
} elsif ($method eq 'Lease.renew') { |
150 |
} elsif ($method eq 'system.shutdown') { |
} elsif ($method eq 'system.shutdown') { |
151 |
|
#$kernel->yield('_stop'); |
152 |
exit; |
exit; |
153 |
#$kernel->signal( 'TERM' ); |
#$kernel->signal( 'TERM' ); |
154 |
} elsif ($method eq 'storage.deploy') { |
} elsif ($method eq 'storage.deploy') { |