#! /pkg/gnu/bin/gawk -f
BEGIN {
  print "Content-type: text/html\n"

  FS = "&"
  $0 = ENVIRON["QUERY_STRING"]
  gsub("%2F","/",$0)
  for (i=1; i<=NF; i++) {
    split($i,temp,"=")
    dat[temp[1]] = temp[2]
  }
  player1 = dat["player1"]
  player2 = dat["player2"]

  print "<pre>"
  if (dat["reps"] > 1)
  com = "gawk 'BEGIN{for(i=1;i<="dat["reps"]";i++)system(\"./sim -v player1="player1" -v player2="player2" >& /dev/null\")}' >& /dev/null &"
  else com = "./sim -v player1="player1" -v player2="player2" >& /dev/null &"
  system(com)

  print "<a href=kill.cgi>kill all neg & sim processes</a>"

  delay = 4
  print "<META http-equiv='refresh' content='"delay";URL=watch2.cgi?"delay"'>"


}