perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From do...@apache.org
Subject cvs commit: modperl-2.0/todo api.txt
Date Fri, 28 Sep 2001 13:51:57 GMT
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 <gozer@cpan.org>
  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
   
  
  
  

Mime
View raw message