6 Einträge, 1 Seite |
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
package jeden::Index;
use strict;
use warnings;
use Apache2::RequestRec ();
use Apache2::RequestIO ();
use Apache2::Const -compile => qw(OK);
my $str;
sub handler {
my $a = shift;
$a->content_type('text/html');
$str = sprintf <<EOF;
<html>
<head>
<title>test</title>
</head>
<body>
<h1>test</h1>
<table width="100%">
<tr>
<td>
<ul>
<li><a href="test.html">test.html</a></li>
<li><a href="test.txt">test.txt</a></li>
<li><a href="../klappt.html">klappt.html</a></li>
</ul>
</td>
</tr>
</table>
</body>
</html>
EOF
$a->print ($str);
return Apache2::Const::OK;
}
1;
1
2
3
4
5
6
7
Alias /jeden /var/www/vhost/test/jeden
<Directory /var/www/vhost/test/jeden>
SetHandler perl-script
PerlResponseHandler jeden::Index
PerlOptions +ParseHeaders
Options +ExecCGI
</Directory>
192.168.0.48 - - [06/May/2007:13:21:17 +0200] "GET /jeden/test.txt HTTP/1.1" 200 285
6 Einträge, 1 Seite |