plugin/attach/Attach.pm

   1 ############################################################
   2 #
   3 # <p>¥Õ¥¡¥¤¥ë¤òÅºÉÕ¤¹¤ë¤¿¤á¤Î¥Õ¥©¡¼¥à¤òÉ½¼¨¤·¤Þ¤¹¡£</p>
   4 # <pre>
   5 # {{attach}}
   6 # </pre>
   7 # <p>
   8 #   ÅºÉÕ¤·¤¿¥Õ¥¡¥¤¥ë¤Ï¥Õ¥©¡¼¥à¤Î¾å¤Ë°ìÍ÷É½¼¨¤µ¤ì¤Þ¤¹¡£
   9 #   Æ±¤¸¥Õ¥¡¥¤¥ë¤òÅºÉÕ¤¹¤ë¤ÈÊ£¿ôÉ½¼¨¤µ¤ì¤Æ¤·¤Þ¤¦¤Î¤Ï¤´°¦ÕÈ¤Ç¤¹¡£
  10 #   nolist¥ª¥×¥·¥ç¥ó¤ò¤Ä¤±¤ë¤È°ìÍ÷É½¼¨¤ò¹Ô¤¤¤Þ¤»¤ó¡£
  11 # </p>
  12 # <pre>
  13 # {{attach nolist}}
  14 # </pre>
  15 #
  16 ############################################################
  17 package plugin::attach::Attach;
  18 use strict;
  19 #===========================================================
  20 # ¥³¥ó¥¹¥È¥é¥¯¥¿
  21 #===========================================================
  22 sub new {
  23         my $class = shift;
  24         my $self = {};
  25         return bless $self,$class;
  26 }
  27
  28 #===========================================================
  29 # ¥×¥é¥°¥¤¥ó¤Î¼ïÊÌ¤òÊÖ¤·¤Þ¤¹
  30 #===========================================================
  31 sub type {
  32         return "html";
  33 }
  34
  35 #===========================================================
  36 # ÅºÉÕ¥Õ¥©¡¼¥à¤ÎÉ½¼¨
  37 #===========================================================
  38 sub paragraph {
  39         my $self   = shift;
  40         my $wiki   = shift;
  41         my $option = shift;
  42         my $cgi    = $wiki->get_CGI;
  43         my $page   = $cgi->param("page");
  44
  45         if(!defined($option) || $option ne "nolist"){
  46                 if(!defined($self->{$page})){
  47                         $self->{$page} = 1;
  48                 } else {
  49                         $self->{$page}++;
  50                 }
  51         } else {
  52                 $self->{$page} = undef;
  53         }
  54
  55         my $buf = "<form action=\"".$wiki->create_url()."\" method=\"post\" enctype=\"multipart/form-data\">\n".
  56                   "  <input type=\"file\" name=\"file\">\n".
  57                   "  <input type=\"submit\" name=\"UPLOAD\" value=\" Åº ÉÕ \">\n".
  58                   "  <input type=\"hidden\" name=\"page\" value=\"". Util::escapeHTML($page)."\">\n".
  59                   "  <input type=\"hidden\" name=\"action\" value=\"ATTACH\">\n";
  60
  61         if(defined($self->{$page})){
  62                 $buf .= "  <input type=\"hidden\" name=\"count\" value=\"".$self->{$page}."\">\n";
  63         }
  64
  65         $buf .= "</form>\n";
  66
  67         return $buf;
  68 }
  69
  70 1;