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

Diff of /nfo/perl/libs/POE/Component/LookupService.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, Tue Jul 1 13:06:00 2003 UTC
# Line 2  Line 2 
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  ##  ##
# Line 64  sub _start { Line 67  sub _start {
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 {
# Line 144  sub handle_request { Line 148  sub handle_request {
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') {
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