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