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;
HERE
-# Do not: My::Web->footer();
-exit 0;
+exit;
}
1;