OpenEuphoria

Aku, I Did It Myself

• Posted by euphoriCK <euphoric at cklester.com> Nov 07, 2003
• 508 views

How's this work for you:

global procedure parseData()
    lenq = getenv("CONTENT_LENGTH")
    qs = getenv("QUERY_STRING")
    if atom(lenq) or length(lenq) < 1 then
        if atom(qs) or length(qs) < 1 then
            qs = command_line()
            if length(qs) >= 3 then
                qs = depisah(qs[3..length(qs)], ' ')
            else
                qs = ""
            end if
        end if
    else
        qs = get_bytes(0, val(lenq))
    end if
    parse()
end procedure

This way, it doesn't matter what I call, it parses all the same! :)