summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rwxr-xr-xhtdocs/index.html33
-rwxr-xr-xhttpd/cgi-bin/check8
2 files changed, 22 insertions, 19 deletions
diff --git a/htdocs/index.html b/htdocs/index.html
index 265446b..bd9cc87 100755
--- a/htdocs/index.html
+++ b/htdocs/index.html
@@ -75,21 +75,24 @@
<option>HTML 4.01 Frameset</option>
<option>HTML 3.2</option>
<option>HTML 2.0</option>
- </select>
+ </select><br />
+ Character Encoding:
+ <select name="charset">
+ <option value="unknown">(Detect Automatically)</option>
+ <option value="us-ascii (as detected)">us-ascii (as detected)</option>
+ <option value="utf-8 (Unicode, worldwide)">utf-8 (Unicode, worldwide)</option>
+ <option value="iso-8859-1 (Western Europe)">iso-8859-1 (Western Europe)</option>
+ <option value="iso-8859-2 (Eastern Europe)">iso-8859-2 (Eastern Europe)</option>
+ <option value="iso-8859-5 (Cyrillic)">iso-8859-5 (Cyrillic)</option>
+ <option value="iso-8859-7 (Greek)">iso-8859-7 (Greek)</option>
+ <option value="euc-jp (Japanese, Unix)">euc-jp (Japanese, Unix)</option>
+ <option value="shift_jis (Japanese, Win/Mac)">shift_jis (Japanese, Win/Mac)</option>
+ <option value="iso-2022-jp (Japanese, email)">iso-2022-jp (Japanese, email)</option>
+ <option value="euc-kr (Korean)">euc-kr (Korean)</option>
+ <option value="GB2312 (Chinese, simplified)">GB2312 (Chinese, simplified)</option>
+ <option value="Big5 (Chinese, traditional)">Big5 (Chinese, traditional)</option>
+ </select>
<table cellpadding="0" cellspacing="0">
- <!--
- <tr>
- <td>
- <input name="weblint" type="checkbox" value="" /> Include <a
- href="http://www.weblint.org/">Weblint</a>
- results
- </td>
- <td>
- <input name="pw" type="checkbox" value="" /> run Weblint
- in "pedantic" mode
- </td>
- </tr>
- -->
<tr>
<td>
<input name="ss" type="checkbox" value="" /> Show source input
@@ -132,7 +135,7 @@
src="http://validator.w3.org/images/vxhtml10" height="31" width="88"
align="right" border="0" alt="Valid XHTML 1.0!" /></a>
<a href="/feedback.html">Gerald Oskoboiny</a><br />
- $Date: 2001-03-26 07:32:25 $
+ $Date: 2001-07-26 12:29:30 $
</address>
</body>
diff --git a/httpd/cgi-bin/check b/httpd/cgi-bin/check
index 58460b2..cf93ba9 100755
--- a/httpd/cgi-bin/check
+++ b/httpd/cgi-bin/check
@@ -9,7 +9,7 @@
# This source code is available under the license at:
# http://www.w3.org/Consortium/Legal/copyright-software
#
-# $Id: check,v 1.162 2001-07-25 00:37:11 link Exp $
+# $Id: check,v 1.163 2001-07-26 12:29:30 link Exp $
#
# We need Perl 5.004.
@@ -80,9 +80,9 @@ my $element_ref = 'http://www.htmlhelp.com/reference/html40/';
#
# Strings
-$VERSION = q$Revision: 1.162 $;
+$VERSION = q$Revision: 1.163 $;
$VERSION =~ s/Revision: ([\d\.]+) /$1/;
-$DATE = q$Date: 2001-07-25 00:37:11 $;
+$DATE = q$Date: 2001-07-26 12:29:30 $;
$MAINTAINER = 'gerald@w3.org';
$NOTICE = ''; # "<p><strong>Note: This service will be ...</strong>";
@@ -294,7 +294,7 @@ $File->{Type} = 'mathml' if $File->{DOCTYPE} =~ /mathml/i;
# If we have a charset field in the request, we use it
-if ($q->param('charset')) {
+if ($q->param('charset') and not $q->param('charset') =~ m(unknown)i) {
$q->param('charset') =~ /^([^ ]*)/;
$File->{Form_Charset} = lc $1;
}