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_translated.pl < prev    next >
Perl Script  |  2017-09-21  |  4KB  |  171 lines
  1. #!/usr/local/bin/perl
  2.  
  3. # theme_add_comment_translated.pl
  4. # Comments construction program in Japan theme pavilion
  5. # to add translated comment to English comments file
  6. #
  7. # 96/03/08 by haruki@st.rim.or.jp
  8. # 96/03/27 updated 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.  
  36. #
  37. # HTMLÑ╪Ñ├Ñ└╜╨╬╧
  38. #
  39. print "Location: http://chat.expo96.ad.jp/Japan/Theme/forStaff/\n\n";
  40.  
  41.  
  42. #
  43. # Ñ│ÑßÑ≤Ñ╚ñ¼╢⌡ñ╩ñΘ╜¬╬╗
  44. #
  45. if (!$in{'theme_comment_translated'}) {
  46.     &err("Sorry, your comment seems contains no data.\n");
  47. }
  48.  
  49. #
  50. # ñ└ñ∞ñ½ñ¼╜±ñ¡╣■ñ≤ñ╟ñññδ┤╓ñ╧┬╘ñ─
  51. # ñóñ▐ñΩ┬╘ñ─ñ╩ñΘ╜¬╬╗
  52. #
  53. for($count = 0; -f "$ac_tmp"; $count++) {
  54.     sleep(1);
  55.     &err("Sorry, another person is writing now.") if ($count > 5);
  56. }
  57.  
  58.  
  59. #
  60. # Ñ│ÑßÑ≤Ñ╚ñ╬└░╖┴(▓■╣╘▓■╣╘ñ≥<p>ñ╦)
  61. #
  62. $in{'theme_comment_translated'} =~ s/\r//g;
  63. $in{'theme_comment_translated'} =~ s/\n\n/<\/p><p>/g;
  64. $in{'theme_comment_translated'} =~ s/\n//g;
  65. $in{'theme_comment_translated'} =~ s/<p><\/p>//g;
  66.  
  67. #
  68. # ─╔╡¡Ñ╒ÑíÑñÑδñ╦╦Σñß╣■ñ≤ñ╟íótmpñ╦╜±ñ¡ñ└ñ╣
  69. # 
  70. open (TMP, ">$ac_tmp") || &err("Can not open temporary file");
  71. open (FILE, "$ac_comment_file") || &err("Can not open comment file");
  72. while(<FILE>) {
  73.     if (/<!---INSERT HERE--->/) {
  74.      if ($in{'commenter'} eq "Readers' Comment") {
  75.         print TMP "<!---INSERT HERE--->\n";
  76.         print TMP "<!------------ Comments from user ---------->\n";
  77.         print TMP "<table width=450>\n<tr><td width=33 valign=top>\n";
  78.         print TMP "<img src=\"$ac_comment_url/image/zo1.gif\"";
  79.         print TMP "width=32 height=23>\n</td>\n<td width=300>\n";
  80.         if ($in{'theDate'}) {
  81.              print TMP "<font size=1><b>$in{'theDate'}<br>\n";
  82.         } else {
  83.              print TMP "<font size=1><b>$date (Japan)<br>\n";
  84.         }
  85.         if ($in{'theName'}) {
  86.              print TMP "From: $in{'theName'}<br>";
  87.         }
  88.         print TMP "translated at: $date<br>";
  89.         print TMP "</b></font><br>";
  90.         $code = &jcode'convert($in{'theme_comment_translated'}, 'jis');
  91.         print TMP "$in{'theme_comment_translated'}";
  92.         print TMP "</p></td><td width=67></td></tr>\n</table>\n";
  93.     } elsif ($in{'commenter'} eq "Staff Comment") {
  94.         print TMP "<!---INSERT HERE--->\n";
  95.         print TMP "<!------------ Comments from staff ---------->\n";
  96.         print TMP "<table width=450>\n<tr><td width=107></td>\n";
  97.         print TMP "<td width=280>\n";
  98.         if ($in{'theDate'}) {
  99.              print TMP "<font size=1><b>$in{'theDate'}<br>\n";
  100.         } else {
  101.              print TMP "<font size=1><b>$date (Japan)<br>\n";
  102.         }
  103.         print TMP "translated at: $date<br>";
  104.         print TMP "From: \"sensorium\" staff</b></font><br><br>";
  105.         $code = &jcode'convert($in{'theme_comment_translated'}, 'jis');
  106.         print TMP "$in{'theme_comment_translated'}";
  107.         print TMP "</p>";
  108.         print TMP "<td width=33 valign=top><img src=\"$ac_comment_url/image/zo2.gif\"></td>\n";
  109.         print TMP "</tr>\n</table>\n";
  110.  
  111.     }
  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. #
  135.  
  136. #
  137. # tmp Ñ╒ÑíÑñÑδ║∩╜ⁿ
  138. #
  139. unlink "$ac_tmp";
  140.  
  141. #
  142. # ╜¬╬╗
  143. #
  144. exit(0);
  145.  
  146. ### sub routines ###
  147. #
  148. # JIS ñ╟printñ╣ñδ
  149. #
  150. sub ac_kprint {
  151.     ($ac_print_line) = @_;
  152.     $code = &jcode'convert(*ac_print_line, 'jis');    
  153.     print "$ac_print_line";
  154. }
  155.  
  156. #
  157. # Ñ¿ÑΘí╝ñ╬╛∞╣τ
  158. #
  159. sub err{
  160.     print "<html><head>\n";
  161.     print "<title>result</title>";
  162.     print "</head><body bgcolor=\"#ffffff\">\n";
  163.     local($msg) = @_;
  164.     print "<p>$msg</p>\n";
  165.     close FILE;
  166.     close TMP;
  167.     unlink "$ac_tmp";
  168.     print "</BODY></HTML>\n";
  169.     exit;
  170. }
  171.