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_test.pl < prev    next >
Perl Script  |  2017-09-21  |  4KB  |  174 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. #
  9. # THIS CODE USES THESE LIBRARIES
  10. #
  11. #   cgi-lib.pl  Copyright 1994 Steven E. Brenner
  12. #
  13. #   jcode.pl    Copyright (c) 1991,1992 Software Research Associates, Inc.
  14. #               Original by srekcah@sra.co.jp, Feb 1992
  15. #               Maintained by Kazumasa Utashiro <utashiro@sra.co.jp>
  16. #
  17.  
  18. require 'cgi-lib.pl';
  19. require 'jcode.pl';
  20.  
  21. &ReadParse(*in);        # initialize for cgi-lib
  22.  
  23. #
  24. # éóéδéóéδé╚ò╧Éöé╠âZâbâg
  25. #
  26. $date = `date`;
  27. chop($date);
  28. #
  29. # âRâüâôâgé≡Æ╟ïLé╖éΘâtâ@âCâïé╠ê╩Æué≡ô╛éΘ
  30. #
  31. $ac_comment_file = "/stage/htdocs/Japan/Theme/logs/theme_ac_comments_test.html";
  32. $ac_comment_url = "http://chat.expo96.ad.jp/Japan/Theme/sense";
  33. $ac_tmp = "/stage/htdocs/Japan/Theme/logs/theme_ac_comments_test.html.new";
  34.  
  35. #
  36. # HTMLâwâbâ_Åoù═
  37. #
  38. #print "Content-type: text/html\n\n";
  39. print "Location: http://chat.expo96.ad.jp/Japan/Theme/forStaff/\n\n";
  40.  
  41.  
  42. #
  43. # âRâüâôâgé¬ï≤é╚éτÅIù╣
  44. #
  45. if (!$in{'theme_comment_translated'}) {
  46.     &err("Sorry, your comment seems contains no data.\n");
  47. }
  48.  
  49. #
  50. # é╛éΩé⌐é¬Åæé½ì₧é±é┼éóéΘè╘é═æ╥é┬
  51. # éáé▄éΦæ╥é┬é╚éτÅIù╣
  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. # âRâüâôâgé╠É«î`(ëⁿìsëⁿìsé≡<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. # Æ╟ïLâtâ@âCâïé╔ûäé▀ì₧é±é┼üAtmpé╔Åæé½é╛é╖
  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 é╠ôαùeé≡âRâüâôâgé╠HTMLâtâ@âCâïé╓ÅπÅæé½
  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. # ÉVé╡éóôαùeé≡òWÅÇÅoù═é╓Åoù═
  133. #
  134. #open (FILE, "<$ac_comment_file") || &err("Can not open comment file");
  135. #while(<FILE>) {
  136. #    &ac_kprint($_);
  137. #}
  138.  
  139. #
  140. # tmp âtâ@âCâïìφÅ£
  141. #
  142. unlink "$ac_tmp";
  143.  
  144. #
  145. # ÅIù╣
  146. #
  147. exit(0);
  148.  
  149. ### sub routines ###
  150. #
  151. # JIS é┼printé╖éΘ
  152. #
  153. sub ac_kprint {
  154.     ($ac_print_line) = @_;
  155.     $code = &jcode'convert(*ac_print_line, 'jis');    
  156.     print "$ac_print_line";
  157. }
  158.  
  159. #
  160. # âGâëü[é╠ÅΩìç
  161. #
  162. sub err{
  163.     print "<html><head>\n";
  164.     print "<title>result</title>";
  165.     print "</head><body bgcolor=\"#ffffff\">\n";
  166.     local($msg) = @_;
  167.     print "<p>$msg</p>\n";
  168.     close FILE;
  169.     close TMP;
  170.     unlink "$ac_tmp";
  171.     print "</BODY></HTML>\n";
  172.     exit;
  173. }
  174.