#!/bin/sh

FAQDIR=/home/casper/sun/faq
while getopts "m:l:h" c
do
    case "$c" in
	l|m) ARGS="$ARGS -$c $OPTARG";;
	h) ARGS="$ARGS -$c";;
	\?) exit 1;;
    esac
done
shift `expr $OPTIND - 1`
FAQSOURCE=$FAQDIR/solaris2.raw
export FAQSOURCE
exec perl $FAQDIR/faqprog.pl $ARGS -s "$@"