0

我们在公司内部安装了私有的 MediaWiki。基于我们源代码的每日构建，我们使用 Perforce 标签更新 wiki，以便人们可以使用标记为简化流程的构建。我们尝试使用MediaWiki::Bot和MediaWiki::API在 Windows 服务器上使用 Perl 脚本自动执行此操作。

use MediaWiki::Bot;
use MediaWiki::API;

my $mw = MediaWiki::API->new();
$mw->{config}->{api_url} = 'http://somewiki/w/index.php/title#feature_List';

# log in to the wiki
$mw->login({
        lgname     => 'username',
        lgpassword => 'password'
          || die $mw->{error}->{code} . ': ' . $mw->{error}->{details};

          # get a list of articles in category
          my $articles = $mw->list({
                action  => 'query',
                list    => 'categorymembers',
                cmtitle => 'Category:Perl',
                cmlimit => 'max'
            }) || die $mw->{error}->{code} . ': ' . $mw->{error}->{details};

          # and print the article titles
          foreach (@{$articles}) {
            print "$_->{title}\n";
        }

输出：

2: Failed to decode JSON returned by http://vaporwiki/w/index.php/Executor#Execu
tor_Feature_List
Decoding Error:
malformed JSON string, neither array, object, number, string or atom, at charact
er offset 0 (before "<!DOCTYPE html PUBLI...") at C:/Perl/lib/MediaWiki/API.pm l
ine 398

Returned Data: <whole page data>
4

1 回答 1

5

API URL 错误。试试http://vaporwiki/w/api.php。

于 2012-06-27T06:42:33.910 回答