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	#!/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