reinit the tree, so we can have metadata

5 files changed, 194 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..eaed8588aace
--- /dev/null
+++ b/dev-perl/MIME-Lite-HTML/Manifest
@@ -0,0 +1,5 @@
+AUX MIME-Lite-HTML-1.240.0-tests1.patch 3360 SHA256 e1a6a410105e546cfa241724a3230b7bea9d1a9b5a03d666d2f4eb0b4d6ecc0a SHA512 e1319537485ee9f5ad0e5884f1a1129af5671cf8f8c44779497e85e2ec0ac9ae28bca1ca54684db5628f509080f1e8584ffc5b6f0d3975b4b57c7f009dfafec2 WHIRLPOOL 843735bf383accd71850a46cdde7f65d877f33230f3ad3c7b631bfec15ca045ab1a31ac7416b59442bb382e31b8443fc0fd1c5055f693fca483ed3060925183e
+AUX MIME-Lite-HTML-1.240.0-tests2.patch 1927 SHA256 a820aca87eb2ad8f2ee3693f3a2cc7e62280ebc791fa4996004a374dece0badd SHA512 abb6dcef9974ed9d5a844fd1dcf3ced0446cea9dfde462847b4051126b6d95dda1ce1bcea6475f05f763b8247dde1976b538ed6511993dd6bc483b0d7fbf7dab WHIRLPOOL c544f97486fb036370e9984dfa1c3646eff979b54d56d082ede182d25c8a06f35d91a9c738b7f241cd26a987986c95bdc1bdcafc2257fa67cc9e75536de3304e
+DIST MIME-Lite-HTML-1.24.tar.gz 63640 SHA256 db603ccbf6653bcd28cfa824d72e511ead019fc8afb9f1854ec872db2d3cd8da SHA512 06d0392c5ef7628e10d47be979edbd431f04850e8bfdde6deb8507fd962cab27feaeb119b542faf13a2f1849df751afc8cbabd3cba17ac3aec4dc4042fb83960 WHIRLPOOL 2d8691c3b7abeb958dec881e952a9495800d1334a1c5066f264464cad3b167c4b4e68f29bcac8327904a5739b5d03eaef9b6f7c3531e071d30ee7f6260bb732f
+EBUILD MIME-Lite-HTML-1.240.0.ebuild 566 SHA256 5dafbbf346fdd2043130c388998e485f933d0507462ba8afa9c42ee404c9586c SHA512 5e63098d7db48cba76b1d5d2b570eb192d711f88be8bb8ab3c808397ee036ad95fcf353682b30d05536e7a4c74570c9ddf2ab030401d6c0fa762ac6620360a8b WHIRLPOOL 3a895a293fd4e3134060009ea23ef509634da5b371556f5213df9b90a1fd14e75cae65a6b99a4a849621d40d4d50ff23356b6fe6793f16763d4c099ee77ccd7c
+MISC metadata.xml 251 SHA256 38969a343659e88a894d06828458ee55b28e9acd7aca5a59ed98621146aab844 SHA512 bc87b53817cd976bf8641fa1f7eeb62379b3bbb7d99d3a00078d1d55a0af6f296d54fda4bc2c2cda93434976b32b45a334fb3264fa3fbc1ed2f22728bf605695 WHIRLPOOL f05271953c2c5c80651322f48dbe5824812a413518fbf78b44ecf77c3e57d53507b42cb3d0b0a9c0ba77c31cb6278bd3af3bae204f86dc428ef1125fc155b30c
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..51930499ab60
--- /dev/null
+++ b/dev-perl/MIME-Lite-HTML/metadata.xml
@@ -0,0 +1,8 @@
+<?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>
+</pkgmetadata>