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