summaryrefslogtreecommitdiffstats
path: root/debian/perl-framework/t/htdocs/modules/lua/filters.lua
blob: 4236ecc27a8dd9abc1b201b2df39516fb34372ae (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
--[[
    Example output filter that escapes all HTML entities in the output
]]--
function output_filter(r)
    coroutine.yield("prefix\n")
    while bucket do -- For each bucket, do...
        if string.len(bucket) > 0 then
            local output = "bucket:" .. bucket .. "\n"
            coroutine.yield(output) -- Send converted data down the chain
        else
            coroutine.yield("") -- Send converted data down the chain
        end
    end
    coroutine.yield("suffix\n")
    -- No more buckets available.
end