plugin/comment/Comment.pm

   1 ############################################################
   2 #
   3 # <p>£±¹Ô¥³¥á¥ó¥È¤ò½ñ¤¹þ¤à¤¿¤á¤Î¥Õ¥©¡¼¥à¤ò½ÐÎÏ¤·¤Þ¤¹¡£</p>
   4 # <pre>
   5 # {{comment}}
   6 # </pre>
   7 # <p>
   8 #   ÄÌ¾ï¡¢¥³¥á¥ó¥È¤ÏÅê¹Æ¥Õ¥©¡¼¥à¤Î²¼¤ËÄÉ²Ã¤µ¤ì¤Æ¤¤¤¤Þ¤¹¤¬¡¢
   9 #   ¥ª¥×¥·¥ç¥ó¤Ç¥Õ¥©¡¼¥à¤Î¾å¤Ë¿·Ãå½çÉ½¼¨¤¹¤ë¤è¤¦¤Ë¤Ç¤¤Þ¤¹¡£
  10 # </p>
  11 # <pre>
  12 # {{comment reverse}}
  13 # </pre>
  14 # <p>
  15 #   tail¥ª¥×¥·¥ç¥ó¤ò¤Ä¤±¤ë¤È¥Ú¡¼¥¸¤ÎºÇ¸å¤Ë¥³¥á¥ó¥È¤òÄÉ²Ã¤·¤Þ¤¹¡£
  16 #   ¥Õ¥Ã¥¿¤Ê¤É¤Ëcomment¥×¥é¥°¥¤¥ó¤òÇÛÃÖ¤·¤ÆÁ´¥Ú¡¼¥¸¤Ë¥³¥á¥ó¥È¤ò
  17 #   ¤Ä¤±¤¿¤¤¾ì¹ç¤ËÍ¸ú¤Ç¤¹¡£
  18 # </p>
  19 # <pre>
  20 # {{comment tail}}
  21 # </pre>
  22 #
  23 ############################################################
  24 package plugin::comment::Comment;
  25 use strict;
  26 #===========================================================
  27 # ¥³¥ó¥¹¥È¥é¥¯¥¿
  28 #===========================================================
  29 sub new {
  30         my $class = shift;
  31         my $self = {};
  32         return bless $self,$class;
  33 }
  34
  35 #===========================================================
  36 # ¥³¥á¥ó¥È¥Õ¥©¡¼¥à
  37 #===========================================================
  38 sub paragraph {
  39         my $self = shift;
  40         my $wiki = shift;
  41         my $opt  = shift;
  42         my $cgi  = $wiki->get_CGI;
  43
  44         my $page = $cgi->param("page");
  45
  46         if(!defined($self->{$page})){
  47                 $self->{$page} = 1;
  48         } else {
  49                 $self->{$page}++;
  50         }
  51
  52         # Ì¾Á°¤ò¼èÆÀ
  53         my $name = $cgi->cookie(-name=>'post_name');
  54         if($name eq ''){
  55                 my $login = $wiki->get_login_info();
  56                 if(defined($login)){
  57                         $name = $login->{id};
  58                 }
  59         }
  60
  61         my $tmpl = HTML::Template->new(filename=>$wiki->config('tmpl_dir')."/comment.tmpl",
  62                                        die_on_bad_params=>0);
  63         $tmpl->param(NAME=>$name);
  64
  65         my $buf = "<form method=\"post\" action=\"".$wiki->create_url()."\">\n".
  66                   $tmpl->output().
  67                   "<input type=\"hidden\" name=\"action\" value=\"COMMENT\">\n".
  68                   "<input type=\"hidden\" name=\"page\" value=\"".&Util::escapeHTML($page)."\">\n".
  69                   "<input type=\"hidden\" name=\"count\" value=\"".$self->{$page}."\">\n".
  70                   "<input type=\"hidden\" name=\"option\" value=\"".&Util::escapeHTML($opt)."\">\n".
  71                   "</form>\n";
  72
  73         return $buf;
  74 }
  75
  76 1;