[plain text]


# Create a workload against a murder frontend
# that will give the MUPDATE server a workout.
# Interesting things to add:
#   - Try against more than one host to ensure the right thing happens
#     between hosts.
#   - Actually check result codes!!!


$host = $ARGV[0] || "sourcefour";

open OUT, "|imtest $host" || die "no imtest";
print OUT "a SELECT INBOX\n";

for($i=0; $i < 1000; $i++) {
  print OUT "b$i CREATE\n";
  print OUT "c$i SETACL rjs3.admin lrswipcda\n";
  print OUT "d$i RENAME\n";
  print OUT "e$i SETACL rjs3.admin \"\"\n";
  print OUT "f$i DELETE\n";

  sleep 1 unless($i % 20);

print OUT "g LOGOUT\n";