|
Revision 816
(checked in by rsz, 3 years ago)
|
cleanup
|
| Line | |
|---|
| 1 |
-------------------------------------------------------------------------------- |
|---|
| 2 |
-- Title: MIMEQP.lua |
|---|
| 3 |
-- Description: Like a square peg in a round hole |
|---|
| 4 |
-- Author: Raphaël Szwarc http://alt.textdrive.com/lua/ |
|---|
| 5 |
-- Creation Date: February 1, 2005 |
|---|
| 6 |
-- Legal: Copyright (C) 2005 Raphaël Szwarc |
|---|
| 7 |
-------------------------------------------------------------------------------- |
|---|
| 8 |
|
|---|
| 9 |
-- import dependencies |
|---|
| 10 |
local LUObject = require( "LUObject" ) |
|---|
| 11 |
local string = require( "string" ) |
|---|
| 12 |
|
|---|
| 13 |
-- define the class |
|---|
| 14 |
local super = LUObject |
|---|
| 15 |
local self = super() |
|---|
| 16 |
|
|---|
| 17 |
function self:decode( aString ) |
|---|
| 18 |
local aFunction = function ( aValue ) |
|---|
| 19 |
return string.char( tonumber( aValue, 16 ) ) |
|---|
| 20 |
end |
|---|
| 21 |
|
|---|
| 22 |
aString = aString:gsub( "%=\r\n", "" ) |
|---|
| 23 |
aString = aString:gsub( "%=(%x%x)", aFunction ) |
|---|
| 24 |
|
|---|
| 25 |
return aString |
|---|
| 26 |
end |
|---|
| 27 |
|
|---|
| 28 |
return self |
|---|
