1 ###############################################################################
3 # MIME¥¿¥¤¥×¤ÎÀßÄê¤ò¹Ô¤¦¥¢¥¯¥·¥ç¥ó¥Ï¥ó¥É¥é
5 ###############################################################################
6 package plugin::attach::AdminMIMEHandler;
9 #==============================================================================
11 #==============================================================================
15 return bless $self,$class;
18 #==============================================================================
19 # ¥¢¥¯¥·¥ç¥ó¥Ï¥ó¥É¥é¥á¥½¥Ã¥É
20 #==============================================================================
24 my $cgi = $wiki->get_CGI;
26 $wiki->set_title("MIME¥¿¥¤¥×¤ÎÀßÄê");
28 if($cgi->param("ADD") ne ""){
29 return $self->add($wiki);
31 } elsif($cgi->param("DELETE") ne ""){
32 return $self->delete($wiki);
35 return $self->form($wiki);
39 #==============================================================================
41 #==============================================================================
45 my $buf = "<h2>MIME¥¿¥¤¥×¤ÎÅÐÏ¿</h2>\n".
46 "<form action=\"".$wiki->create_url()."\" method=\"POST\">\n".
47 " ³ÈÄ¥»Ò¡Ê¥É¥Ã¥È¤ÏÉÔÍ×¡Ë <input type=\"text\" name=\"extention\" size=\"5\">\n".
48 " MIME¥¿¥¤¥× <input type=\"text\" name=\"mimetype\" size=\"20\">\n".
49 " <input type=\"submit\" name=\"ADD\" value=\"ÅÐÏ¿\">\n".
50 " <input type=\"hidden\" name=\"action\" value=\"ADMINMIME\">\n".
52 "<h2>ÅÐÏ¿ºÑ¤ÎMIME¥¿¥¤¥×</h2>\n".
53 "<form action=\"".$wiki->create_url()."\" method=\"POST\">\n".
55 "<tr><th> </td><th>³ÈÄ¥»Ò</th><th>MIME¥¿¥¤¥×</th></tr>\n";
57 my $mime = &Util::load_config_hash($wiki,$wiki->config('mime_file'));
59 foreach my $key (sort(keys(%$mime))){
61 " <td><input type=\"checkbox\" name=\"extention\" value=\"".&Util::escapeHTML($key)."\"></td>\n".
62 " <td>".&Util::escapeHTML($key)."</td>\n".
63 " <td>".&Util::escapeHTML($mime->{$key})."</td>\n".
67 "<input type=\"submit\" name=\"DELETE\" value=\"ÁªÂò¹àÌܤòºï½ü\">\n".
68 "<input type=\"hidden\" name=\"action\" value=\"ADMINMIME\">\n".
74 #==============================================================================
76 #==============================================================================
80 my $cgi = $wiki->get_CGI();
82 my $ext = $cgi->param("extention");
83 my $mime = $cgi->param("mimetype");
85 if($ext ne "" && $mime ne ""){
86 my $hash = &Util::load_config_hash($wiki,$wiki->config('mime_file'));
87 $hash->{$ext} = $mime;
88 &Util::save_config_hash($wiki,$wiki->config('mime_file'),$hash);
89 $wiki->redirectURL($wiki->create_url({ action=>"ADMINMIME"}) );
90 #return $self->form($wiki);
93 return $wiki->error(RC_BAD_REQUEST, "³ÈÄ¥»Ò¤ÈMIME¥¿¥¤¥×¤òÆþÎϤ·¤Æ¤¯¤À¤µ¤¤¡£");
97 #==============================================================================
99 #==============================================================================
103 my $cgi = $wiki->get_CGI();
105 my @ext_list = $cgi->param("extention");
106 my $hash = &Util::load_config_hash($wiki,$wiki->config('mime_file'));
109 foreach my $key (keys(%$hash)){
111 foreach my $ext (@ext_list){
118 $result->{$key} = $hash->{$key};
122 &Util::save_config_hash($wiki,$wiki->config('mime_file'),$result);
123 $wiki->redirectURL($wiki->create_url({action=>"ADMINMIME"}) );
125 #return $self->form($wiki);