r56938 - in /branches/lenny/libmediawiki-perl/debian: changelog control patches/ patches/login-token.patch patches/series rules
ansgar-guest at users.alioth.debian.org
ansgar-guest at users.alioth.debian.org
Mon Apr 26 06:20:58 UTC 2010
Author: ansgar-guest
Date: Mon Apr 26 06:20:43 2010
New Revision: 56938
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=56938
Log:
* Add support for login token. (Closes: #578691)
* Use quilt to manage patches.
* Remove David Paleino from Uploaders (as in 1.13-1.1).
* Add myself to Uploaders.
Added:
branches/lenny/libmediawiki-perl/debian/patches/
branches/lenny/libmediawiki-perl/debian/patches/login-token.patch
branches/lenny/libmediawiki-perl/debian/patches/series
Modified:
branches/lenny/libmediawiki-perl/debian/changelog
branches/lenny/libmediawiki-perl/debian/control
branches/lenny/libmediawiki-perl/debian/rules
Modified: branches/lenny/libmediawiki-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/branches/lenny/libmediawiki-perl/debian/changelog?rev=56938&op=diff
==============================================================================
--- branches/lenny/libmediawiki-perl/debian/changelog (original)
+++ branches/lenny/libmediawiki-perl/debian/changelog Mon Apr 26 06:20:43 2010
@@ -1,3 +1,12 @@
+libmediawiki-perl (1.13-1+lenny1) UNRELEASED; urgency=low
+
+ * Add support for login token. (Closes: #578691)
+ * Use quilt to manage patches.
+ * Remove David Paleino from Uploaders (as in 1.13-1.1).
+ * Add myself to Uploaders.
+
+ -- Ansgar Burchardt <ansgar at 43-1.org> Mon, 26 Apr 2010 15:00:12 +0900
+
libmediawiki-perl (1.13-1) unstable; urgency=low
* New upstream release
Modified: branches/lenny/libmediawiki-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/branches/lenny/libmediawiki-perl/debian/control?rev=56938&op=diff
==============================================================================
--- branches/lenny/libmediawiki-perl/debian/control (original)
+++ branches/lenny/libmediawiki-perl/debian/control Mon Apr 26 06:20:43 2010
@@ -1,11 +1,12 @@
Source: libmediawiki-perl
Section: perl
Priority: optional
-Build-Depends: debhelper (>= 5.0.0)
+Build-Depends: debhelper (>= 5.0.0), quilt (>= 0.45-1)
Build-Depends-Indep: perl (>= 5.8.8-7), libwww-perl, libconfig-inihash-perl,
libtest-pod-perl, libtest-pod-coverage-perl
Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
Uploaders: Michael Mende <debian at menole.net>,
+ Ansgar Burchardt <ansgar at 43-1.org>,
David Paleino <d.paleino at gmail.com>,
Damyan Ivanov <dmn at debian.org>,
Gunnar Wolf <gwolf at debian.org>
Added: branches/lenny/libmediawiki-perl/debian/patches/login-token.patch
URL: http://svn.debian.org/wsvn/pkg-perl/branches/lenny/libmediawiki-perl/debian/patches/login-token.patch?rev=56938&op=file
==============================================================================
--- branches/lenny/libmediawiki-perl/debian/patches/login-token.patch (added)
+++ branches/lenny/libmediawiki-perl/debian/patches/login-token.patch Mon Apr 26 06:20:43 2010
@@ -1,0 +1,27 @@
+From: Ansgar Burchardt <ansgar at 43-1.org>
+Date: Mon, 26 Apr 2010 14:58:48 +0900
+Origin: vendor
+Bug-Debian: http://bugs.debian.org/578691
+Subject: Support login token
+
+--- libmediawiki-perl-1.13-1.orig/lib/MediaWiki.pm
++++ libmediawiki-perl-1.13-1/lib/MediaWiki.pm
+@@ -207,10 +207,17 @@
+ return 1;
+ }
+
++ # get login token
++ my $res = $mw->{ua}->request(GET $mw->{index} . "?title=Special:Userlogin");
++ return $mw->error(ERR_LOGIN_FAILED) unless $res->is_success;
++
++ my $token;
++ $token = $1 if $res->content() =~ /input type=['"]hidden['"] name=['"]wpLoginToken['"] value=['"]([a-fA-F0-9]+)['"]/i;
++
+ my $res = $mw->{ua}->request(
+ POST $mw->{index} . "?title=Special:Userlogin&action=submitlogin",
+ Content_Type => 'application/x-www-form-urlencoded',
+- Content => [ ( 'wpName' => $user, 'wpPassword' => $pass, 'wpLoginattempt' => 'Log in' ) ]
++ Content => [ ( 'wpName' => $user, 'wpPassword' => $pass, 'wpLoginattempt' => 'Log in' ), defined $token ? (wpLoginToken => $token) : () ]
+ );
+ if($res->code == 302 || $res->header("Set-Cookie"))
+ {
Added: branches/lenny/libmediawiki-perl/debian/patches/series
URL: http://svn.debian.org/wsvn/pkg-perl/branches/lenny/libmediawiki-perl/debian/patches/series?rev=56938&op=file
==============================================================================
--- branches/lenny/libmediawiki-perl/debian/patches/series (added)
+++ branches/lenny/libmediawiki-perl/debian/patches/series Mon Apr 26 06:20:43 2010
@@ -1,0 +1,1 @@
+login-token.patch
Modified: branches/lenny/libmediawiki-perl/debian/rules
URL: http://svn.debian.org/wsvn/pkg-perl/branches/lenny/libmediawiki-perl/debian/rules?rev=56938&op=diff
==============================================================================
--- branches/lenny/libmediawiki-perl/debian/rules (original)
+++ branches/lenny/libmediawiki-perl/debian/rules Mon Apr 26 06:20:43 2010
@@ -11,6 +11,8 @@
# always return the default without waiting for user input.
export PERL_MM_USE_DEFAULT=1
+include /usr/share/quilt/quilt.make
+
PACKAGE=$(shell dh_listpackages)
ifndef PERL
@@ -20,7 +22,7 @@
TMP =$(CURDIR)/debian/$(PACKAGE)
build: build-stamp
-build-stamp:
+build-stamp: $(QUILT_STAMPFN)
dh_testdir
$(PERL) Makefile.PL \
@@ -39,7 +41,7 @@
touch $@
-clean:
+clean: unpatch
dh_testdir
dh_testroot
dh_clean build-stamp install-stamp
More information about the Pkg-perl-cvs-commits
mailing list