+ my $packages_used_save=$W->{"packages_used"};
+ $W={ %WebConfig,%args }; # override %WebConfig settings
+ $W->{"packages_used"}=$packages_used_save;
+
+ $W->{"__PACKAGE__"}||="Apache::ROOT".$Apache::Registry::curstash;
+
+ $W->{"top_dir"}||=eval '$'.$W->{"__PACKAGE__"}.'::top_dir';
+
+ do { $W->{$_}=0 if !defined $W->{$_}; } for ("detect_ent");
+ do { $W->{$_}=0 if !defined $W->{$_}; } for ("detect_js");
+ do { $W->{$_}=1 if !defined $W->{$_}; } for ("have_css"); # AFAIK it does not hurt anyone.
+ do { $W->{$_}=1 if !defined $W->{$_}; } for ("heading");
+ do { $W->{$_}=1 if !defined $W->{$_}; } for ("footer");
+ do { $W->{$_}=1 if !defined $W->{$_}; } for ("footer_delimit");
+ do { $W->{$_}=1 if !defined $W->{$_}; } for ("footer_mailme");
+ do { $W->{$_}=1 if !defined $W->{$_}; } for ("footer_ids");
+ do { $W->{$_}=1 if !defined $W->{$_}; } for ("indexme");
+ do { $W->{$_}="" if !defined $W->{$_}; } for ("head");
+ do { $W->{$_}="" if !defined $W->{$_}; } for ("head_css");
+
+ my $footer_any=0;
+ for (qw(footer_mailme footer_ids)) {
+ $W->{$_}=0 if !$W->{"footer"};
+ $footer_any=1 if $W->{$_};
+ }
+ $W->{"footer"}=0 if !$footer_any;
+ $W->{"footer_delimit"}=0 if !$W->{"footer"};
+
+ $W->{"r"}=Apache->request();
+
+ $W->{"QUERY_STRING"}=$W->{"r"}->args() || "";
+ if ($W->{"QUERY_STRING"}=~/[&]amp;have_ent/)
+ { $W->{"have_ent"}=0; }
+ elsif ($W->{"QUERY_STRING"}=~ /[&]have_ent/)
+ { $W->{"have_ent"}=1; }
+ else
+ { delete $W->{"have_ent"}; }
+ if ($W->{"detect_ent"} && !defined $W->{"have_ent"} && $W->{"r"}->method() eq "GET") {
+ $W->{"head"}.='<meta http-equiv="Refresh" content="0; URL='
+ .CGI::escapeHTML("http://".&{$W->{"web_hostname_sub"}}()."/".($W->{"r"}->uri()=~m#^/*(.*)$#)[0]
+ ."?".($W->{"QUERY_STRING"} || "detect_ent_glue=1").'&have_ent=detect')
+ .'" />'."\n";
+ }
+ $W->{"QUERY_STRING"}=~s/([&])amp;/$1/g;
+ $W->{"r"}->args($W->{"QUERY_STRING"});
+ $ENV{"QUERY_STRING"}=$W->{"QUERY_STRING"};
+ # Do not: $W->{"r"}->args()
+ # as it parses only QUERY_STRING (not POST data).
+ $W->{"args"}={ CGI->new()->Vars() };
+ for (keys(%{$W->{"args"}})) {
+ my @vals=split /\x00/,$W->{"args"}{$_};
+ next if @vals<=1;
+ $W->{"args"}{$_}=[@vals];
+ }
+
+ do { $W->{$_}=$ENV{"HTTP_ACCEPT"} if !defined $W->{$_}; } for ("accept");
+ do { $W->{$_}=$ENV{"HTTP_USER_AGENT"} if !defined $W->{$_}; } for ("user_agent");
+
+ $W->{"browser"}=HTTP::BrowserDetect->new($W->{"user_agent"});
+
+ if (!defined $W->{"have_style"}) {
+ $W->{"have_style"}=(!$W->{"browser"}->netscape() || $W->{"browser"}->major>4 ? 1 : 0);
+ }