<%flags>inherit=>undef</%flags>
% my $host=$r->subprocess_env('HTTP_HOST');
% if ($host =~ /^print\./) {
User-agent: *
Disallow: /
% } elsif ($content ne "") {
<% $content %>
% } else {
# empty robots.txt file
% }
<%init>
$c{servername}=$r->subprocess_env('HTTP_HOST');
$c{servername}=~s/\.ofc\././;
my $db=DOMdb::_init();
$db->setChannel($ENV{MasonChannel});
my $item=DOMdb::get("Pages-Name","$c{servername}/robots.txt");
my $content=DOMdb::get('Pages',$item,'Content');
</%init>
<%once>
use DOMdb;
</%once>