## Usage:
#
# EvalExecs($html_to_parse) <== Evaluates <!--#exec -->'s
#
# EvalIncludes($html_to_parse) <== Evaluates <!--#include -->'s
#

use Cwd;

sub EvalExecs {

my($cwd,$path,$html,$action,$mode,$file,$exec);

$cwd = getcwd();
if($^O =~ m/win/) {
    if(substr($cwd,-1,1) eq "\\") {$cwd = substr($cwd,0,(length($cwd)-
+1))}
} else {
    $cwd =~ s/\\/\//g;
    if(substr($cwd,-1,1) eq "/") {$cwd = substr($cwd,0,(length($cwd)-1
+))}
}
$path = $ENV{'DOCUMENT_ROOT'};
if($^O =~ m/win/) {
    if(substr($path,-1,1) eq "\\") {$path = substr($path,0,(length($pa
+th)-1))}
} else {
    $path =~ s/\\/\//g;
    if(substr($path,-1,1) eq "/") {$path = substr($path,0,(length($pat
+h)-1))}
}

$html = $_[0];

while($html =~ m/<!--#exec(.+)-->/) {
    $html =~ s/<__exec(.+)__>/<_INVALID_exec$1_INVALID_>/;
    $html =~ s/<!--#exec(.+)-->/<__exec$1__>/;
    $action = $1;

    if($action =~ m/cmd=/) {

        $mode = 1;
        if($action =~ m/cmd="(.+)"/) {
            $file = $1;
        }
        elsif($action =~ m/cmd='(.+)'/) {
            $file = $1;
        }

    } elsif($action =~ m/cgi=/) {

        $mode = 2;
        if($action =~ m/cgi="(.+)"/) {
            $file = $1;
        }
        elsif($action =~ m/cgi='(.+)'/) {
            $file = $1;
        }

    }

    if(!$file) {next}

    if($mode == 1) {
        $exec = `$file`;
    } else {
        $exec = `perl $file`;
    }

    $html =~ s/<__exec(.+)__>/$exec/g;
    return $html;
}
$html =~ s/<_INVALID_exec(.+)_INVALID_>/<!--#exec$1-->/g;
}

sub EvalIncludes {

my($cwd,$path,$html,$action,$mode,$file,$final,$include,@temp,@dir,@in
+clude);

$cwd = getcwd();
if($^O =~ m/win/) {
    if(substr($cwd,-1,1) eq "\\") {$cwd = substr($cwd,0,(length($cwd)-
+1))}
} else {
    $cwd =~ s/\\/\//g;
    if(substr($cwd,-1,1) eq "/") {$cwd = substr($cwd,0,(length($cwd)-1
+))}
}
$path = $ENV{'DOCUMENT_ROOT'};
if($^O =~ m/win/) {
    if(substr($path,-1,1) eq "\\") {$path = substr($path,0,(length($pa
+th)-1))}
} else {
    $path =~ s/\\/\//g;
    if(substr($path,-1,1) eq "/") {$path = substr($path,0,(length($pat
+h)-1))}
}

$html = $_[0];

while($html =~ m/<!--#include(.+)-->/) {
    $html =~ s/<__include(.+)__>/<_INVALID_include$1_INVALID_>/;
    $html =~ s/<!--#include(.+)-->/<__include$1__>/;
    $action = $1;

    if($action =~ m/file=/) {

        $mode = 1;
        if($action =~ m/file="(.+)"/) {
            $file = $1;
        }
        elsif($action =~ m/file='(.+)'/) {
            $file = $1;
        }

    } elsif($action =~ m/virtual=/) {

        $mode = 2;
        if($action =~ m/virtual="(.+)"/) {
            $file = $1;
        }
        elsif($action =~ m/virtual='(.+)'/) {
            $file = $1;
        }

    }

    if(!$file) {next}

    if($mode == 1) {
        if(-e "$cwd/$file") {$final = "$cwd/$file"}
        else {
            opendir(MAIN,"$cwd");
            @temp = readdir(MAIN);
            closedir(MAIN);

            foreach $listed (@temp) {
                if((-d "$cwd/$listed" && ($listed ne "." && $listed ne
+ "..")) && (-e "$cwd/$listed/$file")) {$final = "$cwd/$listed/$file";
+ goto LAST}
                elsif(-d "$cwd/$listed" && ($listed ne "." && $listed 
+ne "..")) {push(@dirs,$listed)}
            }

            foreach $dir (@dirs) {
                opendir(DIR,"$cwd/$dir");
                @temp = readdir(DIR);
                closedir(DIR);

                foreach $listed (@temp) {
                    if(-d "$cwd/$dir/$listed" && -e "$cwd/$dir/$listed
+/$file") {$final = "$cwd/$dir/$listed/$file"; goto LAST}
                    elsif(-d "$cwd/$dir/$listed") {push(@dirs,"$dir/$l
+isted")}
                }
            }
        }
        LAST: if(!$final) {next}
    } else {
        $final = "$path/$file";
    }

    if(@include) {
        foreach $i (0..$#include) {
            shift(@include);
        }
    }

    open(INCLUDE,"$final");
    @include = <INCLUDE>;
    close(INCLUDE);

    $last = $include[-1];
    $include = '';

    foreach $i (@include) {
        chomp($i);
        if($i eq $last) {$include .= "$i";} else {$include .= "$i\n";}
    }

    $html =~ s/<__include(.+)__>/$include/g;
    return $html;
}
$html =~ s/<_INVALID_include(.+)_INVALID_>/<!--#include$1-->/g;
}
[download]

______________________________________________
When I get a little money, I buy books. If I have any left over, I buy food and clothes. -Erasmus