Leser: 1
|< 1 2 >| | 14 Einträge, 2 Seiten |
do "index.cgi";
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
#!/usr/bin/perl -w
use strict;
BEGIN {
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
warningsToBrowser(1);
}
print "Content-type: text/html\n\n";
print <<HTML;
<html>
<head>
<title>Home</title>
<link rel="StyleSheet" type="text/css" href="../style.css">
</head>
<body>
HTML
do "time.cgi";
# htmlcode...
do "menu.cgi";
print <<HTML;
## weiterer htmlcode
</body>
</html>
HTML
Quote\n\nThis is a problem under mod_perl and other persistent Perl environments, where you shouldn't use this module.
*0 = \$filename;
|< 1 2 >| | 14 Einträge, 2 Seiten |