/ 
Apache2-ASP-1.27
River stage zero No dependents
/ Apache2::ASP::Response

NAME

Apache2::ASP::Response - Interact with the client.

SYNOPSIS

<%
  # Add a cookie:
  $Response->Cookies( cookiename => "cookie value" );
  
  # Add another HTTP header:
  $Response->AddHeader( 'x-micro-payment-required' => '0.001' );
  
  # Set the content-type header:
  $Response->{ContentType} = 'text/html';
  
  # Set the expiration date to 3 minutes ago:
  $Response->{Expires} = -3;
  
  # Print data to the client:
  $Response->Write("Welcome to the web page.<br>");
  
  # Include another file:
  $Response->Include(
    $Server->MapPath("/my-script.asp"),
    {arg => 'value'}
  );
  
  # Get the output from another file:
  my $result = $Response->TrapInclude(
    $Server->MapPath("/another-script.asp")
  );
  
  # Get a server variable:
  my $host = $Request->ServerVariables("HTTP_HOST");
  
  # Redirect:
  $Response->Redirect( "/new/page.asp" );
  
  # End processing and stop transmission:
  $Response->End;
  
  # Flush data to the client:
  $Response->Flush;
  
  # Clear the buffer:
  $Response->Clear();
  
  # Force auto-flush (no buffering):
  $Response->{Buffer} = 0;
  
  # Do something that takes a long time:
  while( not_done_yet() && $Response->IsClientConnected )
  {
    # do stuff...
  }# end while()
%>

DESCRIPTION

The global $Response object is an instance of Apache2::ASP::Response.

PUBLIC METHODS

new( $asp )

AddHeader( $name, $value )

Adds a new header to the HTTP response

For example, the following:

<%
  $Response->AddHeader( "funny-factor" => "funny" );
%>

Sends the following in the HTTP response:

funny-factor: funny

Headers( )

Returns a name/value hash of all the HTTP headers that have been set via AddHeader.

Cookies( $name, $value )

Sends a cookie to the client.

Write( $str )

Writes data to the client. If buffering is enabled, the output will be deferred until Flush() is finally called (automatically or manually).

If buffering is disabled, the output will be sent immediately.

Flush( )

Causes the response buffer to be printed to the client immediately.

If the HTTP headers have not been sent, they are sent first before the response buffer is sent.

End( )

Stops processing and closes the connection to the client. The script will abort right after calling End().

Clear( )

Empties the response buffer. If Flush() has already been called, an exception is thrown instead.

Redirect( $url )

Causes the client to be redirected to $url.

If Flush() has already been called, an exception is thrown instead.

Include( $path, %args )

Executes the script located at $path and passes %args to the script. The result of the included script is included into the current response buffer.

The contents of %args are available to the included script as @_.

TrapInclude( $path )

Executes the ASP script located at $path and returns its results as a string.

IsClientConnected( )

Checks to see if the client is still connected. Returns 1 if connected, 0 if not.

Expires( [$minutes] )

Set/get the number of minutes between now and when the content will expire.

Negative values are permitted.

Default is 0.

ExpiresAbsolute( [$http_datetime] )

Set/get the date in HTTP date format when the content will expire.

Default is now.

Buffer( [$bool] )

Gets/sets the buffering behavior. Default value is 1.

# Turn off buffering, forcing output to be flushed to the client immediately:
$Response->Buffer(0);

# Turn on buffering.  Wait until the request is finished before the buffer is sent:
$Response->Buffer(1);

BUGS

It's possible that some bugs have found their way into this release.

Use RT http://rt.cpan.org/NoAuth/Bugs.html?Dist=Apache2-ASP to submit bug reports.

HOMEPAGE v of Apache2::ASP in action.

AUTHOR

John Drago mailto:jdrago_999@yahoo.com

COPYRIGHT AND LICENSE

Copyright 2007 John Drago, All rights reserved.

This software is free software. It may be used and distributed under the same terms as Perl itself.