2009/08/18 - Apache AxKit has been retired.

Trying to use AxKit::XSP::WebUtils today I encountered issues with
<web:header> and <web:env_param>.

* <web:header> returns no value at all for anything. Looking at the code
this is because the routine checks to see if there are still values in @_,
which appears to always be true. I think TaglibHelper must pass through an
undef for optional attributes that are not set. So I changed it to check
$_[0] instead.

* <web:env_param> didn't return very much for me. I do have PerlSetupEnv On
in my config, but I couldn't get any but the default 3 items from %ENV. So
I
changed this routine to use Apache->request->subprocess_env(). I don't know
if that's my issue, or if everyone has that issue, but I figured it
wouldn't
hurt anyone.

Here's the patch:
*** WebUtils.pm Sat Oct 5 02:18:52 2002
--- /usr/local/lib/perl5/site_perl/5.6.1/AxKit/XSP/WebUtils.pm Sat Oct 5
02:09:20 2002
***************
*** 40,47 ****
sub env_param ($) {
my ($name) = @_;
! return $ENV{$name};
}
sub path_info () {
--- 40,48 ----
sub env_param ($) {
my ($name) = @_;
+ my $Request = AxKit::Apache->request;
! return $Request->subprocess_env($name);
}
sub path_info () {
***************
*** 128,134 ****
my $name = shift;
my $r = AxKit::Apache->request;
! if (@_) {
return $r->header_out($name, $_[0]);
}
else {
--- 129,135 ----
my $name = shift;
my $r = AxKit::Apache->request;
! if ($_[0]) {
return $r->header_out($name, $_[0]);
}
else {