home *** CD-ROM | disk | FTP | other *** search
/ PC World 2005 June / PCWorld_2005-06_cd.bin / software / vyzkuste / firewally / firewally.exe / framework-2.3.exe / QuotedPrint.pm < prev    next >
Encoding:
Perl POD Document  |  2003-11-07  |  2.3 KB  |  91 lines
  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.05';
  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 SEE ALSO
  75.  
  76. L<PerlIO::via>, L<MIME::QuotedPrint>, L<PerlIO::via::Base64>,
  77. L<PerlIO::via::MD5>, L<PerlIO::via::StripHTML>, L<PerlIO::via::Rotate>.
  78.  
  79. =head1 ACKNOWLEDGEMENTS
  80.  
  81. Based on example that was initially added to MIME::QuotedPrint.pm for the
  82. 5.8.0 distribution of Perl.
  83.  
  84. =head1 COPYRIGHT
  85.  
  86. Copyright (c) 2002-2003 Elizabeth Mattijsen.  All rights reserved.  This
  87. library is free software; you can redistribute it and/or modify it under
  88. the same terms as Perl itself.
  89.  
  90. =cut
  91.