| 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 |
} |
} |
Parent Directory
| 
Revision Log
| 
Patch