# 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