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
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
|
<%
use File::Basename;
my $basename = basename($0);
($basename) = split(/\./, $basename);
my $section = $FILES{$basename} || die("no section for $basename");
my ($data) = grep($_->{name} eq $section, @{$ASP->{stack}});
my ($copy) = grep($_->{name} eq 'COPYRIGHT', @{$ASP->{stack}});
$copy->{body} =~ s/\n\n.*$//sg;
$data || die("can't get data for $section");
my $module = "Apache :: ASP";
my $title = "$module :: ".uc(lc $data->{name});
%>
<html>
<head>
<title><%=$title%></title>
</head>
<body bgcolor=white link=#3355cc alink=#ff5599 vlink=#993399>
<table border=0 cellpadding=5 cellspacing=0 height=95% width=100%>
<tr><td colspan=2 bgcolor=#ff4488><img src=apache_asp.gif alt="<%=$module%>"></td></tr>
<tr>
<td valign=top bgcolor=#ffcccc>
<table border=0 cellpadding=0 cellspacing=0>
<tr><td align=center><hr size=1></td></tr>
<%
for $top (@{$ASP->{stack}}, '', { name=> EXAMPLES, file => 'eg/index'}) {
unless($top) {
%><tr><td><hr size=1></td></tr><%
next;
}
my $file;
if($top->{file}) {
$file = $top->{file};
} else {
($file) = grep($top->{name} eq $FILES{$_}, keys %FILES);
}
$file = "$file.html";
next unless (-e $file);
%>
<tr>
<td><a href=<%=$file%>><font face=verdana size=-1 color=#3355cc><%=$top->{name}%></font></a></td>
</tr>
<%
}
%>
<tr>
<td align=center>
<hr size=1>
<a href=http://perl.apache.org><img
src=modperl.gif border=0
alt="Powered by ModPerl & Apache"
></a>
<hr size=1>
</td>
</tr>
</table>
</td>
<td valign=top>
<%
my @stack;
my @order;
push(@stack, $data);
while(@stack) {
my $data = shift @stack;
unshift(@stack, @{$data->{stack}});
push(@order, $data);
}
print pod2html($data->{body}, $data->{name}, $data->{level});
my @links;
$data = shift @order;
if(@order > 2) {
my $last_level = $order[0]->{level};
for $data (@order) {
if($last_level != $data->{level}) {
push(@links, '');
$last_level = $data->{level};
}
push(@links, "<a href=#".$Server->URLEncode($data->{name})."><font color=#3355cc>$data->{name}</font></a>");
}
%>
<hr size=1>
<table width=100% border=0 cellpadding=5><tr><td valign=top><font face=verdana size=-1>
<%
for($i=0; $i<@links; $i++) {
if($i == (int((@links+1) / 2))) {
print "</font></td><td valign=top><font face=verdana size=-1>";
}
print $links[$i] . "<br>";
}
%>
</font>
</td>
</tr>
</table>
<hr size=1>
<p>
<%
}
for $data (@order) {
%>
<p>
<a name=<%=$Server->URLEncode($data->{name})%>></a>
<%=pod2html($data->{body}, $data->{name}, $data->{level})%>
<%
}
%>
</td>
</tr>
<tr bgcolor=#555555>
<td colspan=2 align=center width=80%>
<font face=verdana color=white size=-1><%=$copy->{body}%></font>
</td>
</tr>
</table>
</body>
</html>
|
