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_staff.cgi < prev    next >
Text File  |  2017-09-21  |  4KB  |  177 lines
  1. #!/usr/local/bin/perl
  2.  
  3. # theme_add_comment_staff.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. #
  11. # THIS CODE USES THESE LIBRARIES
  12. #
  13. #   cgi-lib.pl  Copyright 1994 Steven E. Brenner
  14. #
  15. #   jcode.pl    Copyright (c) 1991,1992 Software Research Associates, Inc.
  16. #               Original by srekcah@sra.co.jp, Feb 1992
  17. #               Maintained by Kazumasa Utashiro <utashiro@sra.co.jp>
  18. #
  19.  
  20. require 'cgi-lib.pl';
  21. require 'jcode.pl';
  22. require 'meetinit.pl';
  23.  
  24. &ReadParse(*in);        # initialize for cgi-lib
  25.  
  26. #
  27. # ñññφñññφñ╩╩╤┐⌠ñ╬Ñ╗Ñ├Ñ╚
  28. #
  29. $date = `date`;
  30. chop($date);
  31. ($week, $month, $day, $time, $tz, $year) = split(' ', $date);
  32. ($hour, $min, $sec) = split(/:/, $time);
  33. #
  34. # Ñ│ÑßÑ≤Ñ╚ñ≥─╔╡¡ñ╣ñδÑ╒ÑíÑñÑδñ╬░╠├╓ñ≥╞└ñδ
  35. #
  36. $ac_comment_file = "$ThemePath/logs/theme_ac_comments.html";
  37. $ac_tmp = "$ThemePath/logs/theme_ac_comments.html.new";
  38.  
  39. #
  40. # HTMLÑ╪Ñ├Ñ└╜╨╬╧
  41. #
  42. print "Content-type: text/html\n\n";
  43.  
  44.  
  45. #
  46. # Ñ│ÑßÑ≤Ñ╚ñ¼╢⌡ñ╩ñΘ╜¬╬╗
  47. #
  48. if (!$in{'theme_comment_staff'}) {
  49.     &err("Sorry, your comment seems contains no data.\n");
  50. }
  51.  
  52. #
  53. # ñ└ñ∞ñ½ñ¼╜±ñ¡╣■ñ≤ñ╟ñññδ┤╓ñ╧┬╘ñ─
  54. # ñóñ▐ñΩ┬╘ñ─ñ╩ñΘ╜¬╬╗
  55. #
  56. for($count = 0; -f "$ac_tmp"; $count++) {
  57.     sleep(1);
  58.     &err_no_unlink("Sorry, another person is writing now.") if ($count > 5);
  59. }
  60.  
  61.  
  62. #
  63. # Ñ│ÑßÑ≤Ñ╚ñ╬└░╖┴(▓■╣╘▓■╣╘ñ≥<p>ñ╦)
  64. #
  65. $in{'theme_comment_staff'} =~ s/\r//g;
  66. $in{'theme_comment_staff'} =~ s/\n\n/<\/p><p>/g;
  67. $in{'theme_comment_staff'} =~ s/\n//g;
  68. $in{'theme_comment_staff'} =~ s/<p><\/p>//g;
  69.  
  70. #
  71. # ─╔╡¡Ñ╒ÑíÑñÑδñ╦╦Σñß╣■ñ≤ñ╟íótmpñ╦╜±ñ¡ñ└ñ╣
  72. # 
  73. open (TMP, ">$ac_tmp") || &err("Can not open temporary file");
  74. open (FILE, "$ac_comment_file") || &err("Can not open comment file");
  75. while(<FILE>) {
  76.     if (/<!---INSERT HERE--->/) {
  77.         print TMP "<!---INSERT HERE--->\n";
  78.         print TMP "<!------------ Comments from staff ---------->\n";
  79.         print TMP "<table width=470>\n<tr><td width=130></td>\n";
  80.         print TMP "<td width=300>\n";
  81.         print TMP "<b> $week $month $day </b><font size=1>$hour:$min $tz $year<br>\n";
  82.         print TMP "staff<img src=\"$ThemeSite$ThemeURL/image/people.gif\">sensorium</font><br><br>";
  83.         print TMP "<font size=\"2\">";
  84.         $code = &jcode'convert($in{'theme_comment_staff'}, 'jis');
  85.         print TMP "$in{'theme_comment_staff'}";
  86.         print TMP "</p>";
  87.         print TMP "<td width=40 valign=top><img src=\"$ThemeSite$ThemeURL/comments/image/moc.gif\"></td>\n";
  88.         print TMP "</tr>\n</table>\n";
  89.     } else {            
  90.         print TMP $_;        
  91.     }                
  92. }
  93. close(FILE);
  94. close(TMP);
  95.  
  96. #
  97. # tmp ñ╬╞Γ═╞ñ≥Ñ│ÑßÑ≤Ñ╚ñ╬HTMLÑ╒ÑíÑñÑδñ╪╛σ╜±ñ¡
  98. #
  99. open (TMP, "<$ac_tmp") || &err("Can not open tmp file");
  100. open (FILE, ">$ac_comment_file") || &err("Can not open comment file");
  101. while(<TMP>) {
  102.     print FILE $_;
  103. }
  104. close(FILE);
  105. close(TMP);
  106.  
  107.  
  108. #
  109. # ┐╖ñ╖ññ╞Γ═╞ñ≥╔╕╜α╜╨╬╧ñ╪╜╨╬╧
  110. #
  111. open (FILE, "<$ac_comment_file") || &err("Can not open comment file");
  112. while(<FILE>) {
  113.     &ac_kprint($_);
  114. }
  115.  
  116. #
  117. # ┐╖├σÑ│ÑßÑ≤Ñ╚ñ╬─╠├╬
  118. #
  119. if (open(ML, "| /usr/local/bin/nkf -j | /usr/lib/sendmail theme-staff\@expo96.ad.jp")) {
  120.     print ML "From: \(Sensorium Comment Staff Page\)\n";
  121.     print ML "From: sensorium-staff-page\@chat.expo96.ad.jp\n";
  122.     print ML "Subject: New Comment from Staff Comes!\n";
  123.     print ML "X-Mailer: theme_add_comment_staff.pl\n";
  124.     print ML "\n";
  125.     print ML "Ñ│ÑßÑ≤Ñ╚Ñδí╝Ñαñ╦░╩▓╝ñ╬Ñ╣Ñ┐Ñ├Ñ╒ñ½ñΘñ╬Ñ│ÑßÑ≤Ñ╚ñ¼─╔▓├ñ╡ñ∞ñ▐ñ╖ñ┐íú\n";
  126.     print ML "------------------------------------------------------\n";
  127.    $code = &jcode'convert($in{'theme_comment_staff'}, 'jis');
  128.     print ML "$in{'theme_comment_staff'}";
  129. }
  130. close(ML);
  131.  
  132. #
  133. # tmp Ñ╒ÑíÑñÑδ║∩╜ⁿ
  134. #
  135. unlink "$ac_tmp";
  136.  
  137. #
  138. # ╜¬╬╗
  139. #
  140. exit(0);
  141.  
  142. ### sub routines ###
  143. #
  144. # JIS ñ╟printñ╣ñδ
  145. #
  146. sub ac_kprint {
  147.     ($ac_print_line) = @_;
  148.     $code = &jcode'convert(*ac_print_line, 'jis');    
  149.     print "$ac_print_line";
  150. }
  151.  
  152. #
  153. # Ñ¿ÑΘí╝ñ╬╛∞╣τ
  154. #
  155. sub err{
  156.     print "<html><head>\n";
  157.     print "<title>result</title>";
  158.     print "</head><body bgcolor=\"#ffffff\">\n";
  159.     local($msg) = @_;
  160.     print "<p>$msg</p>\n";
  161.     close FILE;
  162.     close TMP;
  163.     unlink "$ac_tmp";
  164.     print "</BODY></HTML>\n";
  165.     exit;
  166. }
  167.  
  168. sub err_no_unlink{
  169.     print "<html><head>\n";
  170.     print "<title>result</title>";
  171.     print "</head><body bgcolor=\"#ffffff\">\n";
  172.     local($msg) = @_;
  173.     print "<p>$msg</p>\n";
  174.     print "</BODY></HTML>\n";
  175.     exit;
  176. }
  177.