diff options
| author | ville <ville@localhost> | 2010-03-06 11:00:49 +0000 |
|---|---|---|
| committer | ville <ville@localhost> | 2010-03-06 11:00:49 +0000 |
| commit | 824767d4f3cd6a518992fb8636465f3acec7dddf (patch) | |
| tree | 351d9d0f71c5818a88244ce0e5e14b187bdc1a58 /httpd | |
| parent | 2d25c0883b462ecfb91ecd4ceae913a0c0134d3f (diff) | |
| download | markup-validator-824767d4f3cd6a518992fb8636465f3acec7dddf.zip markup-validator-824767d4f3cd6a518992fb8636465f3acec7dddf.tar.gz markup-validator-824767d4f3cd6a518992fb8636465f3acec7dddf.tar.bz2 | |
Add warning for missing Content-Type.
Diffstat (limited to 'httpd')
| -rwxr-xr-x | httpd/cgi-bin/check | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/httpd/cgi-bin/check b/httpd/cgi-bin/check index 5e03bfc..23c9dd8 100755 --- a/httpd/cgi-bin/check +++ b/httpd/cgi-bin/check @@ -14,7 +14,7 @@ # This source code is available under the license at: # http://www.w3.org/Consortium/Legal/copyright-software # -# $Id: check,v 1.770 2010-03-04 16:09:52 ville Exp $ +# $Id: check,v 1.771 2010-03-06 11:00:48 ville Exp $ # # We need Perl 5.8.0+. @@ -191,7 +191,7 @@ EOF # # Strings - $VERSION = q$Revision: 1.770 $; + $VERSION = q$Revision: 1.771 $; $VERSION =~ s/Revision: ([\d\.]+) /$1/; # Read friendly error message file @@ -414,6 +414,11 @@ untie *STDIN; #### Output validation results. ############################################### ############################################################################### +if (!$File->{ContentType} && !$File->{'Direct Input'} && !$File->{'Is Upload'}) +{ + &add_warning('W08', {}); +} + $File = find_encodings($File); # |