#!/bin/sh
# $Id: do-application,v 1.1 2001/04/25 18:48:39 rbasch Exp $

. /mit/mimeutils/share/scripts/utils.sh

name=
subtype=

usage() {
  echo "Usage: do-application [-n name] [-s subtype] [-t content-type]" 1>&2
  exit 1
}

while getopts n:s:t: opt; do
  case "$opt" in
    n)
      name="$OPTARG"
      ;;
    s)
      subtype=`echo "$OPTARG" | tr 'A-Z' 'a-z'`
      ;;
    t)
      subtype=`echo "$OPTARG" | awk -F/ '{ print $2; }' | tr 'A-Z' 'a-z'`
      ;;
    \?)
      usage
      ;;
  esac
done
shift `expr "$OPTIND" - 1`

case "$subtype" in
  mac-binhex40)
    exec do-binhex "$1"
    ;;

  msword|x-msword)
    exec do-msword "$1"
    ;;

  excel|x-excel)
    exec do-excel "$1"
    ;;

  postscript)
    exec do-postscript "$1"
    ;;

  pdf)
    exec do-pdf "$1"
    ;;

  x-dvi)
    maybe_prompt view document in xdvi
    exec /usr/athena/bin/xdvi "$1"
    ;;

  x-ez)
    maybe_prompt view document in ez
    exec /usr/andrew/bin/ezv "$1"
    ;;

  x-framemaker)
    maybe_prompt view document in FrameMaker
    exec /bin/athena/attachandrun frame fmclient fmclient \
      -fpname /mit/frame/bin/maker -f "$1"
    ;;

  octet-stream|octet-string)
    # (octet-string is stupid AOL brokenness)
    exec do-unknown -n "$name" "$1"
    ;;

  *)
    becho "Unknown content type application/$subtype"
    ;;

esac