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 / theme_read_comment_e.cgi < prev    next >
Text File  |  2017-09-21  |  973b  |  52 lines
  1. #!/usr/local/bin/perl
  2.  
  3. # theme_read_comment_e.cgi
  4. # Comments reader program in Japan theme pavilion for English page
  5. # kawauso@acs.dnp.co.jp
  6. # 95/12/27
  7. # 96/05/01 updated by haruki@st.rim.or.jp
  8. # THIS CODE USES THESE LIBRARIES
  9. #
  10. #   jcode.pl    Copyright (c) 1991,1992 Software Research Associates, Inc.
  11. #               Original by srekcah@sra.co.jp, Feb 1992
  12. #               Maintained by Kazumasa Utashiro <utashiro@sra.co.jp>
  13. #
  14.  
  15.  
  16. require 'jcode.pl';
  17. require 'meetinit.pl';
  18.  
  19. #
  20. # Ñ│ÑßÑ≤Ñ╚Ñ╒ÑíÑñÑδñ╬░╠├╓ñ≥╞└ñδ
  21. #
  22. $ac_comment_file_e = "$ThemePath/logs/theme_ac_comments_e.html";
  23.  
  24. #
  25. # HTMLÑ╪Ñ├Ñ└╜╨╬╧
  26. #
  27. print "Content-type: text/html\n\n";
  28.  
  29.  
  30. #
  31. # Ñ│ÑßÑ≤Ñ╚Ñ╒ÑíÑñÑδñ≥╔╕╜α╜╨╬╧ñ╪╜╨╬╧
  32. #
  33. open (FILE, "<$ac_comment_file_e") || &err("Can not open comment file");
  34. while (<FILE>) {
  35.     $code = &jcode'convert(*_, 'jis');
  36.     print $_;
  37. }
  38. close(FILE);
  39.  
  40.  
  41. #
  42. # Ñ¿ÑΘí╝ñ╬╛∞╣τ
  43. #
  44. sub err{
  45.     local($msg) = @_;
  46.     print "<p>$msg</p>\n";
  47.     close FILE;
  48.     print "</BODY></HTML>\n";
  49.     exit;
  50. }
  51.  
  52.