pgtop("KaiRo's Browser-Test");
$httpvars = $util->getHTTPvars();
if (strlen($httpvars["ua"])) {
$ua = new userAgent($httpvars["ua"]);
}
else {
$ua = new userAgent;
}
print("
KaiRo's Browser-Test
\n");
print("I read the following user agent string from ".(strlen($httpvars["ua"])?"your input":"your browser").":\n
");
print("".$ua->uastring."\n");
print("
This is ".($ua->isns()?"a":"no")." Netscape browser.\n");
print("
This is ".($ua->isns4()?"a":"no")." Netscape Communicator 4 browser.\n");
print("
This is ".($ua->isie()?"an":"no")." Internet Explorer browser.\n");
print("
This is ".($ua->geckobased()?"a":"no")." Gecko-based browser.\n");
print("
This is ".($ua->khtmlbased()?"a":"no")." KHTML-based browser.\n");
print("
The browser brand is reported as "".$ua->getBrand().""\n");
print("
The browser version is reported as "".$ua->getVersion().""\n");
if ($ua->geckobased()) { print("
The Gecko date is reported as "".$ua->geckodate().""\n"); }
print("
I conclude this must be ".$ua->getBrand()." ".$ua->getVersion()."\n");
print("
Test the following UA string (leave empty to read it from your browser):\n");
print("\n");
$wrapper->pgbottom();
?>