Ответ

shurgalin 18.10.2005 15:50

@detectBrowser[][ua;ver;res]
$res[^hash::create[]]
$ua[$env:HTTP_USER_AGENT]
^if(^ua.match[mac][i]){
	$res.platform[mac]
}{
	^if(^ua.match[win][i]){
		$res.platform[win]
	}{
		$res.platform[unix]
	}
}

$ver[^ua.match[opera.(\d+)(\.(\d+))?][i]]
^if($ver){
	$res.browser[opera]
	$res.browser_ver(^ver.1.int(0))
	$res.browser_subver(^ver.3.int(0))
}{
	$ver[^ua.match[msie.(\d+)(\.(\d+))?][i]]
	^if($ver){
		$res.browser[ie]
		$res.browser_ver(^ver.1.int(0))
		$res.browser_subver(^ver.3.int(0))
	}{
		$ver[^ua.match[mozilla.(\d+)(\.(\d+))?][i]]
		^if($ver){
			^if(^ua.match[safari][i]){
				$res.browser[safari]
			}{
				$res.browser[nn]
			}
			$res.browser_ver(^ver.1.int(0))
			$res.browser_subver(^ver.3.int(0))
		}{
			$res.browser[other]
			$res.browser_ver(0)
			$res.browser_subver(0)
		}
	}
}
$result[$res]
#end @detectBrowser[]