/[cvs]/nfo/perl/libs/POE/Component/ServiceRegistrar.pm
ViewVC logotype

Diff of /nfo/perl/libs/POE/Component/ServiceRegistrar.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by joko, Sun Jun 29 01:35:30 2003 UTC revision 1.2 by joko, Sun Jun 29 11:43:14 2003 UTC
# Line 2  Line 2 
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  ##  ##
# Line 46  sub _start { Line 49  sub _start {
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.
# Line 96  sub renew_lease { Line 99  sub renew_lease {
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    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed