107 |
} elsif ( $repl =~ m{load\s*(\S+)?} ) { |
} elsif ( $repl =~ m{load\s*(\S+)?} ) { |
108 |
my $name = $1 || 'shard'; |
my $name = $1 || 'shard'; |
109 |
@shard_paths = glob "/tmp/sack/$name/*"; |
@shard_paths = glob "/tmp/sack/$name/*"; |
110 |
warn "loading shards ", dump( @shard_paths ); |
warn "loading shard $name from ", dump( @shard_paths ); |
111 |
to_all { load => $name }; |
to_all { load => $name }; |
112 |
} elsif ( $repl =~ m{view\s*(\S+)?} ) { |
} elsif ( $repl =~ m{view\s*(\S+)?} ) { |
113 |
my $path = $1 || '/srv/Sack/views/00.demo.pl'; |
my $path = $1 || '/srv/Sack/views/00.demo.pl'; |
121 |
my $out = Sack::Merge->out; |
my $out = Sack::Merge->out; |
122 |
warn "out ",dump( $out ); |
warn "out ",dump( $out ); |
123 |
$response->{out} = $out; |
$response->{out} = $out; |
124 |
|
} elsif ( $repl =~ m{clean} ) { |
125 |
|
delete $info->{shard}; |
126 |
|
to_all { clean => 1 }; |
127 |
} else { |
} else { |
128 |
$response->{error}->{unknown} = $data; |
$response->{error}->{unknown} = $data; |
129 |
} |
} |