mambax7 / xoopseditors

##

##  Plugin for htmlArea, to run code through the server's HTML Tidy

##   By Adam Wright, for The University of Western Australia

##    This is the server-side script, which dirty code is run through.

##

##  Distributed under the same terms as HTMLArea itself.

##  This notice MUST stay intact for use (see license.txt).

##

// Get the original source

$source = $_POST['htisource_name'];

$source = stripslashes($source);

$cwd    = str_replace("\\", '/', getcwd()) . '/';

// Open a tidy process - I hope it's installed!

$descriptorspec = [

    0 => ['pipe', 'r'],

    1 => ['pipe', 'w']

];

$process        = @proc_open("tidy -utf8 -config {$cwd}html-tidy-config.cfg", $descriptorspec, $pipes);

// Make sure the program started and we got the hooks...

// Either way, get some source code into $source

if (is_resource($process)) {

    // Feed untidy source into the stdin

    fwrite($pipes[0], $source);

    fclose($pipes[0]);

    // Read clean source out to the browser

    while (!feof($pipes[1])) {

        //echo fgets($pipes[1], 1024);

        $newsrc .= fgets($pipes[1], 1024);

    }

    fclose($pipes[1]);

    // Clean up after ourselves

    proc_close($process);

} else {

    }

}

// Split our source into an array by lines

$srcLines = preg_split("/\n/", $newsrc, -1, PREG_SPLIT_NO_EMPTY);

// Get only the lines between the body tags

$startLn = 0;

while (false === strpos($srcLines[$startLn++], '<body') && $startLn < sizeof($srcLines)) {

    ;

}

$endLn = $startLn;

while (false === strpos($srcLines[$endLn++], '</body') && $endLn < sizeof($srcLines)) {

    ;

}

$srcLines = array_slice($srcLines, $startLn, ($endLn - $startLn - 1));

// Create a set of javascript code to compile a new source string

foreach ($srcLines as $line) {

    $jsMakeSrc .= "\tns += '" . str_replace("'", "\'", $line) . "\\n';\n";

}

if (!sizeof($srcLines)) {

    echo "alert(HTMLArea._lc('Tidy failed.  Check your HTML for syntax errors.', 'HtmlTidy'));\n";

} else {

    ?>