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

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

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

revision 1.3 by joko, Tue Jul 1 13:13:44 2003 UTC revision 1.5 by joko, Tue Jul 1 18:13:15 2003 UTC
# Line 2  Line 2 
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  ##  ##
# Line 82  sub boot_intercom { Line 85  sub boot_intercom {
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(); },
# Line 378  sub remote_timeout { Line 381  sub remote_timeout {
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    
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.5
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed