X-Git-Url: http://git.jankratochvil.net/?p=MyWeb.git;a=blobdiff_plain;f=HaveJS.pm;h=a1ac2fab27c908460e32a0b7e02ead5e32d37692;hp=b68c5545ed4381307beb7c8734f01b4169362cf1;hb=2ee1627503d02a1491c9e185895d12593e3e9753;hpb=3642e53fcbb31138ad82ab3ab18bc51234ff178d

diff --git a/HaveJS.pm b/HaveJS.pm
index b68c554..a1ac2fa 100644
--- a/HaveJS.pm
+++ b/HaveJS.pm
@@ -26,22 +26,27 @@ use warnings;
 use My::Web;
 
 
-our $HTML_TEST=0;
+our $HTML_TEST="download";
 
 sub handler
 {
-my $W=My::Web->init();
+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();
 
 
-# Do not: 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;
@@ -62,7 +67,6 @@ print <<'HERE';
 HERE
 
 
-# Do not: My::Web->footer();
-exit 0;
+exit;
 }
 1;