home *** CD-ROM | disk | FTP | other *** search
/ Internet 1996 World Exposition / park.org.s3.amazonaws.com.7z / park.org.s3.amazonaws.com / cgi-bin / Japan / Theme / output.pl < prev    next >
Text File  |  2017-09-21  |  1KB  |  58 lines
  1. sub print_meet {
  2.  
  3.   select(STDOUT);
  4.   # tell the server that we're sending data back now
  5.   print "Content-type: text/html\n";
  6.   print "Window-target: DISPLAY\n\n";
  7.  
  8.   # now send the server some html stuff
  9.   print "<HTML>\n\n";
  10.  
  11.   print "<HEAD>\n\n";
  12.   print "<META HTTP-EQUIV=REFRESH CONTENT=\"10; URL=$ThemeCgi/meet.cgi?gif=$GifName&username=$UserName&park=$ParkName\">";
  13.   print "<TITLE>Frame 1</TITLE>\n";
  14.   print "</HEAD>\n\n";
  15.  
  16.   print "<BODY BGCOLOR=\"#000000\">\n\n";
  17.   print "<BASE TARGET=\"_blank\">\n\n";
  18.  
  19.  
  20.   print "<CENTER>\n";
  21.   print "<FONT COLOR=\"#cccccc\"><H1>Text Chat</H1></FONT>\n\n";
  22.   print "</CENTER>\n";
  23.  
  24.   foreach $Key (sort(keys(%TextDB))) {
  25.     print "$TextDB{$Key}\n\n";
  26.     print "</FONT>\n\n";
  27.     print "<BR>\n\n";
  28.     print "<BR>\n\n";
  29.   }
  30.  
  31.   print "<P></P>";
  32.  
  33.   print "</BODY>\n\n";
  34.  
  35.   print "</HTML>\n\n";
  36. }
  37.  
  38. sub print_user {
  39.  
  40.  
  41.   open (FRAME,"$ThemePath/$ParkName/$MeetName/park$LastKey\.html");
  42.   select(STDOUT);
  43.  
  44.   print "Content-type: text/html\n";
  45.   print "Window-target: FRAME$LastKey\n\n";
  46.  
  47.   while (<FRAME>) {
  48.     chop $_;
  49.     print "$_\n";
  50.     if ($_ eq '<HTML>') {
  51.       print "<META HTTP-EQUIV=REFRESH CONTENT=\"1; URL=$ThemeCgi/update.cgi?gif=$GifName&username=$UserName&park=$ParkName&update=$UpdateString\">";
  52.     }
  53.   }
  54.  
  55. }
  56.  
  57. 1;
  58.