/[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.3 by joko, Tue Jul 1 13:13:44 2003 UTC
# Line 2  Line 2 
2  ##  $Id$  ##  $Id$
3  ## ------------------------------------------------------------------------  ## ------------------------------------------------------------------------
4  ##  $Log$  ##  $Log$
5    ##  Revision 1.3  2003/07/01 13:13:44  joko
6    ##  made "port" and "host" configurable from script
7    ##
8  ##  Revision 1.2  2003/07/01 13:05:01  joko  ##  Revision 1.2  2003/07/01 13:05:01  joko
9  ##  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?
10  ##  ##
# Line 74  sub boot_intercom { Line 77  sub boot_intercom {
77    
78    # Client component - encapsulates some session(s) and/or wheel(s)?    # Client component - encapsulates some session(s) and/or wheel(s)?
79        
80    my $host = "localhost";    $self->{options}->{host} ||= "localhost";
81      $self->{options}->{port} ||= 30;
82      
83    #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} );
84    create_ikc_client(    create_ikc_client(
85      host => $host,      host => $self->{options}->{host},
86      port => 30,      port => $self->{options}->{port},
87      #name => 'Client',      #name => 'Client',
88      #on_connect => sub { $self->build(); },      #on_connect => sub { $self->build(); },
89      on_connect => sub { $self->build(); },      on_connect => sub { $self->build(); },

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

MailToCvsAdmin">MailToCvsAdmin
ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed