manr: fix

[copyleftie-scripts.git] / ffs

#!/bin/execlineb -WS0

ifelse { test ${#} -eq 0 } {
        ${0} u
}
        backtick -in progname { basename ${0} } importas -u progname progname
        ifelse { test ${progname} = ffm } {
                sv ${1} web-mail
        } ifelse { test ${progname} = ffs } {
                sv ${1} web-strict
        } ifelse { test ${progname} = ffu } {
                sv ${1} web-UNSAFE
        } ifelse { test ${progname} = ffw } {
                sv ${1} web-work
        } # else
                fdmove -c 1 2
                foreground { echo ${progname}: unsupported profile }
                exit 1