:
##########################################################################
# Shellscript:	getmimetype - determine MIME type of file
# Version    :	1.1
# Author     :	Heiner Steven (heiner.steven@odn.de)
# Date       :	24.08.1999
# SCCS-Id.   :	@(#) getmimetype	1.1 99/09/04
##########################################################################
# Description
#
##########################################################################

PN=`basename "$0"`			# Program name
VER='1.1'

: ${LOCALLIB:=/usr/local/lib}
: ${NAWK:=awk}

Usage () {
    echo >&2 "$PN - determine MIME type of file, $VER
usage: $PN file [file ...]

Reads the files
	$LOCALLIB/mimetypes
	$HOME/.mimetypes"
    exit 1
}

Msg () {
    for MsgLine
    do echo "$PN: $MsgLine" >&2
    done
}

Fatal () { Msg "$@"; exit 1; }

set -- `getopt h "$@"`
[ $# -lt 1 ] && Usage			# "getopt" detected an error

while [ $# -gt 0 ]
do
    case "$1" in
	--)	shift; break;;
	-h)	Usage;;
	-*)	Usage;;
	*)	break;;			# First file name
    esac
    shift
done

MimeTypes=${TMPDIR:=/tmp}/pmt$$
trap 'rm -f "$MimeTypes" >/dev/null 2>&1' 0
trap "exit 2" 1 2 3 15

> "$MimeTypes"
for file in $LOCALLIB/mimetypes $HOME/.mimetypes
do
    if [ -r "$file" ]
    then
    	cat "$file" >> "$MimeTypes"
    fi
done

# Define some MIME type defaults
cat <<-! >> "$MimeTypes"
	# MIME type		File Extensions
	text/plain		.*\.text$ .*\.txt$
	text/html		.*\.htm$ .*\.html$

	image/jpeg		.*\.jpeg$ .*\.jpg$
	image/gif		.*\.gif$		

	video/mpeg		.*\.mpeg$ .*\.mpg$

	application/postscript	.*\.ps$	
	application/pdf		.*\.pdf$

	audio/basic		.*\.au$
	!

for file
do
    [ -f "$file" ] || continue
    if file "$file" | grep -i text >/dev/null
    then defaulttype=text/plain
    else defaulttype=application/octet-stream
    fi
    echo "$defaulttype	$file"
done |
    $NAWK '
    	BEGIN {
	    # Read the MIME type table
	    mimetypes = "'"$MimeTypes"'"
	    while ( getline < mimetypes ) {
	    	if ( $1 ~ /^\#/ ) continue		# ignore comments
		if ( $0 ~ /^[ 	]*
*$/ ) continue	# ignore empty lines

		if ( (k = split ($0, f)) > 1 ) {
		    mimetype = f [1]
		    for ( i=2; i<=k; i++ ) typeOf [$i] = mimetype
		}
	    }
	    close (mimetypes)
	    #for ( i in typeOf ) print "<" i ">", typeOf [i]
	}
	{
	    mimetype = ""
	    for ( t in typeOf )  {
	    	if ( $0 ~ t ) {
		    mimetype = typeOf [t]
		    break
		}
	    }
	    if ( mimetype == "" ) mimetype = $1
	    print mimetype
	}
    '