Secure Internet Voting with Perl

  0  #!/bin/sh

  1  # first the parties
  2  /usr/local/bin/mysql -f CEA <<END
  3  INSERT INTO party VALUES (NULL,'Republican Party')\p\g
  4  INSERT INTO party VALUES (NULL,'Democratic Party')\p\g
  5  INSERT INTO party VALUES (NULL,'Green Party')\p\g
  6  INSERT INTO party VALUES (NULL,'Reform Party')\p\g
  7  INSERT INTO party VALUES (NULL,"Socialist Worker's Party")\p\g

  8  # now the offices
  9  INSERT INTO office VALUES (NULL,'President of the United States')\p\g
 10  INSERT INTO office VALUES (NULL,'State Senator')\p\g
 11  INSERT INTO office VALUES (NULL,'Town Dogcatcher')\p\g

 12  # Now the candidates
 13  # Presidential candidates
 14  INSERT INTO candidate VALUES (NULL,'e.e.','cummings',1,1)\p\g
 15  INSERT INTO candidate VALUES (NULL,'Ogden','Nash',2,1)\p\g
 16  INSERT INTO candidate VALUES (NULL,'Marilyn','Monroe',3,1)\p\g
 17  INSERT INTO candidate VALUES (NULL,'Tennessee','Williams',4,1)\p\g
 18  INSERT INTO candidate VALUES (NULL,'Chuck','Jones',5,1)\p\g

 19  # State senator
 20  INSERT INTO candidate VALUES (NULL,'Timothy',"O'Leary",1,2)\p\g
 21  INSERT INTO candidate VALUES (NULL,'Abbie','Hoffman',2,2)\p\g
 22  INSERT INTO candidate VALUES (NULL,'Ivana','Trump',3,2)\p\g

 23  # Dogcatcher
 24  INSERT INTO candidate VALUES (NULL,'John','Adams',1,3)\p\g
 25  INSERT INTO candidate VALUES (NULL,'Morticia','Addams',2,3)\p\g

 26  END