1 ############################################################
3 # <p>¥Õ¥¡¥¤¥ë¤òźÉÕ¤¹¤ë¤¿¤á¤Î¥Õ¥©¡¼¥à¤òɽ¼¨¤·¤Þ¤¹¡£</p>
8 # źÉÕ¤·¤¿¥Õ¥¡¥¤¥ë¤Ï¥Õ¥©¡¼¥à¤Î¾å¤Ë°ìÍ÷ɽ¼¨¤µ¤ì¤Þ¤¹¡£
9 # Ʊ¤¸¥Õ¥¡¥¤¥ë¤òźÉÕ¤¹¤ë¤ÈÊ£¿ôɽ¼¨¤µ¤ì¤Æ¤·¤Þ¤¦¤Î¤Ï¤´°¦ÕȤǤ¹¡£
10 # nolist¥ª¥×¥·¥ç¥ó¤ò¤Ä¤±¤ë¤È°ìÍ÷ɽ¼¨¤ò¹Ô¤¤¤Þ¤»¤ó¡£
16 ############################################################
17 package plugin::attach::Attach;
19 #===========================================================
21 #===========================================================
25 return bless $self,$class;
28 #===========================================================
29 # ¥×¥é¥°¥¤¥ó¤Î¼ïÊ̤òÊÖ¤·¤Þ¤¹
30 #===========================================================
35 #===========================================================
37 #===========================================================
42 my $cgi = $wiki->get_CGI;
43 my $page = $cgi->param("page");
45 if(!defined($option) || $option ne "nolist"){
46 if(!defined($self->{$page})){
52 $self->{$page} = undef;
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";
61 if(defined($self->{$page})){
62 $buf .= " <input type=\"hidden\" name=\"count\" value=\"".$self->{$page}."\">\n";