r60585 - in /trunk/libmediawiki-api-perl: Changes META.yml debian/changelog debian/control lib/MediaWiki/API.pm
ansgar-guest at users.alioth.debian.org
ansgar-guest at users.alioth.debian.org
Sun Jul 25 23:26:02 UTC 2010
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);
More information about the Pkg-perl-cvs-commits
mailing list