/[Sack]/trunk/experiments/protocol-v3/server.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/server.pl

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

revision 169 by dpavlin, Mon Nov 2 16:09:40 2009 UTC revision 170 by dpavlin, Tue Nov 3 17:19:12 2009 UTC
# Line 12  use File::Slurp; Line 12  use File::Slurp;
12    
13  my @cloud = qw(localhost tab.lan llin.lan);  my @cloud = qw(localhost tab.lan llin.lan);
14    
15  my $cloud_path = '/srv/Sack/etc/lib';  my $cloud_path = $ENV{CLOUD} || '/srv/Sack/etc/lib';
16  @cloud = read_file $cloud_path;  @cloud = read_file $cloud_path;
17  @cloud = map { chomp $_; $_ } @cloud;  @cloud = map { chomp $_; $_ } @cloud;
18    
Legend:
Removed from v.169  
changed lines
  Added in v.170
  ViewVC Help
Powered by ViewVC 1.1.26