-###############################################################################\r
-#\r
-# ¥Ú¡¼¥¸¤ò´ÉÍý¤¹¤ë¥â¥¸¥å¡¼¥ë\r
-#\r
-###############################################################################\r
-package plugin::admin::AdminPageHandler;\r
-use strict;\r
-#==============================================================================\r
-# ¥³¥ó¥¹¥È¥é¥¯¥¿\r
-#==============================================================================\r
-sub new {\r
- my $class = shift;\r
- my $self = {};\r
- \r
- # ¥Õ¥£¥ë¥¿¾ðÊó¤òÊݸ¤¹¤ë¥Õ¥¡¥¤¥ë\r
- $self->{filter_file} = "filter.dat";\r
- \r
- return bless $self,$class;\r
-}\r
-\r
-#==============================================================================\r
-# ¥¢¥¯¥·¥ç¥ó¥Ï¥ó¥É¥é¥á¥½¥Ã¥É\r
-#==============================================================================\r
-sub do_action {\r
- my $self = shift;\r
- my $wiki = shift;\r
- my $cgi = $wiki->get_CGI;\r
- my $login = $wiki->get_login_info();\r
- \r
- if($cgi->param("freeze") ne ""){\r
- $self->freeze_page($wiki);\r
- $self->reload($wiki);\r
- \r
- } elsif($cgi->param("unfreeze") ne ""){\r
- $self->unfreeze_page($wiki);\r
- $self->reload($wiki);\r
- \r
- } elsif($cgi->param("delete") ne ""){\r
- $self->delete_page($wiki);\r
- $self->reload($wiki);\r
- \r
- } elsif($cgi->param("delete_files") ne ""){\r
- $self->delete_page($wiki);\r
- $self->delete_files($wiki);\r
- $self->reload($wiki);\r
- \r
- } elsif($cgi->param("show_all") ne ""){\r
- $self->show_all($wiki);\r
- $self->reload($wiki);\r
- \r
- } elsif($cgi->param("show_user") ne ""){\r
- $self->show_user($wiki);\r
- $self->reload($wiki);\r
- \r
- } elsif($cgi->param("show_admin") ne ""){\r
- $self->show_admin($wiki);\r
- $self->reload($wiki);\r
- \r
- }\r
- return $self->page_list($wiki);\r
-}\r
-\r
-#==============================================================================\r
-# ¥Ú¡¼¥¸¤Îºï½ü\r
-#==============================================================================\r
-sub delete_page {\r
- my $self = shift;\r
- my $wiki = shift;\r
- my @pages = $wiki->get_CGI->param("pages");\r
- foreach(@pages){\r
- $wiki->save_page($_,"");\r
- }\r
-}\r
-\r
-#==============================================================================\r
-# źÉÕ¥Õ¥¡¥¤¥ë¤Îºï½ü\r
-#==============================================================================\r
-sub delete_files {\r
- my $self = shift;\r
- my $wiki = shift;\r
- my @pages = $wiki->get_CGI->param("pages");\r
- foreach my $pagename (@pages){\r
- my @files = glob($wiki->config('attach_dir')."/".&Util::url_encode($pagename).".*");\r
- foreach my $file (@files){\r
- unlink($file);\r
- }\r
- }\r
-}\r
-\r
-#==============================================================================\r
-# Á´°÷¤Ë¸ø³«\r
-#==============================================================================\r
-sub show_all {\r
- my $self = shift;\r
- my $wiki = shift;\r
- my @pages = $wiki->get_CGI->param("pages");\r
- foreach(@pages){\r
- $wiki->set_page_level($_,0);\r
- }\r
-}\r
-\r
-#==============================================================================\r
-# ¥æ¡¼¥¶¤Î¤ß»²¾È²Äǽ\r
-#==============================================================================\r
-sub show_user {\r
- my $self = shift;\r
- my $wiki = shift;\r
- my @pages = $wiki->get_CGI->param("pages");\r
- foreach(@pages){\r
- $wiki->set_page_level($_,1);\r
- }\r
-}\r
-\r
-#==============================================================================\r
-# ´ÉÍý¼Ô¤Î¤ß»²¾È²Äǽ\r
-#==============================================================================\r
-sub show_admin {\r
- my $self = shift;\r
- my $wiki = shift;\r
- my @pages = $wiki->get_CGI->param("pages");\r
- foreach(@pages){\r
- $wiki->set_page_level($_,2);\r
- }\r
-}\r
-\r
-#==============================================================================\r
-# ¥Ú¡¼¥¸¤ÎÅà·ë\r
-#==============================================================================\r
-sub freeze_page {\r
- my $self = shift;\r
- my $wiki = shift;\r
- my @freeze_list = $wiki->get_freeze_list;\r
- my @pages = $wiki->get_CGI->param("pages");\r
- foreach my $page (@pages){\r
- my $flag = 1;\r
- foreach(@freeze_list){\r
- if($_ eq $page){\r
- $flag = 0;\r
- last;\r
- }\r
- }\r
- if($flag){\r
- $wiki->freeze_page($page);\r
- }\r
- }\r
-}\r
-\r
-#==============================================================================\r
-# ¥Ú¡¼¥¸¤ÎÅà·ë²ò½ü\r
-#==============================================================================\r
-sub unfreeze_page {\r
- my $self = shift;\r
- my $wiki = shift;\r
- my @freeze_list = $wiki->get_freeze_list;\r
- my @pages = $wiki->get_CGI->param("pages");\r
- foreach my $page (@pages){\r
- my $flag = 0;\r
- foreach(@freeze_list){\r
- if($_ eq $page){\r
- $flag = 1;\r
- last;\r
- }\r
- }\r
- if($flag){\r
- $wiki->un_freeze_page($page);\r
- }\r
- }\r
-}\r
-\r
-#==============================================================================\r
-# ¥Ú¡¼¥¸°ìÍ÷\r
-#==============================================================================\r
-sub page_list {\r
- my $self = shift;\r
- my $wiki = shift;\r
- my $cgi = $wiki->get_CGI();\r
- \r
- my @freeze_list = $wiki->get_freeze_list();\r
- my @pages = $wiki->get_page_list();\r
- my $level_list = $wiki->get_page_level();\r
- my $filter = $cgi->param("filter");\r
- my $filterType = $cgi->param("filterType");\r
- \r
- if($filterType ne "AND" && $filterType ne "OR" && $filterType ne "NOT"){\r
- $filterType = "AND";\r
- }\r
- \r
- # ¥Õ¥£¥ë¥¿¤òÊݸ¡£¥Ñ¥é¥á¡¼¥¿¤Ç»ØÄꤵ¤ì¤Æ¤¤¤Ê¤±¤ì¤ÐÆɤ߹þ¤ß¡£\r
- if(defined($filter)){\r
- &Util::save_config_text($wiki,$self->{filter_file},"$filterType:$filter");\r
- } else {\r
- $filter = &Util::load_config_text($wiki,$self->{filter_file});\r
- my $index = index($filter,":");\r
- if($index > 0){\r
- $filterType = substr($filter,0,$index);\r
- $filter = substr($filter,$index+1);\r
- }\r
- }\r
- \r
- my $buf = "<h2>¥Ú¡¼¥¸°ìÍ÷</h2>\n".\r
- "<form action=\"".$wiki->create_url()."\" method=\"POST\">\n".\r
- " <p>\n".\r
- " ¥Õ¥£¥ë¥¿\n".\r
- " <input type=\"text\" name=\"filter\" size=\"30\" value=\"".Util::escapeHTML($filter)."\">\n".\r
- " <input type=\"radio\" name=\"filterType\" value=\"AND\"".($filterType eq "AND" ? " checked" : "").">AND\n".\r
- " <input type=\"radio\" name=\"filterType\" value=\"OR\"".($filterType eq "OR" ? " checked" : "").">OR\n".\r
- " <input type=\"radio\" name=\"filterType\" value=\"NOT\"".($filterType eq "NOT" ? " checked" : "").">NOT\n".\r
- " <input type=\"submit\" value=\"ºÆɽ¼¨\">\n".\r
- " </p>\n".\r
- " <table>\n".\r
- " <tr>\n".\r
- " <th><br></th>\n".\r
- " <th>¾õÂÖ</th>\n".\r
- " <th>»²¾È</th>\n".\r
- " <th width=\"200\">¥Ú¡¼¥¸Ì¾</th>\n".\r
- " <th>ºÇ½ª¹¹¿·Æü»þ</th>\n".\r
- " </tr>\n";\r
- \r
- foreach my $page (@pages){\r
- if($filter ne ""){\r
- my @dim = split(/\s+/,$filter);\r
- my $flag = 0;\r
- foreach my $word (split(/\s+/,$filter)){\r
- if(index($page,$word) >= 0){\r
- if($filterType eq "NOT"){\r
- $flag = 0;\r
- last;\r
- }\r
- $flag = 1;\r
- } else {\r
- if($filterType eq "AND"){\r
- $flag = 0;\r
- last;\r
- } elsif($filterType eq "NOT"){\r
- $flag = 1;\r
- }\r
- }\r
- }\r
- if($flag==0){\r
- next;\r
- }\r
- }\r
- $buf .= " <tr>\n".\r
- " <td><input type=\"checkbox\" name=\"pages\" value=\"".&Util::escapeHTML($page)."\"></td>\n";\r
- \r
- # Åà·ë¤µ¤ì¤Æ¤¤¤ë¤«Ä´¤Ù¤ë\r
- my $is_freeze = 0;\r
- foreach(@freeze_list){\r
- if($_ eq $page){\r
- $is_freeze = 1;\r
- last;\r
- }\r
- }\r
- if($is_freeze){\r
- $buf .= " <td align=\"center\">Åà·ë</td>\n";\r
- } else {\r
- $buf .= " <td><br></td>\n";\r
- }\r
- \r
- # »²¾È¥ì¥Ù¥ë¤òÄ´¤Ù¤ë\r
- if(!defined($level_list->{$page}) || $level_list->{$page}==0){\r
- $buf .= " <td>¸ø³«</td>\n";\r
- } elsif($level_list->{$page}==1){\r
- $buf .= " <td>¥æ¡¼¥¶</td>\n";\r
- } elsif($level_list->{$page}==2){\r
- $buf .= " <td>´ÉÍý¼Ô</td>\n";\r
- }\r
- \r
- $buf .= " <td><a href=\"".$wiki->create_page_url($page)."\">".&Util::escapeHTML($page)."</a></td>\n".\r
- " <td>".&Util::format_date($wiki->get_last_modified($page))."</td>\n".\r
- " </tr>\n";\r
- }\r
- \r
- $buf .= " </table>\n".\r
- " <br>\n".\r
- " <input type=\"hidden\" name=\"action\" value=\"ADMINPAGE\">\n".\r
- " <h3>¥Ú¡¼¥¸¤ÎÅà·ë</h3>\n".\r
- " <p>¥Á¥§¥Ã¥¯¤·¤¿¥Ú¡¼¥¸¤òÅà·ë¤·¤Þ¤¹¡£Åà·ë¤·¤¿¥Ú¡¼¥¸¤Ï¥í¥°¥¤¥ó»þ¤Î¤ßÊÔ½¸¤È¤Ê¤ê¤Þ¤¹¡£</p>\n".\r
- " <input type=\"submit\" name=\"freeze\" value=\" Åà ·ë \">\n".\r
- " <input type=\"submit\" name=\"unfreeze\" value=\"Åà·ë²ò½ü\">\n".\r
- " <h3>¥Ú¡¼¥¸¤Îºï½ü</h3>\n".\r
- " <p>¥Á¥§¥Ã¥¯¤·¤¿¥Ú¡¼¥¸¤òºï½ü¤·¤Þ¤¹¡£</p>\n".\r
- " <input type=\"submit\" name=\"delete\" value=\" ºï ½ü \">\n".\r
- " <input type=\"submit\" name=\"delete_files\" value=\"źÉÕ¥Õ¥¡¥¤¥ë¤âºï½ü\">\n".\r
- " <h3>»²¾È¸¢¸Â¤ÎÀßÄê</h3>\n".\r
- " <p>¥Á¥§¥Ã¥¯¤·¤¿¥Ú¡¼¥¸¤Î»²¾È¸¢¸Â¤òÀßÄꤷ¤Þ¤¹¡£</p>\n".\r
- " <input type=\"submit\" name=\"show_all\" value=\" ¸ø ³« \">\n".\r
- " <input type=\"submit\" name=\"show_user\" value=\"¥æ¡¼¥¶¤Î¤ß\">\n".\r
- " <input type=\"submit\" name=\"show_admin\" value=\"´ÉÍý¼Ô¤Î¤ß\">\n".\r
- "</form>\n";\r
- \r
- $wiki->set_title("¥Ú¡¼¥¸¤Î´ÉÍý");\r
- return $buf."</ul>\n";\r
-}\r
-\r
-#==============================================================================\r
-# ¥Ú¡¼¥¸°ìÍ÷¤ò¥ê¥í¡¼¥É\r
-#==============================================================================\r
-sub reload {\r
- my $self = shift;\r
- my $wiki = shift;\r
- $wiki->redirectURL( $wiki->create_url({ action=>"ADMINPAGE" }) );\r
-}\r
-\r
-1;\r
+###############################################################################
+#
+# ¥Ú¡¼¥¸¤ò´ÉÍý¤¹¤ë¥â¥¸¥å¡¼¥ë
+#
+###############################################################################
+package plugin::admin::AdminPageHandler;
+use strict;
+#==============================================================================
+# ¥³¥ó¥¹¥È¥é¥¯¥¿
+#==============================================================================
+sub new {
+ my $class = shift;
+ my $self = {};
+
+ # ¥Õ¥£¥ë¥¿¾ðÊó¤òÊݸ¤¹¤ë¥Õ¥¡¥¤¥ë
+ $self->{filter_file} = "filter.dat";
+
+ return bless $self,$class;
+}
+
+#==============================================================================
+# ¥¢¥¯¥·¥ç¥ó¥Ï¥ó¥É¥é¥á¥½¥Ã¥É
+#==============================================================================
+sub do_action {
+ my $self = shift;
+ my $wiki = shift;
+ my $cgi = $wiki->get_CGI;
+ my $login = $wiki->get_login_info();
+
+ if($cgi->param("freeze") ne ""){
+ $self->freeze_page($wiki);
+ $self->reload($wiki);
+
+ } elsif($cgi->param("unfreeze") ne ""){
+ $self->unfreeze_page($wiki);
+ $self->reload($wiki);
+
+ } elsif($cgi->param("delete") ne ""){
+ $self->delete_page($wiki);
+ $self->reload($wiki);
+
+ } elsif($cgi->param("delete_files") ne ""){
+ $self->delete_page($wiki);
+ $self->delete_files($wiki);
+ $self->reload($wiki);
+
+ } elsif($cgi->param("show_all") ne ""){
+ $self->show_all($wiki);
+ $self->reload($wiki);
+
+ } elsif($cgi->param("show_user") ne ""){
+ $self->show_user($wiki);
+ $self->reload($wiki);
+
+ } elsif($cgi->param("show_admin") ne ""){
+ $self->show_admin($wiki);
+ $self->reload($wiki);
+
+ }
+ return $self->page_list($wiki);
+}
+
+#==============================================================================
+# ¥Ú¡¼¥¸¤Îºï½ü
+#==============================================================================
+sub delete_page {
+ my $self = shift;
+ my $wiki = shift;
+ my @pages = $wiki->get_CGI->param("pages");
+ foreach(@pages){
+ $wiki->save_page($_,"");
+ }
+}
+
+#==============================================================================
+# źÉÕ¥Õ¥¡¥¤¥ë¤Îºï½ü
+#==============================================================================
+sub delete_files {
+ my $self = shift;
+ my $wiki = shift;
+ my @pages = $wiki->get_CGI->param("pages");
+ foreach my $pagename (@pages){
+ my @files = glob($wiki->config('attach_dir')."/".&Util::url_encode($pagename).".*");
+ foreach my $file (@files){
+ unlink($file);
+ }
+ }
+}
+
+#==============================================================================
+# Á´°÷¤Ë¸ø³«
+#==============================================================================
+sub show_all {
+ my $self = shift;
+ my $wiki = shift;
+ my @pages = $wiki->get_CGI->param("pages");
+ foreach(@pages){
+ $wiki->set_page_level($_,0);
+ }
+}
+
+#==============================================================================
+# ¥æ¡¼¥¶¤Î¤ß»²¾È²Äǽ
+#==============================================================================
+sub show_user {
+ my $self = shift;
+ my $wiki = shift;
+ my @pages = $wiki->get_CGI->param("pages");
+ foreach(@pages){
+ $wiki->set_page_level($_,1);
+ }
+}
+
+#==============================================================================
+# ´ÉÍý¼Ô¤Î¤ß»²¾È²Äǽ
+#==============================================================================
+sub show_admin {
+ my $self = shift;
+ my $wiki = shift;
+ my @pages = $wiki->get_CGI->param("pages");
+ foreach(@pages){
+ $wiki->set_page_level($_,2);
+ }
+}
+
+#==============================================================================
+# ¥Ú¡¼¥¸¤ÎÅà·ë
+#==============================================================================
+sub freeze_page {
+ my $self = shift;
+ my $wiki = shift;
+ my @freeze_list = $wiki->get_freeze_list;
+ my @pages = $wiki->get_CGI->param("pages");
+ foreach my $page (@pages){
+ my $flag = 1;
+ foreach(@freeze_list){
+ if($_ eq $page){
+ $flag = 0;
+ last;
+ }
+ }
+ if($flag){
+ $wiki->freeze_page($page);
+ }
+ }
+}
+
+#==============================================================================
+# ¥Ú¡¼¥¸¤ÎÅà·ë²ò½ü
+#==============================================================================
+sub unfreeze_page {
+ my $self = shift;
+ my $wiki = shift;
+ my @freeze_list = $wiki->get_freeze_list;
+ my @pages = $wiki->get_CGI->param("pages");
+ foreach my $page (@pages){
+ my $flag = 0;
+ foreach(@freeze_list){
+ if($_ eq $page){
+ $flag = 1;
+ last;
+ }
+ }
+ if($flag){
+ $wiki->un_freeze_page($page);
+ }
+ }
+}
+
+#==============================================================================
+# ¥Ú¡¼¥¸°ìÍ÷
+#==============================================================================
+sub page_list {
+ my $self = shift;
+ my $wiki = shift;
+ my $cgi = $wiki->get_CGI();
+
+ my @freeze_list = $wiki->get_freeze_list();
+ my @pages = $wiki->get_page_list();
+ my $level_list = $wiki->get_page_level();
+ my $filter = $cgi->param("filter");
+ my $filterType = $cgi->param("filterType");
+
+ if($filterType ne "AND" && $filterType ne "OR" && $filterType ne "NOT"){
+ $filterType = "AND";
+ }
+
+ # ¥Õ¥£¥ë¥¿¤òÊݸ¡£¥Ñ¥é¥á¡¼¥¿¤Ç»ØÄꤵ¤ì¤Æ¤¤¤Ê¤±¤ì¤ÐÆɤ߹þ¤ß¡£
+ if(defined($filter)){
+ &Util::save_config_text($wiki,$self->{filter_file},"$filterType:$filter");
+ } else {
+ $filter = &Util::load_config_text($wiki,$self->{filter_file});
+ my $index = index($filter,":");
+ if($index > 0){
+ $filterType = substr($filter,0,$index);
+ $filter = substr($filter,$index+1);
+ }
+ }
+
+ my $buf = "<h2>¥Ú¡¼¥¸°ìÍ÷</h2>\n".
+ "<form action=\"".$wiki->create_url()."\" method=\"POST\">\n".
+ " <p>\n".
+ " ¥Õ¥£¥ë¥¿\n".
+ " <input type=\"text\" name=\"filter\" size=\"30\" value=\"".Util::escapeHTML($filter)."\">\n".
+ " <input type=\"radio\" name=\"filterType\" value=\"AND\"".($filterType eq "AND" ? " checked" : "").">AND\n".
+ " <input type=\"radio\" name=\"filterType\" value=\"OR\"".($filterType eq "OR" ? " checked" : "").">OR\n".
+ " <input type=\"radio\" name=\"filterType\" value=\"NOT\"".($filterType eq "NOT" ? " checked" : "").">NOT\n".
+ " <input type=\"submit\" value=\"ºÆɽ¼¨\">\n".
+ " </p>\n".
+ " <table>\n".
+ " <tr>\n".
+ " <th><br></th>\n".
+ " <th>¾õÂÖ</th>\n".
+ " <th>»²¾È</th>\n".
+ " <th width=\"200\">¥Ú¡¼¥¸Ì¾</th>\n".
+ " <th>ºÇ½ª¹¹¿·Æü»þ</th>\n".
+ " </tr>\n";
+
+ foreach my $page (@pages){
+ if($filter ne ""){
+ my @dim = split(/\s+/,$filter);
+ my $flag = 0;
+ foreach my $word (split(/\s+/,$filter)){
+ if(index($page,$word) >= 0){
+ if($filterType eq "NOT"){
+ $flag = 0;
+ last;
+ }
+ $flag = 1;
+ } else {
+ if($filterType eq "AND"){
+ $flag = 0;
+ last;
+ } elsif($filterType eq "NOT"){
+ $flag = 1;
+ }
+ }
+ }
+ if($flag==0){
+ next;
+ }
+ }
+ $buf .= " <tr>\n".
+ " <td><input type=\"checkbox\" name=\"pages\" value=\"".&Util::escapeHTML($page)."\"></td>\n";
+
+ # Åà·ë¤µ¤ì¤Æ¤¤¤ë¤«Ä´¤Ù¤ë
+ my $is_freeze = 0;
+ foreach(@freeze_list){
+ if($_ eq $page){
+ $is_freeze = 1;
+ last;
+ }
+ }
+ if($is_freeze){
+ $buf .= " <td align=\"center\">Åà·ë</td>\n";
+ } else {
+ $buf .= " <td><br></td>\n";
+ }
+
+ # »²¾È¥ì¥Ù¥ë¤òÄ´¤Ù¤ë
+ if(!defined($level_list->{$page}) || $level_list->{$page}==0){
+ $buf .= " <td>¸ø³«</td>\n";
+ } elsif($level_list->{$page}==1){
+ $buf .= " <td>¥æ¡¼¥¶</td>\n";
+ } elsif($level_list->{$page}==2){
+ $buf .= " <td>´ÉÍý¼Ô</td>\n";
+ }
+
+ $buf .= " <td><a href=\"".$wiki->create_page_url($page)."\">".&Util::escapeHTML($page)."</a></td>\n".
+ " <td>".&Util::format_date($wiki->get_last_modified($page))."</td>\n".
+ " </tr>\n";
+ }
+
+ $buf .= " </table>\n".
+ " <br>\n".
+ " <input type=\"hidden\" name=\"action\" value=\"ADMINPAGE\">\n".
+ " <h3>¥Ú¡¼¥¸¤ÎÅà·ë</h3>\n".
+ " <p>¥Á¥§¥Ã¥¯¤·¤¿¥Ú¡¼¥¸¤òÅà·ë¤·¤Þ¤¹¡£Åà·ë¤·¤¿¥Ú¡¼¥¸¤Ï¥í¥°¥¤¥ó»þ¤Î¤ßÊÔ½¸¤È¤Ê¤ê¤Þ¤¹¡£</p>\n".
+ " <input type=\"submit\" name=\"freeze\" value=\" Åà ·ë \">\n".
+ " <input type=\"submit\" name=\"unfreeze\" value=\"Åà·ë²ò½ü\">\n".
+ " <h3>¥Ú¡¼¥¸¤Îºï½ü</h3>\n".
+ " <p>¥Á¥§¥Ã¥¯¤·¤¿¥Ú¡¼¥¸¤òºï½ü¤·¤Þ¤¹¡£</p>\n".
+ " <input type=\"submit\" name=\"delete\" value=\" ºï ½ü \">\n".
+ " <input type=\"submit\" name=\"delete_files\" value=\"źÉÕ¥Õ¥¡¥¤¥ë¤âºï½ü\">\n".
+ " <h3>»²¾È¸¢¸Â¤ÎÀßÄê</h3>\n".
+ " <p>¥Á¥§¥Ã¥¯¤·¤¿¥Ú¡¼¥¸¤Î»²¾È¸¢¸Â¤òÀßÄꤷ¤Þ¤¹¡£</p>\n".
+ " <input type=\"submit\" name=\"show_all\" value=\" ¸ø ³« \">\n".
+ " <input type=\"submit\" name=\"show_user\" value=\"¥æ¡¼¥¶¤Î¤ß\">\n".
+ " <input type=\"submit\" name=\"show_admin\" value=\"´ÉÍý¼Ô¤Î¤ß\">\n".
+ "</form>\n";
+
+ $wiki->set_title("¥Ú¡¼¥¸¤Î´ÉÍý");
+ return $buf."</ul>\n";
+}
+
+#==============================================================================
+# ¥Ú¡¼¥¸°ìÍ÷¤ò¥ê¥í¡¼¥É
+#==============================================================================
+sub reload {
+ my $self = shift;
+ my $wiki = shift;
+ $wiki->redirectURL( $wiki->create_url({ action=>"ADMINPAGE" }) );
+}
+
+1;