doc/wiki-upload.pl

   1 #!/usr/bin/perl -w
   2
   3 use MediaWiki::API;
   4
   5 my $mw = MediaWiki::API->new();
   6 $mw->{config}->{api_url} = 'https://rtime.felk.cvut.cz/rpp/api.php';
   7
   8 chomp($wikiLogin = `git config --get rpp.wikilogin` || die("Set your wiki login with 'git config rpp.wikilogin <login>'\n"));
   9 chomp($wikiPassword = `git config --get rpp.wikipass` || die("Set your wiki password with 'git config rpp.wikipass <password>'\n"));
  10
  11 # log in to the wiki
  12 $mw->login( { lgname => $wikiLogin, lgpassword => $wikiPassword } )
  13     || die $mw->{error}->{code} . ': ' . $mw->{error}->{details};
  14
  15 my $filename = $ARGV[0];
  16
  17 my $success = $mw->edit(
  18     {
  19         action   => 'upload',
  20         filename => $filename,
  21         comment  => "Uploaded by $0",
  22         file     => [$filename],
  23         ignorewarnings => 1,
  24     })
  25     || die $mw->{error}->{code} . ': ' . $mw->{error}->{details};
  26
  27 # use Data::Dumper;
  28 # print Dumper($mw->{response}->{_content});
  29
  30 $mw->logout();