File Coverage

blib/lib/ZM/SSI.pm

Criterion	Covered	Total	%
statement	3	33	9.0
branch	0	8	0.0
condition			n/a
subroutine	1	4	25.0
pod	1	3	33.3
total	5	48	10.4

package ZM::SSI;
$ZM::SSI::VERSION = '0.0.5';
use strict;

sub parse
{
	my $data = shift;
	$data=~s//${\(include($1))}/gi;
	$data=~s//${\(execcgi($1))}/gi;
	return($data);
}

sub include
{
	my $file=shift;
	$file=$ENV{DOCUMENT_ROOT}.$file if($file=~/^\//);
	my $old;
	$old=$/;
	undef($/);
	open(DATAFOR,$file);
	my $data=;
	close(DATAFOR);
	$/=$old;
	$data=parse($data);
	return($data);
}

sub execcgi
{
	my $file=shift;
	if($file=~/^([^?]*)\?(.*)/) # Cut Query string
	{
		$file=$1;
		if($ENV{QUERY_STRING} eq '')
		{
			$ENV{QUERY_STRING}=$2;
		}
		else
		{
			$ENV{QUERY_STRING}.='&'.$2;
		}
	}
	if($file=~/^\//)
    {
        $file=$ENV{DOCUMENT_ROOT}.$file;
    }
    else
    {
		$file="./$file";
    }
	my $data=`$file`;
	$data=~s/^.*\n\n//;
	$data=parse($data);
	return($data);
}
#############################

1;

__END__