#!/usr/bin/perl

# CGIAutoDetect: take full advantage of mod_perl without renaming scripts
# Mooneer Salem <mooneer@translator.cx>

package CGIAutoDetect;

use Apache::Constants qw(:common);
use Apache::PerlRun;
use CGI::Carp qw(fatalsToBrowser);

sub handler {
        my $r = shift;
        my $filename = $r->filename;
        my $line;

        open(FP, $filename) or sub {
                        $r->content_type("text/html");
                        $r->print("$filename: not found");
                        return OK;
                };

        $line = <FP>;
        close(FP);

        if ($line =~ /perl/o) {
                $r->push_handlers("PerlHandler", \&Apache::PerlRun::handler);
                $r->handler('perl-script');
        } else {
                $r->handler('cgi-script');
        }

        return DECLINED;
}

##</code><code>##

PerlModule CGIAutoDetect
    
<Files *.cgi>
SetHandler perl-script   
PerlHandler CGIAutoDetect
PerlSendHeader On
Options ExecCGI
</Files>