#!/usr/bin/lua

CGI = require("CGI")

function isvalid(name)
    if name ~= nil and string.len(name) > 0 then
        return true
    end
    return false
end

function cgidecode(str)
    return (str:gsub('+', ' '):gsub("%%(%x%x)",
                function(xx)
                    return string.char(tonumber(xx, 16))
                end))
end

env = {}
cgi = CGI()

cgi:sendHeader(200, "Content-Type", "text/html")
form_car = cgi:paramPOST("f_car")
form_name = cgi:paramPOST("f_name")

if isvalid(form_car) and isvalid(form_name) then
    env.car = cgidecode(form_car)
    env.name = cgidecode(form_name)
    cgi:template([[
        Name = <i><%= name %></i><br />
        Brand = <i><%= car %></i>
    ]], env)
else
    cgi:template([[
        <form method="post">
            <table>
                <tr>
                    <td>
                        <b>Select a Car:</b>
                    </td>
                    <td>
                        <select name="f_car">
                            <option value="cars/mercedes">Mercedes Benz</option>
                            <option value="cars/chrysler">Chrysler</option>
                            <option value="cars/lexus">Lexus</option>
                            <option value="cars/toyota">Toyota</option>
                        </select>
                    </td>
                </tr>
                <tr>
                    <td>
                        <b>Enter a Name:</b>
                    </td>
                    <td>
                        <input type="text" name="f_name" />
                    </td>
                </tr>
            </table>
            <input type="submit" value="Go" />
        </form>
    ]])
end