[ksh93-integration-discuss] Looking for ksh93 example scripts for Web server CGI

[David Korn]

> I am looking for ksh93 example scripts which use the korn shell as Web
> server CGI. Does anyone have examples or pointers to such examples?
> 

Here is a file that you can include that will provide useful functions
for cgi programming.  You can source this script or put this in
your function directory under cgi_parse and then just invoke
cgi_parse in your script.

=======================cut here==============================
typeset -A COOKIE HEADER
typeset Cgi _CGI_c _CGI_multipart

function cgi_header
{
        typeset h
        for h in "${!head...@]}"
        do      printf '%s: %s\n' "$h" "${HEADER[$h]}"
        done
        print
}

function cgi_url 
{
        if [[ $SERVER_PORT != 80 ]]
        then    print "http://$SERVER_NAME:$SERVER_PORT$SCRIPT_NAME";
        else    print "http://$SERVER_NAME$SCRIPT_NAME";
        fi
}

function cgi_parse
{
        if      [[ $REQUEST_METHOD == POST ]]
        then    if      [[ $CONTENT_TYPE ==  multipart/form-data* ]]
                then    _CGI_multipart=${TMPDIR-/tmp}/cgi-form-$$
                        trap 'rm -rf "$_CGI_multipart"' EXIT
                        mkdir $_CGI_multipart
                        unset -f Cgi.set
                        typeset -A Cgi.file
                        typeset i b v
                        pax --nosummary --read --edit ",.*/,," --edit 
",^,$_CGI_multipart/,"
                        for i in $_CGI_multipart/*
                        do      b=${i##*/}
                                if      [[ $b == +([a-z]) ]]
                                then     v=$(<$i)
                                        eval Cgi.$b='$v'
                                else    Cgi.file[$b]=$i
                                fi
                        done
                else    Cgi=$(<&0)              # Read from stdin
                fi
        else    Cgi="$QUERY_STRING"
        fi
        cgi_cookie "$HTTP_COOKIE"
        HEADER["Content-type"]="text/html"
}

function cgi_cookie
{
        set -f
        typeset cookie=$1 name val c IFS=';'
        set -- $cookie
        for c
        do
                IFS='='
                set -- $c
                name=${1##' '} val=${2##' '}            # trim white space
                name=${name%%' '} val=${val%%' '}
                COOKIE[$name]=$val
        done
}

function cgi_setcookie # name value
{
        HEADER["Set-Cookie"]="$1=$2; path=$SCRIPT_NAME"
}

## Cgi variable disciplines

function Cgi.set
{
        set -f
        typeset i j n val IFS='&'
        set -- ${.sh.value}
        for i
        do      n=${i%%=*}
                val=${i#$n=}
                val=${val//+/ }
                val=${val//@([\'\\])/'\'\1}
                eval j=\${#${.sh.name}.${...@]} \
                        "${.sh.name}.${n}[j]=\$'${val//'%'@(??)/'\x'\1"'\$'"}'"
        done
}

function cgi_C_init
{
        integer i
        for ((i=1; i < 256; i++))
        do      if      (( i!=16#22 && i!=16#27 && i!=16#5C && i!=16#5B && 
i!=16#5D ))
                then    printf $'_CGI_c[$\'\\\\x%.2X\']=%%%.2X\n'  $i $i
                fi
        done
        print
}

function cgi_encode
{
        typeset v=$1
        var=${v//' '/+}
        cbrace='}'
        eval var=${var//@([!a-zA-Z0-9_+])/\${_CGI_c[\\\1]$cbrace}
        print -r -- "$var"
}

function Cgi.get
{
        typeset i val name vname
        if      [[ ! ${_CGI_c[\\]} ]]
        then    val='"'
                _CGI_c[""]=%00
                _CGI_c[$var]=%22
                _CGI_c[\']=%27
                _CGI_c[\]]=%5B
                _CGI_c[\[]=%5D
                _CGI_c[\\]=%5C
                eval $(cgi_C_init)
                unset -f cgi_C_init
        fi
        vname=${.sh.name}               # .sh.name contains variable name
        .sh.value=                      # .sh.value stores value
        for i in ${!c...@}
        do      
                name=${i#$vname.}
                nameref v=${i}
                val=$(cgi_encode "$v")
                .sh.value="${.sh.value}${.sh.value:+&}$name=$val"
        done
}

=======================cut here==============================

David Korn
dgk at research.att.com