view release on metacpan or  search on metacpan

lib/Apache/SSI.pm  view on Meta::CPAN

use Apache::Constants qw(:common :http OPT_INCNOEXEC);
use File::Basename;
use HTML::SimpleParse;
use Symbol;
use POSIX;

$VERSION = '2.19';
my $debug = 0;


sub handler($$) {
    my ($pack, $r) = @_>1 ? @_ : (__PACKAGE__, shift());
    
    my $fh;
    if (lc($r->dir_config('Filter')) eq 'on') {
        $r = $r->filter_register;
        my ($status);
        ($fh, $status) = $r->filter_input();
        return $status unless $status == OK;
        
    } else {

lib/Apache/SSI.pm  view on Meta::CPAN

        $req = $self->{_r}->lookup_file($args->{'file'});
    } elsif (exists $args->{'virtual'}) {
        $self->_interp_vars($args->{'virtual'});
        $req = $self->{_r}->lookup_uri($args->{'virtual'});
    } else {
        $req = $self->{_r};
    }
    return $req;
}

sub ssi_printenv() {
    return join "", map( {"$_: $ENV{$_}<br>\n"} keys %ENV );
}

sub ssi_exec {
    my($self, $args) = @_;
    #XXX did we check enough?
    my $r = $self->{_r};
    my $filename = $r->filename;

    if ($r->allow_options & OPT_INCNOEXEC) {