suikacvs/webroot/robots.txt.en.cgi

#!/usr/bin/perl

=head1

Dummy for robots.txt. (English Version)

Copyright: Public Domain.
Change

2001-05-26  wakaba
        - New File.

=cut

require Suika::CGI;
Suika::CGI::Log::write('robots.txt.');

print "Status: 415 Unsupported Media Type\n";
print "Content-Type: text/html\n";

print "\n";

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