Fixed some (Linux kernel?) compatibility problem of flock(1) of a directory.

[MyWeb.git] / HaveJS.pm

diff --git a/HaveJS.pm b/HaveJS.pm
index 6b8230d..a1ac2fa 100644 (file)
--- a/HaveJS.pm
+++ b/HaveJS.pm
@@ -26,23 +26,27 @@ use warnings;
 use My::Web;
 
 
-our $HTML_TEST=0;
+our $HTML_TEST="download";
 
 sub handler
 {
 my $W=My::Web->init(
                "header_only"=>1,
+               # Do not: text/javascript
+               # as it does not look as registered, at least according to: MIME::Types $VERSION 1.15
+               # "application/javascript" so far standardized till 2005-12-08 by:
+               #       http://www.ietf.org/internet-drafts/draft-hoehrmann-script-types-03.txt
+               "content_type"=>"application/javascript",
                );
 My::Web->heading();
-$W->{"r"}->content_type("text/javascript");
 
 
 # Prevent redirection of some top (referring) foreign webpage as it
 # may not pass "have_js=1" to us anyway. (for example Google cache)
 print ""
                .'if (0'."\n"
-               ."\t\t".'|| window.location.hostname=="'.$W->{"W"}{"web_hostname"}.'" && window.location.port==  80'."\n"
-               ."\t\t".'|| window.location.hostname=="'.'localhost'              .'" && window.location.port==7680)'."\n";
+               ."\t\t".'|| window.location.hostname=="'.$W->{"web_hostname"}.'" && window.location.port==  80'."\n"
+               ."\t\t".'|| window.location.hostname=="'.'localhost'         .'" && window.location.port==7680)'."\n";
 print <<'HERE';
        {
                var searchN=window.location.search;