head     1.1;
branch   1.1.1;
access   ;
symbols  initial:1.1.1.1 java_apache:1.1.1;
locks    ; strict;
comment  @# @;


1.1
date     98.05.18.23.37.38;  author ross;  state Exp;
branches 1.1.1.1;
next     ;

1.1.1.1
date     98.05.18.23.37.38;  author ross;  state Exp;
branches ;
next     ;


desc
@@



1.1
log
@Initial revision
@
text
@# Sample script to capture the output of a Java servlet into mod_perl

use Apache::Servlet;

# configuration
$servlet_dir = "/path/to/dir/with/servlets";	# you need to edit this
$servlet_name = "org.apache.jserv.servlets.EnvDumpServlet";

# get request record
$r = Apache->request();

# make servlet request
$content = undef;
$content_length = $r->header_in("Content-Length");
$content_type = $r->header_in("Content-Type");
if (( defined $content_length ) && $content_length > 0 ) {
	$content = $r->read($content, $content_length);
}
$servlet_req = new Apache::Servlet ( $r, $servlet_dir, $servlet_name );
$servlet_req->dump_results();

1;
@


1.1.1.1
log
@
@
text
@@
