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.cgi < prev    next >
Text File  |  2017-09-21  |  8KB  |  292 lines
  1. #!/usr/local/bin/perl
  2.  
  3. # theme_add_comment_e.cgi
  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. # updated 96/05/02 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. $ac_comment_file = "$ThemePath/logs/theme_ac_comments.html";
  38. $ac_tmp = "$ThemePath/logs/theme_ac_comments.html.new";
  39. $ac_comment_file_e = "$ThemePath/logs/theme_ac_comments_e.html";
  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. #
  53. $in{'recommend_url'} =~ s/http:\/\///g;
  54.  
  55.  
  56. #
  57. # HTMLÑ╪Ñ├Ñ└╜╨╬╧
  58. #
  59. print "Content-type: text/html\n\n";
  60.  
  61. #
  62. # Ñ│ÑßÑ≤Ñ╚ñ¼╢⌡ñ╩ñΘ╜¬╬╗
  63. #
  64. if (!$in{'theme_comment'} && !$in{'recommend_url'}) {
  65.     &err("Sorry, your comment seems contains no data.\n");
  66. }
  67.  
  68. #
  69. # ñ└ñ∞ñ½ñ¼╜±ñ¡╣■ñ≤ñ╟ñññδ┤╓ñ╧┬╘ñ─
  70. # ñóñ▐ñΩ┬╘ñ─ñ╩ñΘ╜¬╬╗
  71. #
  72. #for($count = 0; -f "$ac_tmp" || -f "$ac_tmp_e"; $count++) {
  73. #    sleep(1);
  74. #    &err_no_unlink("Sorry, another person is writing now.") if ($count > 5);
  75. #}
  76.  
  77.  
  78. # get user's name
  79. &get_cookie;
  80.  
  81. #
  82. # ─╔╡¡Ñ╒ÑíÑñÑδñ╦╦Σñß╣■ñ≤ñ╟íótmpñ╦╜±ñ¡ñ└ñ╣
  83. # 
  84. #open (TMP_E, ">$ac_tmp_e") || &err("Can not open temporary file");
  85. #open (FILE_E, "$ac_comment_file_e") || &err("Can not open comment file");
  86. #while(<FILE_E>) {
  87. #    if (/<!---INSERT HERE--->/) {
  88. #        print TMP_E "<!---INSERT HERE--->\n";
  89. #        print TMP_E "<!------------ Comments from user ---------->\n";
  90. #        print TMP_E "<table width=470>\n<tr><td width=40 valign=top>\n";
  91. #        if ($in{'recommend_url'}) {
  92. #            print TMP_E "<img src=\"$ThemeSite$ThemeURL/comments/image/recom.gif\">\n</td>\n";
  93. #        } else {
  94. #            print TMP_E "<img src=\"$ThemeSite$ThemeURL/comments/image/com.gif\">\n</td>\n";
  95. #        }
  96. #        print TMP_E "<td width=300>\n";
  97. #        print TMP_E "<b> $week $month $day </b><font size=1>$hour:$min $tz $year</font><br>\n";
  98. #        if ($UserName) {
  99. #            print TMP_E "$UserName";
  100. #        }
  101. #        print TMP_E "<img src=\"$ThemeSite$ThemeURL/image/people.gif\">";
  102. #        if ($Location) {
  103. #            print TMP_E "$Location\n";
  104. #        }
  105. #        print TMP_E "<br>";
  106. #        print TMP_E "<font size=\"2\">";
  107. #        if ($url = $in{'recommend_url'}) {
  108. #            print TMP_E "<a href=\"http://$url\">http://$url</a><p>\n";
  109. #        }
  110. #        $code = &jcode'convert($in{'theme_comment'}, 'jis');
  111. #        print TMP_E "$in{'theme_comment'}";
  112. #        print TMP_E "</font></p></td><td width=130></td></tr>\n</table>\n";
  113. #    } else {            
  114. #         print TMP_E $_;        
  115. #    }                
  116. #}
  117. #close(FILE_E);
  118. #close(TMP_E);
  119.  
  120. #
  121. # tmp ñ╬╞Γ═╞ñ≥Ñ│ÑßÑ≤Ñ╚ñ╬HTMLÑ╒ÑíÑñÑδñ╪╛σ╜±ñ¡
  122. #
  123. #open (TMP_E, "<$ac_tmp_e") || &err("Can not open tmp file");
  124. #open (FILE_E, ">$ac_comment_file_e") || &err("Can not open comment file");
  125. #while(<TMP_E>) {
  126. #    print FILE_E $_;
  127. #}
  128. #close(FILE_E);
  129. #close(TMP_E);
  130.  
  131.  
  132. #
  133. # ┐╖ñ╖ññ╞Γ═╞ñ≥╔╕╜α╜╨╬╧ñ╪╜╨╬╧
  134. #
  135. #open (FILE_E, "<$ac_comment_file_e") || &err("Can not open comment file");
  136. #while(<FILE_E>) {
  137. #    &ac_kprint($_);
  138. #}
  139.  
  140. #
  141. # ╞ⁿ╦▄╕∞╚╟─╔╡¡Ñ╒ÑíÑñÑδñ╦╦Σñß╣■ñ≤ñ╟íótmpñ╦╜±ñ¡ñ└ñ╣
  142. # 
  143. #open (TMP, ">$ac_tmp") || &err("Can not open temporary file for japanese");
  144. #open (FILE, "$ac_comment_file") || &err("Can not open comment file for japanese");
  145. #while(<FILE>) {
  146. #    if (/<!---INSERT HERE--->/) {
  147. #        print TMP "<!---INSERT HERE--->\n";
  148. #        print TMP "<!------------ Comments from user ---------->\n";
  149. #        print TMP "<table width=470>\n<tr><td width=40 valign=top>\n";
  150. #        if ($in{'recommend_url'}) {
  151. #            print TMP "<img src=\"$ThemeSite$ThemeURL/comments/image/recom.gif\">\n</td>\n";
  152. #        } else {
  153. #            print TMP "<img src=\"$ThemeSite$ThemeURL/comments/image/com.gif\">\n</td>\n";
  154. #        }
  155. #        print TMP "<td width=300>\n";
  156. #        print TMP "<b> $week $month $day </b><font size=1>$hour:$min $tz $year</font><br>\n";
  157. #        if ($UserName) {
  158. #            print TMP "$UserName";
  159. #        }
  160. #        print TMP "<img src=\"$ThemeSite$ThemeURL/image/people.gif\">";
  161. #        if ($Location) {
  162. #            print TMP "$Location\n";
  163. #        }
  164. #        print TMP "<br>";
  165. #        print TMP "<font size=\"2\">";
  166. #        if ($url = $in{'recommend_url'}) {
  167. #            print TMP "<a href=\"http://$url\">http://$url</a><p>\n";
  168. #        }
  169. #        $code = &jcode'convert($in{'theme_comment'}, 'jis');
  170. #        print TMP "$in{'theme_comment'}";
  171. #        print TMP "</p></td><td width=130></td></tr>\n</table>\n";
  172. #    } else {            
  173. #         print TMP $_;        
  174. #    }                
  175. #}
  176. #close(FILE);
  177. #close(TMP);
  178.  
  179. #
  180. # tmp(j) ñ╬╞Γ═╞ñ≥╞ⁿ╦▄╕∞╚╟Ñ│ÑßÑ≤Ñ╚ñ╬HTMLÑ╒ÑíÑñÑδñ╪╛σ╜±ñ¡
  181. #
  182. #open (TMP, "<$ac_tmp") || &err("Can not open tmp file for japanese");
  183. #open (FILE, ">$ac_comment_file") || &err("Can not open comment file for japanese");
  184. #while(<TMP>) {
  185. #    print FILE $_;
  186. #}
  187. #close(FILE);
  188. #close(TMP);
  189.  
  190.  
  191. #
  192. # ┐╖├σÑ│ÑßÑ≤Ñ╚ñ╬─╠├╬
  193. #
  194. if (open(ML, "| /usr/local/bin/nkf -j | /usr/lib/sendmail theme-staff\@expo96.ad.jp")) {
  195.     print ML "From: sensorium-comment-page\@chat.expo96.ad.jp\n";
  196.     print ML "Subject: New Comment Comes!\n";
  197.     print ML "X-Mailer: theme_add_comment_e.pl\n";
  198.     print ML "\n";
  199.     print ML "Ñ│ÑßÑ≤Ñ╚Ñδí╝Ñα(▒╤╕∞╚╟)ñ╦░╩▓╝ñ╬Ñ│ÑßÑ≤Ñ╚ñ¼╞╧ñ¡ñ▐ñ╖ñ┐íú\n";
  200.     print ML "------------------------------------------------------\n";
  201.     if ($UserName) {
  202.         print ML "From: $UserName\n";
  203.     }
  204.     if ($url = $in{'recommend_url'}) {
  205.         print ML "Recommended URL: http://$url\n";
  206.     }
  207.     $code = &jcode'convert($in{'theme_comment'}, 'jis');
  208.     print ML "$in{'theme_comment'}";
  209. }
  210. close(ML);
  211.  
  212. #
  213. # tmp Ñ╒ÑíÑñÑδ║∩╜ⁿ
  214. #
  215. #unlink "$ac_tmp_e";
  216. #unlink "$ac_tmp";
  217.  
  218. #
  219. # ┼╨╧┐╜¬╬╗▓Φ╠╠
  220. #
  221. print "<html><head>\n";
  222. print "<title>Thank you</title>";
  223. print "</head><body bgcolor=\"#ffffff\">\n";
  224. print "<center><h3>";
  225. print "<p>Thank you!<br>Your message will be added later.";
  226. print "</a></p></h3></center>\n";
  227. print "<hr>";
  228. print "<address><center><font size=\"3\"><i>Theme pavilion \"sensorium\"</i></font><br>";
  229. 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";
  230.  
  231. #
  232. # ╜¬╬╗
  233. #
  234. exit(0);
  235.  
  236. ### sub routines ###
  237. #
  238. # JIS ñ╟printñ╣ñδ
  239. #
  240. sub ac_kprint {
  241.     ($ac_print_line) = @_;
  242.     $code = &jcode'convert(*ac_print_line, 'jis');    
  243.     print "$ac_print_line";
  244. }
  245.  
  246. #
  247. # Ñ¿ÑΘí╝ñ╬╛∞╣τ
  248. #
  249. sub err{
  250.     print "<html><head>\n";
  251.     print "<title>result</title>";
  252.     print "</head><body bgcolor=\"#ffffff\">\n";
  253.     local($msg) = @_;
  254.     print "<p>$msg</p>\n";
  255.     close FILE;
  256.     close TMP;
  257.     unlink "$ac_tmp_e";
  258.     unlink "$ac_tmp";
  259.     print "</BODY></HTML>\n";
  260.     exit;
  261. }
  262.  
  263. sub err_no_unlink{
  264.     print "<html><head>\n";
  265.     print "<title>result</title>";
  266.     print "</head><body bgcolor=\"#ffffff\">\n";
  267.     local($msg) = @_;
  268.     print "<p>$msg</p>\n";
  269.     print "</BODY></HTML>\n";
  270.     exit;
  271. }
  272.  
  273. #
  274. # Ñ┴ѺÑ├Ñ»ÑñÑ≤ñ╖ñ╞ñññδ┐═ñ╬╠╛┴░ñ≥╞└ñδ
  275. # Copyright 1995 Jonathan Haggan
  276. #
  277. sub get_cookie {
  278.   $CookieEnv = $ENV{'HTTP_COOKIE'};
  279.   @Cookies = split(/\;/,$CookieEnv);
  280.   foreach $Cookie (@Cookies) {
  281.     @CurrentCookie = split(/=/,$Cookie);
  282.     $CurrentCookie[0] =~ s/ //;
  283.     if ($CurrentCookie[0] eq 'NAME') {
  284.       $UserName = $CurrentCookie[1];
  285.     }
  286.     if ($CurrentCookie[0] eq 'LOCATION') {
  287.       $Location = $CurrentCookie[1];
  288.     }
  289.   }
  290. }
  291.  
  292.