Aie ! There is a slight problem with this patch, as was pointed out by Stas a while ago.
Blame it on the annoying TZ lag introduced in e-mail when living in Singapore ;-)
This patch works, but doesn't preserve ARRAY context, thus:
my @list = $r->header_in("foo");
will not work ;(
On Fri, Sep 28, 2001 at 01:51:57PM -0000, [EMAIL PROTECTED] wrote:
> dougm 01/09/28 06:51:57
>
> Modified: lib/Apache compat.pm
> todo api.txt
> Log:
> add $r->header_(in/out)() to Apache::compat
> Submitted by: Philippe M . Chiasson <[EMAIL PROTECTED]>
> Reviewed by: dougm
>
> Revision Changes Path
> 1.13 +29 -0 modperl-2.0/lib/Apache/compat.pm
>
> Index: compat.pm
> ===================================================================
> RCS file: /home/cvs/modperl-2.0/lib/Apache/compat.pm,v
> retrieving revision 1.12
> retrieving revision 1.13
> diff -u -r1.12 -r1.13
> --- compat.pm 2001/09/15 17:57:25 1.12
> +++ compat.pm 2001/09/28 13:51:57 1.13
> @@ -57,6 +57,35 @@
>
> package Apache::RequestRec;
>
> +sub table_set_get {
> + my($r, $table) = (shift, shift);
> + my($key, $value) = @_;
> +
> + if (1 == @_) {
> + return $table->{$key};
> + }
> + elsif (2 == @_) {
> + return $table->{$key} = $value;
> + }
> + elsif (0 == @_) {
> + return $table;
> + }
> + else {
> + my $name = (caller(1))[3];
> + warn "Usage: $name([key [,val]])";
> + }
> +}
> +
> +sub header_out {
> + my $r = shift;
> + return $r->table_set_get(scalar $r->headers_out, @_);
> +}
> +
> +sub header_in {
> + my $r = shift;
> + return $r->table_set_get(scalar $r->headers_in, @_);
> +}
> +
> sub register_cleanup {
> shift->pool->cleanup_register(@_);
> }
>
>
>
> 1.6 +0 -3 modperl-2.0/todo/api.txt
>
> Index: api.txt
> ===================================================================
> RCS file: /home/cvs/modperl-2.0/todo/api.txt,v
> retrieving revision 1.5
> retrieving revision 1.6
> diff -u -r1.5 -r1.6
> --- api.txt 2001/09/25 19:44:03 1.5
> +++ api.txt 2001/09/28 13:51:57 1.6
> @@ -9,9 +9,6 @@
> need apr_finfo_t <-> struct stat conversion (might already be there,
> haven't looked close enough yet)
>
> -$r->header_{in,out}:
> -deprecated, but should be included in Apache::compat
> -
> $r->pnotes:
> not yet implemented
>
>
>
>
--
Philippe M. Chiasson <[EMAIL PROTECTED]>
Extropia's Resident System Guru
http://www.eXtropia.com/
Being an adult isn't about being grown up--it's about
realizing you need to grow up.
-- Larry Wall
perl -e '$$=\${gozer};{$_=unpack(P26,pack(L,$$));/^Just Another Perl
Hacker!\n$/&&print||$$++&&redo}'
msg01480/pgp00000.pgp
Description: PGP signature
