/*
 * $Id: tipmime.prg 8730 2008-06-14 10:04:53Z vszakats $
 */

/******************************************
* TIP test
* MIME type test
*
* This test tries to detect the mime type of a give file.
*
* Usage:
* mimetest filename
*****/

PROCEDURE MAIN( cFileName )

   IF Empty( cFileName )
      ?
      ? "Usage: mimetest <file to test>"
      ?
      QUIT
   ENDIF
   
   IF ( ! file( cFileName ) )
      ?
      ? "File", cFileName, "is not valid"
      ?
      QUIT
   ENDIF
   
   ? cFileName + ":", Tip_FileMimeType( cFileName )
   ?
   
RETURN
