make useragent class perform better on even more UA strings, laso trigger bot flag...

[php-utility-classes.git] / testbed / ua_test.php
diff --git a/testbed/ua_test.php b/testbed/ua_test.php

index ae7387e76420625924f9eca50c20a525266436af..4fe45a72b5558036d46a1b114284813a14f0f9f0 100644 (file)
--- a/testbed/ua_test.php
+++ b/testbed/ua_test.php
@@ -1,15 +1,9 @@
-<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
-<html>
-<head>
-  <link rel="stylesheet" type="text/css" href="testbed.css">
-  <link rel="stylesheet" type="text/css" href="../web/kairo.at/kairo.at.css">
-  <title>KaiRo's Browser-Test</title>
-</head>
-<body>
  <?php
  $inc_class_util = true;
  $inc_class_ua = true;
  <?php
  $inc_class_util = true;
  $inc_class_ua = true;
-include("testhandler.inc");
+include("inchandler.inc");
+
+$wrapper->pgtop("KaiRo's Browser-Test");
  
  $httpvars = $util->getHTTPvars();
  if (strlen($httpvars["ua"])) {
  
  $httpvars = $util->getHTTPvars();
  if (strlen($httpvars["ua"])) {
@@ -21,7 +15,7 @@ else {
  
  print("<h1>KaiRo's Browser-Test</h1>\n");
  
  
  print("<h1>KaiRo's Browser-Test</h1>\n");
  
-print("I read the following user agent string from your browser:\n<br>");
+print("I read the following user agent string from ".(strlen($httpvars["ua"])?"your input":"your browser").":\n<br>");
  print("<b>".$ua->uastring."</b>\n");
  
  print("<br><br>This is <b>".($ua->isns()?"a":"no")."</b> Netscape browser.\n");
  print("<b>".$ua->uastring."</b>\n");
  
  print("<br><br>This is <b>".($ua->isns()?"a":"no")."</b> Netscape browser.\n");
@@ -29,15 +23,16 @@ print("<br>This is <b>".($ua->isns4()?"a":"no")."</b> Netscape Communicator 4 br
  print("<br>This is <b>".($ua->isie()?"an":"no")."</b> Internet Explorer browser.\n");
  print("<br>This is <b>".($ua->geckobased()?"a":"no")."</b> Gecko-based browser.\n");
  print("<br>This is <b>".($ua->khtmlbased()?"a":"no")."</b> KHTML-based browser.\n");
  print("<br>This is <b>".($ua->isie()?"an":"no")."</b> Internet Explorer browser.\n");
  print("<br>This is <b>".($ua->geckobased()?"a":"no")."</b> Gecko-based browser.\n");
  print("<br>This is <b>".($ua->khtmlbased()?"a":"no")."</b> KHTML-based browser.\n");
-print("<br>The browser brand is reported as &quot;<b>".$ua->brand."</b>&quot;\n");
-print("<br>The browser version is reported as &quot;<b>".$ua->version."</b>&quot;\n");
+print("<br>This is <b>".($ua->isbot()?"an":"no")."</b> automated robot.\n");
+print("<br>The browser brand is reported as &quot;<b>".$ua->getBrand()."</b>&quot;\n");
+print("<br>The browser version is reported as &quot;<b>".$ua->getVersion()."</b>&quot;\n");
  if ($ua->geckobased()) { print("<br>The Gecko date is reported as &quot;<b>".$ua->geckodate()."</b>&quot;\n"); }
  if ($ua->geckobased()) { print("<br>The Gecko date is reported as &quot;<b>".$ua->geckodate()."</b>&quot;\n"); }
-print("<br><br>I conclude this must be <b>".$ua->brand." ".$ua->version."</b>\n");
+print("<br><br>I conclude this must be <b>".$ua->getBrand()." ".$ua->getVersion()."</b>\n");
  
  
-print("<br><br>Test the following UA string:\n");
+print("<br><br>Test the following UA string (leave empty to read it from your browser):\n");
  print("<form method=\"POST\" action=\"\"><p>\n");
  print("<input type=\"text\" name=\"ua\" value=\"".$ua->uastring."\" size=\"80\" maxlength=\"150\">\n");
  print("<br><input type=\"submit\" value=\"Test\"></p></form>\n");
  print("<form method=\"POST\" action=\"\"><p>\n");
  print("<input type=\"text\" name=\"ua\" value=\"".$ua->uastring."\" size=\"80\" maxlength=\"150\">\n");
  print("<br><input type=\"submit\" value=\"Test\"></p></form>\n");
+
+$wrapper->pgbottom();
  ?>
  ?>
-</body>
-</html>
-\ No newline at end of file