2 |
## $Id$ |
## $Id$ |
3 |
## ------------------------------------------------------------------------ |
## ------------------------------------------------------------------------ |
4 |
## $Log$ |
## $Log$ |
5 |
|
## Revision 1.2 2003/06/29 11:43:14 joko |
6 |
|
## fixed return value |
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 |
## |
## |
49 |
my ( $self, $kernel, $heap ) = @_[ OBJECT, KERNEL, HEAP ]; |
my ( $self, $kernel, $heap ) = @_[ OBJECT, KERNEL, HEAP ]; |
50 |
$self->debug("_start"); |
$self->debug("_start"); |
51 |
|
|
52 |
# V1 - Announce ourselves as global singleton at Kernel side. |
# V1 - Announce ourselves as "global singleton" session at Kernel side. |
53 |
$kernel->alias_set("ServiceRegistrar"); |
$kernel->alias_set("ServiceRegistrar"); |
54 |
|
|
55 |
# V2 - Also announce to the IKC infrastructure component. |
# V2 - Also announce to the IKC infrastructure component. |
99 |
#$self->debug($sender->[0]->{from}->{kernel}); |
#$self->debug($sender->[0]->{from}->{kernel}); |
100 |
|
|
101 |
# postback value via rsvp-mechanism (see perldoc POE::Component::IKC::Responder) |
# postback value via rsvp-mechanism (see perldoc POE::Component::IKC::Responder) |
102 |
return 'LEASE_OK2'; |
return 'LEASE_OK'; |
103 |
} |
} |
104 |
|
|
105 |
|
|