summaryrefslogtreecommitdiffstats
path: root/debian/perl-framework/t/htdocs/modules/lua/setheaderfromparam.lua
blob: 6c8d9c54b36ecdc7ae2ef66202af4a7cd59088fa (plain)
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