head	1.2;
access;
symbols
	start:1.1.1.1 java_apache:1.1.1;
locks; strict;
comment	@# @;


1.2
date	98.09.01.00.24.24;	author stefano;	state dead;
branches;
next	1.1;

1.1
date	98.07.14.22.57.38;	author stefano;	state Exp;
branches
	1.1.1.1;
next	;

1.1.1.1
date	98.07.14.22.57.38;	author stefano;	state Exp;
branches;
next	;


desc
@@


1.2
log
@If Ian sees this is going to kill me ;-) but at least it would force him or somebody else to upgrade the Perl code to AJPv11. Currently this code is obsolete so I remove it even if it remains (hidden) in the CVS. Nobody but Ian seems to care about 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.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
log
@Initial revision
@
text
@@


1.1.1.1
log
@Imported JServ 1.0 Source
@
text
@@
