/[Sack]/trunk/bin/sack.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/bin/sack.pl

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

revision 21 by dpavlin, Tue Sep 22 17:15:03 2009 UTC revision 22 by dpavlin, Tue Sep 22 17:19:25 2009 UTC
# Line 245  if ( $listen ) { Line 245  if ( $listen ) {
245    
246          while (1) {          while (1) {
247    
248                  warn "NODE listen on $listen\n";                  warn "NODE $listen ready - wating for connection\n";
249    
250                  my $client = $sock->accept();                  my $client = $sock->accept();
251    
252                  warn "<<<< $listen connect from ", $client->peerhost, $/;                  warn "<<<< $listen connect from ", $client->peerhost, $/;
253    
254                  my @header = split(/\s/, <$client>);                  my @header = split(/\s/, <$client>);
255                  warn "# $listen header ",dump @header;                  warn "<<<< $listen header ",dump(@header),$/;
256    
257                  my $size = shift @header;                  my $size = shift @header;
258    
Legend:
Removed from v.21  
changed lines
  Added in v.22
  ViewVC Help
Powered by ViewVC 1.1.26