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 / theme_add_comment.pl < prev    next >
Perl Script  |  2017-09-21  |  4KB  |  169 lines
  1. #!/usr/local/bin/perl
  2.  
  3. # theme_add_comment.pl
  4. # Comments construction program in Japan theme pavilion
  5. # kawauso@acs.dnp.co.jp
  6. # 95/12/27
  7. #
  8. # THIS CODE USES THESE LIBRARIES
  9. #
  10. #   cgi-lib.pl  Copyright 1994 Steven E. Brenner
  11. #
  12. #   jcode.pl    Copyright (c) 1991,1992 Software Research Associates, Inc.
  13. #               Original by srekcah@sra.co.jp, Feb 1992
  14. #               Maintained by Kazumasa Utashiro <utashiro@sra.co.jp>
  15. #
  16.  
  17. require 'cgi-lib.pl';
  18. require 'jcode.pl';
  19.  
  20. &ReadParse(*in);        # initialize for cgi-lib
  21.  
  22. #
  23. # ñññφñññφñ╩╩╤┐⌠ñ╬Ñ╗Ñ├Ñ╚
  24. #
  25. $date = `date -u`;
  26. chop($date);
  27. #
  28. # Ñ│ÑßÑ≤Ñ╚ñ≥─╔╡¡ñ╣ñδÑ╒ÑíÑñÑδñ╬░╠├╓ñ≥╞└ñδ
  29. #
  30. ########
  31. #### www.mediagalxy.co.jpÑ╞Ñ╣Ñ╚═╤ ═╫╜±ñ¡╩╤ñ¿
  32. ########
  33. $ac_comment_file = "/stage/htdocs/Japan/Theme/logs/theme_ac_comments.html";
  34. $ac_comment_url = "http://chat.expo96.ad.jp/Japan/Theme/sense";
  35. $ac_tmp = "/stage/htdocs/Japan/Theme/logs/theme_ac_comments.html.new";
  36.  
  37. #
  38. # HTMLÑ╪Ñ├Ñ└╜╨╬╧
  39. #
  40. print "Content-type: text/html\n\n";
  41.  
  42.  
  43. #
  44. # Ñ│ÑßÑ≤Ñ╚ñ¼╢⌡ñ╩ñΘ╜¬╬╗
  45. #
  46. if (!$in{'theme_comment'}) {
  47.     &err("Sorry, your comment seems contains no data.\n");
  48. }
  49.  
  50. #
  51. # ñ└ñ∞ñ½ñ¼╜±ñ¡╣■ñ≤ñ╟ñññδ┤╓ñ╧┬╘ñ─
  52. # ñóñ▐ñΩ┬╘ñ─ñ╩ñΘ╜¬╬╗
  53. #
  54. for($count = 0; -f "$ac_tmp"; $count++) {
  55.     sleep(1);
  56.     &err("Sorry, another person is writing now.") if ($count > 5);
  57. }
  58.  
  59. #
  60. # ─╔╡¡Ñ╒ÑíÑñÑδñ╦╦Σñß╣■ñ≤ñ╟íótmpñ╦╜±ñ¡ñ└ñ╣
  61. # 
  62. open (TMP, ">$ac_tmp") || &err("Can not open temporary file");
  63. open (FILE, "$ac_comment_file") || &err("Can not open comment file");
  64. while(<FILE>) {
  65.     if (/<!---INSERT HERE--->/) {
  66.     print TMP "<!---INSERT HERE--->\n";
  67.     print TMP "<!------------ Comments from user ---------->\n";
  68.     print TMP "<table width=450>\n<tr><td width=33 valign=top>\n";
  69.     print TMP "<img src=\"$ac_comment_url/image/zo1.gif\"";
  70.     print TMP "width=32 height=23>\n</td>\n<td width=300>\n";
  71.     print TMP "<font size=1><b>$date</b><br></font><br>\n";
  72.     $code = &jcode'convert($in{'theme_comment'}, 'jis');
  73.     print TMP "$in{'theme_comment'}";
  74.     print TMP "</p></td><td width=67></td></tr>\n</table>\n";
  75.     } else {            
  76.     print TMP $_;        
  77.     }                
  78. }
  79. close(FILE);
  80. close(TMP);
  81.  
  82. #
  83. # tmp ñ╬╞Γ═╞ñ≥Ñ│ÑßÑ≤Ñ╚ñ╬HTMLÑ╒ÑíÑñÑδñ╪╛σ╜±ñ¡
  84. #
  85. open (TMP, "<$ac_tmp") || &err("Can not open tmp file");
  86. open (FILE, ">$ac_comment_file") || &err("Can not open comment file");
  87. while(<TMP>) {
  88.     print FILE $_;
  89. }
  90. close(FILE);
  91. close(TMP);
  92.  
  93.  
  94. #
  95. # ┐╖ñ╖ññ╞Γ═╞ñ≥╔╕╜α╜╨╬╧ñ╪╜╨╬╧
  96. #
  97. open (FILE, "<$ac_comment_file") || &err("Can not open comment file");
  98. while(<FILE>) {
  99.     &ac_kprint($_);
  100. }
  101.  
  102. #
  103. # ┼╨╧┐╜¬╬╗HTML╜╨╬╧
  104. #
  105. #&ac_kprint("<h3><p align=center>ñóñΩñ¼ñ╚ñªñ┤ñ╢ñññ▐ñ╣íú<br>\n");
  106. #&ac_kprint("ñóñ╩ñ┐ñ╬Ñ│ÑßÑ≤Ñ╚ñ≥<a href=\"$ac_comment_url/comments.html\">");
  107. #&ac_kprint("╡─╗÷╧┐</a>ñ╦─╔▓├ñ╖ñ▐ñ╖ñ┐íú</p>\n");
  108. #print "<p align=center>Thank you!<br>\nYour comment has added to";
  109. #print "<a href=\"$ac_comment_url/comments.html\">";
  110. #print "COMMENT LIST.</a></p></h3>\n";
  111.  
  112.  
  113. #
  114. # tmp Ñ╒ÑíÑñÑδ║∩╜ⁿ
  115. #
  116. unlink "$ac_tmp";
  117.  
  118. #
  119. # JIS ñ╟printñ╣ñδ
  120. #
  121. sub ac_kprint {
  122.     ($ac_print_line) = @_;
  123.     $code = &jcode'convert(*ac_print_line, 'jis');    
  124.     print "$ac_print_line";
  125. }
  126.  
  127. #
  128. # Ñ¿ÑΘí╝ñ╬╛∞╣τ
  129. #
  130. sub err{
  131.     print "<html><head>\n";
  132.     print "<title>result</title>";
  133.     print "</head><body bgcolor=\"#ffffff\">\n";
  134.     local($msg) = @_;
  135.     print "<p>$msg</p>\n";
  136.     close FILE;
  137.     close TMP;
  138.     unlink "$ac_tmp";
  139.     print "</BODY></HTML>\n";
  140.     exit;
  141. }
  142.  
  143.  
  144. #
  145. # Ñ┴ѺÑ├Ñ»ÑñÑ≤ñ╖ñ╞ñññδ┐═ñ╬╠╛┴░ñ≥╞└ñδ
  146. # Copyright 1995 Jonathan Haggan
  147. #
  148. sub get_cookie {
  149.   $CookieEnv = $ENV{'HTTP_COOKIE'};
  150.   @Cookies = split(/\;/,$CookieEnv);
  151.   foreach $Cookie (@Cookies) {
  152. #       print "Cookie : $Cookie\n";
  153.  
  154.     @CurrentCookie = split(/=/,$Cookie);
  155.     $CurrentCookie[0] =~ s/ //;
  156. #      print "Cookie0 : A$CurrentCookie[0]B\n\n";
  157. #      print "Cookie1 : $CurrentCookie[1]\n\n";
  158.     if ($CurrentCookie[0] eq 'NAME') {
  159.       $UserName = $CurrentCookie[1];
  160. #      print "Cookieif : $UserName";
  161.     }
  162.     if ($CurrentCookie[0] eq 'LOCATION') {
  163.       $Location = $CurrentCookie[1];
  164.     }
  165.     $UserName = "$UserName\@$Location";
  166.   }
  167. }
  168.  
  169.