Parent Directory | Revision Log | Patch
revision 180 by dpavlin, Sun Nov 8 12:53:15 2009 UTC | revision 181 by dpavlin, Sun Nov 8 12:54:51 2009 UTC | |
---|---|---|
# | Line 23 warn "# cloud ",dump( @cloud ); | Line 23 warn "# cloud ",dump( @cloud ); |
23 | my $listen_port = 4444; | my $listen_port = 4444; |
24 | ||
25 | my $node_path = abs_path $0; | my $node_path = abs_path $0; |
26 | $node_path =~ s{server.pl}{client.pl}; | $node_path =~ s{Server}{Client}; |
27 | ||
28 | my $lsn = IO::Socket::INET->new(Listen => 1, LocalPort => $listen_port, Reuse => 1) or die $!; | my $lsn = IO::Socket::INET->new(Listen => 1, LocalPort => $listen_port, Reuse => 1) or die $!; |
29 | my $sel = IO::Select->new($lsn); | my $sel = IO::Select->new($lsn); |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |