← Back to branch summary

~ubuntu-branches/ubuntu/intrepid/horae/intrepid

« back to all changes in this revision

Viewing changes to 0CPAN/Archive-Zip-1.16/examples/mailZip.pl

  • Committer: Bazaar Package Importer
  • Author(s): Carlo Segre
  • Date: 2008-02-23 23:13:02 UTC
  • mfrom: (2.1.2 hardy)
  • Revision ID: james.westby@ubuntu.com-20080223231302-mnyyxs3icvrus4ke
Tags: 066-3
Apply patch to athena_parts/misc.pl for compatibility with 
perl-tk 804.28.

Show diffs side-by-side

added added

removed removed

Lines of Context:
0CPAN/Archive-Zip-1.16/examples/mailZip.pl
1
 
#!/usr/bin/perl -w
2
 
# Requires the following to be installed:
3
 
#  File::Path
4
 
#  File::Spec
5
 
#  IO::Scalar, ...         from the IO-stringy distribution
6
 
#  MIME::Base64
7
 
#  MIME::QuotedPrint
8
 
#  Net::SMTP
9
 
#  Mail::Internet, ...     from the MailTools distribution.
10
 
#  MIME::Tools
11
 
 
12
 
use strict;
13
 
use Archive::Zip qw(:CONSTANTS :ERROR_CODES);
14
 
use IO::Scalar;
15
 
use MIME::Entity;    # part of MIME::Tools package
16
 
 
17
 
my $zipContents = '';
18
 
my $SH          = IO::Scalar->new( \$zipContents );
19
 
 
20
 
my $zip = Archive::Zip->new();
21
 
my $member;
22
 
 
23
 
# add a string as a member:
24
 
my $stringMember = '<html><head></head><body><h1>Testing</h1></body></html>';
25
 
$member = $zip->addString($stringMember, 'whatever.html');
26
 
# $member->desiredCompressionMethod(COMPRESSION_STORED);
27
 
 
28
 
# write it to the scalar
29
 
my $status = $zip->writeToFileHandle($SH);
30
 
$SH->close;
31
 
 
32
 
print STDERR "zip is ". length($zipContents). " bytes long\n";
33
 
 
34
 
### Create an entity:
35
 
my $top = MIME::Entity->build(
36
 
    Type    => 'multipart/mixed',
37
 
    From    => 'ned@bike-nomad.com',
38
 
    To      => 'billnevin@tricom.net',
39
 
    Subject => "Your zip",
40
 
);
41
 
 
42
 
# attach the message
43
 
$top->attach(
44
 
    Encoding => '7bit',
45
 
    Data     => "here is the zip you ordered\n"
46
 
);
47
 
 
48
 
# attach the zip
49
 
$top->attach(
50
 
    Data     => \$zipContents,
51
 
    Type     => "application/x-zip",
52
 
    Encoding => "base64",
53
 
        Disposition => 'attachment',
54
 
        Filename => 'your.zip'
55
 
);
56
 
 
57
 
# attach this code
58
 
$top->attach(
59
 
        Encoding => '8bit',
60
 
        Type => 'text/plain',
61
 
        Path => $0,
62
 
        # Data => 'whatever',
63
 
        Disposition => 'inline'
64
 
);
65
 
 
66
 
# and print it out to stdout
67
 
$top->print( \*STDOUT );