Apache2::RequestIO - Perl API for Apache request record IO

TIE Interface

BINMODE
CLOSE
FILENO
GETC
OPEN
PRINT
PRINTF
READ
TIEHANDLE
UNTIE
WRITE

Deprecated API

get_client_block
setup_client_block
should_client_block

See Also
Copyright
Authors

NAME

Apache2::RequestIO - Perl API for Apache request record IO

Synopsis

  use Apache2::RequestIO ();
  
  $rc = $r->discard_request_body();
  
  $r->print("foo", "bar");
  $r->puts("foo", "bar"); # same as print, but no flushing
  $r->printf("%s $d", "foo", 5);
  
  $r->read($buffer, $len);
  
  $r->rflush();
  
  $r->sendfile($filename);
  
  $r->write("foobartarcar", 3, 5);

Description

Apache2::RequestIO provides the API to perform IO on the Apache request object.

API

Apache2::RequestIO provides the following functions and/or methods:

`discard_request_body`

In HTTP/1.1, any method can have a body. However, most GET handlers wouldn't know what to do with a request body if they received one. This helper routine tests for and reads any message body in the request, simply discarding whatever it receives. We need to do this because failing to read the request body would cause it to be interpreted as the next request on a persistent connection.

  $rc = $r->discard_request_body();

obj: $r ( Apache2::RequestRec object|docs::2.0::api::Apache2::RequestRec ): The current request
ret: $rc ( integer ): APR::Const status constant|docs::2.0::api::APR::Const if request is malformed, Apache2::Const::OK otherwise.
since: 1.99_10

Since we return an error status if the request is malformed, this routine should be called at the beginning of a no-body handler, e.g.,

   use Apache2::Const -compile => qw(OK);
   $rc = $r->discard_request_body;
   return $rc if $rc != Apache2::Const::OK;

`print`

Send data to the client.

  $cnt = $r->print(@msg);

obj: $r ( Apache2::RequestRec object|docs::2.0::api::Apache2::RequestRec )
arg1: @msg ( ARRAY ): Data to send
ret: $cnt ( number ): How many bytes were sent (or buffered). If zero bytes were sent, print will return 0E0, or ``zero but true,'' which will still evaluate to 0 in a numerical context.
excpt: APR::Error|docs::2.0::api::APR::Error
since: 1.99_10

The data is flushed only if STDOUT stream's $| is true. Otherwise it's buffered up to the size of the buffer, flushing only excessive data.

`printf`

Format and send data to the client (same as printf).

  $cnt = $r->printf($format, @args);

obj: $r ( Apache2::RequestRec object|docs::2.0::api::Apache2::RequestRec )
arg1: $format ( string ): Format string, as in the Perl core printf function.
arg2: @args ( ARRAY ): Arguments to be formatted, as in the Perl core printf function.
ret: $cnt ( number ): How many bytes were sent (or buffered)
excpt: APR::Error|docs::2.0::api::APR::Error
since: 1.99_10

The data is flushed only if STDOUT stream's $| is true. Otherwise it's buffered up to the size of the buffer, flushing only excessive data.

`puts`

Send data to the client

  $cnt = $r->puts(@msg);

obj: $r ( Apache2::RequestRec object|docs::2.0::api::Apache2::RequestRec )
arg1: @msg ( ARRAY ): Data to send
ret: $cnt ( number ): How many bytes were sent (or buffered)
excpt: APR::Error|docs::2.0::api::APR::Error
since: 1.99_10

puts() is similar to print()|/C_print_, but it won't attempt to flush data, no matter what the value of STDOUT stream's $| is. Therefore assuming that STDOUT stream's $| is true, this method should be a tiny bit faster than print()|/C_print_, especially if small strings are printed.

`read`

Read data from the client.

  $cnt = $r->read($buffer, $len);
  $cnt = $r->read($buffer, $len, $offset);

obj: $r ( Apache2::RequestRec object|docs::2.0::api::Apache2::RequestRec )
arg1: $buffer ( SCALAR ): The buffer to populate with the read data
arg2: $len ( number ): How many bytes to attempt to read
opt arg3: $offset ( number ): If a non-zero $offset is specified, the read data will be placed at that offset in the $buffer.; META: negative offset and \0 padding are not supported at the moment
ret: $cnt ( number ): How many characters were actually read
excpt: APR::Error|docs::2.0::api::APR::Error
since: 1.99_10

This method shares a lot of similarities with the Perl core read() function. The main difference in the error handling, which is done via APR::Error exceptions|docs::2.0::api::APR::Error

`rflush`

Flush any buffered data to the client.

  $r->rflush();

obj: $r ( Apache2::RequestRec object|docs::2.0::api::Apache2::RequestRec )
ret: no return value
since: 1.99_15

Unless STDOUT stream's $| is false, data sent via $r->print()|/C_print_ is buffered. This method flushes that data to the client.

`sendfile`

Send a file or a part of it

  $rc = $r->sendfile($filename);
  $rc = $r->sendfile($filename, $offset);
  $rc = $r->sendfile($filename, $offset, $len);

obj: $r ( Apache2::RequestRec object|docs::2.0::api::Apache2::RequestRec )
arg1: $filename ( string ): The full path to the file (using / on all systems)
opt arg2: $offset ( integer ): Offset into the file to start sending.; No offset is used if $offset is not specified.
opt arg3: $len ( integer ): How many bytes to send.; If not specified the whole file is sent (or a part of it, if $offset if specified)
ret: $rc ( APR::Const status constant|docs::2.0::api::APR::Const> ): On success, APR::Const::SUCCESS|docs::2.0::api::APR::Const/C_APR__SUCCESS_ is returned.; In case of a failure -- a failure code is returned, in which case normally it should be returned to the caller.
excpt: APR::Error|docs::2.0::api::APR::Error: Exceptions are thrown only when this function is called in the VOID context. So if you don't want to handle the errors, just don't ask for a return value and the function will handle all the errors on its own.
since: 1.99_15

`write`

Send partial string to the client

  $cnt = $r->write($buffer);
  $cnt = $r->write($buffer, $len);
  $cnt = $r->write($buffer, $len, $offset);

obj: $r ( Apache2::RequestRec object|docs::2.0::api::Apache2::RequestRec )
arg1: $buffer ( SCALAR ): The string with data
opt arg2: $len ( SCALAR ): How many bytes to send. If not specified, or -1 is specified, all the data in $buffer (or starting from $offset) will be sent.
opt arg3: $offset ( number ): Offset into the $buffer string.
ret: $cnt ( number ): How many bytes were sent (or buffered)
excpt: APR::Error|docs::2.0::api::APR::Error
since: 1.99_10

Examples:

Assuming that we have a string:

  $string = "123456789";

Then:

  $r->write($string);

sends:

123456789

Whereas:

  $r->write($string, 3);

sends:

And:

  $r->write($string, 3, 5);

sends:

Finally:

  $r->write($string, -1, 5);

sends:

TIE Interface

The TIE interface implementation. This interface is used for HTTP request handlers, when running under SetHandler perl-script|docs::2.0::user::config::config/C_perl_script_> and Perl doesn't have perlio enabled.

See the perltie manpage for more information.