/[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.2 by joko, Tue Jul 1 13:05:01 2003 UTC revision 1.4 by joko, Tue Jul 1 17:08:17 2003 UTC
# Line 2  Line 2 
2  ##  $Id$  ##  $Id$
3  ## ------------------------------------------------------------------------  ## ------------------------------------------------------------------------
4  ##  $Log$  ##  $Log$
5    ##  Revision 1.4  2003/07/01 17:08:17  joko
6    ##  fixed option-to-component propagation
7    ##
8    ##  Revision 1.3  2003/07/01 13:13:44  joko
9    ##  made "port" and "host" configurable from script
10    ##
11  ##  Revision 1.2  2003/07/01 13:05:01  joko  ##  Revision 1.2  2003/07/01 13:05:01  joko
12  ##  major changes, tried to clean up shutdown phase - the watchdog-mech didn't work out well..... - what's about IKC's monitor? does it work on Linux?  ##  major changes, tried to clean up shutdown phase - the watchdog-mech didn't work out well..... - what's about IKC's monitor? does it work on Linux?
13  ##  ##
# Line 74  sub boot_intercom { Line 80  sub boot_intercom {
80    
81    # Client component - encapsulates some session(s) and/or wheel(s)?    # Client component - encapsulates some session(s) and/or wheel(s)?
82        
83    my $host = "localhost";    $self->{options}->{host} ||= "localhost";
84      $self->{options}->{port} ||= 30;
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 => $host,      ip => $self->{options}->{host},
89      port => 30,      port => $self->{options}->{port},
90      #name => 'Client',      #name => 'Client',
91      #on_connect => sub { $self->build(); },      #on_connect => sub { $self->build(); },
92      on_connect => sub { $self->build(); },      on_connect => sub { $self->build(); },
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.4
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed