+ print STDERR "$class->init ".Apache2::RequestUtil->request()->unparsed_uri()."\n";
+
+ # We need to track package dependencies, so we need to call it from &init.
+ # We cannot do it in BEGIN { } block
+ # as it would not be tracked for each of the toplevel users later.
+ Wuse 'WebConfig';
+ Wrequire 'My::Hash::Sub';
+
+ my $packages_used_array_save=$W->{'packages_used@'};
+ my $packages_used_hash_save =$W->{'packages_used%'};
+ $W={};
+ tie %$W,"My::Hash::Sub";
+ %$W=(%WebConfig,%args); # override %WebConfig settings
+ $W->{'packages_used@'}=$packages_used_array_save;
+ $W->{'packages_used%'}=$packages_used_hash_save;
+ $W->{"__PACKAGE__"}||=caller();
+
+ # {"__PACKAGE__"} is mandatory for mod_perl-2.0;
+ # $Apache2::Registry::curstash is no longer supported.
+ do { cluck "No $_" if !$W->{$_}; } for "__PACKAGE__";
+
+ 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 ("footer");
+ do { $W->{$_}=1 if !defined $W->{$_}; } for ("footer_delimit");
+ 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 ("body_attr");
+ do { $W->{$_}="en-US" if !defined $W->{$_}; } for ("language");
+
+ my $footer_any=0;
+ for (qw(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"}=Apache2::RequestUtil->request();
+
+ tie *STDOUT,$W->{"r"};
+ select *STDOUT;
+ $|=1;
+
+ $W->{"QUERY_STRING"}=$W->{"r"}->args() || "";
+ if ($W->{"detect_ent"}) {
+ 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 (!defined $W->{"have_ent"} && $W->{"r"}->method() eq "GET") {
+ $W->{"head"}.='<meta http-equiv="Refresh" content="0; URL='
+ .escapeHTML("http://".$W->{"web_hostname"}."/".($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"});
+ # Workaround: &CGI::Vars behaves weird if strings passed both as POST data and in: $QUERY_STRING
+ do { $W->{"r"}->args(""); delete $ENV{"QUERY_STRING"}; } if $W->{"r"}->method() eq "POST";
+ # Do not: $W->{"r"}->args()
+ # as it parses only QUERY_STRING (not POST data).
+ $W->{"args"}={ CGI->new($W->{"r"})->Vars() };
+ for my $name (keys(%{$W->{"args"}})) {
+ my @vals=split /\x00/,$W->{"args"}{$name};
+ next if @vals<=1;
+ $W->{"args"}{$name}=[@vals];
+ }
+
+ do { $W->{$_}=$W->{"r"}->headers_in()->{"Accept"} if !defined $W->{$_}; } for ("accept");
+ do { $W->{$_}=$W->{"r"}->headers_in()->{"User-Agent"} if !defined $W->{$_}; } for ("user_agent");