r15735 - in /trunk/libauthen-captcha-perl: Captcha.pm debian/changelog debian/compat debian/control

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

Author: emhn-guest
Date: Wed Feb 27 12:35:14 2008
New Revision: 15735

URL: http://svn.debian.org/wsvn/?sc=1&rev=15735
Log:
* debian/rules: delete /usr/lib/perl5 only if it exists (Closes: #467665).
* Upgraded to debhelper 6
* Updated to Standards-Version 3.7.3

Modified:
    trunk/libauthen-captcha-perl/Captcha.pm
    trunk/libauthen-captcha-perl/debian/changelog
    trunk/libauthen-captcha-perl/debian/compat
    trunk/libauthen-captcha-perl/debian/control

Modified: trunk/libauthen-captcha-perl/Captcha.pm
URL: http://svn.debian.org/wsvn/trunk/libauthen-captcha-perl/Captcha.pm?rev=15735&op=diff
==============================================================================
--- trunk/libauthen-captcha-perl/Captcha.pm (original)
+++ trunk/libauthen-captcha-perl/Captcha.pm Wed Feb 27 12:35:14 2008
@@ -232,7 +232,11 @@
 	foreach my $line (@data) 
 	{
 		$line =~ s/\n//;
-		my ($data_time,$data_code) = split(/::/,$line);
+        # Fixes Debian Bug #409731
+        # Extract untainted time and code
+        # Patch provided by Chris Dunlop <chris at onthe.net.au>
+        # applied by Ernesto Hernández-Novich <emhn at usb.ve>
+        my ($data_time,$data_code) = $line =~ m/(^\d+)::([[:xdigit:]]{32})$/;
 		
 		my $png_file = File::Spec->catfile($self->output_folder(),$data_code . ".png");
 		if ($data_code eq $crypt)
@@ -351,7 +355,12 @@
 	foreach my $line (@data) 
 	{
 		$line =~ s/\n//;
-		my ($data_time,$data_code) = split(/::/,$line);
+        # Fixes Debian Bug #409731
+        # Extract untainted time and code
+        # Patch provided by Chris Dunlop <chris at onthe.net.au>
+        # applied by Ernesto Hernández-Novich <emhn at usb.ve>
+        my ($data_time,$data_code) = $line =~ m/(^\d+)::([[:xdigit:]]{32})$/;
+
 		if ( (($current_time - $data_time) > ($self->expire())) ||
 		     ($data_code  eq $md5) )
 		{	# remove expired captcha, or a dup

Modified: trunk/libauthen-captcha-perl/debian/changelog
URL: http://svn.debian.org/wsvn/trunk/libauthen-captcha-perl/debian/changelog?rev=15735&op=diff
==============================================================================
--- trunk/libauthen-captcha-perl/debian/changelog (original)
+++ trunk/libauthen-captcha-perl/debian/changelog Wed Feb 27 12:35:14 2008
@@ -1,8 +1,13 @@
-libauthen-captcha-perl (1.023-5) UNRELEASED; urgency=low
+libauthen-captcha-perl (1.023-5) unstable; urgency=low
 
-  * debian/rules: delete /usr/lib/perl5 only if it exists.
+  [ gregor herrmann ]
+  * debian/rules: delete /usr/lib/perl5 only if it exists (Closes: #467665).
 
- -- gregor herrmann <gregor+debian at comodo.priv.at>  Wed, 09 Jan 2008 21:16:40 +0100
+  [ Ernesto Hernández-Novich (USB) ]
+  * Upgraded to debhelper 6
+  * Updated to Standards-Version 3.7.3
+
+ -- Ernesto Hernández-Novich (USB) <emhn at usb.ve>  Wed, 27 Feb 2008 08:04:09 -0430
 
 libauthen-captcha-perl (1.023-4) unstable; urgency=low
 

Modified: trunk/libauthen-captcha-perl/debian/compat
URL: http://svn.debian.org/wsvn/trunk/libauthen-captcha-perl/debian/compat?rev=15735&op=diff
==============================================================================
--- trunk/libauthen-captcha-perl/debian/compat (original)
+++ trunk/libauthen-captcha-perl/debian/compat Wed Feb 27 12:35:14 2008
@@ -1,1 +1,1 @@
-5
+6

Modified: trunk/libauthen-captcha-perl/debian/control
URL: http://svn.debian.org/wsvn/trunk/libauthen-captcha-perl/debian/control?rev=15735&op=diff
==============================================================================
--- trunk/libauthen-captcha-perl/debian/control (original)
+++ trunk/libauthen-captcha-perl/debian/control Wed Feb 27 12:35:14 2008
@@ -1,7 +1,7 @@
 Source: libauthen-captcha-perl
 Section: perl
 Priority: extra
-Build-Depends: debhelper (>= 5), quilt
+Build-Depends: debhelper (>= 6), quilt
 Build-Depends-Indep: perl (>= 5.6.0), libgd-gd2-noxpm-perl | libgd-gd2-perl
 Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
 Uploaders: Ernesto Hernández-Novich (USB) <emhn at usb.ve>,
@@ -9,7 +9,7 @@
 Homepage: http://search.cpan.org/dist/Authen-Captcha/
 Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libauthen-captcha-perl/
 Vcs-Browser: http://svn.debian.org/wsvn/pkg-perl/trunk/libauthen-captcha-perl/
-Standards-Version: 3.7.2
+Standards-Version: 3.7.3
 
 Package: libauthen-captcha-perl
 Architecture: all