#!/usr/local/bin/php -n
<?php
$file = "/usr/local/directadmin/plugins/comodo_waf/admin/index.pl 2>&1";
ob_start();
passthru($file);
$perlreturn = ob_get_contents();
ob_end_clean();
if(strpos($perlreturn,'BEGIN failed--compilation aborted') !== false ) {
$perlreturn = str_replace("\n", "<br>", $perlreturn);
}
print $perlreturn;
?>