sub replace_frame {

  open(FRAME,"> $ThemePath/$ParkName/$MeetName/park$LastKey\.html");
  select(FRAME);
  print "<HTML>\n\n";
  print "<META HTTP-EQUIV=REFRESH CONTENT=\"20; URL=park$LastKey\.html\">\n";
  print "<BODY BGCOLOR = \"\#$Colors{$LastKey}\">\n\n";
  print "<title>Document</title>\n\n";
  print "<table border=1 cellspacing=1 cellpadding=1>\n";
  print "<tr><td align=center><img width=60 height=60 src=\"$GifName\"></td></tr>\n";
  print " </table>\n";
  print "$UserName\n\n";
  select(STDOUT);
  close(FRAME);
}

sub clean_frame {

  open(FRAME,"> $ThemePath/$ParkName/$MeetName/park$CleanKey\.html");
  select(FRAME);
  print "<HTML>\n\n";
  print "<META HTTP-EQUIV=REFRESH CONTENT=\"20; URL=park$CleanKey\.html\">\n";
  print "<BODY BGCOLOR = \"\#000000\">\n\n";
  print "<title>Document</title>\n\n";
  print "<table border=1 cellspacing=1 cellpadding=1>\n";
  print "<tr><td align=center><img width=60 height=60 src=\"image/vacancy.gif\"></td></tr>\n";
  print " </table>\n";
  print " vacant \n\n";
  select(STDOUT);
  close(FRAME);

}

1;

