/clbuild/source/cl-smtp/mime-types.lisp

;;; -*- mode: Lisp -*-

	

;;; This file is part of CL-SMTP, the Lisp SMTP Client





;;; Copyright (C) 2004/2005/2006/2007 Jan Idzikowski



;;; This library is free software; you can redistribute it and/or

;;; modify it under the terms of the Lisp Lesser General Public License

;;; (http://opensource.franz.com/preamble.html), known as the LLGPL.



;;; This library is distributed in the hope that it will be useful,

;;; but WITHOUT ANY WARRANTY; without even the implied warranty of

;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

;;; Lisp Lesser GNU General Public License for more details.



;;; File: attachments.lisp

;;; Description: encoding and transmitting login to include a mime attachment



;;;

;;; Contributed by Brian Sorg

;;;

(in-package :cl-smtp)



(eval-when (:compile-toplevel :load-toplevel)

;;;  Some of the most common file extensions with the mime types and descriptions. 

;;; Extracted from numberous webpages. 

  (defparameter *mime-type-descriptions*

    '(("386" "application/octet-stream" 

       "Windows Enhanced Mode Driver or Swap File")

      ("001" "application/x-001" "FAX Datafile")

      ("3GPP" "audio/3gpp" 

       "3rd

Generation Partnership Project. Multimedia over 3rd generation wireless

networks. H.263 video is the mandatory video format in 3GPP and AMR is

the main audio/speech format.")

      ("7CB" "application/vnd.ecdis-update" 

       "Electronic Chart Display and Information System (ECDIS)")

      ("aa" "audio/audible" "Audible file format (audio books)")

      ("aab" "application/x-authorware-bin" "Macromedia Authorware Binary")

      ("aac" "audio/aac" 

       "Advanced Audio Coding File. Part of  MPEG-2 and MPEG-4 standard.  (Apple iTunes Store)")

      ("aam" "application/x-authorware-map" "Authorware Map (Shockwave?)")

      ("aas" "application/x-authorware-seg" 

       "Authorware Shocked Packet (Segment) ")

      ("aba" "text/x-palm-aba" "AddressBook Archive (Palm)")

      ("ac3" "audio/ac3" 

       "Adaptive Transform Coder 3 (relates to the bitstream format of Dolby Digital)")

      ("adr" "application/x-msaddr" "Address Book")

      ("aexpk" "application/pgp-keys" "Armored extracted public key (PGP)")

      ("afl" "video/animaflex" "Font file (for Allways) (Lotus 1-2-3)")

      ("ahtml" "magnus-internal/cgi-advertiser" " ")

      ("ai" "application/postscript" 

       "Encapsulated PostScript (metafile) (Adobe Illustrator)")

      ("aif" "audio/x-aiff" "Audio Interchange File Format")

      ("aifc" "audio/x-aiff" "Audio Interchange File Format")

      ("aiff" "audio/x-aiff" "Audio Interchange File Format")

      ("aim" "application/x-aim" "AIM file - AOL Instant Messanger")

      ("alt" "application/x-up-alert" "Menu file (WordPerfect Library)")

      ("aos" "application/x-nokia-" "Add-On Software (Nokia 9000)")

      ("arj" "application/x-arj" 

       "Compressed file archive created by ARJ or winzip")

      ("art" "image/x-jg" 

       "AOL Johnson-Grace Compressed File and Another Ray Tracer Format")

      ("asc" "application/pgp-encrypted" "Armored Encrypted file (PGP)")

      ("asd" "application/astound" "Autosave file (Word for Windows)")

      ("asf" "application/vnd.ms-asf video/x-ms-asf  video/x-ms-wm"

       "Windows Media file - Advanced Streaming Format (ASF), NetShow")

      ("asn" "application/astound" " ")

      ("asp" "text/html" 

       "Active Server Pages - standard HTML documents interlaced with ActiveX script code ")

      ("asr" "video/x-ms-asf" "Microsoft NetShow")

      ("asx" "video/x-ms-asf application/x-mplayer2" 

       "VXtreme (Microsoft streaming AV)")

      ("asz" "application/astound" " ")

      ("au" "audio/basic" "8-bit u-law [PCM] / 8000 Hz")

      ("avi" "video/x-msvideo" "Windows Video file")

      ("axs" "application/olescript" " ")

      ("bas" "text/plain" "BASIC program")

      ("bat" "application/octet-stream" "DOS BAT (Batch) file.")

      ("bcpio" "application/x-bcpio" "Old Binary CPIO")

      ("bexpk" "application/pgp-keys" "binary extracted public key (PGP)")

      ("bin" "application/octet-stream" "Uninterpreted Binary Data")

      ("bk" "application/vnd.framemaker" "FrameMaker book ")

      ("bleep" "application/bleeper" " ")

      ("bmp" "image/x-bmp" "Windows Bitmap (PaintBrush)")

      ("btf" "image/prs.btf" "NationsBank Check Images (also .btif)")

      ("c" "text/plain" "C program")

      ("c++" "text/plain" "C program")

      ("cab" "application/cab" 

       "Cabinet file Microsoft installation archive. opersyss=win32, mac cpu=x86, ppc, mips, alpha")

      ("cal" "application/x-msschedplus" "MS schedplus or calendar")

      ("cat" "application/pdf" 

       "PDF Catalog (Used with Acrobat Reader and Search plug-in)")

      ("cat" "application/vnd.ms-pki.seccat" "Security Catalog")

      ("ccs" "text/ccs" 

       "Cluster Configuration System used with the Global File System (GFS) in Red Hat Linux")

      ("cdda" "audio/aiff" "CD Audio Track")

      ("cda" "audio/x-cda" "CD Audio Track")

      ("cdf" "text/plain" "Channel Definition Format - MS push std")

      ("cdr" "application/x-coreldrw" "Corel Draw (metafile)")

      ("cer" " application/pkix-cert" "Certificatefile")

      ("cfm" "wwwserver/wsapi" "Cold Fusion Markup")

      ("cgi" "magnus-internal/cgi" "Common Gateway Interface")

      ("cgm" "image/cgm" "Computer Graphics Metafile ")

      ("chat" "application/x-chat" " ")

      ("che" "application/x-up-cacheop" " ")

      ("cht" "audio/x-dspeech" 

       "Chart (Harvard Graphics 2.0 - SoftCraft Presenter)")

      ("cil" "application/vnd.ms-artgalry" "Clip Gallery Download Packages")

      ("class" "application/java-vm" "Java")

      ("cli" "application/vnd.ms-artgalry" " ")

      ("clp" "application/x-msclip" "Windows Clipboard (metafile)")

      ("cmx" "image/x-cmx" " ")

      ("cnc" "application/x-cnc" "CNC general program data")

      ("cod" "image/cis-cod" 

       "Datafile (Forecast Plus - MS Multiplan - StatPac Gold)")

      ("coda" "application/x-coda" " ")

      ("com" "application/octet-stream" 

       "DOS COM Executable (similar to exe, but a direct memory image)")

      ("cpi" "image/cpi" "ColorLab Processed Image ")

      ("cpio" "application/x-cpio" "IEEE Std1003.2 (`POSIX') CPIO")

      ("cpt" "application/mac-compactpro" "Compact Pro Archive")

      ("crd" "application/x-mscardfile" "MS cardfile")

      ("crt" "application/x-x509-ca-cert" "Certificatefile")

      ("csh" "application/x-csh" "CSH Script")

      ("csm" "application/x-cu-seeme" "Precompiled headers (Borland C++ 4.5)")

      ("css" "text/css" "Cascading Style Sheets")

      ("csv" "text/csv" 

       "Comma-Separated Values (Excel, Lotus 123, FoxPro, MS Outlook)")

      ("ct" "image/" "Iris CT Graphic or Scitex CT Handshake Bitmap ")

      ("cu" "application/x-cu-seeme" " ")

      ("cut" "image/x-halo-cut" "Bitmap graphics")

      ("dat" "application/octet-stream" 

       "Data file. Can be anything, text, graphics, binary, ...")

      ("dba" "text/x-palm-dba" "DateBook Archive (Palm)")

      ("dbf" "application/octet-stream" "DataBase File (FoxPro, dBase) ")

      ("dbm" "wwwserver/wsapi" "ColdFusion IIS Plugin")

      ("dca" "application/dca-rft" "IBM Doc Content Arch")

      ("dcr" "application/x-director" "Macromedia Director (Shockwave)")

      ("deb" "application/octet-stream" "Binary for debian UNIX")

      ("der" "application/x-x509-ca-cert" "Certificatefile")

      ("dir" "application/x-director" "Macromedia Director (Shockwave)")

      ("dll" "application/x-msdownload"

       "Dynamically Linked Library (DOS) pe-portable executable opersys=win32, mac cpu=x86, ppc, mips, alpha")

      ("dms" "application/octet-stream" 

       "Compressed Amiga file archive created by DISKMASHER")

      ("doc" "application/msword" "MS Word") 

      ("dot" "application/msword" "MS Word (Template)")

      ("dsf" "image/x-mgx-dsf" "Micrografx Designer 6 (metafile)")

      ("dst" "application/tajima" "PC-RDist Distribution file ")

      ("dtd" "text/xml" "SGML Document (Type) Definition file")

      ("dus" "audio/x-dspeech" "Readiris font dictionary")

      ("dvi" "application/x-dvi" "TeX DVI (Device Independent)")

      ("dwc" "application/dwc" "compressed archive")

      ("dwf" "drawing/x-dwf" "Autodesk WHIP! Drawing Web file")

      ("dwg" "application/x-acad" "AutoCAD Drawing")

      ("dxf" "application/vnd.dxf" 

       "Drawing eXchange Format, Data Exchange File, AutoCAD (vector)")

      ("dxr" "application/x-director" "Macromedia Director (Shockwave)")

      ("ebk" "application/x-expandedbook" " ")

      ("emf" "image/x-emf" 

       "Enhanced metafile created in Microsoft Windows and Visio 2002 applications")

      ("eml" "message/rfc822" 

       "MS Internet Mail Message (Outlook Express and others)")

      ("enc" "application/pre-encrypted" 

       "Pre-encrypted Data (also Sniffer trace)")

      ("eps" "application/postscript" "Encapsulated PostScript (raster)")

      ("erf" "application/x-hsp-erf" " ")

      ("es" "audio/echospeech" " ")

      ("etf" "image/x-etf" "Enriched Text file")

      ("etx" "text/x-setext" "Structure Enchanced Text")

      ("evy" "application/x-envoy" "Document (WordPerfect Envoy)")

      ("exe" "application/x-pe-" 

       "pe-portable executable opersys=win32, mac cpu=x86, ppc, mips, alpha")

      ("fdf" "application/vnd.fdf" "acrobat reader")

      ("fh4" "image/x-freehand" "Vector graphics (Aldus FreeHand 4.x)")

      ("fh5" "image/x-freehand" "Freehand 5")

      ("fhc" "image/x-freehand" "Freehand")

      ("fif" "image/fif" "Fractal Image Format file")

      ("fla" "application/x-shockwave-flash" " ")

      ("flac" "audio/flac" "Free Lossless Audio Codec")

      ("flc" "video/flc " "FLIC Animated Picture 	Autodesk ")

      ("fli" "video/fli " "FLIC Animated Picture 	Autodesk ")

      ("fm" "application/vnd.framemaker " "FrameMaker Document")

      ("fm3" "application/x-maker " "FrameMaker")

      ("fm4" "application/vnd.framemaker" "FrameMaker")

      ("fm5" "application/vnd.framemaker" "FrameMaker")

      ("fml" "application/fml" " ")

      ("fp5" "application/filemaker5" "FileMaker Pro")

      ("frl" "application/freeloader" "FormFlow file")

      ("frm" "application/vnd.framemaker" "FrameMaker")

      ("fs" "application/X-FSRecipe" " ")

      ("g3f" "image/g3fax" "Group III FAX")

      ("gb" "application/chinese-gb" "Chinese Text")

      ("gif" "image/gif" 

       "GIF - Graphics Interchange Format - Compuserve (raster)")

      ("gsd" "audio/x-gsm" "GSM Internet Realtime Audio ")

      ("gsm" "audio/x-gsm" "Raw GSM 6.10 Audio Stream ")

      ("gtar" "application/x-gtar" "Gnu Tar")

      ("gz" "application/x-gzip" "Unix Gzip (gnu-compress ecnapsulation)")

      ("hdf" "application/x-hdf" "NCSA HDF (Hierarchical Data Format)")

      ("hdml" "text/x-hdml" " ")

      ("hlb" "vms/help" "VMS help libraries")

      ("hlp" "application/x-mshelp" "Windows Help")

      ("hpgl" "application/vnd.hp-HPGL" "HP Graphic Language")

      ("hqx" "application/mac-binhex40" 

       "BinHex 4.0 Format - Macintosh Binary to ASCII conversion.")

      ("htm" "text/html" "HTML - HyperText Markup Language")

      ("html" "text/html" "HTML - HyperText Markup Language")

      ("hz" "application/chinese-hz" "Chinese")

      ("ica" "application/x-ica" 

       "Bitmap graphics (Image Object Content Architecture)")

      ("ice" "x-conference/x-cooltalk" " ")

      ("ico" "image/ico" "Windows icon") 

      ("icq" "application/x-icq" "Saved ")

      ("ics" "text/calendar" "iCalendar Calendar Data (Mac)")

      ("ief" "image/ief" "Image Exchange Format")

      ("iff" "image/iff " "Amiga Bitmap Graphic ")

      ("iges" "model/iges" " ")

      ("img" "image/img" 

       "Venture Publisher, GEM Draw (bit mapped), AutoCAD CAD-Camera, others")

      ("inc" "text/plain" " ")

      ("inf" "application/x-setupscript"

       "Setup scripts (For Installing Drivers, etc.), Autorun - auto-start file for a CD-ROM")

      ("ins" "application/x-NET-Install" "Data (WordPerfect)")

      ("ipx" "application/x-ipix" "IPIX AV file")

      ("isapi" "wwwserver/isapi" 

       "Internet Server API - Application Program(ming) Interface")

      ("ivr" "i-world/i-vrml" "Virtual Reality World Live Picture ")

      ("jar" "application/java-archive" " ")

      ("java" "text/plain" " ")

      ("jfx" "application/octet-stream" 

       "eFax Fax Document (J2 Global Communications ")

      ("jpe" "image/jpeg" "JPEG-JFIF - Joint Photographic Experts Group")

      ("jpeg" "image/jpeg" "JPEG-JFIF - Joint Photographic Experts Group")

      ("jpg" "image/jpeg" 

       "JPEG-JFIF - Joint Photographic Experts Group (raster)")

      ("jps" "image/x-jps" "Stereo Image")

      ("js" "application/x-javascript" "Java Script")

      ("jsc" "application/x-javascript-config" " ")

      ("jsp" "magnus-internal/jsp" "Java Script")

      ("la" "audio/nspaudio" "Netscape Packetized audio ")

      ("latex" "application/x-latex" "LaTeX Source")

      ("ldif" "text/x-ldif" 

       "LDAP Data Interchange Format ( Netscape Address Book)")

      ("lha" "application/octet-stream" "LHA Archive") 

      ("lisp" "text/plain" "Lisp Files")

      ("lma" "audio/nspaudio" "Netscape Packetized audio ")

      ("loe" "application/vnd.framemaker" "FrameMaker list of exhibits ")

      ("lof" "application/vnd.framemaker" "FrameMaker list of figures ")

      ("lot" "application/vnd.framemaker" "FrameMaker list of tables ")

      ("lwp" "WordPro 9.5 " " ")

      ("lzh" "application/octet-stream" "compressed")

      ("lzs" "application/octet-stream" "compressed")

      ("lzx" "application/octet-stream" "compressed")

      ("m13" "application/x-msmediaview" "MS mediaview")

      ("m14" "application/x-msmediaview" "MS mediaview")

      ("m3u" "audio/x-mpegurl" "Music Playlist (Winamp)")

      ("m4a" "audio/" "Apple iTunes AAC and ALE unprotected")

      ("ma" "application/mathmetica" "Mathmetica Notebook")

      ("m4p" "audio/" "Apple iTunes AAC protected")

      ("m4b" "audio/" "Apple iTunes AAC protected autiobook")

      ("man" "application/x-troff-man" "Troff w/MAN Macros")

      ("map" "application/x-httpd-imap" "Image Configuration File (HTML Image Map)")

      ("mbd" "application/mbedlet" " ")

      ("mcf" "image/vasa" "Mathcad font")

      ("mda" "application/x-msaccess" "MS Access  (May not be desirable)")

      ("mdb" "application/x-msaccess" "MS access")

      ("me" "application/x-troff-me" "Troff w/ME Macros")

      ("mesh" "model/mesh" " ")

      ("mfp" "application/mirage" " ")

      ("mht" "message/rfc822" "Microsoft Web Archiv")

      ("mid" "audio/x-midi" "MIDI")

      ("midi" "audio/x-midi" "MIDI")

      ("mif" "application/vnd.mif" "Maker Interchange Format (FrameMaker)")

      ("mime" "message/rfc822" 

       "base64 (6-bit) is the standard for encoding binary attachme")

      ("mk" "application/vnd.framemaker" "FrameMaker")

      ("mmf" "application/x-smaf application/vnd.smaf"

       "SMAF = \"Synthetic music Mobile Application Format\" - Polyphonic Ringtone File for Phones - Yamaha")

      ("mmm" "application/pdf" "Acrobat Media Clip")

      ("mny" "application/x-msmoney" "MS money")

      ("mocha" "application/x-javascript" "Java Script")

      ("mol" "chemical/x-mdl-molfile" "MDL Molfile ")

      ("mov" "video/quicktime" "QuickTime digital video")

      ("movie" "video/x-sgi-movie" "SGI \"movieplayer\" movie")

      ("mp2" "audio/mpeg" "MPEG Audio Stream, Layer II ")

      ("mp3" "audio/mpeg" "MPEG Audio Stream, Layer III ")

      ("mp4" "video/mp4v-es" 

       "MPEG Audio Stream, Layer IV (QuickTime and RealPlayer)")

      ("mpa" "audio/mpeg" "MPEG Audio Stream, Layer I, II or III ")

      ("mpe" "video/mpeg" "MPEG - Motion Picture Experts Group")

      ("mpeg" "video/mpeg" "MPEG - Motion Picture Experts Group")

      ("mpg" "video/mpeg" "MPEG - Motion Picture Experts Group")

      ("mpga" "audio/mpeg" " ")

      ("mpire" "application/x-mpire" " ")

      ("mpl" "application/x-mpire" " ")

      ("mpp" "application/vnd.ms-project" "MS Project")

      ("mpt" "application/vnd.ms-project" "MS Project")

      ("mpv" "application/vnd.ms-project" "MS Project view")

      ("mpw" "application/vnd.ms-project" "MS Project")

      ("mpx" "application/vnd.ms-project" "MS Project")

      ("ms" "application/x-troff-ms" "Troff w/MS Macros")

      ("msh" "model/mesh" "2 and 2-D visualization")

      ("n2p" "application/n2p" " ")

      ("nc" "application/x-netcdf" "Unidata netCDF data file")

      ("npx" "application/x-netfpx" " ")

      ("nsc" "application/x-nschat" "Noder file (Polish)")

      ("nsf" "application/x-notes" "Lotus Notes ")

      ("ntf" "application/x-notes" "Lotus Notes ")

      ("ocx" "application/x-oleobject" 

       "Object Linking and Embedding (OLE) Control Extension  (ActiveX Control)")

      ("oda" "application/oda" "ODA/ODIF Open Document Architecture ") 

      ("ods" "application/vnd.oasis.opendocument.spreadsheet" 

       "Open Office Version 2 spreedsheet")

      ("odt" "application/vnd.oasis.opendocument.text;" 

       "Open Office Version 2 writer")

      ("odp" "application/vnd.oasis.opendocument.presentation" 

       "Open Office Version 2 presentor")

      ("ofml" "application/fml" " ")

      ("ogg" "audio/x-ogg" "Ogg Vorbis open-source audio format")

      ("olb" "vms/olb" "Vax Object Library or MS Project Object Library")

      ("or2" "application/x-organizer" "Lotus Organizer")

      ("ovl" "application/octet-stream" "PC OVL File")

      ("pac" "application/x-ns-proxy-autoconfig" " ")

      ("page" "application/x-coda" " ")

      ("pbd" "application/vnd.powerbuilder6" "Phone book (FaxNOW! - Faxit)")

      ("pbm" "image/x-portable-bitmap" "PBM Bitmap Format")

      ("pcd" "image/x-photo-cd" "Kodak Photo CD (raster)")

      ("pcl" "application/pcl" "

Printer Control Language (HP)")

      ("pcx" "image/pcx" "PC Paintbrush (ZSoft Image)")

      ("pdb" "text/x-palm-pdb" "Palm Database File")

      ("pdf" "application/pdf" "Portable Document Format (Adobe Acrobat)")

      ("pfm" "application/pdf" "Acrobat Font")

      ("pfr" "application/font-tdpfr" " ")

      ("pgm" "image/x-portable-graymap" "PBM Graymap Format")

      ("pgp" "application/pgp-encrypted" "PGP Encrypted file ")

      ("pgr" "text/parsnegar-document" " ")

      ("php3" "application/x-httpd-php3" " ")

      ("phtml" "application/x-httpd-php" "PHP Script ")

      ("pic" "image/pict" "Macintosh QuickDraw format (metafile)")

      ("pict" "image/pict" "Macintosh QuickDraw format (metafile)")

      ("pif" "application/x-mspif" "Program Information File (Windows)")

      ("pkr" "application/pgp-keys" "Public Keyring (PGP)")

      ("pnc" "text/x-palm-pnc" "Palm Network Configuration File")

      ("png" "image/png" "Portable Network Graphics")

      ("pnm" "image/x-portable-anymap" "PBM Anymap Format")

      ("pot" "application/ms-powerpoint" "MS PowerPoint template")

      ("ppa" "application/vnd.ms-powerpoint" "MS PowerPoint addin")

      ("ppm" "image/x-portable-pixmap" "PBM Pixmap Format")

      ("pps" "application/ms-powerpoint" "MS PowerPoint Slideshow")

      ("ppt" "application/ms-powerpoint" "MS PowerPoint Presentation")

      ("ppz" "applications/ms-powerpoint" "MS PowerPoint Animation")

      ("pqa" "text/x-palm-pqa" "Palm Query Application")

      ("pqf" "application/x-cprplayer" " ")

      ("pqi" "application/cprplayer" "Power Quest Drive imaging")

      ("prc" "text/x-palm-prc" "Palm Application")

      ("prvkr" "application/pgp-keys" "Private Keyring (PGP)")

      ("ps" "application/postscript" "PostScript")

      ("psd" "image/x-photoshop" "Adobe PhotoShop Image")

      ("psr" "application/datawindow" "Project Scheduler Resource file")

      ("ptlk" "application/listenup" " ")

      ("pub" "application/x-mspublisher" "MS publisher or PageMaker 2")

      ("pubkr" "application/pgp-keys" "Public Keyring (PGP)")

      ("push" "multipart/x-mixed-replace" " ")

      ("qd3" "x-world/x-3dmf" "Data file - segment 3 (Omnis Quartz)")

      ("qd3d" "x-world/x-3dmf" " ")

      ("qrt" "application/quest" "Qrt ray tracing graphics")

      ("qt" "video/quicktime" "QuickTime")

      ("ra" "audio/x-realaudio" "Music (RealAudio)")

      ("ram" "audio/x-pn-realaudio" "Real Audio Player")

      ("ras" "image/x-cmu-raster" "Sun Raster Format (raster)")

      ("rax" "audio/" "RealAudio 10 - RealMedia Streaming File")

      ("rgb" "image/x-rgb" "RGB Color Image")

      ("rip" "image/rip" "Graphics (Remote Access)")

      ("rm" "audio/x-pn-realaudio" " ")

      ("rmf" "audio/x-rmf" "Rich Music Format audio file from Beatnik")

      ("rmi" "audio/mid" "MIDI File ")

      ("roff" "application/x-troff" "Troff")

      ("rpm" "audio/x-pn-realaudio-plugin" 

       "Real Audio Plugin and RedHat Package Manager")

      ("rrf" "application/x-InstallFromTheWeb" " ")

      ("rtc" "application/rtc" " ")

      ("rtf" "application/rtf" "Rich Text Format (Microsoft)")

      ("rtx" "text/richtext" "MIME Richtext format (see also rtf)")

      ("rtsp" "application/x-rtsp" 

       "QuickTime Real-Time Streaming Protocol File ")

      ("sb" "application/x-xsb" "Superbook")

      ("sbx" "application/x-xsb" 

       "ArcView Spatial Index For Read-Write Shapefiles ")

      ("sca" "application/x-supercard" "Datafile (SCA)")

      ("scp" "text/x-palm-scp" "Palm Network Script File")

      ("sdp" "application/sdp" "Scalable Multicast (RealNetworks)")

      ("ser" "application/java-" " ")

      ("sgm" "text/x-sgml" "Standard Generalized Markup Lang (SGML)")

      ("sgml" "text/x-sgml" "Standard Generalized Markup Lang (SGML)")

      ("sh" "application/x-sh" "SH Script")

      ("shar" "application/x-shar" "Sh Shar")

      ("shtml" "magnus-internal/parsed-html" " ")

      ("shw" "application/presentations" 

       "Presentation (Harvard Graphics 2.0 - CorelShow)")

      ("sig" "application/pgp-signature" "Detached signature file (PGP)")

      ("silo" "model/mesh" " ")

      ("sit" "application/x-stuffit" 

       "StuffIt - Macintosh Compression Format. By Aladdin for Mac.")

      ("sitx" "application/x-stuffit"

       "StuffIt X file format integrates compression with security and safety options. By Aladdin for Mac.")

      ("skd" "application/x-koan" " ")

      ("skm" "application/x-koan" " ")

      ("skp" "application/x-koan" " ")

      ("skr" "application/pgp-keys" "Private Keyring (PGP)")

      ("skt" "application/x-koan" " ")

      ("smil" "application/smil" 

       "SMIL Synchronized Multimedia Integration Language. App:RealPlayer")

      ("sml" "application/smil" 

       "SMIL Synchronized Multimedia Integration Language")

      ("smp" "application/studiom" "Sample (sound file)")

      ("snd" "audio/basic" "8-bit u-law [PCM] / 8000 Hz Audio")

      ("spc" "text/x-palm-spc" "Palm Configuration File")

      ("spl" "application/futuresplash" "FutureSplash from FutureWave Sftwr")

      ("spr" "application/x-sprite" "Document letter (Sprint)")

      ("sprite" "application/x-sprite" " ")

      ("src" "application/x-wais-source" "WAIS Source")

      ("stk" "application/hstu" " ")

      ("stream" "audio/x-qt-stream" " ")

      ("sty" "application/msword" "MS Word Style sheet")

      ("sv4cpio" "application/x-sv4cpio" "SVR4 CPIO")

      ("sv4crc" "application/x-sv4crc" "SVR4 CPIO w/CRC")

      ("svf" "image/vnd" " ")

      ("svh" "image/svh" " ")

      ("svr" "x-world/x-svr" " ")

      ("swf" "application/x-shockwave-flash" 

       "Macromedia Flash Format File for animations")

      ("sxc" "application/vnd.sun.xml.calc" 

       "Open Office Version 1 Spreedsheet")

      ("sxi" "application/vnd.sun.xml.impress" 

       "Open Office Version 1 Presentations")

      ("sxw" " application/vnd.sun.xml.writer" 

       "Open Office Version 1 Writer")

      ("syl" "application/sylk" 

       "SYLK - Symbolic Link WingZ/Excel/Lotus (old MultiPlan form")

      ("sys" "application/octet-stream" "PC System File")

      ("talk" "application/talker" "Text to Speech ")

      ("tar" "application/x-tar" "4.3BSD Tar ")

      ("targa" "image/targa" "Targa Image File")

      ("tbk" "application/toolbook" "Memo backup (dBASE IV - FoxPro)")

      ("tcl" "application/x-tcl" "TCL Script")

      ("tda" "text/x-palm-tda" "ToDo Archive (Palm)")

      ("tex" "application/x-tex" "TeX Source")

      ("texi" "application/x-texinfo" "Texinfo")

      ("texinfo" "application/x-texinfo" "Texinfo")

      ("tga" "image/targa" "Targa/Truevision Image File")

      ("tgz" "application/x-gzip" "UNIX GTar Arvhive")

      ("tif" "image/tiff" "TIFF - Tag Image File Format")

      ("tiff" "image/tiff" "TIFF - Tagged Image File Format")

      ("tlk" "application/x-tlk" " ")

      ("tmv" "application/x-Parable-Thing" "Template (TextMaker)")

      ("toc" "application/vnd.framemaker" "FrameMaker TOC")

      ("tr" "application/x-troff" "Troff")

      ("trm" "application/x-msterminal" "MS terminal")

      ("tsi" "audio/tsplayer" " ")

      ("tsp" "application/dsptype" "Windows Telephony Service Provider")

      ("tsv" "text/tab-separated-values" "Tab Separated Values") 

      ("txt" "text/plain" "Plain Text")

      ("uin" "application/x-icq" "ICQ 2001+ Saved ICQ Contact Information ")

      ("url" "application/x-url" 

       "wwwserver/redirection  application/internet-shortcut "

       "Uniform resource Locator (Internet Address)")

      ("ustar" "application/x-ustar" "IEEE Std1003.2 (``POSIX'') Tar")

      ("v5d" "application/vis5d" "5-D data set visualization")

      ("vbd" "application/activexdocument" "ActiveX file")

      ("vcs" "text/x-vcalendar" 

       "Personal Data Interchange (PDI) Calendar entry - Outlook")

      ("vcd" "application/x-cdlink" "VirtualDrive CD Image File ")

      ("vcf" "text/x-vcard" "vCard (Business Card)")

      ("vdo" "video/vdo" "VDOLive Script Video image (Story Board)")

      ("vgm" "video/x-videogram" " ")

      ("vgp" "video/x-videogram-plugin" " ")

      ("vgx" "video/x-videogram" " ")

      ("viv" "video/vnd.vivo" "VivoActive Player Video file")

      ("vivo" "video/vnd.vivo" " ")

      ("vmd" "application/vocaltec-media-desc" " ")

      ("vmf" "application/vocaltec-media-file" 

       "Font characteristics (Ventura Publisher)")

      ("vob" "video/dvd" "DVD Video Movie File")

      ("vox" "audio/voxware" "Vox Audio")

      ("vqe" "audio/x-twinvq-plugin" "Yamaha Sound-VQ Locator file")

      ("vqf" "audio/x-twinvq" "Yamaha Sound-VQ file")

      ("vql" "audio/x-twinvq" "Yamaha Sound-VQ Locator file")

      ("vrml" "model/vrml" " ") 

      ("vrt" "x-world/x-vrt" " ")

      ("vts" "workbook/formulaone" 

       "Forumle One - A Java Spread sheet and report generator from ")

      ("waf" "plugin/wanimate" 

       "Mayim's WAF Compiler file for interactive 3D with Walkabout browser plug-in")

      ("wan" "plugin/wanimate" " ")

      ("wav" "audio/x-wav" "Windows Audio File WAVE format")

      ("wax" "audio/x-ms-wax" "Windows Media Audio Redirector to WMA file.")

      ("wbmp" "image/vnd.wap.wbmp" 

       "Wireless Bitmap File Format - Mobil phones")

      ("wi" "image/wavelet" " ")

      ("wid" "application/x-DemoShield" "Width table (Ventura Publisher)")

      ("wis" "application/x-InstallShield" " ")

      ("wks" "application/x-msworks" "MS Works or Lotus 1-2-3 Worksheets")

      ("wlt" "application/x-mswallet" "eWallet file")

      ("wm" "video/x-ms-wm" " ")

      ("wma" "audio/x-ms-wma" "Windows Media Audio. Stored in ASF.")

      ("wmf" "image/x-wmf" "Windows MetaFile vector graphics")

      ("wml" "text/vnd.wap.wml" "Wireless Markup Language File")

      ("wmv" "video/x-ms-wmv" "Windows Media Video (Stored in ASF format)")

      ("wp" "application/wordperfect" "WordPerfect")

      ("wpc" "application/wpc" 

       "Text-format converters used 1990-1997 by MS Word and Write")

      ("wpc" "application/pcms_wp" "WordPerfect Character Mapping File ")

      ("wpd," "application/wordperfect5.1" "Document (WordPerfect)")

      ("wps" "application/vnd.ms-works" "MS Works ")

      ("wri" "application/x-mswrite" "Write format (MS Windows)")

      ("wrl" "model/vrml" "Plain Text VRML File ")

      ("wrz" "x-world/x-vrml" " ")

      ("wtx" "audio/x-wtx" " ")

      ("wvx" "video/x-ms-wvx" " ")

      ("xbm" "image/x-xbitmap" "X Bitmaps")

      ("xdr" "video/x-videogram" " ")

      ("xla" "application/vnd.ms-excel" "MS Excel (Add in)")

      ("xlc" "application/vnd.ms-excel" "MS Excel (Chart)")

      ("xlm" "application/vnd.ms-excel" "MS Excel")

      ("xls" "application/vnd.ms-excel" "MS Excel")

      ("xlt" "application/vnd.ms-excel" "MS Excel (template)")

      ("xlw" "application/vnd.ms-excel" "MS Excel (workbook)")

      ("xml" "text/xml" "Extensible Markup Language")

      ("xpm" "image/x-xpixmap" "X Pixmap format")

      ("xsb" "application/x-xsb" "Superbook")

      ("xwd" "image/x-xwindowdump" "X Window Dump (xwd)")

      ("xyz" "chemical/x-pdb" "ASCII RPG Maker Graphic Format")

      ("zip" "application/zip" 

       "Compressed file archive created by PKZIP (pkz204g.exe)")

      ("zpa" "application/pcphoto" " ")))



  (defvar *mime-types* (make-hash-table 

			:test #'equal 

			:size (length *mime-type-descriptions*)))

  

  ;;--- Initialize File extension/Mime Type hash table 

  (dolist (type-lst *mime-type-descriptions*)

    (setf (gethash (first type-lst) *mime-types*) (second type-lst))))



(defun lookup-mime-type (file-name 

			 &optional (default "application/octet-stream"))

  "Extract mime type based on file-extension"

  (let ((pos-ext (position #\. file-name :test #'char= :from-end t)))

    (when (and pos-ext

	       (< (1+ pos-ext) (length file-name)))

      (or (gethash (subseq file-name (1+ pos-ext)) *mime-types*)

	  default))))