CIBlockCMLImport::CheckIfFileIsCML

static function CheckIfFileIsCML($file_name)
{
	if(file_exists($file_name) && is_file($file_name))
	{
		$fp = fopen($file_name, "rb");
		if(is_resource($fp))
		{
			$header = fread($fp, 1024);
			fclose($fp);

			if(preg_match("/<"."\?XML[^>]{1,}encoding=["']([^>"']{1,})["'][^>]{0,}\?".">/i", $header, $matches))
			{
				if(strtoupper($matches[1]) !== strtoupper(LANG_CHARSET))
					$header = MainTextEncoding::convertEncoding($header, $matches[1], LANG_CHARSET);
			}

			foreach(array(LANGUAGE_ID, "en", "ru") as $lang)
			{
				$mess = MainLocalizationLoc::loadLanguageFile(__FILE__, $lang);
				if(strpos($header, "<".$mess["IBLOCK_XML2_COMMERCE_INFO"]) !== false)
					return $lang;
			}
		}
	}
	return false;
}