robots.txt で適当に拒否る設定についてかんがえた

なんかこういうかんじでやるのが簡単にできる Middleware はどうか lang:ja

    enable sub {
        my $app = shift;
        sub {
            my $env = shift;
            if ($env->{PATH_INFO} eq '/robots.txt') {
                [
                    200,
                    [ 'Content-Type' => 'text/plain' ],
                    [qq{User-agent: *\nDisallow: /\n}]
                ];
            } else {
                $app->($env);
            }
        };
    };

おもいついたからかいただけです。

Published: 2010-03-25(Thu) 08:47