/[Sack]/trunk/lib/Sack/Client.pm
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/lib/Sack/Client.pm

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

revision 227 by dpavlin, Mon Nov 23 19:13:56 2009 UTC revision 228 by dpavlin, Mon Nov 23 20:45:35 2009 UTC
# Line 14  use Data::Dump qw(dump); Line 14  use Data::Dump qw(dump);
14  use Sack::View;  use Sack::View;
15    
16  my $port = shift @ARGV;  my $port = shift @ARGV;
17    my $debug = 0;
18    
19  my $sock = IO::Socket::INET->new(  my $sock = IO::Socket::INET->new(
20          PeerAddr => '127.0.0.1',          PeerAddr => '127.0.0.1',
# Line 33  while (1) { Line 34  while (1) {
34                          warn "[$port] FATAL: $@\n";                          warn "[$port] FATAL: $@\n";
35                          next;                          next;
36                  }                  }
37                  warn "[$port] <<<< ", dump( keys %$request ), $/;                  warn "[$port] <<<< ", dump( keys %$request ), $/ if $debug;
38                  my $response = { port => $port };                  my $response = { port => $port };
39                  if ( $request->{ping} ) {                  if ( $request->{ping} ) {
40                          $response->{ping} = 'pong';                          $response->{ping} = 'pong';
# Line 64  while (1) { Line 65  while (1) {
65                          $response->{error}->{unknown} = $request;                          $response->{error}->{unknown} = $request;
66                  }                  }
67                  Storable::store_fd( $response, $sock );                  Storable::store_fd( $response, $sock );
68                  warn "[$port] >>>> ", dump($response), $/;                  warn "[$port] >>>> ", dump($response), $/ if $debug;
69          }          }
70  }  }
Legend:
Removed from v.227  
changed lines
  Added in v.228
  ViewVC Help
Powered by ViewVC 1.1.26