<?php
/** Module defining helper functions for detecting and dealing with mime types.
 *
 */

 /** Defines a set of well known mime types
 * This is used as a fallback to mime.types files.
 * An extensive list of well known mime types is provided by
 * the file mime.types in the includes directory.
 */
define('MM_WELL_KNOWN_MIME_TYPES',<<<END_STRING
application/ogg ogg ogm ogv
application/pdf pdf
application/vnd.oasis.opendocument.chart odc
application/vnd.oasis.opendocument.chart-template otc
application/vnd.oasis.opendocument.formula odf
application/vnd.oasis.opendocument.formula-template otf
application/vnd.oasis.opendocument.graphics odg
application/vnd.oasis.opendocument.graphics-template otg
application/vnd.oasis.opendocument.image odi
application/vnd.oasis.opendocument.image-template oti
application/vnd.oasis.opendocument.presentation odp
application/vnd.oasis.opendocument.presentation-template otp
application/vnd.oasis.opendocument.spreadsheet ods
application/vnd.oasis.opendocument.spreadsheet-template ots
application/vnd.oasis.opendocument.text odt
application/vnd.oasis.opendocument.text-template ott
application/vnd.oasis.opendocument.text-master otm
application/vnd.oasis.opendocument.text-web oth
application/x-javascript js
application/x-shockwave-flash swf
audio/midi mid midi kar
audio/mpeg mpga mpa mp2 mp3
audio/x-aiff aif aiff aifc
audio/x-wav wav
audio/ogg ogg
image/x-bmp bmp
image/gif gif
image/jpeg jpeg jpg jpe
image/png png
image/svg+xml image/svg svg
image/tiff tiff tif
image/vnd.djvu image/x.djvu image/x-djvu djvu
image/x-portable-pixmap ppm
image/x-xcf xcf
text/plain txt
text/html html htm
video/ogg ogm ogg ogv
video/mpeg mpg mpeg
END_STRING
);

 /** Defines a set of well known mime info entries
 * This is used as a fallback to mime.info files.
 * An extensive list of well known mime types is provided by
 * the file mime.info in the includes directory.
 */
define('MM_WELL_KNOWN_MIME_INFO', <<<END_STRING
application/pdf [OFFICE]
application/vnd.oasis.opendocument.chart [OFFICE]
application/vnd.oasis.opendocument.chart-template [OFFICE]
application/vnd.oasis.opendocument.formula [OFFICE]
application/vnd.oasis.opendocument.formula-template [OFFICE]
application/vnd.oasis.opendocument.graphics [OFFICE]
application/vnd.oasis.opendocument.graphics-template [OFFICE]
application/vnd.oasis.opendocument.image [OFFICE]
application/vnd.oasis.opendocument.image-template [OFFICE]
application/vnd.oasis.opendocument.presentation [OFFICE]
application/vnd.oasis.opendocument.presentation-template [OFFICE]
application/vnd.oasis.opendocument.spreadsheet [OFFICE]
application/vnd.oasis.opendocument.spreadsheet-template [OFFICE]
application/vnd.oasis.opendocument.text [OFFICE]
application/vnd.oasis.opendocument.text-template [OFFICE]
application/vnd.oasis.opendocument.text-master [OFFICE]
application/vnd.oasis.opendocument.text-web [OFFICE]
text/javascript application/x-javascript [EXECUTABLE]
application/x-shockwave-flash [MULTIMEDIA]
audio/midi [AUDIO]
audio/x-aiff [AUDIO]
audio/x-wav [AUDIO]
audio/mp3 audio/mpeg [AUDIO]
application/ogg audio/ogg video/ogg [MULTIMEDIA]
image/x-bmp image/bmp [BITMAP]
image/gif [BITMAP]
image/jpeg [BITMAP]
image/png [BITMAP]
image/svg+xml [DRAWING]
image/tiff [BITMAP]
image/vnd.djvu [BITMAP]
image/x-xcf [BITMAP]
image/x-portable-pixmap [BITMAP]
text/plain [TEXT]
text/html [TEXT]
video/ogg [VIDEO]
video/mpeg [VIDEO]
unknown/unknown application/octet-stream application/x-empty [UNKNOWN]
END_STRING
);

#note: because this file is possibly included by a function,
#we need to access the global scope explicitely!
global $wgLoadFileinfoExtension;

if ($wgLoadFileinfoExtension) {
	if(!extension_loaded('fileinfo')) dl('fileinfo.' . PHP_SHLIB_SUFFIX);
}

/**
 * Implements functions related to mime types such as detection and mapping to
 * file extension.
 *
 * Instances of this class are stateles, there only needs to be one global instance
 * of MimeMagic. Please use MimeMagic::singleton() to get that instance.
 */
class MimeMagic {

	/**
	* Mapping of media types to arrays of mime types.
	* This is used by findMediaType and getMediaType, respectively
	*/
	var $mMediaTypes= NULL;

	/** Map of mime type aliases
	*/
	var $mMimeTypeAliases= NULL;

	/** map of mime types to file extensions (as a space seprarated list)
	*/
	var $mMimeToExt= NULL;

	/** map of file extensions types to mime types (as a space seprarated list)
	*/
	var $mExtToMime= NULL;

	/** The singleton instance
	 */
	private static $instance;

	/** Initializes the MimeMagic object. This is called by MimeMagic::singleton().
	*
	* This constructor parses the mime.types and mime.info files and build internal mappings.
	*/
	function __construct() {
		/*
		*   --- load mime.types ---
		*/

		global $wgMimeTypeFile, $IP;

		$types = MM_WELL_KNOWN_MIME_TYPES;

		if ( $wgMimeTypeFile == 'includes/mime.types' ) {
			$wgMimeTypeFile = "$IP/$wgMimeTypeFile";
		}

		if ( $wgMimeTypeFile ) {
			if ( is_file( $wgMimeTypeFile ) and is_readable( $wgMimeTypeFile ) ) {
				wfDebug( __METHOD__.": loading mime types from $wgMimeTypeFile\n" );
				$types .= "\n";
				$types .= file_get_contents( $wgMimeTypeFile );
			} else {
				wfDebug( __METHOD__.": can't load mime types from $wgMimeTypeFile\n" );
			}
		} else {
			wfDebug( __METHOD__.": no mime types file defined, using build-ins only.\n" );
		}

		$types = str_replace( array( "\r\n", "\n\r", "\n\n", "\r\r", "\r" ), "\n", $types );
		$types = str_replace( "\t", " ", $types );

		$this->mMimeToExt = array();
		$this->mToMime = array();

		$lines = explode( "\n",$types );
		foreach ( $lines as $s ) {
			$s = trim( $s );
			if ( empty( $s ) ) continue;
			if ( strpos( $s, '#' ) === 0 ) continue;

			$s = strtolower( $s );
			$i = strpos( $s, ' ' );

			if ( $i === false ) continue;

			#print "processing MIME line $s<br>";

			$mime = substr( $s, 0, $i );
			$ext = trim( substr($s, $i+1 ) );

			if ( empty( $ext ) ) continue;

			if ( !empty( $this->mMimeToExt[$mime] ) ) {
				$this->mMimeToExt[$mime] .= ' ' . $ext;
			} else {
				$this->mMimeToExt[$mime] = $ext;
			}

			$extensions = explode( ' ', $ext );

			foreach ( $extensions as $e ) {
				$e = trim( $e );
				if ( empty( $e ) ) continue;

				if ( !empty( $this->mExtToMime[$e] ) ) {
					$this->mExtToMime[$e] .= ' ' . $mime;
				} else {
					$this->mExtToMime[$e] = $mime;
				}
			}
		}

		/*
		*   --- load mime.info ---
		*/

		global $wgMimeInfoFile;
		if ( $wgMimeInfoFile == 'includes/mime.info' ) {
			$wgMimeInfoFile = "$IP/$wgMimeInfoFile";
		}

		$info = MM_WELL_KNOWN_MIME_INFO;

		if ( $wgMimeInfoFile ) {
			if ( is_file( $wgMimeInfoFile ) and is_readable( $wgMimeInfoFile ) ) {
				wfDebug( __METHOD__.": loading mime info from $wgMimeInfoFile\n" );
				$info .= "\n";
				$info .= file_get_contents( $wgMimeInfoFile );
			} else {
				wfDebug(__METHOD__.": can't load mime info from $wgMimeInfoFile\n");
			}
		} else {
			wfDebug(__METHOD__.": no mime info file defined, using build-ins only.\n");
		}

		$info = str_replace( array( "\r\n", "\n\r", "\n\n", "\r\r", "\r" ), "\n", $info);
		$info = str_replace( "\t", " ", $info );

		$this->mMimeTypeAliases = array();
		$this->mMediaTypes = array();

		$lines = explode( "\n", $info );
		foreach ( $lines as $s ) {
			$s = trim( $s );
			if ( empty( $s ) ) continue;
			if ( strpos( $s, '#' ) === 0 ) continue;

			$s = strtolower( $s );
			$i = strpos( $s, ' ' );

			if ( $i === false ) continue;

			#print "processing MIME INFO line $s<br>";

			$match = array();
			if ( preg_match( '!\[\s*(\w+)\s*\]!', $s, $match ) ) {
				$s = preg_replace( '!\[\s*(\w+)\s*\]!', '', $s );
				$mtype = trim( strtoupper( $match[1] ) );
			} else {
				$mtype = MEDIATYPE_UNKNOWN;
			}

			$m = explode( ' ', $s );

			if ( !isset( $this->mMediaTypes[$mtype] ) ) {
				$this->mMediaTypes[$mtype] = array();
			}

			foreach ( $m as $mime ) {
				$mime = trim( $mime );
				if ( empty( $mime ) ) continue;

				$this->mMediaTypes[$mtype][] = $mime;
			}

			if ( sizeof( $m ) > 1 ) {
				$main = $m[0];
				for ( $i=1; $i<sizeof($m); $i += 1 ) {
					$mime = $m[$i];
					$this->mMimeTypeAliases[$mime] = $main;
				}
			}
		}

	}

	/**
	 * Get an instance of this class
	 */
	static function &singleton() {
		if ( !isset( self::$instance ) ) {
			self::$instance = new MimeMagic;
		}
		return self::$instance;
	}

	/** returns a list of file extensions for a given mime type
	* as a space separated string.
	*/
	function getExtensionsForType( $mime ) {
		$mime = strtolower( $mime );

		$r = @$this->mMimeToExt[$mime];

		if ( @!$r and isset( $this->mMimeTypeAliases[$mime] ) ) {
			$mime = $this->mMimeTypeAliases[$mime];
			$r = @$this->mMimeToExt[$mime];
		}

		return $r;
	}

	/** returns a list of mime types for a given file extension
	* as a space separated string.
	*/
	function getTypesForExtension( $ext ) {
		$ext = strtolower( $ext );

		$r = isset( $this->mExtToMime[$ext] ) ? $this->mExtToMime[$ext] : null;
		return $r;
	}

	/** returns a single mime type for a given file extension.
	* This is always the first type from the list returned by getTypesForExtension($ext).
	*/
	function guessTypesForExtension( $ext ) {
		$m = $this->getTypesForExtension( $ext );
		if ( is_null( $m ) ) return NULL;

		$m = trim( $m );
		$m = preg_replace( '/\s.*$/', '', $m );

		return $m;
	}


	/** tests if the extension matches the given mime type.
	* returns true if a match was found, NULL if the mime type is unknown,
	* and false if the mime type is known but no matches where found.
	*/
	function isMatchingExtension( $extension, $mime ) {
		$ext = $this->getExtensionsForType( $mime );

		if ( !$ext ) {
			return NULL;  //unknown
		}

		$ext = explode( ' ', $ext );

		$extension = strtolower( $extension );
 		if ( in_array( $extension, $ext ) ) {
			return true;
		}

		return false;
	}

	/** returns true if the mime type is known to represent
	* an image format supported by the PHP GD library.
	*/
	function isPHPImageType( $mime ) {
		#as defined by imagegetsize and image_type_to_mime
		static $types = array(
			'image/gif', 'image/jpeg', 'image/png',
			'image/x-bmp', 'image/xbm', 'image/tiff',
			'image/jp2', 'image/jpeg2000', 'image/iff',
			'image/xbm', 'image/x-xbitmap',
			'image/vnd.wap.wbmp', 'image/vnd.xiff',
			'image/x-photoshop',
			'application/x-shockwave-flash',
		);

		return in_array( $mime, $types );
	}

	/**
	 * Returns true if the extension represents a type which can
	 * be reliably detected from its content. Use this to determine
	 * whether strict content checks should be applied to reject
	 * invalid uploads; if we can't identify the type we won't
	 * be able to say if it's invalid.
	 *
	 * @todo Be more accurate when using fancy mime detector plugins;
	 *       right now this is the bare minimum getimagesize() list.
	 * @return bool
	 */
	function isRecognizableExtension( $extension ) {
		static $types = array(
			// Types recognized by getimagesize()
			'gif', 'jpeg', 'jpg', 'png', 'swf', 'psd',
			'bmp', 'tiff', 'tif', 'jpc', 'jp2',
			'jpx', 'jb2', 'swc', 'iff', 'wbmp',
			'xbm',

			// Formats we recognize magic numbers for
			'djvu', 'ogg', 'ogv', 'mid', 'pdf', 'wmf', 'xcf',

			// XML formats we sure hope we recognize reliably
			'svg',
		);
		return in_array( strtolower( $extension ), $types );
	}


	/** mime type detection. This uses detectMimeType to detect the mime type of the file,
	* but applies additional checks to determine some well known file formats that may be missed
	* or misinterpreter by the default mime detection (namely xml based formats like XHTML or SVG).
	*
	* @param string $file The file to check
	* @param mixed $ext The file extension, or true to extract it from the filename.
	*                   Set it to false to ignore the extension.
	*
	* @return string the mime type of $file
	*/
	function guessMimeType( $file, $ext = true ) {
		$mime = $this->doGuessMimeType( $file, $ext );

		if( !$mime ) {
			wfDebug( __METHOD__.": internal type detection failed for $file (.$ext)...\n" );
			$mime = $this->detectMimeType( $file, $ext );
		}

		if ( isset( $this->mMimeTypeAliases[$mime] ) ) {
			$mime = $this->mMimeTypeAliases[$mime];
		}

		wfDebug(__METHOD__.": final mime type of $file: $mime\n");
		return $mime;
	}

	function doGuessMimeType( $file, $ext = true ) {
		// Read a chunk of the file
		wfSuppressWarnings();
		$f = fopen( $file, "rt" );
		wfRestoreWarnings();
		if( !$f ) return "unknown/unknown";
		$head = fread( $f, 1024 );
		fseek( $f, -65558, SEEK_END );
		$tail = fread( $f, 65558 ); // 65558 = maximum size of a zip EOCDR
		fclose( $f );

		// Hardcode a few magic number checks...
		$headers = array(
			// Multimedia...
			'MThd'             => 'audio/midi',
			'OggS'             => 'application/ogg',

			// Image formats...
			// Note that WMF may have a bare header, no magic number.
			"\x01\x00\x09\x00" => 'application/x-msmetafile', // Possibly prone to false positives?
			"\xd7\xcd\xc6\x9a" => 'application/x-msmetafile',
			'%PDF'             => 'application/pdf',
			'gimp xcf'         => 'image/x-xcf',

			// Some forbidden fruit...
			'MZ'               => 'application/octet-stream', // DOS/Windows executable
			"\xca\xfe\xba\xbe" => 'application/octet-stream', // Mach-O binary
			"\x7fELF"          => 'application/octet-stream', // ELF binary
		);

		foreach( $headers as $magic => $candidate ) {
			if( strncmp( $head, $magic, strlen( $magic ) ) == 0 ) {
				wfDebug( __METHOD__ . ": magic header in $file recognized as $candidate\n" );
				return $candidate;
			}
		}

		/*
		 * look for PHP
		 * Check for this before HTML/XML...
		 * Warning: this is a heuristic, and won't match a file with a lot of non-PHP before.
		 * It will also match text files which could be PHP. :)
		 */
		if( ( strpos( $head, '<?php' ) !== false ) ||
		    ( strpos( $head, '<? ' ) !== false ) ||
		    ( strpos( $head, "<?\n" ) !== false ) ||
		    ( strpos( $head, "<?\t" ) !== false ) ||
		    ( strpos( $head, "<?=" ) !== false ) ||

		    ( strpos( $head, "<\x00?\x00p\x00h\x00p" ) !== false ) ||
		    ( strpos( $head, "<\x00?\x00 " ) !== false ) ||
		    ( strpos( $head, "<\x00?\x00\n" ) !== false ) ||
		    ( strpos( $head, "<\x00?\x00\t" ) !== false ) ||
		    ( strpos( $head, "<\x00?\x00=" ) !== false ) ) {

			wfDebug( __METHOD__ . ": recognized $file as application/x-php\n" );
			return "application/x-php";
		}

		/*
		 * look for XML formats (XHTML and SVG)
		 */
		$xml = new XmlTypeCheck( $file );
		if( $xml->wellFormed ) {
			global $wgXMLMimeTypes;
			if( isset( $wgXMLMimeTypes[$xml->getRootElement()] ) ) {
				return $wgXMLMimeTypes[$xml->getRootElement()];
			} else {
				return 'application/xml';
			}
		}

		/*
		 * look for shell scripts
		 */
		$script_type = NULL;

		# detect by shebang
		if ( substr( $head, 0, 2) == "#!" ) {
			$script_type = "ASCII";
		} elseif ( substr( $head, 0, 5) == "\xef\xbb\xbf#!" ) {
			$script_type = "UTF-8";
		} elseif ( substr( $head, 0, 7) == "\xfe\xff\x00#\x00!" ) {
			$script_type = "UTF-16BE";
		} elseif ( substr( $head, 0, 7 ) == "\xff\xfe#\x00!" ) {
			$script_type= "UTF-16LE";
		}

		if ( $script_type ) {
			if ( $script_type !== "UTF-8" && $script_type !== "ASCII") {
				// Quick and dirty fold down to ASCII!
				$pack = array( 'UTF-16BE' => 'n*', 'UTF-16LE' => 'v*' );
				$chars = unpack( $pack[$script_type], substr( $head, 2 ) );
				$head = '';
				foreach( $chars as $codepoint ) {
					if( $codepoint < 128 ) {
						$head .= chr( $codepoint );
					} else {
						$head .= '?';
					}
				}
			}

			$match = array();

			if ( preg_match( '%/?([^\s]+/)(\w+)%', $head, $match ) ) {
				$mime = "application/x-{$match[2]}";
				wfDebug( __METHOD__.": shell script recognized as $mime\n" );
				return $mime;
			}
		}

		// Check for ZIP (before getimagesize)
		if ( strpos( $tail, "PK\x05\x06" ) !== false ) {
			wfDebug( __METHOD__.": ZIP header present at end of $file\n" );
			return $this->detectZipType( $head );
		}

		wfSuppressWarnings();
		$gis = getimagesize( $file );
		wfRestoreWarnings();

		if( $gis && isset( $gis['mime'] ) ) {
			$mime = $gis['mime'];
			wfDebug( __METHOD__.": getimagesize detected $file as $mime\n" );
			return $mime;
		}

		// Also test DjVu
		$deja = new DjVuImage( $file );
		if( $deja->isValid() ) {
			wfDebug( __METHOD__.": detected $file as image/vnd.djvu\n" );
			return 'image/vnd.djvu';
		}

		return false;
	}
	
	/**
	 * Detect application-specific file type of a given ZIP file from its
	 * header data.  Currently works for OpenDocument types...
	 * If can't tell, returns 'application/zip'.
	 *
	 * @param string $header Some reasonably-sized chunk of file header
	 * @return string
	 */
	function detectZipType( $header ) {
		$opendocTypes = array(
			'chart',
			'chart-template',
			'formula',
			'formula-template',
			'graphics',
			'graphics-template',
			'image',
			'image-template',
			'presentation',
			'presentation-template',
			'spreadsheet',
			'spreadsheet-template',
			'text',
			'text-template',
			'text-master',
			'text-web' );

		// http://lists.oasis-open.org/archives/office/200505/msg00006.html
		$types = '(?:' . implode( '|', $opendocTypes ) . ')';
		$opendocRegex = "/^mimetype(application\/vnd\.oasis\.opendocument\.$types)/";
		wfDebug( __METHOD__.": $opendocRegex\n" );
		
		if( preg_match( $opendocRegex, substr( $header, 30 ), $matches ) ) {
			$mime = $matches[1];
			wfDebug( __METHOD__.": detected $mime from ZIP archive\n" );
			return $mime;
		} else {
			wfDebug( __METHOD__.": unable to identify type of ZIP archive\n" );
			return 'application/zip';
		}
	}

	/** Internal mime type detection, please use guessMimeType() for application code instead.
	* Detection is done using an external program, if $wgMimeDetectorCommand is set.
	* Otherwise, the fileinfo extension and mime_content_type are tried (in this order), if they are available.
	* If the dections fails and $ext is not false, the mime type is guessed from the file extension, using
	* guessTypesForExtension.
	* If the mime type is still unknown, getimagesize is used to detect the mime type if the file is an image.
	* If no mime type can be determined, this function returns "unknown/unknown".
	*
	* @param string $file The file to check
	* @param mixed $ext The file extension, or true to extract it from the filename.
	*                   Set it to false to ignore the extension.
	*
	* @return string the mime type of $file
	* @access private
	*/
	function detectMimeType( $file, $ext = true ) {
		global $wgMimeDetectorCommand;

		$m = NULL;
		if ( $wgMimeDetectorCommand ) {
			$fn = wfEscapeShellArg( $file );
			$m = `$wgMimeDetectorCommand $fn`;
		} elseif ( function_exists( "finfo_open" ) && function_exists( "finfo_file" ) ) {

			# This required the fileinfo extension by PECL,
			# see http://pecl.php.net/package/fileinfo
			# This must be compiled into PHP
			#
			# finfo is the official replacement for the deprecated
			# mime_content_type function, see below.
			#
			# If you may need to load the fileinfo extension at runtime, set
			# $wgLoadFileinfoExtension in LocalSettings.php

			$mime_magic_resource = finfo_open(FILEINFO_MIME); /* return mime type ala mimetype extension */

			if ($mime_magic_resource) {
				$m = finfo_file( $mime_magic_resource, $file );
				finfo_close( $mime_magic_resource );
			} else {
				wfDebug( __METHOD__.": finfo_open failed on ".FILEINFO_MIME."!\n" );
			}
		} elseif ( function_exists( "mime_content_type" ) ) {

			# NOTE: this function is available since PHP 4.3.0, but only if
			# PHP was compiled with --with-mime-magic or, before 4.3.2, with --enable-mime-magic.
			#
			# On Windows, you must set mime_magic.magicfile in php.ini to point to the mime.magic file bundeled with PHP;
			# sometimes, this may even be needed under linus/unix.
			#
			# Also note that this has been DEPRECATED in favor of the fileinfo extension by PECL, see above.
			# see http://www.php.net/manual/en/ref.mime-magic.php for details.

			$m = mime_content_type($file);
		} else {
			wfDebug( __METHOD__.": no magic mime detector found!\n" );
		}

		if ( $m ) {
			# normalize
			$m = preg_replace( '![;, ].*$!', '', $m ); #strip charset, etc
			$m = trim( $m );
			$m = strtolower( $m );

			if ( strpos( $m, 'unknown' ) !== false ) {
				$m = NULL;
			} else {
				wfDebug( __METHOD__.": magic mime type of $file: $m\n" );
				return $m;
			}
		}

		# if desired, look at extension as a fallback.
		if ( $ext === true ) {
			$i = strrpos( $file, '.' );
			$ext = strtolower( $i ? substr( $file, $i + 1 ) : '' );
		}
		if ( $ext ) {
			if( $this->isRecognizableExtension( $ext ) ) {
				wfDebug( __METHOD__. ": refusing to guess mime type for .$ext file, we should have recognized it\n" );
			} else {
				$m = $this->guessTypesForExtension( $ext );
				if ( $m ) {
					wfDebug( __METHOD__.": extension mime type of $file: $m\n" );
					return $m;
				}
			}
		}

		#unknown type
		wfDebug( __METHOD__.": failed to guess mime type for $file!\n" );
		return "unknown/unknown";
	}

	/**
	* Determine the media type code for a file, using its mime type, name and possibly
	* its contents.
	*
	* This function relies on the findMediaType(), mapping extensions and mime
	* types to media types.
	*
	* @todo analyse file if need be
	* @todo look at multiple extension, separately and together.
	*
	* @param string $path full path to the image file, in case we have to look at the contents
	*        (if null, only the mime type is used to determine the media type code).
	* @param string $mime mime type. If null it will be guessed using guessMimeType.
	*
	* @return (int?string?) a value to be used with the MEDIATYPE_xxx constants.
	*/
	function getMediaType( $path = NULL, $mime = NULL ) {
		if( !$mime && !$path ) return MEDIATYPE_UNKNOWN;

		# If mime type is unknown, guess it
		if( !$mime ) $mime = $this->guessMimeType( $path, false );

		# Special code for ogg - detect if it's video (theora),
		# else label it as sound.
		if( $mime == "application/ogg" && file_exists( $path ) ) {

			// Read a chunk of the file
			$f = fopen( $path, "rt" );
			if ( !$f ) return MEDIATYPE_UNKNOWN;
			$head = fread( $f, 256 );
			fclose( $f );

			$head = strtolower( $head );

			# This is an UGLY HACK, file should be parsed correctly
			if ( strpos( $head, 'theora' ) !== false ) return MEDIATYPE_VIDEO;
			elseif ( strpos( $head, 'vorbis' ) !== false ) return MEDIATYPE_AUDIO;
			elseif ( strpos( $head, 'flac' ) !== false ) return MEDIATYPE_AUDIO;
			elseif ( strpos( $head, 'speex' ) !== false ) return MEDIATYPE_AUDIO;
			else return MEDIATYPE_MULTIMEDIA;
		}

		# check for entry for full mime type
		if( $mime ) {
			$type = $this->findMediaType( $mime );
			if( $type !== MEDIATYPE_UNKNOWN ) return $type;
		}

		# Check for entry for file extension
		$e = NULL;
		if ( $path ) {
			$i = strrpos( $path, '.' );
			$e = strtolower( $i ? substr( $path, $i + 1 ) : '' );

			# TODO: look at multi-extension if this fails, parse from full path

			$type = $this->findMediaType( '.' . $e );
			if ( $type !== MEDIATYPE_UNKNOWN ) return $type;
		}

		# Check major mime type
		if( $mime ) {
			$i = strpos( $mime, '/' );
			if( $i !== false ) {
				$major = substr( $mime, 0, $i );
				$type = $this->findMediaType( $major );
				if( $type !== MEDIATYPE_UNKNOWN ) return $type;
			}
		}

		if( !$type ) $type = MEDIATYPE_UNKNOWN;

		return $type;
	}

	/** returns a media code matching the given mime type or file extension.
	* File extensions are represented by a string starting with a dot (.) to
	* distinguish them from mime types.
	*
	* This funktion relies on the mapping defined by $this->mMediaTypes
	* @access private
	*/
	function findMediaType( $extMime ) {
		if ( strpos( $extMime, '.' ) === 0 ) { #if it's an extension, look up the mime types
			$m = $this->getTypesForExtension( substr( $extMime, 1 ) );
			if ( !$m ) return MEDIATYPE_UNKNOWN;

			$m = explode( ' ', $m );
		} else {
			# Normalize mime type
			if ( isset( $this->mMimeTypeAliases[$extMime] ) ) {
				$extMime = $this->mMimeTypeAliases[$extMime];
			}

			$m = array($extMime);
		}

		foreach ( $m as $mime ) {
			foreach ( $this->mMediaTypes as $type => $codes ) {
				if ( in_array($mime, $codes, true ) ) {
					return $type;
				}
			}
		}

		return MEDIATYPE_UNKNOWN;
	}

	/**
	 * Get the MIME type from ieMimeFromData(), but convert the result from IE's 
	 * idiosyncratic private types into something MediaWiki will understand.
	 *
	 * @param string $fileName The file name (unused at present)
	 * @param string $chunk The first 256 bytes of the file
	 * @param string $proposed The MIME type proposed by the server
	 */
	public function getIEMimeType( $fileName, $chunk, $proposed ) {
		static $table = array(
			'image/pjpeg' => 'image/jpeg',
			'image/x-png' => 'image/png',
			'image/x-wmf' => 'application/x-msmetafile',
			'image/bmp' => 'image/x-bmp',
			'application/x-zip-compressed' => 'application/zip',
			'application/x-compressed' => 'application/x-compress',
			'application/x-gzip-compressed' => 'application/x-gzip',
			'audio/mid' => 'audio/midi',
		);

		$type = $this->ieMimeFromData( $fileName, $chunk, $proposed );
		if ( isset( $table[$type] ) ) {
			$type = $table[$type];
		}
		return $type;
	}

	/**
	 * Do a MIME type check similar to IE's FindMimeFromData(). This is used to 
	 * ensure that a file won't be detected as a blacklisted type such as text/html,
	 * thus opening up an XSS vulnerability. 
	 *
	 * Based on a disassembly of urlmon.dll from IE 7.
	 *
	 * @param string $fileName The file name (unused at present)
	 * @param string $chunk The first 256 bytes of the file
	 * @param string $proposed The MIME type proposed by the server
	 */
	public function ieMimeFromData( $fileName, $chunk, $proposed ) {
		// IE puts a null character at byte 255 (the 256th byte)
		$chunk = substr( $chunk, 0, 255 );
		
		$types = array(
			'ambiguous' /*1*/ => array(
				'text/plain', 
				'application/octet-stream', 
				'application/x-netcdf', // [sic]
				'unknown/unknown', // for MediaWiki
			),
			'text' /*3*/ => array(
				'text/richtext', 'image/x-bitmap', 'application/postscript', 'application/base64',
				'application/macbinhex40', 'application/x-cdf', 'text/scriptlet', 'text/xml', 
				'application/xml',
				
			),
			'binary' /*4*/ => array(
				'application/pdf', 'audio/x-aiff', 'audio/basic', 'audio/wav', 'image/gif',
				'image/pjpeg', 'image/jpeg', 'image/tiff', 'image/x-png', 'image/png', 'image/bmp', 
				'image/x-jg', 'image/x-art', 'image/x-emf', 'image/x-wmf', 'video/avi', 
				'video/x-msvideo', 'video/mpeg', 'application/x-compressed',
				'application/x-zip-compressed', 'application/x-gzip-compressed', 'application/java',
				'application/x-msdownload'
			),
			'html' /*5*/ => array( 'text/html' ),
		);

		if ( in_array( $proposed, $types['text'] ) ) {
			return $proposedType;
		}
		if ( !in_array( $proposed, $types['binary'] )
			&& !in_array( $proposed, $types['ambiguous'] ) 
			&& !in_array( $proposed, $types['html'] ) )
		{
			// Unknown
			return $proposed;
		}

		// CContentAnalyzer::SampleData
		$found = array();
		$numControl = 0;
		$numHigh = 0;
		$numLow = 0;
		$numLF = 0;
		$numCR = 0;
		$numFF = 0;
		$htmlTags = array(
			'html',
			'head',
			'title',
			'body',
			'script',
			'a href',
			'pre',
			'img',
			'plaintext',
			'table'
		);
		$rdfUrl = 'http://www.w3.org/1999/02/22-rdf-syntax-ns#';
		$rdfPurl = 'http://purl.org/rss/1.0/';
		$xbmMagic1 = '#define';
		$xbmMagic2 = '_width';
		$xbmMagic3 = '_bits';
		$binhexMagic = 'converted with BinHex';

		for ( $offset = 0; $offset < strlen( $chunk ); $offset++ ) {
			$curChar = $chunk[$offset];
			if ( $curChar == "\x0a" ) {
				$numLF++;
				continue;
			} elseif ( $curChar == "\x0d" ) {
				$numCR++;
				continue;
			} elseif ( $curChar == "\x0c" ) {
				$numFF++;
				continue;
			} elseif ( $curChar == "\t" ) {
				$numLow++;
				continue;
			} elseif ( ord( $curChar ) < 32 ) {
				$numControl++;
				continue;
			} elseif ( ord( $curChar ) >= 128 ) {
				$numHigh++;
				continue;
			}

			$numLow++;
			if ( $curChar == '<' ) {
				// XML
				$remainder = substr( $chunk, $offset + 1 );
				if ( !strncasecmp( $remainder, '?XML', 4 ) ) {
					$nextChar = substr( $chunk, $offset + 5, 1 );
					if ( $nextChar == ':' || $nextChar == ' ' || $nextChar == "\t" ) {
						$found['xml'] = true;
					}
				}
				// Scriptlet (JSP)
				if ( !strncasecmp( $remainder, 'SCRIPTLET', 9 ) ) {
					$found['scriptlet'] = true;
					break;
				}
				// HTML
				foreach ( $htmlTags as $tag ) {
					if ( !strncasecmp( $remainder, $tag, strlen( $tag ) ) ) {
						$found['html'] = true;
					}
				}
				// Skip broken check for additional tags (HR etc.)

				// RSS
				if ( !strncasecmp( $remainder, 'RSS', 3 ) ) {
					$found['rss'] = true;
					break; // return from SampleData
				}
				if ( !strncasecmp( $remainder, 'rdf:RDF', 7 ) ) {
					$found['rdf-tag'] = true;
					// no break
				}
				if ( !strncasecmp( $remainder, 'FEED', 4 ) ) {
					$found['feed'] = true;
					break;
				}
				continue;
			}
			// Skip broken check for -->

			// RSS URL checks
			// For some reason both URLs must appear before a break is triggered
			$remainder = substr( $chunk, $offset );
			if ( !strncasecmp( $remainder, $rdfUrl, strlen( $rdfUrl ) ) ) {
				$found['rdf-url'] = true;
				if ( isset( $found['rdf-tag'] )
					&& isset( $found['rdf-purl'] ) ) // [sic]
				{
					break;
				}
				continue;
			}

			if ( !strncasecmp( $remainder, $rdfPurl, strlen( $rdfPurl ) ) ) {
				if ( isset( $found['rdf-tag'] ) 
					&& isset( $found['rdf-url'] ) ) // [sic]
				{
					break;
				}
				continue;
			}

			// XBM checks
			if ( !strncasecmp( $remainder, $xbmMagic1, strlen( $xbmMagic1 ) ) ) {
				$found['xbm1'] = true;
				continue;
			}
			if ( $curChar == '_' ) {
				if ( isset( $found['xbm2'] ) ) {
					if ( !strncasecmp( $remainder, $xbmMagic3, strlen( $xbmMagic3 ) ) ) {
						$found['xbm'] = true;
						break;
					}
				} elseif ( isset( $found['xbm1'] ) ) {
					if ( !strncasecmp( $remainder, $xbmMagic2, strlen( $xbmMagic2 ) ) ) {
						$found['xbm2'] = true;
					}
				}
			}

			// BinHex
			if ( !strncasecmp( $remainder, $binhexMagic, strlen( $binhexMagic ) ) ) {
				$found['binhex'] = true;
			}
		} // end main loop
		
		// CContentAnalyzer::FindMimeFromData
		
		// IE does the Check*Headers() calls last, and instead does the following image 
		// type checksby directly looking for the magic numbers. What I do here should 
		// have the same effect since the magic number checks are identical in both cases.
		$binaryType = $this->ieCheckBinaryHeaders( $chunk );
		$textType = $this->ieCheckTextHeaders( $chunk );

		if ( $proposed == 'text/html' && isset( $found['html'] ) ) {
			return 'text/html';
		}
		if ( $proposed == 'image/gif' && $binaryType == 'image/gif' ) {
			return 'image/gif';
		}
		if ( ( $proposed == 'image/pjpeg' || $proposed == 'image/jpeg' )
			&& $binaryType == 'image/pjpeg' ) 
		{
			return $proposed;
		}
		if ( ( $proposed == 'image/x-png' || $proposed == 'image/png' )
			&& $binaryType == 'image/x-png' )
		{
			return $proposed;
		}

		if ( isset( $found['rss'] ) ) {
			return 'application/rss+xml';
		}
		if ( isset( $found['rdf-tag'] )
			&& isset( $found['rdf-url'] )
			&& isset( $found['rdf-purl'] ) )
		{
			return 'application/rss+xml';
		}
		// Skip apparently unimplemented atom flag
		if ( isset( $found['xml'] ) ) {
			// Skip check for proposed MIME type
			// IE may continue on here to further checks if a feature is enabled
			// and if the server proposes something other than text/html or text/xml
			return 'text/xml';
		}
		if ( isset( $found['html'] ) ) {
			// Skip complex XML-related check
			return 'text/html';
		}
		if ( isset( $found['xbm'] ) ) {
			return 'image/x-bitmap';
		}
		if ( isset( $found['binhex'] ) ) {
			return 'application/macbinhex40';
		}
		if ( isset( $found['scriptlet'] ) ) {
			// Skip complex HTML-related check
			return 'text/scriptlet';
		}

		// Freaky heuristics to determine check order
		// Probably doesn't matter since the checks appear to be orthogonal
		// The heuristic is of course broken for non-ASCII text
		if ( $numControl != 0 && ( $numFF + $numLow ) < ( $numControl + $numHigh ) * 16 ) {
			$kindOfBinary = true;
			$type = $binaryType ? $binaryType : $textType;
		} else {
			$kindOfBinary = false;
			$type = $textType ? $textType : $binaryType;
		}
		if ( $type !== false ) {
			return $type;
		}

		// FormatAgreesWithData()
		if ( in_array( $proposed, $types['text'] ) && !$kindOfBinary ) {
			return $proposed;
		}
		if ( in_array( $proposed, $types['binary'] ) && $kindOfBinary ) {
			return $proposed;
		}
		if ( in_array( $proposed, $types['html'] ) ) {
			return $proposed;
		}

		// TODO: extension checks
		return $proposed;
	}

	private function ieCheckTextHeaders( $chunk ) {
		$chunk2 = substr( $chunk, 0, 2 );
		$chunk4 = substr( $chunk, 0, 4 );
		$chunk5 = substr( $chunk, 0, 5 );
		if ( $chunk4 == '%PDF' ) {
			return 'application/pdf';
		}
		if ( $chunk2 == '%!' ) {
			return 'application/postscript';
		}
		if ( $chunk5 == '{\\rtf' ) {
			return 'text/richtext';
		}
		if ( $chunk5 == 'begin' ) {
			return 'application/base64';
		}
		return false;
	}

	private function ieCheckBinaryHeaders( $chunk ) {
		$chunk2 = substr( $chunk, 0, 2 );
		$chunk3 = substr( $chunk, 0, 3 );
		$chunk4 = substr( $chunk, 0, 4 );
		$chunk5 = substr( $chunk, 0, 5 );
		$chunk8 = substr( $chunk, 0, 8 );
		if ( $chunk5 == 'GIF87' || $chunk5 == 'GIF89' ) {
			return 'image/gif';
		}
		if ( $chunk2 == "\xff\xd8" ) {
			return 'image/pjpeg'; // actually plain JPEG but this is what IE returns
		}
		if ( $chunk2 == 'BM' 
			&& substr( $chunk, 6, 2 ) == "\000\000"
			&& substr( $chunk, 8, 2 ) != "\000\000" )
		{
			return 'image/bmp'; // another non-standard MIME
		}
		if ( $chunk4 == 'RIFF' 
			&& substr( $chunk, 8, 4 ) == 'WAVE' )
		{
			return 'audio/wav';
		}
		// These were integer literals in IE
		// Perhaps the author was not sure what the target endianness was
		if ( $chunk4 == ".sd\000"
			|| $chunk4 == ".snd"
			|| $chunk4 == "\000ds."
			|| $chunk4 == "dns." )
		{
			return 'audio/basic';
		}
		if ( $chunk3 == "MM\000" ) {
			return 'image/tiff';
		}
		if ( $chunk2 == 'MZ' ) {
			return 'application/x-msdownload';
		}
		if ( $chunk8 == "\x89PNG\x0d\x0a\x1a\x0a" ) {
			return 'image/x-png'; // [sic]
		}
		if ( strlen( $chunk ) >= 5 ) {
			$byte2 = ord( $chunk[2] );
			$byte4 = ord( $chunk[4] );
			if ( $byte2 >= 3 && $byte2 <= 31 && $byte4 == 0 && $chunk2 == 'JG' ) {
				return 'image/x-jg';
			}
		}
		// More endian confusion
		if ( $chunk4 == 'MROF' ) {
			return 'audio/x-aiff';
		}
		$chunk4_8 = substr( $chunk, 8, 4 );
		if ( $chunk4 == 'FORM' && ( $chunk4_8 == 'AIFF' || $chunk4_8 == 'AIFC' ) ) {
			return 'audio/x-aiff';
		}
		if ( $chunk4 == 'RIFF' && $chunk4_8 == 'AVI ' ) {
			return 'video/avi';
		}
		if ( $chunk4 == "\x00\x00\x01\xb3" || $chunk4 == "\x00\x00\x01\xba" ) {
			return 'video/mpeg';
		}
		if ( $chunk4 == "\001\000\000\000"
			&& substr( $chunk, 40, 4 ) == ' EMF' )
		{
			return 'image/x-emf';
		}
		if ( $chunk4 == "\xd7\xcd\xc6\x9a" ) {
			return 'image/x-wmf';
		}
		if ( $chunk4 == "\xca\xfe\xba\xbe" ) {
			return 'application/java';
		}
		if ( $chunk2 == 'PK' ) {
			return 'application/x-zip-compressed';
		}
		if ( $chunk2 == "\x1f\x9d" ) {
			return 'application/x-compressed';
		}
		if ( $chunk2 == "\x1f\x8b" ) {
			return 'application/x-gzip-compressed';
		}
		// Skip redundant check for ZIP
		if ( $chunk5 == "MThd\000" ) {
			return 'audio/mid';
		}
		if ( $chunk4 == '%PDF' ) {
			return 'application/pdf';
		}
		return false;
	}
	
}