parser

Написать ответ на текущее сообщение

 

 
   команды управления поиском

я щас использую такой код:

Misha v.3 04.10.2002 12:08

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

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