Add ARM files

[dh-make-perl] / dev / arm / libarchive-zip-perl / libarchive-zip-perl-1.18 / debian / libarchive-zip-perl / usr / share / doc / libarchive-zip-perl / examples / mailZip.pl
diff --git a/dev/arm/libarchive-zip-perl/libarchive-zip-perl-1.18/debian/libarchive-zip-perl/usr/share/doc/libarchive-zip-perl/examples/mailZip.pl b/dev/arm/libarchive-zip-perl/libarchive-zip-perl-1.18/debian/libarchive-zip-perl/usr/share/doc/libarchive-zip-perl/examples/mailZip.pl

new file mode 100644 (file)

index 0000000..9191907
--- /dev/null
+++ b/dev/arm/libarchive-zip-perl/libarchive-zip-perl-1.18/debian/libarchive-zip-perl/usr/share/doc/libarchive-zip-perl/examples/mailZip.pl
@@ -0,0 +1,67 @@
+#!/usr/bin/perl -w
+# Requires the following to be installed:
+#  File::Path
+#  File::Spec
+#  IO::Scalar, ...         from the IO-stringy distribution
+#  MIME::Base64
+#  MIME::QuotedPrint
+#  Net::SMTP
+#  Mail::Internet, ...     from the MailTools distribution.
+#  MIME::Tools
+
+use strict;
+use Archive::Zip qw(:CONSTANTS :ERROR_CODES);
+use IO::Scalar;
+use MIME::Entity;    # part of MIME::Tools package
+
+my $zipContents = '';
+my $SH          = IO::Scalar->new( \$zipContents );
+
+my $zip = Archive::Zip->new();
+my $member;
+
+# add a string as a member:
+my $stringMember = '<html><head></head><body><h1>Testing</h1></body></html>';
+$member = $zip->addString($stringMember, 'whatever.html');
+# $member->desiredCompressionMethod(COMPRESSION_STORED);
+
+# write it to the scalar
+my $status = $zip->writeToFileHandle($SH);
+$SH->close;
+
+print STDERR "zip is ". length($zipContents). " bytes long\n";
+
+### Create an entity:
+my $top = MIME::Entity->build(
+    Type    => 'multipart/mixed',
+    From    => 'ned@bike-nomad.com',
+    To      => 'billnevin@tricom.net',
+    Subject => "Your zip",
+);
+
+# attach the message
+$top->attach(
+    Encoding => '7bit',
+    Data     => "here is the zip you ordered\n"
+);
+
+# attach the zip
+$top->attach(
+    Data     => \$zipContents,
+    Type     => "application/x-zip",
+    Encoding => "base64",
+       Disposition => 'attachment',
+       Filename => 'your.zip'
+);
+
+# attach this code
+$top->attach(
+       Encoding => '8bit',
+       Type => 'text/plain',
+       Path => $0,
+       # Data => 'whatever',
+       Disposition => 'inline'
+);
+
+# and print it out to stdout
+$top->print( \*STDOUT );