1 | package PerlIO::via::QuotedPrint;
|
---|
2 |
|
---|
3 | # Set the version info
|
---|
4 | # Make sure we do things by the book from now on
|
---|
5 |
|
---|
6 | $VERSION = '0.06';
|
---|
7 | use strict;
|
---|
8 |
|
---|
9 | # Make sure the encoding/decoding stuff is available
|
---|
10 |
|
---|
11 | use MIME::QuotedPrint (); # no need to pollute this namespace
|
---|
12 |
|
---|
13 | # Satisfy -require-
|
---|
14 |
|
---|
15 | 1;
|
---|
16 |
|
---|
17 | #-----------------------------------------------------------------------
|
---|
18 | # IN: 1 class to bless with
|
---|
19 | # 2 mode string (ignored)
|
---|
20 | # 3 file handle of PerlIO layer below (ignored)
|
---|
21 | # OUT: 1 blessed object
|
---|
22 |
|
---|
23 | sub PUSHED { bless \*PUSHED,$_[0] } #PUSHED
|
---|
24 |
|
---|
25 | #-----------------------------------------------------------------------
|
---|
26 | # IN: 1 instantiated object (ignored)
|
---|
27 | # 2 handle to read from
|
---|
28 | # OUT: 1 decoded string
|
---|
29 |
|
---|
30 | sub FILL {
|
---|
31 |
|
---|
32 | # Read the line from the handle
|
---|
33 | # Decode if there is something decode and return result or signal eof
|
---|
34 |
|
---|
35 | my $line = readline( $_[1] );
|
---|
36 | (defined $line) ? MIME::QuotedPrint::decode_qp( $line ) : undef;
|
---|
37 | } #FILL
|
---|
38 |
|
---|
39 | #-----------------------------------------------------------------------
|
---|
40 | # IN: 1 instantiated object (ignored)
|
---|
41 | # 2 buffer to be written
|
---|
42 | # 3 handle to write to
|
---|
43 | # OUT: 1 number of bytes written
|
---|
44 |
|
---|
45 | sub WRITE {
|
---|
46 |
|
---|
47 | # Encode whatever needs to be encoded and write to handle: indicate result
|
---|
48 |
|
---|
49 | (print {$_[2]} MIME::QuotedPrint::encode_qp($_[1])) ? length($_[1]) : -1;
|
---|
50 | } #WRITE
|
---|
51 |
|
---|
52 | __END__
|
---|
53 |
|
---|
54 | =head1 NAME
|
---|
55 |
|
---|
56 | PerlIO::via::QuotedPrint - PerlIO layer for quoted-printable strings
|
---|
57 |
|
---|
58 | =head1 SYNOPSIS
|
---|
59 |
|
---|
60 | use PerlIO::via::QuotedPrint;
|
---|
61 |
|
---|
62 | open( my $in,'<:via(QuotedPrint)','file.qp' )
|
---|
63 | or die "Can't open file.qp for reading: $!\n";
|
---|
64 |
|
---|
65 | open( my $out,'>:via(QuotedPrint)','file.qp' )
|
---|
66 | or die "Can't open file.qp for writing: $!\n";
|
---|
67 |
|
---|
68 | =head1 DESCRIPTION
|
---|
69 |
|
---|
70 | This module implements a PerlIO layer that works on files encoded in the
|
---|
71 | quoted-printable format. It will decode from quoted-printable while reading
|
---|
72 | from a handle, and it will encode as quoted-printable while writing to a handle.
|
---|
73 |
|
---|
74 | =head1 REQUIRED MODULES
|
---|
75 |
|
---|
76 | MIME::QuotedPrint (any)
|
---|
77 |
|
---|
78 | =head1 SEE ALSO
|
---|
79 |
|
---|
80 | L<PerlIO::via>, L<MIME::QuotedPrint>, L<PerlIO::via::Base64>,
|
---|
81 | L<PerlIO::via::MD5>, L<PerlIO::via::StripHTML>, L<PerlIO::via::Rotate>.
|
---|
82 |
|
---|
83 | =head1 ACKNOWLEDGEMENTS
|
---|
84 |
|
---|
85 | Based on example that was initially added to MIME::QuotedPrint.pm for the
|
---|
86 | 5.8.0 distribution of Perl.
|
---|
87 |
|
---|
88 | =head1 COPYRIGHT
|
---|
89 |
|
---|
90 | Copyright (c) 2002-2003 Elizabeth Mattijsen. All rights reserved. This
|
---|
91 | library is free software; you can redistribute it and/or modify it under
|
---|
92 | the same terms as Perl itself.
|
---|
93 |
|
---|
94 | =cut
|
---|