Leser: 2
8 Einträge, 1 Seite |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
#!/usr/bin/perl # hello.cgi -- my first perl script! print "Content-type: text/html\n\n"; print <<"EOF"; <HTML> <HEAD> <TITLE>Hello, world!</TITLE> </HEAD> <BODY> <H1>Hello, world!</H1> </BODY> </HTML> EOF
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
#!/usr/bin/perl # hello.cgi -- my first perl script! use CGI::Carp qw(fatalsToBrowser warningsToBrowser); use CGI; print "Content-type: text/html\n\n"; warningsToBrowser(1); print <<"EOF"; <HTML> <HEAD> <TITLE>Hello, world!</TITLE> </HEAD> <BODY> <H1>Hello, world!</H1> </BODY> </HTML> EOF
1
2
3
4
5
6
7
ScriptAlias /cgi-bin/ /path/to/cgi-bin/
<Directory "/path/to/cgi-bin">
AllowOverride None
Options ExecCGI -MultiViews +SymLinksIfOwnerMatch
Order allow,deny
Allow from all
</Directory>
8 Einträge, 1 Seite |