r60582 - in /branches/upstream/libmediawiki-api-perl/current: Changes META.yml lib/MediaWiki/API.pm

[ansgar-guest at users.alioth.debian.org]

Author: ansgar-guest
Date: Sun Jul 25 23:02:40 2010
New Revision: 60582

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=60582
Log:
[svn-upgrade] new version libmediawiki-api-perl (0.34)

Modified:
    branches/upstream/libmediawiki-api-perl/current/Changes
    branches/upstream/libmediawiki-api-perl/current/META.yml
    branches/upstream/libmediawiki-api-perl/current/lib/MediaWiki/API.pm

Modified: branches/upstream/libmediawiki-api-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmediawiki-api-perl/current/Changes?rev=60582&op=diff
==============================================================================
--- branches/upstream/libmediawiki-api-perl/current/Changes (original)
+++ branches/upstream/libmediawiki-api-perl/current/Changes Sun Jul 25 23:02:40 2010
@@ -1,4 +1,8 @@
 Revision history for MediaWiki-API
+
+0.34    2010-07-25
+        if skip_encoding encoding was used in conjuctions with use_http_get the querystring was not correctly encoded
+        (parameters were not treated as utf8). Thanks to Nikolay Shaplov for reporting the problem.
 
 0.33    2010-06-09
         Download function checked for image description, instead of checking for imageinfo. This mean't that some

Modified: branches/upstream/libmediawiki-api-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmediawiki-api-perl/current/META.yml?rev=60582&op=diff
==============================================================================
--- branches/upstream/libmediawiki-api-perl/current/META.yml (original)
+++ branches/upstream/libmediawiki-api-perl/current/META.yml Sun Jul 25 23:02:40 2010
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:               MediaWiki-API
-version:            0.33
+version:            0.34
 abstract:           Provides a Perl interface to the MediaWiki API (http://www.mediawiki.org/wiki/API)
 author:
     - Jools Wills <buzz at exotica.org.uk>

Modified: branches/upstream/libmediawiki-api-perl/current/lib/MediaWiki/API.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmediawiki-api-perl/current/lib/MediaWiki/API.pm?rev=60582&op=diff
==============================================================================
--- branches/upstream/libmediawiki-api-perl/current/lib/MediaWiki/API.pm (original)
+++ branches/upstream/libmediawiki-api-perl/current/lib/MediaWiki/API.pm Sun Jul 25 23:02:40 2010
@@ -40,11 +40,11 @@
 
 =head1 VERSION
 
-Version 0.33
-
-=cut
-
-our $VERSION  = "0.33";
+Version 0.34
+
+=cut
+
+our $VERSION  = "0.34";
 
 =head1 SYNOPSIS
 
@@ -322,7 +322,7 @@
       # edit, move, action = rollback, action = undelete, action = 
       my $response;
       if ( $self->{config}->{use_http_get} && defined $get_actions->{$query->{action}} ) {
-        my $qs = _make_querystring( $query );
+        my $qs = _make_querystring( $query, $options->{skip_encoding} );
         $response = $self->{ua}->get( $self->{config}->{api_url} . $qs );
       } else {
         $response = $self->{ua}->post( $self->{config}->{api_url}, $query );
@@ -735,10 +735,15 @@
 
 # creates a querystring from a hashref
 sub _make_querystring {
-  my ($ref) = @_;
+  my ($ref, $skipenc) = @_;
   my @qs = ();
+  my $keyval;
   for my $key ( keys %{$ref} ) {
-    my $keyval = uri_escape($key) . '=' . uri_escape($ref->{$key});
+    if ( $skipenc ) {
+      $keyval = uri_escape_utf8($key) . '=' . uri_escape_utf8($ref->{$key});
+    } else {
+      $keyval = uri_escape($key) . '=' . uri_escape($ref->{$key});
+    }
     push(@qs, $keyval);
   }
   return '?' . join('&', at qs);