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_add_comment_e.pl < prev    next >
Perl Script  |  2017-09-21  |  7KB  |  262 lines
  1. #!/usr/local/bin/perl
  2.  
  3. # theme_add_comment_e.pl
  4. # Comments construction program in Japan theme pavilion for English page
  5. # kawauso@acs.dnp.co.jp
  6. # 95/12/27
  7. # updated 96/02/13 by haruki@st.rim.or.jp
  8. # updated 96/03/08 by haruki@st.rim.or.jp
  9. #
  10. # THIS CODE USES THESE LIBRARIES
  11. #
  12. #   cgi-lib.pl  Copyright 1994 Steven E. Brenner
  13. #
  14. #   jcode.pl    Copyright (c) 1991,1992 Software Research Associates, Inc.
  15. #               Original by srekcah@sra.co.jp, Feb 1992
  16. #               Maintained by Kazumasa Utashiro <utashiro@sra.co.jp>
  17. #
  18.  
  19. require 'cgi-lib.pl';
  20. require 'jcode.pl';
  21.  
  22. &ReadParse(*in);        # initialize for cgi-lib
  23.  
  24. #
  25. # ñññφñññφñ╩╩╤┐⌠ñ╬Ñ╗Ñ├Ñ╚
  26. #
  27. $date = `date`;
  28. chop($date);
  29. #
  30. # Ñ│ÑßÑ≤Ñ╚ñ≥─╔╡¡ñ╣ñδÑ╒ÑíÑñÑδñ╬░╠├╓ñ≥╞└ñδ
  31. #
  32. $ac_comment_file = "/stage/htdocs/Japan/Theme/logs/theme_ac_comments_e.html";
  33. $ac_comment_url = "http://chat.expo96.ad.jp/Japan/Theme/sense";
  34. $ac_tmp = "/stage/htdocs/Japan/Theme/logs/theme_ac_comments_e.html.new";
  35. $ac_comment_file_j = "/stage/htdocs/Japan/Theme/logs/theme_ac_comments.html";
  36. $ac_tmp_j = "/stage/htdocs/Japan/Theme/logs/theme_ac_comments.html.new";
  37.  
  38.  
  39. #
  40. # HTMLÑ╪Ñ├Ñ└╜╨╬╧
  41. #
  42. print "Content-type: text/html\n\n";
  43.  
  44.  
  45. #
  46. # Ñ│ÑßÑ≤Ñ╚ñ¼╢⌡ñ╩ñΘ╜¬╬╗
  47. #
  48. if (!$in{'theme_comment'}) {
  49.     &err("Sorry, your comment seems contains no data.\n");
  50. }
  51.  
  52. #
  53. # ñ└ñ∞ñ½ñ¼╜±ñ¡╣■ñ≤ñ╟ñññδ┤╓ñ╧┬╘ñ─
  54. # ñóñ▐ñΩ┬╘ñ─ñ╩ñΘ╜¬╬╗
  55. #
  56. for($count = 0; -f "$ac_tmp" || -f "$ac_tmp_j"; $count++) {
  57.     sleep(1);
  58.     &err("Sorry, another person is writing now.") if ($count > 5);
  59. }
  60.  
  61.  
  62. #
  63. # Ñ│ÑßÑ≤Ñ╚ñ╬└░╖┴(▓■╣╘▓■╣╘ñ≥<p>ñ╦)
  64. #
  65. $in{'theme_comment'} =~ s/\r//g;
  66. $in{'theme_comment'} =~ s/\n\n/<\/p><p>/g;
  67. $in{'theme_comment'} =~ s/\n//g;
  68. $in{'theme_comment'} =~ s/<p><\/p>//g;
  69.  
  70. # get user's name
  71. get_cookie($UserName);
  72.  
  73. #
  74. # ─╔╡¡Ñ╒ÑíÑñÑδñ╦╦Σñß╣■ñ≤ñ╟íótmpñ╦╜±ñ¡ñ└ñ╣
  75. # 
  76. open (TMP, ">$ac_tmp") || &err("Can not open temporary file");
  77. open (FILE, "$ac_comment_file") || &err("Can not open comment file");
  78. while(<FILE>) {
  79.     if (/<!---INSERT HERE--->/) {
  80.     print TMP "<!---INSERT HERE--->\n";
  81.     print TMP "<!------------ Comments from user ---------->\n";
  82.     print TMP "<table width=450>\n<tr><td width=33 valign=top>\n";
  83.     print TMP "<img src=\"$ac_comment_url/image/zo1.gif\"";
  84.     print TMP "width=32 height=23>\n</td>\n<td width=300>\n";
  85.     print TMP "<font size=1><b>$date (Japan)<br>\n";
  86.     if ($UserName) {
  87.         print TMP "From: $UserName </b></font><br>";
  88.     }
  89.     print TMP "</b></font><br>";
  90.     $code = &jcode'convert($in{'theme_comment'}, 'jis');
  91.     print TMP "$in{'theme_comment'}";
  92.     print TMP "</p></td><td width=67></td></tr>\n</table>\n";
  93.     } else {            
  94.     print TMP $_;        
  95.     }                
  96. }
  97. close(FILE);
  98. close(TMP);
  99.  
  100. #
  101. # tmp ñ╬╞Γ═╞ñ≥Ñ│ÑßÑ≤Ñ╚ñ╬HTMLÑ╒ÑíÑñÑδñ╪╛σ╜±ñ¡
  102. #
  103. open (TMP, "<$ac_tmp") || &err("Can not open tmp file");
  104. open (FILE, ">$ac_comment_file") || &err("Can not open comment file");
  105. while(<TMP>) {
  106.     print FILE $_;
  107. }
  108. close(FILE);
  109. close(TMP);
  110.  
  111.  
  112. #
  113. # ┐╖ñ╖ññ╞Γ═╞ñ≥╔╕╜α╜╨╬╧ñ╪╜╨╬╧
  114. #
  115. open (FILE, "<$ac_comment_file") || &err("Can not open comment file");
  116. while(<FILE>) {
  117.     &ac_kprint($_);
  118. }
  119.  
  120. #
  121. # ╞ⁿ╦▄╕∞╚╟─╔╡¡Ñ╒ÑíÑñÑδñ╦╦Σñß╣■ñ≤ñ╟íótmpñ╦╜±ñ¡ñ└ñ╣
  122. # 
  123. open (TMP_J, ">$ac_tmp_j") || &err("Can not open temporary file for japanese");
  124. open (FILE_J, "$ac_comment_file_j") || &err("Can not open comment file for japanese");
  125. while(<FILE_J>) {
  126.     if (/<!---INSERT HERE--->/) {
  127.     print TMP_J "<!---INSERT HERE--->\n";
  128.     print TMP_J "<!------------ Comments from user ---------->\n";
  129.     print TMP_J "<table width=450>\n<tr><td width=33 valign=top>\n";
  130.     print TMP_J "<img src=\"$ac_comment_url/image/zo1.gif\"";
  131.     print TMP_J "width=32 height=23>\n</td>\n<td width=300>\n";
  132.     print TMP_J "<font size=1><b>$date (Japan)<br>\n";
  133.     if ($UserName) {
  134.         print TMP_J "From: $UserName </b></font><br>";
  135.     }
  136.     print TMP_J "</b></font><br>";
  137.     $code = &jcode'convert($in{'theme_comment'}, 'jis');
  138.     print TMP_J "$in{'theme_comment'}";
  139.     print TMP_J "</p></td><td width=67></td></tr>\n</table>\n";
  140.     } else {            
  141.     print TMP_J $_;        
  142.     }                
  143. }
  144. close(FILE_J);
  145. close(TMP_J);
  146.  
  147. #
  148. # tmp(j) ñ╬╞Γ═╞ñ≥╞ⁿ╦▄╕∞╚╟Ñ│ÑßÑ≤Ñ╚ñ╬HTMLÑ╒ÑíÑñÑδñ╪╛σ╜±ñ¡
  149. #
  150. open (TMP_J, "<$ac_tmp_j") || &err("Can not open tmp file for japanese");
  151. open (FILE_J, ">$ac_comment_file_j") || &err("Can not open comment file for japanese");
  152. while(<TMP_J>) {
  153.     print FILE_J $_;
  154. }
  155. close(FILE_J);
  156. close(TMP_J);
  157.  
  158.  
  159. #
  160. # ┐╖ñ╖ññ╞Γ═╞ñ≥╔╕╜α╜╨╬╧ñ╪╜╨╬╧
  161. #
  162. open (FILE_J, "<$ac_comment_file_j") || &err("Can not open comment file for japanese");
  163. while(<FILE_J>) {
  164.     &ac_kprint($_);
  165. }
  166.  
  167. #
  168. # ┼╨╧┐╜¬╬╗HTML╜╨╬╧
  169. #
  170. #&ac_kprint("<h3><p align=center>ñóñΩñ¼ñ╚ñªñ┤ñ╢ñññ▐ñ╣íú<br>\n");
  171. #&ac_kprint("ñóñ╩ñ┐ñ╬Ñ│ÑßÑ≤Ñ╚ñ≥<a href=\"$ac_comment_url/comments.html\">");
  172. #&ac_kprint("╡─╗÷╧┐</a>ñ╦─╔▓├ñ╖ñ▐ñ╖ñ┐íú</p>\n");
  173. #print "<p align=center>Thank you!<br>\nYour comment has added to";
  174. #print "<a href=\"$ac_comment_url/comments.html\">";
  175. #print "COMMENT LIST.</a></p></h3>\n";
  176.  
  177.  
  178. #
  179. # ┐╖├σÑ│ÑßÑ≤Ñ╚ñ╬─╠├╬
  180. #
  181. if (open(ML, "| /usr/local/bin/nkf -j | /usr/lib/sendmail theme-staff\@expo96.ad.jp")) {
  182.     print ML "From: sensorium-comment-page\@chat.expo96.ad.jp\n";
  183.     print ML "Subject: New Comment Comes!\n";
  184.     print ML "X-Mailer: theme_add_comment_e.pl\n";
  185.     print ML "\n";
  186.     print ML "Ñ│ÑßÑ≤Ñ╚Ñδí╝Ñα(▒╤╕∞╚╟)ñ╦░╩▓╝ñ╬Ñ│ÑßÑ≤Ñ╚ñ¼╞╧ñ¡ñ▐ñ╖ñ┐íú\n";
  187.     print ML "------------------------------------------------------\n";
  188.     if ($UserName) {
  189.         print ML "From: $UserName\n";
  190.     }
  191.     $code = &jcode'convert($in{'theme_comment'}, 'jis');
  192.     print ML "$in{'theme_comment'}";
  193. }
  194. close(ML);
  195.  
  196. #
  197. # tmp Ñ╒ÑíÑñÑδ║∩╜ⁿ
  198. #
  199. unlink "$ac_tmp";
  200. unlink "$ac_tmp_j";
  201.  
  202. #
  203. # ╜¬╬╗
  204. #
  205. exit(0);
  206.  
  207. ### sub routines ###
  208. #
  209. # JIS ñ╟printñ╣ñδ
  210. #
  211. sub ac_kprint {
  212.     ($ac_print_line) = @_;
  213.     $code = &jcode'convert(*ac_print_line, 'jis');    
  214.     print "$ac_print_line";
  215. }
  216.  
  217. #
  218. # Ñ¿ÑΘí╝ñ╬╛∞╣τ
  219. #
  220. sub err{
  221.     print "<html><head>\n";
  222.     print "<title>result</title>";
  223.     print "</head><body bgcolor=\"#ffffff\">\n";
  224.     local($msg) = @_;
  225.     print "<p>$msg</p>\n";
  226.     close FILE;
  227.     close TMP;
  228.     unlink "$ac_tmp";
  229.     unlink "$ac_tmp_j";
  230.     print "</BODY></HTML>\n";
  231.     exit;
  232. }
  233.  
  234.  
  235. #
  236. # Ñ┴ѺÑ├Ñ»ÑñÑ≤ñ╖ñ╞ñññδ┐═ñ╬╠╛┴░ñ≥╞└ñδ
  237. # Copyright 1995 Jonathan Haggan
  238. #
  239. sub get_cookie {
  240.   $CookieEnv = $ENV{'HTTP_COOKIE'};
  241.   @Cookies = split(/\;/,$CookieEnv);
  242.   foreach $Cookie (@Cookies) {
  243. #       print "Cookie : $Cookie\n";
  244.  
  245.     @CurrentCookie = split(/=/,$Cookie);
  246.     $CurrentCookie[0] =~ s/ //;
  247. #      print "Cookie0 : A$CurrentCookie[0]B\n\n";
  248. #      print "Cookie1 : $CurrentCookie[1]\n\n";
  249.     if ($CurrentCookie[0] eq 'NAME') {
  250.       $UserName = $CurrentCookie[1];
  251. #      print "Cookieif : $UserName";
  252.     }
  253.     if ($CurrentCookie[0] eq 'LOCATION') {
  254.       $Location = $CurrentCookie[1];
  255.     }
  256.   }
  257.   if ($UserName && $Location) {
  258.     $UserName = "$UserName\@$Location";
  259.   }
  260. }
  261.  
  262.