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