r60585 - in /trunk/libmediawiki-api-perl: Changes META.yml debian/changelog debian/control lib/MediaWiki/API.pm

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

Author: ansgar-guest
Date: Sun Jul 25 23:25:55 2010
New Revision: 60585

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=60585
Log:
* New upstream release.
* Bump Standards-Version to 3.9.0 (no changes).

Modified:
    trunk/libmediawiki-api-perl/Changes
    trunk/libmediawiki-api-perl/META.yml
    trunk/libmediawiki-api-perl/debian/changelog
    trunk/libmediawiki-api-perl/debian/control
    trunk/libmediawiki-api-perl/lib/MediaWiki/API.pm

Modified: trunk/libmediawiki-api-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmediawiki-api-perl/Changes?rev=60585&op=diff
==============================================================================
--- trunk/libmediawiki-api-perl/Changes (original)
+++ trunk/libmediawiki-api-perl/Changes Sun Jul 25 23:25:55 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: trunk/libmediawiki-api-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmediawiki-api-perl/META.yml?rev=60585&op=diff
==============================================================================
--- trunk/libmediawiki-api-perl/META.yml (original)
+++ trunk/libmediawiki-api-perl/META.yml Sun Jul 25 23:25:55 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: trunk/libmediawiki-api-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmediawiki-api-perl/debian/changelog?rev=60585&op=diff
==============================================================================
--- trunk/libmediawiki-api-perl/debian/changelog (original)
+++ trunk/libmediawiki-api-perl/debian/changelog Sun Jul 25 23:25:55 2010
@@ -1,3 +1,10 @@
+libmediawiki-api-perl (0.34-1) unstable; urgency=low
+
+  * New upstream release.
+  * Bump Standards-Version to 3.9.0 (no changes).
+
+ -- Ansgar Burchardt <ansgar at 43-1.org>  Mon, 26 Jul 2010 08:25:43 +0900
+
 libmediawiki-api-perl (0.33-1) unstable; urgency=low
 
   * New upstream release.

Modified: trunk/libmediawiki-api-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmediawiki-api-perl/debian/control?rev=60585&op=diff
==============================================================================
--- trunk/libmediawiki-api-perl/debian/control (original)
+++ trunk/libmediawiki-api-perl/debian/control Sun Jul 25 23:25:55 2010
@@ -7,7 +7,7 @@
 Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
 Uploaders: Ryan Niebur <ryan at debian.org>, Jonathan Yu <jawnsy at cpan.org>,
  Ansgar Burchardt <ansgar at 43-1.org>
-Standards-Version: 3.8.4
+Standards-Version: 3.9.0
 Homepage: http://search.cpan.org/dist/MediaWiki-API/
 Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libmediawiki-api-perl/
 Vcs-Browser: http://svn.debian.org/viewsvn/pkg-perl/trunk/libmediawiki-api-perl/

Modified: trunk/libmediawiki-api-perl/lib/MediaWiki/API.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmediawiki-api-perl/lib/MediaWiki/API.pm?rev=60585&op=diff
==============================================================================
--- trunk/libmediawiki-api-perl/lib/MediaWiki/API.pm (original)
+++ trunk/libmediawiki-api-perl/lib/MediaWiki/API.pm Sun Jul 25 23:25:55 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);