■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
とかできてしまのは、もしかしたら危険かしら。