\n");
-print("I read the following user agent string from your browser:\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");
@@ -29,15 +23,16 @@ print(" This is ".($ua->isns4()?"a":"no")." Netscape Communicator 4 br
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->brand.""\n");
-print(" The browser version is reported as "".$ua->version.""\n");
+print(" This is ".($ua->isbot()?"an":"no")." automated robot.\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->brand." ".$ua->version."\n");
+print("
I conclude this must be ".$ua->getBrand()." ".$ua->getVersion()."\n");
-print("
Test the following UA string:\n");
+print("
Test the following UA string (leave empty to read it from your browser):\n");
print("\n");
+
+$wrapper->pgbottom();
?>
-
-
\ No newline at end of file