# 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