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