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