rename($tmpfile, $wikifile);
Util::file_unlock($wikifile);
+ delete $self->{exists_cache}->{":$page"}; # page_exists() ¤Î¥¥ã¥Ã¥·¥å¤ò¥¯¥ê¥¢¡£
return 1;
}
}
closedir(DIR);
Util::save_config_text(undef, $file, $buf);
- } else {
- if($flag eq "remove"){
- my $names = Util::load_config_text(undef, $file);
- $names =~ s/(^|\n)\Q$page\E\n/\n/;
- Util::save_config_text(undef, $file, $names);
- } elsif($flag eq 'update'){
- # ¥Ú¡¼¥¸¤Î¹¹¿·»þ¤Ï²¿¤â¤·¤Ê¤¤
- } elsif($flag eq 'create') {
- open(DATA, ">>$file");
- print DATA "$page\n";
- close(DATA);
- }
+ }
+ if($flag eq "remove"){
+ my $names = Util::load_config_text(undef, $file);
+ $names =~ s/(^|\n)\Q$page\E\n/\n/;
+ Util::save_config_text(undef, $file, $names);
+ } elsif($flag eq 'update'){
+ # ¥Ú¡¼¥¸¤Î¹¹¿·»þ¤Ï²¿¤â¤·¤Ê¤¤
+ } elsif($flag eq 'create') {
+ open(DATA, ">>$file");
+ print DATA "$page\n";
+ close(DATA);
}
}