<xsp:page xmlns:xsp="http://www.apache.org/1999/XSP/Core">
<xsp:import>Apache::File</xsp:import>
<html>
<head>
<title>Source for <xsp:expr>$r->args</xsp:expr></title>
<link rel="stylesheet" url="/axkit/stylesheets/style.css"/>
</head>
<body>
<h1>Source for <xsp:expr>$r->args</xsp:expr></h1>
<xsp:logic>
# this oculd leak information. should check for 'demo files only'
my $filename = $r->lookup_uri($r->args)->filename;
my $file = Apache::File->new($filename);
<pre>
<xsp:expr><![CDATA[
join('', <$file>);
]]></xsp:expr>
</pre>
</xsp:logic>
<p>
<a href="showsource.xsp?showsource.xsp">View Source</a>
</p>
</body>
</html>
</xsp:page>