debian/perl-framework/t/htdocs/modules/lua/setheaderfromparam.lua


1
2
3
4
5
6
7
8
9
10

-- Syntax: setheader.lua?HeaderName=foo&HeaderValue=bar
-- 
-- This will return a document with 'bar' set in the header 'foo'

function handle(r)
    local GET, GETMULTI = r:parseargs()
    
    r.headers_out[GET['HeaderName']] = GET['HeaderValue']
    r:puts("Header set")
end