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.0105 / frames.pl < prev    next >
Text File  |  2017-09-21  |  1KB  |  36 lines
  1. sub replace_frame {
  2.  
  3.   open(FRAME,"> $ThemePath/$ParkName/$MeetName/park$LastKey\.html");
  4.   select(FRAME);
  5.   print "<HTML>\n\n";
  6.   print "<META HTTP-EQUIV=REFRESH CONTENT=\"20; URL=park$LastKey\.html\">\n";
  7.   print "<BODY BGCOLOR = \"\#$Colors{$LastKey}\">\n\n";
  8.   print "<title>Document</title>\n\n";
  9.   print "<table border=1 cellspacing=1 cellpadding=1>\n";
  10.   print "<tr><td align=center><img width=60 height=60 src=\"$GifName\"></td></tr>\n";
  11.   print " </table>\n";
  12.   print "$UserName\n\n";
  13.   select(STDOUT);
  14.   close(FRAME);
  15. }
  16.  
  17. sub clean_frame {
  18.  
  19.   open(FRAME,"> $ThemePath/$ParkName/$MeetName/park$CleanKey\.html");
  20.   select(FRAME);
  21.   print "<HTML>\n\n";
  22.   print "<META HTTP-EQUIV=REFRESH CONTENT=\"20; URL=park$CleanKey\.html\">\n";
  23.   print "<BODY BGCOLOR = \"\#000000\">\n\n";
  24.   print "<title>Document</title>\n\n";
  25.   print "<table border=1 cellspacing=1 cellpadding=1>\n";
  26.   print "<tr><td align=center><img width=60 height=60 src=\"image/vacancy.gif\"></td></tr>\n";
  27.   print " </table>\n";
  28.   print " vacant \n\n";
  29.   select(STDOUT);
  30.   close(FRAME);
  31.  
  32. }
  33.  
  34. 1;
  35.  
  36.