<html>
<head><title>Mad Lib</title>
<basefont size=2>
</style>
</head>
<body bgcolor=black text=white vlink=909090 link=A0A0A0>
<?
srand(time());
function add($which,$what){
   $f = fopen("$which.db","a");
   if($f){
      fwrite($f,"$what\n");
      if($which=="addenda") fwrite($f,"<hr>");
      fclose($f);
   }else print("error appending to $which.db\n");
}
function show($which,$write){
       print("<tr><td><font size=2><select>");
       $names = file("$which.db");
    shuffle($names);
       while(list(,$n)=each($names)) 
        print("<option>$n");
       print"</select></font></td><td>";
       if($write)
       print("<input name=$which size=30>");
    print("</td></tr>");
}

print("[<a href=$PHP_SELF?read=>Read</a>]
       [<a href=$PHP_SELF?write=>Write</a>]
       [<a href=$PHP_SELF?about=>About</a>]<p>");

if(isset($about)) 
    print("<li type=square>When writing, it is not necessary to fill out all parts of the form.
               <li>Please check spelling as this is not a very flexible system for revision 
           <li>When reading, the selected phrases are randomized.  ");
else{
  if(!empty($who))  add("who",$who);
  if(!empty($where)) add("where",$where);
  if(!empty($when))  add("when",$when);
  if(!empty($what))  add("what",$what);
  if(!empty($why))  add("why",$why);
  if(!empty($result))  add("result",$result);
  if(!empty($addenda))  add("addenda",$addenda);

  if(isset($write) || isset($read)){
      print("<form method=post action=$PHP_SELF><table>");
      print("<tr><td colspan=2>The</td></tr>");
      show("who",isset($write));
      print("<tr><td colspan=2>who lived in</td></tr>");
      show("where", isset($write));
      print("<tr><td colspan=2>and</td></tr>");
      show("when",isset($write));
      print("<tr><td colspan=2>couldn't agree to</td></tr>");
      show("what",isset($write));
      print("<tr><td colspan=2>because</td></tr>");
      show("why",isset($write));
      print("<tr><td colspan=2>Consequently, </td></tr>");
      show("result",isset($write));
      print("<tr><td colspan=2>and</td></tr>");
      if(isset($write))
    print("<tr><td></td><td><textarea name=addenda cols=30 rows=10></textarea></td></tr>");
      else if(isset($read)){
    print("<tr><td colspan=2>");
    include("addenda.db");
    print("</td></tr>");
      }
      if(isset($write)) print("<tr><td><input type=submit value=\"Send\"></td></tr>");
      print("</table></form>");
  }
}
?>
<hr>
<a href=../php2txt.php?madLib/madLib.php>Source</a>