#!/usr/local/bin/perl
chdir("/var/tmp/replica");
`/usr/bin/ls *.rej 2>&1`;
$rc=$?;
if ($rc == 0) {
  print "Replicas are rejecting changes\n";
  exit(2);
}
print "Replica changes OK\n";
exit(0);