diff -u orig/htmllint.cgi diff/htmllint.cgi
--- orig/htmllint.cgi 2009-02-04 04:08:45.000000000 +0900
+++ diff/htmllint.cgi 2009-02-04 04:01:48.000000000 +0900
@@ -180,7 +180,9 @@
eval('require LWP::UserAgent') && eval('require HTTP::Request')) {
$URLGETVer = "LWP $LWP::VERSION";
$LWPUA = new LWP::UserAgent;
- my $uagent = "Another_HTML-lint/$VERSION +".$LWPUA->agent;
+ my $uagent = (defined $cgi->param('Agent') && $cgi->param('Agent') ne 'on')
+ ? $cgi->param('Agent')
+ : "Another_HTML-lint/$VERSION +".$LWPUA->agent;
$LWPUA->agent($uagent);
$LWPUA->timeout($TIMEOUT) if $TIMEOUT > 0;
$LWPUA->max_size($MAXHTMLSIZE*1024) if $MAXHTMLSIZE > 0;
diff -u orig/htmllint.html diff/htmllint.html
--- orig/htmllint.html 2009-02-04 03:11:57.000000000 +0900
+++ diff/htmllint.html 2009-02-04 04:04:34.000000000 +0900
@@ -497,6 +497,24 @@
+- User-Agent
+
-
+
+
+
+
-
-