Hi

I admit I'm not the sharpest perlprogrammer in the world, so I need some help here.

I'm trying to automate some things and I want to use MediaWiki::API.

My final goal is to write an exportscript that export all pages in some categories and then an importscript that import the xml-file on another wiki.

When I run the script below I get the following error:

Use of uninitialized value in print at get_export.pl line 15.

But if I run it from my webbrowser I get the result:

api.php?action=query&generator=categories&titles=Page1

<?xml version="1.0" encoding="utf-8"?>
<api>
  <query>
    <pages>
      <page pageid="5" ns="14" title="Category:Teologi" />
    </pages>
  </query>
</api>

The Script:

use MediaWiki::API;

binmode STDOUT, ':utf8';

my $mw = MediaWiki::API->new();

$mw->{config}->{api_url} = 'http://192.168.10.1/wiki3/api.php';

# log in to the wiki

$mw->login( { lgname => 'WikiSysop', lgpassword => 'xxxxxx' } )

|| die $mw->{error}->{code} . ': ' . $mw->{error}->{details};

if ( my $ref = $mw->api( { action => 'query', generator => 'categories', titles => 'Page1'} )) {

print $ref->{query}->{pages}->{page}->{ns};

}

What is wrong with my script (or me)?

Kindly Regards

Claes