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 / test.cgi < prev    next >
Text File  |  2017-09-21  |  2KB  |  88 lines
  1. #!/usr/local/bin/perl
  2.  
  3. #
  4. # make_checkin_log_all.cgi
  5. #    make checkin log page's html (all check-in log)
  6. #
  7. # 95/05/03 by haruki@st.rim.or.jp
  8.  
  9. $| = 1;
  10.  
  11. require 'jcode.pl';
  12. require 'meetinit.pl';
  13.  
  14. #
  15. # print checkin log page's header
  16. #
  17. print "Content-type: text/html\n\n";
  18.  
  19. print '
  20.     <html>
  21.     <head><title>"sensorium" Meeting place</title></head>
  22.     <body>
  23.     <body bgcolor=#006699>
  24.  
  25.     <font color=#ffffff size="5">All Check-ins </font><br>
  26.     <font size="2">
  27.     <a href="http://park.org/Japan/Theme/mplog/index.html" target="_top">
  28.     [back to the previous page]</a><br>
  29.     [back to "sensorium" 
  30.     <a href="http://park.org/Japan/Theme/japanese/index.html" target="_top">Japanese</a> /
  31.     <a href="http://park.org/Japan/Theme/index.html" target="_top">English</a>
  32.      homepage]</a></font><p>
  33.     ';
  34.  
  35.     print "<hr size=\"1\">";
  36.  
  37. #
  38. # make checkin log table
  39. #
  40. print "<font color=\"#dd0000\"> Log-on No. : Name : Location : Day & Time </font><br>";
  41.  
  42.  
  43. open (LOG, "$ThemePath/logs/C");
  44. while (<LOG>) {
  45.     chop;
  46.     ($num, $name, $locate, $date) = split(/ : /, $_);
  47.     print "$num : $name : <font color=\"#66cc00\">$locate</font> : $date\n";
  48.     print "<br>";
  49. }
  50.  
  51. #
  52. # print checkin log page's footer
  53. #
  54. print "<p>\n";
  55. print '
  56.     <a href="http://park.org/Japan/Theme/mplog/index.html" target="_top">
  57.     [back to the previous page]</a><br>
  58.     <font size="2">[back to "sensorium"
  59.     <a href="http://park.org/Japan/Theme/japanese/index.html" target="_top">Japanese</a> /
  60.     <a href="http://park.org/Japan/Theme/index.html" target="_top">English</a> 
  61.     homepage]</a></font><p>
  62.  
  63.     </body>
  64.  
  65.     <hr>
  66.     <address><center>
  67.     <font size="2">
  68.     Theme pavilion "sensorium" </font><font size="1">
  69.     (<a href="http://park.org/Japan/Theme/index.html" target="_top">
  70.     go sensorium home page</a>)<br>
  71.     INTERNET 1996 WORLD EXPOSITION 
  72.     (<a href="http://park.org/main.text.html" target="_top">go World Public Park</a>) / 
  73.     JAPAN (<a href="http://park.org/Japan/" target="_top">go Japan EXPO home page</a>)</font>
  74.     </center></address>
  75.     </html>
  76.     ';
  77. ### sub routines ###
  78. #
  79. # JIS ñ╟printñ╣ñδ
  80. #
  81. sub ac_kprint {
  82.     ($ac_print_line) = @_;
  83.     $code = &jcode'convert(*ac_print_line, 'jis');    
  84.     print "$ac_print_line";
  85. }
  86.  
  87. 1;
  88.