sub print_meet {

  select(STDOUT);
  # tell the server that we're sending data back now
  print "Content-type: text/html\n";
  print "Window-target: DISPLAY\n\n";

  # now send the server some html stuff
  print "<HTML>\n\n";

  print "<HEAD>\n\n";
  print "<META HTTP-EQUIV=REFRESH CONTENT=\"10; URL=$ThemeCgi/meet.cgi?gif=$GifName&username=$UserName&park=$ParkName\">";
  print "<TITLE>Frame 1</TITLE>\n";
  print "</HEAD>\n\n";

  print "<BODY BGCOLOR=\"#000000\">\n\n";
  print "<BASE TARGET=\"_blank\">\n\n";


  print "<CENTER>\n";
  print "<FONT COLOR=\"#cccccc\"><H1>Text Chat</H1></FONT>\n\n";
  print "</CENTER>\n";

  foreach $Key (sort(keys(%TextDB))) {
    print "$TextDB{$Key}\n\n";
    print "</FONT>\n\n";
    print "<BR>\n\n";
    print "<BR>\n\n";
  }

  print "<P></P>";

  print "</BODY>\n\n";

  print "</HTML>\n\n";
}

sub print_user {


  open (FRAME,"$ThemePath/$ParkName/$MeetName/park$LastKey\.html");
  select(STDOUT);

  print "Content-type: text/html\n";
  print "Window-target: FRAME$LastKey\n\n";

  while (<FRAME>) {
    chop $_;
    print "$_\n";
    if ($_ eq '<HTML>') {
      print "<META HTTP-EQUIV=REFRESH CONTENT=\"1; URL=$ThemeCgi/update.cgi?gif=$GifName&username=$UserName&park=$ParkName&update=$UpdateString\">";
    }
  }

}

1;
