■2005-01-28
* [Perl] Class::Wiki
DBD::Wikiがあらかたできたので、Class::DBIを使ってClass::Wikiを作成。
# Class::Wikiを継承したクラス
package MyFSWiki;
use base qw(Class::Wiki);
my $url = 'http://www.donzo
ko.net/cgi-bin/wiki3_5_3/wiki_xmlrpc2.cgi';
__PACKAGE__->connection(
"dbi:Wiki:drv_if=xmlrpc;url=$url",'','
);
# main
my $page = MyFSWiki->retrieve('JSPWikiFAQ');
print $page->lastmodified,"\n";
print $page->content,"\n";
my $it = MyFSWiki->retrieve_all();
while( my $page = $it->next ){
print $page->name,"\n";
}
とりあえず動きました。近々公開できるかな。$page->deleteとか$page->updateとかできてしまのは、もしかしたら危険かしら。
[]

