/[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 275 by dpavlin, Wed Apr 28 19:09:54 2010 UTC revision 276 by dpavlin, Fri Apr 30 14:34:49 2010 UTC
# Line 13  use lib '/srv/Sack/lib'; Line 13  use lib '/srv/Sack/lib';
13  use Data::Dump qw(dump);  use Data::Dump qw(dump);
14  use Sack::View;  use Sack::View;
15    
16  my $port = shift @ARGV;  my ( $port, $sack_port ) = @ARGV;
17    $sack_port ||= $ENV{SACK_PORT} || $port;
18  my $debug = 0;  my $debug = 0;
19  my $data_path = "/tmp/sack.data.$port";  my $data_path = "/tmp/sack.data.$port";
20    
21  my $sock = IO::Socket::INET->new(  my $sock = IO::Socket::INET->new(
22          PeerAddr => '127.0.0.1',          PeerAddr => '127.0.0.1',
23          PeerPort => $port,          PeerPort => $sack_port,
24          Proto => 'tcp',          Proto => 'tcp',
25  ) || die $!;  ) || die "127.0.0.1:$sack_port -- $!";
26    
27  my $sel = IO::Select->new($sock);  my $sel = IO::Select->new($sock);
28  $sel->add($sock);  $sel->add($sock);
Legend:
Removed from v.275  
changed lines
  Added in v.276
  ViewVC Help
Powered by ViewVC 1.1.26