head	1.1;
access;
symbols
	JSERV_0_10_PREVIEW:1.1.0.6
	JSERV_0_9_11:1.1.0.4
	JSERV_0_9_12:1.1.0.2
	JSERV0_9_10:1.1;
locks; strict;
comment	@# @;


1.1
date	98.02.14.06.21.52;	author ian;	state Exp;
branches;
next	;


desc
@@


1.1
log
@Update Apache::Servlet perl5 module to catch up with tweaks in the
JServ's protocol, also add a simple demonstration script "dump-servlet"
@
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.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;
@


