1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
|
##---------------------------------------------------------------------------##
## File:
## $Id: qprint.pl,v 2.7 2005/12/20 20:27:55 ehood Exp $
## Authors:
## Earl Hood mhonarc@mhonarc.org
## Alan Barrett barrett@daisy.ee.und.ac.za
## Description:
## This library defines the routine to decode "quoted-printable"
## encoded data.
## Usage:
## require "quoted_printable.pl";
## $text = "ed_printable'qprdecode($data);
##
##---------------------------------------------------------------------------##
## Copyright (C) 1995-1999 Earl Hood, mhonarc@mhonarc.org
##
## This program is free software; you can redistribute it and/or modify
## it under the terms of the GNU General Public License as published by
## the Free Software Foundation; either version 2 of the License, or
## (at your option) any later version.
##
## This program is distributed in the hope that it will be useful,
## but WITHOUT ANY WARRANTY; without even the implied warranty of
## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
## GNU General Public License for more details.
##
## You should have received a copy of the GNU General Public License
## along with this program; if not, write to the Free Software
## Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
##---------------------------------------------------------------------------##
package quoted_printable;
sub qprdecode {
local($_) = shift;
s/[^\S\r\n]*(\r?\n)/$1/g; # remove trailing whitespace on each line
s/\=\r?\n//g; # remove soft linebreaks
s/=\Z//; # drop any bogus soft lb at end of text
s/=([0-9A-Fa-f]{2})/pack('H2',$1)/ge; # convert hex codes
$_; # return result
}
1;
|
