- Timestamp:
- 2013-03-05T10:34:45+13:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gs2-extensions/tdb-edit/trunk/src/perllib/SocketsSwimmingThreadPoolClient.pm
r25415 r26993 10 10 use warnings; 11 11 12 my $retry_time = 5; 12 my $retry_limit = 300; # five minute 13 my $retry_time = 1; 13 14 14 15 sub new … … 50 51 # (according to RFC793) we may be waiting up to 4 minutes for TIME_WAITs to 51 52 # be reaped. Sigh. Still - ever an optimist - I'll retry the socket 52 # connection every 30seconds.53 # connection every seconds. 53 54 # References: 54 55 # http://www.perlmonks.org/?node_id=771242 … … 57 58 # http://www.isi.edu/touch/pubs/infocomm99/infocomm99-web/ 58 59 # http://www.faqs.org/rfcs/rfc793.html 59 while( 1)60 while($retry_limit > 0) 60 61 { 61 62 my $socket= new IO::Socket::INET(PeerAddr => $self->{host} || 'localhost', … … 70 71 print "=> Retry in " . $retry_time . " seconds.\n"; 71 72 sleep($retry_time); 73 $retry_limit--; 72 74 } 75 print "Error! Failed to create client socket within 5 minutes timeout.\n"; 73 76 } 74 77
Note:
See TracChangeset
for help on using the changeset viewer.