1 |
#!/usr/bin/perl |
#!/usr/bin/perl |
2 |
|
|
3 |
=head1 |
=head1 |
4 |
|
|
5 |
Dummy for robots.txt. (English Version) |
Dummy for robots.txt. (English Version) |
6 |
|
|
7 |
Copyright: Public Domain. |
Copyright: Public Domain. |
8 |
Change |
Change |
9 |
|
|
10 |
2001-05-26 wakaba |
2001-05-26 wakaba |
11 |
- New File. |
- New File. |
12 |
|
|
13 |
=cut |
=cut |
14 |
|
|
15 |
require Suika::CGI; |
require Suika::CGI; |
16 |
Suika::CGI::Log::write('robots.txt.'); |
Suika::CGI::Log::write('robots.txt.'); |
17 |
|
|
18 |
print "Status: 415 Unsupported Media Type\n"; |
print "Status: 415 Unsupported Media Type\n"; |
19 |
print "Content-Type: text/html\n"; |
print "Content-Type: text/html\n"; |
20 |
|
|
21 |
print "\n"; |
print "\n"; |
22 |
|
|
23 |
print <<EOH; |
print <<EOH; |
24 |
<html lang="en"> |
<html lang="en"> |
25 |
<head> |
<head> |
26 |
<title>415 Upsupported Media Type</title> |
<title>415 Upsupported Media Type</title> |
27 |
<meta name="ROBOTS" content="NOINDEX, NOFOLLOW, NOARCHIVE" /> |
<meta name="ROBOTS" content="NOINDEX, NOFOLLOW, NOARCHIVE" /> |
28 |
</head> |
</head> |
29 |
<body> |
<body> |
30 |
<h1>Unsupported Media Type</h1> |
<h1>Unsupported Media Type</h1> |
31 |
<p>Sorry, I don't support requested media type.</p> |
<p>Sorry, I don't support requested media type.</p> |
32 |
<address>$ENV{SERVER_NAME}, port $ENV{SERVER_PORT}</address> |
<address>$ENV{SERVER_NAME}, port $ENV{SERVER_PORT}</address> |
33 |
</body> |
</body> |
34 |
</html> |
</html> |
35 |
EOH |
EOH |