diff options
author | V3n3RiX <venerix@redcorelinux.org> | 2018-07-14 21:03:06 +0100 |
---|---|---|
committer | V3n3RiX <venerix@redcorelinux.org> | 2018-07-14 21:03:06 +0100 |
commit | 8376ef56580626e9c0f796d5b85b53a0a1c7d5f5 (patch) | |
tree | 7681bbd4e8b05407772df40a4bf04cbbc8afc3fa /dev-perl/MIME-Lite-HTML | |
parent | 30a9caf154332f12ca60756e1b75d2f0e3e1822d (diff) |
gentoo resync : 14.07.2018
Diffstat (limited to 'dev-perl/MIME-Lite-HTML')
-rw-r--r-- | dev-perl/MIME-Lite-HTML/MIME-Lite-HTML-1.240.0.ebuild | 31 | ||||
-rw-r--r-- | dev-perl/MIME-Lite-HTML/Manifest | 5 | ||||
-rw-r--r-- | dev-perl/MIME-Lite-HTML/files/MIME-Lite-HTML-1.240.0-tests1.patch | 96 | ||||
-rw-r--r-- | dev-perl/MIME-Lite-HTML/files/MIME-Lite-HTML-1.240.0-tests2.patch | 54 | ||||
-rw-r--r-- | dev-perl/MIME-Lite-HTML/metadata.xml | 13 |
5 files changed, 199 insertions, 0 deletions
diff --git a/dev-perl/MIME-Lite-HTML/MIME-Lite-HTML-1.240.0.ebuild b/dev-perl/MIME-Lite-HTML/MIME-Lite-HTML-1.240.0.ebuild new file mode 100644 index 000000000000..cd8c59fae498 --- /dev/null +++ b/dev-perl/MIME-Lite-HTML/MIME-Lite-HTML-1.240.0.ebuild @@ -0,0 +1,31 @@ +# Copyright 1999-2017 Gentoo Foundation +# Distributed under the terms of the GNU General Public License v2 + +EAPI=6 + +DIST_AUTHOR=ALIAN +DIST_VERSION=1.24 +inherit perl-module + +DESCRIPTION="Provide routine to transform a HTML page in a MIME-Lite mail" +SLOT="0" +KEYWORDS="~amd64 ~x86" +IUSE="test" + +RDEPEND=" + dev-perl/HTML-Parser + dev-perl/libwww-perl + dev-perl/MIME-Lite + dev-perl/URI +" +DEPEND="${RDEPEND} + virtual/perl-ExtUtils-MakeMaker + test? ( virtual/perl-Test-Simple ) +" + +PATCHES=( + "${FILESDIR}/${P}-tests1.patch" + "${FILESDIR}/${P}-tests2.patch" +) + +DIST_TEST=do diff --git a/dev-perl/MIME-Lite-HTML/Manifest b/dev-perl/MIME-Lite-HTML/Manifest new file mode 100644 index 000000000000..d81e4f327b22 --- /dev/null +++ b/dev-perl/MIME-Lite-HTML/Manifest @@ -0,0 +1,5 @@ +AUX MIME-Lite-HTML-1.240.0-tests1.patch 3360 BLAKE2B 0f1f009652c539cd635fa3d64defd7a8a47b053feba21b5b7bab31880af88954a1fd0111707d7e4790459d2452493e75a5c157a9d3cff0567be42586dae8f614 SHA512 e1319537485ee9f5ad0e5884f1a1129af5671cf8f8c44779497e85e2ec0ac9ae28bca1ca54684db5628f509080f1e8584ffc5b6f0d3975b4b57c7f009dfafec2 +AUX MIME-Lite-HTML-1.240.0-tests2.patch 1927 BLAKE2B 111adaa871edb0e5461ca64aa242501cb874f08ca141db5f0a3011b58be4e2c65343dbc98cb9fc6f93ce57bdbb0699e40d8a215f9ccefe19eff22ab20a640485 SHA512 abb6dcef9974ed9d5a844fd1dcf3ced0446cea9dfde462847b4051126b6d95dda1ce1bcea6475f05f763b8247dde1976b538ed6511993dd6bc483b0d7fbf7dab +DIST MIME-Lite-HTML-1.24.tar.gz 63640 BLAKE2B 73c27937b9cb4532d74b9774dc17ee06497c41e4d3cb07c61c68e2fe9960cb81e8aab1f2ca60c91f0bbe0f2f4b099c203cc451dd2b3805dfb2a209aa43a970b7 SHA512 06d0392c5ef7628e10d47be979edbd431f04850e8bfdde6deb8507fd962cab27feaeb119b542faf13a2f1849df751afc8cbabd3cba17ac3aec4dc4042fb83960 +EBUILD MIME-Lite-HTML-1.240.0.ebuild 566 BLAKE2B 9d82202517f0a7b289ca9dfbbcf7f61902df05726147784136aa9c4896c5febe74348f91eecdbf79add034d4126262d8e1ee43c08696fcb2564e4ac426fff8de SHA512 5e63098d7db48cba76b1d5d2b570eb192d711f88be8bb8ab3c808397ee036ad95fcf353682b30d05536e7a4c74570c9ddf2ab030401d6c0fa762ac6620360a8b +MISC metadata.xml 446 BLAKE2B 6917ef901bec99f99442fbec4cf68a9fc3721d0a5f2f40ef159af5f46d7469d3b53ae0b2231f3a18dc58143078ff3de57a46171b4d0dd6d5ea7a8f8900676a79 SHA512 da4cd813cbe0f1bff4f488b87de5f3160c32c4ce007acdf5073923f9f607e7f6c504104ecb704ccf6b4bab26fed43d9ee73c87a0912b551fcc5e904105666474 diff --git a/dev-perl/MIME-Lite-HTML/files/MIME-Lite-HTML-1.240.0-tests1.patch b/dev-perl/MIME-Lite-HTML/files/MIME-Lite-HTML-1.240.0-tests1.patch new file mode 100644 index 000000000000..a9e1bdb0b022 --- /dev/null +++ b/dev-perl/MIME-Lite-HTML/files/MIME-Lite-HTML-1.240.0-tests1.patch @@ -0,0 +1,96 @@ +From 0a67f501c8af5585af7fec08cbe0964b1a235b93 Mon Sep 17 00:00:00 2001 +From: Peter Mottram <peter@sysnix.com> +Date: Thu, 12 May 2016 16:48:38 +0200 +Subject: [PATCH] force header ordering in tests and ignore blank lines in + diffs + +This fixes effects of hash randomisation and line-break changes in +MIME::Lite. +--- + t/20create_image_part.t | 7 +++++++ + t/50generic.t | 20 +++++++++++++------- + 2 files changed, 20 insertions(+), 7 deletions(-) + +diff --git a/t/20create_image_part.t b/t/20create_image_part.t +index 0df935f..4de4440 100644 +--- a/t/20create_image_part.t ++++ b/t/20create_image_part.t +@@ -8,6 +8,13 @@ use Cwd; + + # For create ref file, use perl -Iblib/lib t/20create_image_part.t 1 + ++MIME::Lite->field_order( ++ 'mime-version', 'content-id', ++ 'content-location', 'content-transfer-encoding', ++ 'content-type', 'subject', ++ 'to', 'from' ++); ++ + my $t = "/var/tmp/mime-lite-html-tests"; + my $p = cwd; + my $o = (system("ln -s $p/t $t")==0); +diff --git a/t/50generic.t b/t/50generic.t +index 5ba7895..76b879d 100644 +--- a/t/50generic.t ++++ b/t/50generic.t +@@ -10,6 +10,12 @@ use Cwd; + URI::URL->strict(1); + } + ++MIME::Lite->field_order( ++ 'mime-version', 'content-id', ++ 'content-location', 'content-transfer-encoding', ++ 'content-type', 'subject', ++ 'to', 'from' ++); + + # For create ref file, use perl -Iblib/lib t/50generic.t 1 + +@@ -47,11 +53,11 @@ foreach my $it ('cid', 'location', 'extern') { + or die "Can't create $f.created_by_test:$!"; + print PROD $rep; + close(PROD); +- my $r = `diff $ref $f.created_by_test`; ++ my $r = `diff -B $ref $f.created_by_test`; + cmp_ok($mailHTML->size, ">", (stat($ref))[7], "Same size"); + cmp_ok($mailHTML->size*0.945, "<", (stat($ref))[7], "Same size"); + is($r, "", $ref); +- unlink("$f.created_by_test"); ++ #unlink("$f.created_by_test"); + } + # for create ref file + elsif ($ARGV[0]) { +@@ -88,11 +94,11 @@ foreach my $it ('cid', 'location', 'extern') { + or die "Can't create $f.created_by_test:$!"; + print PROD $rep; + close(PROD); +- my $r = `diff $ref $f.created_by_test`; ++ my $r = `diff -B $ref $f.created_by_test`; + cmp_ok($mailHTML->size, ">", (stat($ref))[7], "Same size"); + cmp_ok($mailHTML->size*0.945, "<", (stat($ref))[7], "Same size"); + is($r, "", $ref); +- unlink("$f.created_by_test"); ++ #unlink("$f.created_by_test"); + } + # for create ref file + elsif ($ARGV[0]) { +@@ -130,11 +136,11 @@ foreach my $it ('cid', 'location', 'extern') { + or die "Can't create $f.created_by_test:$!"; + print PROD $rep; + close(PROD); +- my $r = `diff $ref $f.created_by_test`; ++ my $r = `diff -B $ref $f.created_by_test`; + cmp_ok($mailHTML->size, ">", (stat($ref))[7], "Same size"); + cmp_ok($mailHTML->size*0.945, "<", (stat($ref))[7], "Same size"); + is($r, "", $ref); +- unlink("$f.created_by_test"); ++ #unlink("$f.created_by_test"); + } + # for create ref file + elsif ($ARGV[0]) { +@@ -156,4 +162,4 @@ my $mailHTML = new MIME::Lite::HTML + my %vars = ( 'perl' => 'fast', 'lng' => 'Ruby'); + cmp_ok($mailHTML->fill_template('Perl is <? $perl ?>, <? $lng ?> suck',\%vars), + 'eq', 'Perl is fast, Ruby suck',"Call of fill_template do his job"); +-unlink($t); ++#unlink($t); diff --git a/dev-perl/MIME-Lite-HTML/files/MIME-Lite-HTML-1.240.0-tests2.patch b/dev-perl/MIME-Lite-HTML/files/MIME-Lite-HTML-1.240.0-tests2.patch new file mode 100644 index 000000000000..3ed9a518049c --- /dev/null +++ b/dev-perl/MIME-Lite-HTML/files/MIME-Lite-HTML-1.240.0-tests2.patch @@ -0,0 +1,54 @@ +Paths fixed in the patch- dilfridge@gentoo.org + +From 770933ee2c194160a9ab3320468d3b672973d3d8 Mon Sep 17 00:00:00 2001 +From: Peter Mottram <peter@sysnix.com> +Date: Thu, 12 May 2016 16:50:35 +0200 +Subject: [PATCH] fix breakage introduced in MIME::Lite v3.029 + +See commit: + +https://github.com/rjbs/MIME-Lite/commit/4608623af9126f53f38b723c4e9f38bbcd07d866 + +and original ticket: + +https://rt.cpan.org/Public/Bug/Display.html?id=35979 +--- + lib/MIME/Lite/HTML.pm | 4 ---- + 1 file changed, 4 deletions(-) + +diff --git a/lib/MIME/Lite/HTML.pm b/lib/MIME/Lite/HTML.pm +index bc06640..6839bf4 100755 +--- a/HTML.pm ++++ b/HTML.pm +@@ -463,7 +463,6 @@ sub build_mime_object { + 'Data' => $html); + $part->attr("content-type"=> "text/html; charset=".$self->{_htmlcharset}); + # Remove some header for Eudora client in HTML and related part +- $part->replace("MIME-Version" => ""); + $part->replace('X-Mailer' =>""); + $part->replace('Content-Disposition' =>""); + # only html, no images & no txt +@@ -480,7 +479,6 @@ sub build_mime_object { + $txt_part->attr("content-type" => + "text/plain; charset=".$self->{_textcharset}); + # Remove some header for Eudora client +- $txt_part->replace("MIME-Version" => ""); + $txt_part->replace("X-Mailer" => ""); + $txt_part->replace("Content-Disposition" => ""); + # only text, no html +@@ -516,7 +514,6 @@ sub build_mime_object { + # Create related part + my $rel = new MIME::Lite ('Type'=>'multipart/related'); + $rel->replace("Content-transfer-encoding" => ""); +- $rel->replace("MIME-Version" => ""); + $rel->replace("X-Mailer" => ""); + # Attach text part to alternative part + $mail->attach($txt_part); +@@ -656,7 +653,6 @@ sub create_image_part { + + # Remove header for Eudora client + $mail->replace("X-Mailer" => ""); +- $mail->replace("MIME-Version" => ""); + $mail->replace("Content-Disposition" => ""); + return $mail; + } diff --git a/dev-perl/MIME-Lite-HTML/metadata.xml b/dev-perl/MIME-Lite-HTML/metadata.xml new file mode 100644 index 000000000000..75c21feffd92 --- /dev/null +++ b/dev-perl/MIME-Lite-HTML/metadata.xml @@ -0,0 +1,13 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE pkgmetadata SYSTEM "http://www.gentoo.org/dtd/metadata.dtd"> +<pkgmetadata> + <maintainer type="project"> + <email>perl@gentoo.org</email> + <name>Gentoo Perl Project</name> + </maintainer> + <upstream> + <remote-id type="cpan">MIME-Lite-HTML</remote-id> + <remote-id type="cpan-module">MIME::Lite::HTML</remote-id> + <remote-id type="cpan-module">RequestAgent</remote-id> + </upstream> +</pkgmetadata> |