/[Sack]/trunk/experiments/protocol-v3/repl.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/experiments/protocol-v3/repl.pl

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

revision 170 by dpavlin, Sun Nov 1 21:00:30 2009 UTC revision 171 by dpavlin, Tue Nov 3 17:27:53 2009 UTC
# Line 8  use IO::Socket::INET; Line 8  use IO::Socket::INET;
8  use Storable qw();  use Storable qw();
9  use Data::Dump qw(dump);  use Data::Dump qw(dump);
10    
11  my $sock = IO::Socket::INET->new(  my $retries = 0;
12          PeerAddr => '127.0.0.1',  my $sock;
13          PeerPort => 4444,  
14          Proto => 'tcp',  print STDERR "wait for server";
15  ) || die $!;  
16    while ( $retries < 10 && ! $sock ) {
17            $sock = IO::Socket::INET->new(
18                    PeerAddr => '127.0.0.1',
19                    PeerPort => 4444,
20                    Proto => 'tcp',
21            );
22            if ( ! $sock ) {
23                    $retries++;
24                    print STDERR ".";
25                    sleep 1
26            }
27    }
28    
29    die $! unless $sock;
30    
31    print STDERR "connected after $retries retries\n";
32    
33  Storable::fd_retrieve( $sock )->{ping} or die "no ping";  Storable::fd_retrieve( $sock )->{ping} or die "no ping";
34    
Legend:
Removed from v.170  
changed lines
  Added in v.171
  ViewVC Help
Powered by ViewVC 1.1.26