blob: 66a50051a58f84513715cd0f39231d11d0aa05a4 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
|
# Redis lookups and quoting in cluster mode
#
#
echo Setting up 2-node cluster...
sudo rm -fr DIR/redis-cluster
mkdir -p DIR/redis-cluster/node1 DIR/redis-cluster/node2
#
echo Starting node1
perl
system 'redis-server --bind 127.0.0.1 --port 6379 --cluster-enabled yes --cluster-config-file node1.conf --dir DIR/redis-cluster/node1 --logfile node1.log --daemonize yes --pidfile node1.pid --loglevel debug';
****
sleep 5
echo Starting node2
perl
system 'redis-server --bind 127.0.0.1 --port 6380 --cluster-enabled yes --cluster-config-file node2.conf --dir DIR/redis-cluster/node2 --logfile node2.log --daemonize yes --pidfile node2.pid --loglevel debug';
****
#
sleep 5
echo Creating slots, node1
perl
system 'for x in {0..8191}; do echo "CLUSTER ADDSLOTS $x" | redis-cli -p 6379 | egrep -v OK; done';
****
sleep 5
echo Creating slots, node2
perl
system 'for x in {8192..16383}; do echo "CLUSTER ADDSLOTS $x" | redis-cli -p 6380 | egrep -v OK; done';
****
sleep 5
echo Sending CLUSTER MEET
perl
system 'echo "CLUSTER MEET 127.0.0.1 6380" | redis-cli -p 6379 -c';
****
sleep 5
exim -be -d-all+expand+lookup
${lookup redis{set ${quote_redis:KEY_100_1001 ABCDEF} ${quote_redis:objvalue plus}}}
${lookup redis{set ${quote_redis:01t67it} ${quote_redis:bfhdkbflks}}}
****
sleep 2
exim -be -d-all+expand+lookup
${lookup redis{get ${quote_redis:KEY_100_1001 ABCDEF}}}
${lookup redis{get ${quote_redis:01t67it}}}
****
#
sleep 5
perl
my @pidfiles = ( "DIR/redis-cluster/node1/node1.pid", "DIR/redis-cluster/node2/" );
foreach my $pidfile (@pidfiles) {
if ( -f $pidfile ) {
open (my $fh, "<", $pidfile);
while (my $pid = <$fh>) {
chomp $pid;
kill 'TERM', $pid;
}
}
}
****
sudo rm -fr DIR/redis-cluster
no_stderr_check
|
