1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
|
<html>
<head>
<title>Dump Lots of Stuff</title>
</head>
<body>
<a href="[- $pile->url() -]/intro">click here to return to intro.</a><br><br>
<%!
use PSP::Driver qw($n_requests);
%>
<%
my @fses = $pile->fieldspaces();
my @links = (qw(pile),(sort map { "fs_$_" } @fses),qw(cgi loader));
my $link_list = join (" - ",map {"<a href=\"#$_\">$_</a>"} @links);
%>
<table width="450" align="center" border="1"><tr><td>
<center><h2>Various Dumps</h2></center>
<h3>Process</h3>
pid: <%= $$ %><br>
request count: <%= $n_requests %><br>
</td></tr><tr><td>
<center><a name="pile">[= $link_list =]</a></center>
<h3>Pile</h3>
<pre>[+ $pile->dumper() +]</pre>
<psp:if test="@fses">
<psp:list list="@fses" iterator="$fs">
</td></tr><tr><td>
<h3>FieldSpace: [+ $fs +]</h3>
<center><a name="fs_[= $fs =]">[= $link_list =]</a></center>
<pre>[+ $pile->fieldspace($fs)->dumper() +]</pre>
</psp:list>
</psp:if>
</td></tr><tr><td>
<center><a name="cgi">[= $link_list =]</a></center>
<h3>CGI</h3>
<pre>[+ $pile->dumper($pile->cgi()) +]</pre>
</td></tr><tr><td>
<a name="loader">[= $link_list =]</a></center>
<h3>Loader</h3>
<pre>[+ $pile->loader()->dumper() +]</pre>
</td></tr></table>
</body>
<html>
|
