rpms/perl-Authen-Captcha/devel import.log, NONE, 1.1 perl-Authen-Captcha-1.023-taint.patch, NONE, 1.1 perl-Authen-Captcha.spec, NONE, 1.1 .cvsignore, 1.1, 1.2 sources, 1.1, 1.2

[Lubomir Rintel (lkundrak)]

Author: lkundrak

Update of /cvs/pkgs/rpms/perl-Authen-Captcha/devel
In directory cvs-int.fedora.redhat.com:/tmp/cvs-serv26479/devel

Modified Files:
	.cvsignore sources 
Added Files:
	import.log perl-Authen-Captcha-1.023-taint.patch 
	perl-Authen-Captcha.spec 
Log Message:
Initial Import


--- NEW FILE import.log ---
perl-Authen-Captcha-1_023-2_el5:HEAD:perl-Authen-Captcha-1.023-2.el5.src.rpm:1214247995

perl-Authen-Captcha-1.023-taint.patch:

--- NEW FILE perl-Authen-Captcha-1.023-taint.patch ---
#30806: Authen::Captcha is not Taint safe
http://rt.cpan.org/Public/Bug/Display.html?id=30806

From: Chris Dunlop <chris at onthe.net.au>
http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=409731

diff -urp Authen-Captcha-1.023.orig/Captcha.pm Authen-Captcha-1.023/Captcha.pm
--- Authen-Captcha-1.023.orig/Captcha.pm	2003-12-18 05:44:34.000000000 +0100
+++ Authen-Captcha-1.023/Captcha.pm	2008-06-11 14:52:37.000000000 +0200
@@ -232,7 +232,7 @@ sub check_code 
 	foreach my $line (@data) 
 	{
 		$line =~ s/\n//;
-		my ($data_time,$data_code) = split(/::/,$line);
+		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 +351,7 @@ sub _save_code
 	foreach my $line (@data) 
 	{
 		$line =~ s/\n//;
-		my ($data_time,$data_code) = split(/::/,$line);
+		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


--- NEW FILE perl-Authen-Captcha.spec ---
Name:           perl-Authen-Captcha
Version:        1.023
Release:        2%{?dist}
Summary:        Perl extension for creating captchas
License:        GPLv2
Group:          Development/Libraries
URL:            http://search.cpan.org/dist/Authen-Captcha/
Source0:        http://www.cpan.org//authors/id/U/UN/UNRTST/Authen-Captcha-%{version}.tar.gz
Patch0:         perl-Authen-Captcha-1.023-taint.patch
BuildRoot:      %{_tmppath}/%{name}-%{version}-%{release}-root-%(%{__id_u} -n)
BuildArch:      noarch
BuildRequires:  perl(ExtUtils::MakeMaker)
BuildRequires:  perl(GD)
BuildRequires:  dos2unix
Requires:       perl(:MODULE_COMPAT_%(eval "`%{__perl} -V:version`"; echo $version))


%description
Authen::Captcha provides an object oriented interface to captcha file
creations. Captcha stands for Completely Automated Public Turning test to
tell Computers and Humans Apart.


%prep
%setup -q -n Authen-Captcha-%{version}
%patch0 -p1 -b .taint


%build
dos2unix -q -k license.txt
%{__perl} Makefile.PL INSTALLDIRS=vendor
make %{?_smp_mflags}


%install
rm -rf $RPM_BUILD_ROOT

make pure_install PERL_INSTALL_ROOT=$RPM_BUILD_ROOT

find $RPM_BUILD_ROOT -type f -name .packlist -exec rm -f {} \;
find $RPM_BUILD_ROOT -depth -type d -exec rmdir {} 2>/dev/null \;

%{_fixperms} $RPM_BUILD_ROOT/*


%check
make test


%clean
rm -rf $RPM_BUILD_ROOT


%files
%defattr(-,root,root,-)
%doc Changes license.txt README
%{perl_vendorlib}/*
%{_mandir}/man3/*


%changelog
* Mon Jun 23 2008 Lubomir Rintel (Good Data) <lubo.rintel at gooddata.com> 1.023-2
- Review by Parag AN

* Wed Jun 11 2008 Lubomir Rintel (Good Data) <lubo.rintel at gooddata.com> 1.023-1
- Specfile autogenerated by cpanspec 1.75.
- Fix up various strings


Index: .cvsignore
===================================================================
RCS file: /cvs/pkgs/rpms/perl-Authen-Captcha/devel/.cvsignore,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- .cvsignore	23 Jun 2008 15:32:51 -0000	1.1
+++ .cvsignore	23 Jun 2008 19:06:53 -0000	1.2
@@ -0,0 +1 @@
+Authen-Captcha-1.023.tar.gz


Index: sources
===================================================================
RCS file: /cvs/pkgs/rpms/perl-Authen-Captcha/devel/sources,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- sources	23 Jun 2008 15:32:51 -0000	1.1
+++ sources	23 Jun 2008 19:06:53 -0000	1.2
@@ -0,0 +1 @@
+7c20090844dd2406e4ef6a894c66348b  Authen-Captcha-1.023.tar.gz