summaryrefslogtreecommitdiffstats
path: root/builtin-programs/web/printed-programs.folk
blob: e66550bf862e0de6ce37592ee2a6c65da7e0c2d2 (plain)
1
2
3
4
5
6
7
8
9
Wish the web server handles route {/printed-programs/([^/]+)\.folk$} with handler {
    set programDir [dict get [QueryOne! the program save directory is /programDir/] programDir]
    set filename "$programDir/$1.folk"
    set fp [open $filename r]
    set data [read $fp]
    close $fp

    dict create statusAndHeaders "HTTP/1.1 200 OK\nConnection: close\nContent-Type: text/plain; charset=utf-8\n\n" body $data
}